Problème calcul entre variable sur TI-92 II

→ **MyCalcs** profile · de **Hamza.S** » 12 Avr 2015, 08:17

si tu souhaites utiliser que des boîtes de dialogue autant faire comme ceci

Code: Tout sélectionner: () Prgm Local c,r,u,i Lbl deb Dialog Title "La loi d'Ohm" Text "Choisissez votre calcul" DropDown "Calcul",{"U=R*I","I=U/R","R=U/I","Quitter"},c EndDlog If c=1 Then Dialog Request "R",r Request "I",i EndDlog expr(r)->r expr(i)->i r*i->u Text string(r)&"*"&string(i)&"="&string(u) Goto deb ElseIf c=2 Then Dialog Request "U",u Request "R",r EndDlog expr(r)->r expr(u)->u u/r->i Text string(u)&"/"&string(r)&"="&string(i) Goto deb ElseIf c=4 Then DispHome Else Dialog Request "U",u Request "I",i EndDlog expr(u)->u expr(i)->i u/i->r Text string(u)&"/"&string(i)&"="&string(r) Goto deb EndIf EndPrgm

comme ça tu vois tes 2 données
tu as des modifications qui permettent de revenir au début du programme avec une possibilité de quitter le programme

→ **MyCalcs** profile · de **Questiero** » 12 Avr 2015, 09:27

Voilà mon code fini:

Code: Tout sélectionner: :loiohm() :Prgm :setMode("Exact/Approx","APPROXIMATE") :Lbl debut :local c,r,u,i,b :Dialog :Title "La loi d'Ohm" :Text "Choisissez votre calcul" :DropDown "Calcul",{"U=R*I","I=U/R","R=U,I","Quitter"},c :EndDlog :If c=1 Then :Dialog :Title "La loi d'Ohm\U=R*I" :Request "R",r :Request "I",i :EndDlog :expr(r)->r :expr(i)->i :r*i->u :ElseIf c=2 Then :Dialog :Title "La loi d'Ohm\I=U/R" :Request "U",u :Request "R",r :EndDlog :expr(u)->u :expr(r)->r :u/r->i :ElseIf c=3 Then :Dialog :Title "La loi d'Ohm\R=U*I" :Request "U",u :Request "I",i :EndDlog :expr(u)->u :expr(i)->i :u/i->r :Else :Goto fin :EndIf :Dialog :Title "Résultats" :Text "R="&string(r)&"U="&string(u)&"I="&string(i) :DropDown "Nouveau calcul?",{"Oui","Non"},b :EndDlog :If b=1 Then :Goto debut :EndIf :Lbl fin :EndPrgm

Modifications:
-Les Request dans la même boite de dialogue
-Ajout de deux label: debut et fin. Le premier utile dans le DropDown des Resultats, le deuxième dans l'écran "principal"
-Ajout d'une option quitter dans l'écran principal (Merci Hamza.S)
-Ajout d'une boite de dialogue qui affiche les résultats avec un DropDown permettant de revenir au début.
-Ajout d'un setMode au début pour ne pas avoir de mauvaise surprise lors des calculs.

Je crois que c'est tout! Et les Request dans la même boite de dialogue, j'y avait penser avant que tu me le dise Hamza.S, mais merci quand même.

Qu'en pensez-vous?

→ **MyCalcs** profile · de **Hamza.S** » 12 Avr 2015, 10:03

ça va
tu devrais juste laisser des espaces pour cette ligne Text "R="&string(r)&"U="&string(u)&"I="&string(i)
exemple Text "R="&string(r)&" U="&string(u)&" I="&string(i)