Erreur : Le test n'a pas donné de résultat TRUE ou FALSE

→ **MyCalcs** profile · de **CHRISTO59** » 23 Fév 2016, 18:26

Salut,
J'ai le même problème il me marque False ou true...

Cela se fais t'il ?

Code: Tout sélectionner: Define resolvpfs()= Prgm :Local pa,a1,a2,rp1,crp,drp,frp,c,ca,ya1,yb1,a :Request "Nombre de point d'appui ?",pa :Request "Appui 1 en m",a1 :Request "Appui 2 en m",a2 :If pa=2 Then :Request "Charge répartie o/n?",rp1 :If rp1="o" Then :Request "Charge en kN/m?",crp :Request "début en m?",drp :Request "fin en m?",frp :a:=a2-a1 :c:=crp*(frp-drp) :yb1:=((c)/(a)) :ya1:=c-yb1 :Endif :Request "Charge ponctuelle o/n?",rp2 :If rp2="o" Then :Request "Nombre de charge ?",rp3 :If rp3="1" Then :Request "Charge en kN?",cp :Request "Point d'application en m ?",pap :ya2:=((cp(a2-pap))/(a2)) :yb2:=cp-ya2 :Disp "YA :",ya1 :Disp "YB :",yb1 :EndIf :EndIf :EndIf :If pa=3 Then :Request "Appui 3",a3 :ElseIf pa>3 Then :Disp "Impossible" :EndIf :DelVar pa,a1,a2,rp1,crp,drp,frp,c,ca,ya1,yb1,a :EndPrgm

Merci de votre aide

→ **MyCalcs** profile · de **Hamza.S** » 23 Fév 2016, 18:33

Code: Tout sélectionner: Request "Charge répartie o/n?",rp1 If rp1="o" Then

ça doit être

Code: Tout sélectionner: RequestStr "Charge répartie o/n?",rp1 If rp1="o" Then

pour ça aussi

Code: Tout sélectionner: Request "Charge ponctuelle o/n?",rp2 If rp2="o" Then Request "Nombre de charge ?",rp3 If rp3="1" Then

Code: Tout sélectionner: RequestStr "Charge ponctuelle o/n?",rp2 If rp2="o" Then RequestStr "Nombre de charge ?",rp3 If rp3="1" Then

→ **MyCalcs** profile · de **CHRISTO59** » 23 Fév 2016, 22:51

Super ça marche, bonne soirée

→ **MyCalcs** profile · de **Titii9119** » 29 Fév 2016, 10:01

Tu pourrais donner le programme finie STP

→ **MyCalcs** profile · de **noelnadal** » 29 Fév 2016, 10:16

Si j'effectue les corrections mentionnées par Hamza.S, j'ai ça :

Code: Tout sélectionner: Define resolvpfs()= Prgm :Local pa,a1,a2,rp1,crp,drp,frp,c,ca,ya1,yb1,a :Request "Nombre de point d'appui ?",pa :Request "Appui 1 en m",a1 :Request "Appui 2 en m",a2 :If pa=2 Then :RequestStr "Charge répartie o/n?",rp1 :If rp1="o" Then :Request "Charge en kN/m?",crp :Request "début en m?",drp :Request "fin en m?",frp :a:=a2-a1 :c:=crp*(frp-drp) :yb1:=((c)/(a)) :ya1:=c-yb1 :Endif :RequestStr "Charge ponctuelle o/n?",rp2 :If rp2="o" Then :RequestStr "Nombre de charge ?",rp3 :If rp3="1" Then :Request "Charge en kN?",cp :Request "Point d'application en m ?",pap :ya2:=((cp(a2-pap))/(a2)) :yb2:=cp-ya2 :Disp "YA :",ya1 :Disp "YB :",yb1 :EndIf :EndIf :EndIf :If pa=3 Then :Request "Appui 3",a3 :ElseIf pa>3 Then :Disp "Impossible" :EndIf :DelVar pa,a1,a2,rp1,crp,drp,frp,c,ca,ya1,yb1,a :EndPrgm