Problème calcul entre variable sur TI-92 II

→ **MyCalcs** profile · by **Hamza.S** » 12 Apr 2015, 08:17

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

Code: Select all: () 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 · by **Questiero** » 12 Apr 2015, 09:27

Voilà mon code fini:

Code: Select all: :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 · by **Hamza.S** » 12 Apr 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)