Problème calcul entre variable sur TI-92 II

[Hamza.S]

variable1 et variable2 sont bien des variables ou tu l'as écrit comme on l'a écrit? parce que si tu l'as écrit comme on l'as écrit normal que tu es cette écriture

[Questiero]

Code: Select all

:loiohm()
:Prgm
:Local c,r,u,i
:Dialog
:Title "La loi d'Ohm"
:Text "Choisissez votre calcul"
:DropDown "Calcul",{"U=R*I","I=U/R","R=U/I"},c
:EndDlog
:If c=1 Then
:Request "R",r
:Request "I",i
:r*i->u
:Text string(u)
:ElseIf c=2 Then
:Request "U",u
:Request "R",r
:u/r->i
:Text string(i)
:Else
:Request "U",u
:Request "I",i
:u/i->r
:Text string(r)
:EndIf
:EndPrgm

Voilà!

[Questiero]

Je ne vois pas se que tu veux dire, regarde le code, tu aura ta réponse normalement.

[Hamza.S]

normal que tu es des guillemets Request donne une chaîne de caractère si tu veux avoir quelques choses sans guillemet il faut utiliser expr(
le mieux c'est d'utiliser Input pour avoir un code moins long
voilà ton code avec expr(

Code: Select all

()
Prgm
ClrIO
Local c,r,u,i
Dialog
Title "La loi d'Ohm"
Text "Choisissez votre calcul"
DropDown "Calcul",{"U=R*I","I=U/R","R=U/I"},c
EndDlog
If c=1 Then
Request "R",r
Request "I",i
expr(r)->r
expr(i)->i
r*i->u
Text string(r)&"*"&string(i)&"="&string(u)
ElseIf c=2 Then
Request "U",u
Request "R",r
expr(r)->r
expr(u)->u
u/r->i
Text string(u)&"/"&string(r)&"="&string(i)
Else
Request "U",u
Request "I",i
expr(u)->u
expr(i)->i
u/i->r
Text string(u)&"/"&string(i)&"="&string(r)
EndIf
EndPrgm

avec Input

Code: Select all

()
Prgm
ClrIO
Local c,r,u,i
Dialog
Title "La loi d'Ohm"
Text "Choisissez votre calcul"
DropDown "Calcul",{"U=R*I","I=U/R","R=U/I"},c
EndDlog
If c=1 Then
Input "R : ",r
Input "I : ",i
r*i->u
Text string(r)&"*"&string(i)&"="&string(u)
ElseIf c=2 Then
Input "U : ",u
Input "R : ",r
u/r->i
Text string(u)&"/"&string(r)&"="&string(i)
Else
Input "U : ",u
Input "I : ",i
u/i->r
Text string(u)&"/"&string(i)&"="&string(r)
EndIf
EndPrgm

[Questiero]

Merci, sa marche! Je vais juste finir avec une boite de dialogue avec un title etc. et un Lbl/Goto pour ne pas avoir a relancer le programme.

[Adriweb]

Code: Select all

Request "R",r
Request "I",i
expr(r)->r
expr(i)->i

peut être simplifié en :
Prompt r,i

Pareil aux autres endroits.

[Questiero]

Je savais qu'on pouvais le simplifier comme sa, mais je préfère avoir une boite de dialogue.

[Hamza.S]

@Adriweb dans cette situation ça marche je n' avais pas songé à ça

[Questiero]

Et bien merci a vous deux et j’espère que se topic pourra aider d'autres débutants comme moi!

[Hamza.S]

@Questiero n'oublie pas de mettre un moyen de sorti facile
exemple DropDown "Calcul",{"U=R*I","I=U/R","R=U/I","Quitter"},c

Code: Select all

If c=4
DispHome