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
!! 17.06.2018 (Jel.) Khanova škola zve nadšence ke spolupráci na překladech návodů pro učitele a rodiče.
! 04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
17.01.2016 (Jel.) Rok 2016 s novými a novějšími krystaly od kolegy Pavla!
17.01.2016 (Jel.) Nabídka knih z oborů matematiky, fyziky, chemie
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: 417
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: 417
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: 417
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