Matematické Fórum

Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.

Nástěnka
22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.

Nejste přihlášen(a). Přihlásit

#1 17. 10. 2014 22:06

s-o-k-o-l
Příspěvky: 423
Reputace:   
 

Mathematica - problém se zadávacím oknem

Dobrý den,
chtěl bych poprosit, jak mám v mathematice udělat  tlačítka ... budu tam mít čísla od 0 do 9 ... když kliknu na nějaké číslo, tak se mi bude dávat do A

Pak udělám ten samý číselník pro B

Ale nemám tušení, jak to udělat :( poradil by mi někdo tu funkci? Děkuju za radu :)

DynamicModule[{a = 0, b = 0},
Deploy[Style[
   Panel[Grid[
     Transpose[{{Style["A", Red], Style["B", Red], "suma", "rozdíl",
        "their product"}, {InputField[Dynamic[a], Number],
        InputField[Dynamic[b], Number],
        InputField[Dynamic[a + b], Enabled -> False],
        InputField[Dynamic[a - b], Enabled -> False],
        InputField[Dynamic[a b], Enabled -> False]}}],
     Alignment -> Right], ImageMargins -> 10],
   DefaultOptions -> {InputField -> {ContinuousAction -> True,
       FieldSize -> {{5, 30}, {1, Infinity}}}}]]]

Offline

  • (téma jako vyřešené označil(a) s-o-k-o-l)

#2 17. 10. 2014 22:34

s-o-k-o-l
Příspěvky: 423
Reputace:   
 

Re: Mathematica - problém se zadávacím oknem

↑ s-o-k-o-l:

Dodal jsem tam ty čísla. Když na ně kliknu, hětl bych, aby se do A začali zapisovat hodnoty ... B ted neřeším :)

DynamicModule[{a = 0, b = 0},
Deploy[Style[
    Panel[Grid[
      Transpose[{{Style["A", Red], Style["B", Red],
         "here is their sum", "their difference",
         "their product"}, {InputField[Dynamic[a], Number],
         InputField[Dynamic[b], Number],
         InputField[Dynamic[a + b], Enabled -> False],
         InputField[Dynamic[a - b], Enabled -> False],
         InputField[Dynamic[a b], Enabled -> False]}}],
      Alignment -> Right], ImageMargins -> 10],
    DefaultOptions -> {InputField -> {ContinuousAction -> True,
        FieldSize -> {{5, 30}, {1, Infinity}}}}]]
 
  Row@Prepend[
    Table[With[{b = b},
      Button[b, predpisFce = predpisFce <> b, Alignment -> Center,
       Appearance -> "Pressed"]], {b, {"1", "2", "3", "4", "5", "6",
       "7", "8", "9", "0"}}],
    Style["Čísla             ", Italic, Bold]]
]

Offline

 

#3 17. 10. 2014 22:36 — Editoval s-o-k-o-l (17. 10. 2014 22:54)

s-o-k-o-l
Příspěvky: 423
Reputace:   
 

Re: Mathematica - problém se zadávacím oknem

↑ s-o-k-o-l:
Ještě chci dodat, že v mathematice vůbec neumím ... takže ty kódy zkouším z helpu a nějak to poskládat dohromady, abych se tohoto předmětu za semestr zbavil. určitě někde v tom Buttonu bude error ... blbě napsané. Ten předpisFce tam nebude ...ale nvm, jak to zaměnit :/

Offline

 

Zápatí

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson