Autorisation : Membre
Nb de messages : 3
Inscrit le : Mar 11 Jui 2013, 23:24
Posté le : Mar 11 Jui 2013, 23:32
Bonjour à tous,
j'ai un petit soucis concernant un programme, et sur ma calculatrice la première ligne me dit qu'il y a une erreur et le curseur montre le "1"
Code
RecallGDB 1
Voici le programme (un peu long je sais..)
Code
ClrDraw
RecallGDB 1
ClrHome
DelVar X
Lbl 0
Text(16,27,"TI-PPPPPPPP
Text(24,41,"V 1.3
Text(35,20,"TTTTT ENTRER
Text(57,55,""" BBBBBBBB
Lbl 00
getKeyüX
If X=15 or X=72:Goto Á
If Xø105:Goto 00
Lbl 1
ClrDraw
DelVar X
ClrDraw
Line(ú4.9,5,4.9,5
Line(ú5,4.9,ú5,3.8
Line(5,4.9,5,3.8
Line(ú4.9,3.7,4.9,3.7
Line(ú4.9,3.4,4.9,3.4
Line(ú5,3.3,ú5,ú4.9
Line(5,3.3,5,ú4.9
Line(ú4.9,ú5,4.9,ú5
Line(3.2,ú4.9,3.2,ú3.9
Line(3.3,ú3.7,4.9,ú3.7
Pt-Off(5,ú3.7
Pt-Off(3.2,ú5
Text(1,8,"PHYSIQUE
Text(1,75,"V 1.3
Text(55,81,"EXT
Text(12,2,"1ú DDDDDD
Text(19,2,"2ú MMMMMMMMM
Text(26,2,"3ú TTTTTTTT
Text(33,2,"4ú MMMMMMMM
Text(40,2,"5ú R.TTTTTTTTTTT
Text(47,2,"
Text(54,2,"
Lbl 11
getKeyüX
If X=92:Goto A
If X=93:Goto B
If X=94:Goto D
If X=82:Goto C
If X=83:Goto E
If X=84:Goto 11
If X=15:Goto Á:Goto 11
Lbl Á
ClrHome:AxesOn
ClrDraw:Stop
Lbl A
ClrDraw
DelVar X
Menu(" DDDDDD L. ","RRRRRRRRRR",AA,"IIIIIIIIII",AB,"CCCCCCCCCCCC ",AC,"AAAAAAAAAAA",AD,"RRRRRR",AE,"RRRRRR",1,"QQQQQQQ",Á
Lbl AA
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,32,"RRRRRRRRRR
Text(10,3,"U = R.I
Text(10,50,"I = U/R
Text(17,3,"R = U/I
Horizontal ú.1:Line(ú5,ú.1,ú5,ú1.4:Line(5,ú.1,5,ú1.4
Text(33,32,"PPPPPPPPP
Horizontal ú1.4
Text(42,5,"P = U.I
Text(49,10,"= R.IÜ
Text(56,10,"= UUÜ/R
Text(42,50,"Q = 0
Lbl AZ
Text(1,90,""
getKeyüX
If X=84 or X=105:Goto A
If X=15 or X=72:Goto Á
If X=34:Goto AB
If Xø26:Goto AZ
Lbl AY
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,17,"VVVVVV
Text(10,3,""(() = (()..(()
Text(17,3,""(() = U.ð(2)....(((+ÁÁ)
Text(24,5,""(() = I.ð(2)....(((+ÁÁ)
Lbl AX
Text(1,2,""
Text(1,90,""
getKeyüX
If X=15 or X=72:Goto Á
If X=84 or X=105:Goto A
If X=34:Goto AB
If X=24:Goto AA
If Xø26:Goto AX
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,40,"AAAAA
Text(10,3,"R = .L/S
Text(17,8,"= L/((.S)
Text(25,1,"" (S//)
Text(32,1,"S ((Ü)
Text(39,1,"" ((..)
Text(46,1,"L (()
Lbl AW
Text(1,2,""
getKeyüX
If X=84 or X=105:Goto A
If X=15 or X=72:Goto Á
If X=34:Goto AB
If Xø24:Goto AW:Goto AY
Lbl AB
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,27,"IIIIIIIIII
Text(10,3,"Uá = LL.I
Text(10,50,"I = Uá /LL
Text(17,6,"Z = LL
Text(24,4,"FF = Ä/2
Horizontal ú.1:Line(ú5,ú.1,ú5,ú1.4:Line(5,ú.1,5,ú1.4
Text(33,32,"PPPPPPPPP
Horizontal ú1.4
Text(42,5,"Q = Uá .I
Text(49,10,"= LLIÜ
Text(56,10,"= Uá Ü/LL
Text(42,50,"P = 0
Text(49,55,""" L
Lbl AV
Text(1,90,""
getKeyüX
If X=15 or X=72:Goto Á
If X=84 or X=105:Goto A
If X=25:Goto AA
If X=34:Goto AC
If Xø26:Goto AV
Lbl AU
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,32,"CCCCCCCC
Text(11,0,"FFFFF :
Text(18,5,"UU' = ZZ'.II'
Text(25,5,"ZZ' = LL
Text(32,13,"= U....(ÁÁ)++U....(ÁÁ)
Text(41,0,"FFFFF :
Text(48,5,"UU' = [U,ÁÁ]
Text(55,5,"ZZ'= [Z,ÁÁ-ÁÁ]
Lbl AT
Text(1,2,""
Text(1,90,""
getKeyüX
If X=15 or X=72:Goto Á
If X=84 or X=105:Goto A
If X=25:Goto AA
If X=34:Goto AC
If X=24:Goto AB
If Xø26:Goto AT
ClrDraw
DelVar X
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,18,"VVVVVV
Text(10,3,""(() = L...(()///
Lbl AS
Text(1,2,""
getKeyüX
If X=15 or X=72:Goto Á
If X=84 or X=105:Goto A
If X=34:Goto AC
If X=25:Goto AA
If Xø24:Goto AS:Goto AU
Lbl AC
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,25,"CCCCCCCCCCCC
Text(10,3,"UU = Z.I
Text(10,50,"I = UU.CC
Text(17,7,"Z = 1/CC
Text(24,5,"FF = -Ä/2
Text(24,50,"" = C.UU
Horizontal ú.1:Line(ú5,ú.1,ú5,ú1.4:Line(5,ú.1,5,ú1.4
Text(33,32,"PPPPPPPPP
Horizontal ú1.4
Text(42,5,"Q = úUU.I
Text(49,10,"= úIÜ/CC
Text(56,10,"= úUUÜ.CC
Text(42,50,"P = 0
Lbl AR
Text(1,90,""
getKeyüX
If X=84 or X=105:Goto A
If X=15 or X=72:Goto Á
If X=25:Goto AB
If Xø26:Goto AR
ClrDraw
Lbl AQ
DelVar X:ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,32,"CCCCCCCC
Text(11,0,"FFFFF :
Text(18,5,"UU' = ZZ'.II'
Text(25,5,"ZZ' = úú/CC
Text(32,13,"= U....(ÁÁ)++U....(ÁÁ)
Text(41,0,"FFFFF :
Text(48,5,"UU' = [U,ÁÁ]
Text(55,5,"ZZ'= [Z,ÁÁ-ÁÁ]
Lbl AP
Text(1,2,""
Text(1,90,""
getKeyüX
If X=84 or X=105:Goto A
If X=15 or X=72:Goto Á
If X=24:Goto AC
If X=25:Goto AB
If Xø26:Goto AP
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,17,"VVVVVV
Text(10,3,""(() = C...(()///
Lbl AO
Text(1,2,""
getKeyüX
If X=84 or X=105:Goto A
If X=15 or X=72:Goto Á
If X=25:Goto AB
If Xø24:Goto AO:Goto AQ
Lbl AD
ClrDraw
DelVar X
Menu(" AAAAAAAAAAA ","RL ",SA,"RC ",SB,"LC ",SC,"RLC ",SD,"",AD,"RRRRRR",A,"QQQQQQQ",Á
Lbl SA
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,35,"RL
Text(10,3,"U = Z.I
Text(17,8,"= ð(UUÜ+UáÜ)
Text(10,50,"I = U/Z
Text(26,3,"Z = ð(RÜ+(LL)Ü)
Lbl YZ
Text(1,90,""
getKeyüX
If X=15 or X=72:Goto Á
If X=84 or X=105:Goto AD
If Xø26:Goto YZ
Lbl YY
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,32,"PPPPPPPPP
Text(10,5,"P = UU.I
Text(17,10,"= RIÜ
Text(24,10,"= UUÜ/R
Text(10,50,"Q = Uá .I
Text(17,55,"= LLIÜ
Text(24,55,"= UáÜ/LL
Text(33,3,""""(FF) = R/Z
Text(40,3,""""(FF) = LL/Z
Text(47,3,""""(FF) = LL/R = Uá /UU
Lbl YX
Text(1,2,""
Text(1,90,""
getKeyüX
If X=15 or X=72:Goto Á
If X=84 or X=105:Goto AD
If X=24:Goto SA
If Xø26:Goto YX
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,32,"CCCCCCCC
Text(10,3,"UU' = ZZ'.II'
Text(17,3,"ZZ' = R++LL
Text(24,10,"= Z....(FF)++.Z....(FF)
Horizontal ú.1:Line(ú5,ú.1,ú5,ú1.4:Line(5,ú.1,5,ú1.4
Text(33,18,"VVVVVV
Horizontal ú1.4
Text(42,3,""(() = R..(()+L...(()///
Lbl YW
Text(1,2,""
getKeyüX
If X=72 or X=15:Goto Á
If X=84 or X=105:Goto AD
If Xø24:Goto YW:Goto YY
Lbl SB
ClrDraw
DelVar X
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,35,"RC
Text(10,3,"U = Z.I
Text(17,8,"= ð(UUÜ+UUÜ)
Text(10,50,"I = U/Z
Text(26,3,"Z = ð(RÜ+(1/CC)Ü)
Lbl YV
Text(1,90,""
getKeyüX
If X=84 or X=105:Goto AD
If X=15 or X=72:Goto Á
If Xø26:Goto YV
Lbl YU
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,32,"PPPPPPPPP
Text(10,5,"P = UU.I
Text(17,10,"= R.IÜ
Text(24,10,"= UUÜ/R
Text(10,50,"Q = úUU.I
Text(17,55,"= úIÜ/CC
Text(24,55,"= úUUÜ.CC
Text(33,3,""""(FF) = R/Z
Text(40,5,""""(FF) = 1/ZCC
Text(47,3,""""(FF) = 1/RCC
Lbl YT
Text(1,2,""
Text(1,90,""
getKeyüX
If X=15 or X=72:Goto Á
If X=84 or X=105:Goto AD
If X=24:Goto SB
If Xø26:Goto YT
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,32,"CCCCCCCC
Text(10,3,"UU' = ZZ'.II'
Text(17,3,"ZZ' = 11CC
Horizontal ú.1:Line(ú5,ú.1,ú5,ú1.4:Line(5,ú.1,5,ú1.4
Text(33,18,"VVVVVV
Horizontal ú1.4
Text(42,3,""(() = R..(()+UU++(()///
Lbl YS
Text(1,2,""
getKeyüX
If X=84 or X=105:Goto AD
If X=15 or X=72:Goto Á
If Xø24:Goto YS:Goto YU
Lbl SC
ClrDraw
DelVar X
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,35,"LC
Text(10,3,"U = Z.I
Text(17,8,"= ð(UáÜ+UUÜ)
Text(10,45,"I = U/Z
Text(26,3,"Z = ð(LLÜ+(1/CC)Ü)
Text(56,0,"FFFFFFFFF
Lbl YR
Text(1,90,""
getKeyüX
If X=84 or X=105:Goto AD
If X=15 or X=72:Goto Á
If X=34:Goto YI
If Xø26:Goto YR
Lbl YQ
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,32,"PPPPPPPPP
Text(10,5,"P = 0
Text(17,8,""" L
Text(10,50,"Q = Qá +QQ
Lbl YP
Text(1,2,""
Text(1,90,""
getKeyüX
If X=15 or X=72:Goto Á
If X=84 or X=105:Goto AD
If X=24:Goto SC
If Xø26:Goto YP
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,32,"CCCCCCCC
Horizontal ú.1:Line(ú5,ú.1,ú5,ú1.4:Line(5,ú.1,5,ú1.4
Text(33,18,"VVVVVV
Horizontal ú1.4
Text(42,3,""(() = L...(()///+UU
Lbl YO
Text(1,2,""
getKeyüX
If X=84 or X=105:Goto AD
If X=15 or X=72:Goto Á
If Xø24:Goto YO:Goto YQ
Lbl SD
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,32,"RLC
Text(10,3,"U = Z.I
Text(10,45,"I = U/Z
Text(18,3,"Z = ð(RÜ+(LL-1/CC)Ü)
Text(25,3,""""(FF) = LL-1/RCC
Lbl YN
Text(1,90,""
getKeyüX
If X=84 or X=105:Goto AD
If X=15 or X=72:Goto Á
If Xø26:Goto YN
Lbl YM
DelVar X
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,32,"PPPPPPPPP
Text(10,5,"P = UU.I
Text(17,10,"= RIÜ
Text(24,10,"= UUÜ/R
Text(10,50,"Q = Qá+QQ
Lbl YL
Text(1,2,""
Text(1,90,""
getKeyüX
If X=84 or X=105:Goto AD
If X=15 or X=72:Goto Á
If X=24:Goto SD
If Xø26:Goto YL
Lbl YK
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,32,"CCCCCCCC
Text(10,3,"UU' = II'.ZZ'
Text(17,3,"ZZ' = R+1//CC++LL
Horizontal ú.1:Line(ú5,ú.1,ú5,ú1.4:Line(5,ú.1,5,ú1.4
Text(33,18,"VVVVVV
Horizontal ú1.4
Text(42,3,""(() = RR(()+UU+L...(()///
Lbl YJ
Text(1,2,""
Text(1,90,""
getKeyüX
If X=84 or X=105:Goto AD
If X=15 or X=72:Goto Á
If X=24:Goto YM
If Xø26:Goto YJ
Lbl YI
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,10,"FFFFFFFFF
Text(10,6,"LL = 1/CC FF = 0
Text(19,6,""Ð = 1/ð(LC)
Text(29,6,"FÐ = 1/(2Äð(LC))
Text(38,3,"CCCC :
Text(46,6,"Q = Uá /U = UU/U
Text(53,11,"= LLÐ/R = 1/RCCÐ
If X=26:Goto YH
Lbl Y1
getKeyüX
Text(56,84,""
If X=84 or X=105:Goto AD
If X=15 or X=72:Goto Á
If Xø25:Goto Y1:Goto SC
Lbl YH
Text(1,2,""
getKeyüX
If X=84 or X=105:Goto AD
If X=15 or X=72:Goto Á
If Xø24:Goto YH:Goto YK
Lbl AE
DelVar X:ClrDraw
Menu(" RRRRRR ","LLL ",PA,"PPPP ",PB,"",AE,"",AE,"",AE,"RRRRRR",A,"QQQQQQQ",Á
Lbl PA
Horizontal 5:Horizontal ú5:Vertical 5:Vertical ú5:Horizontal 3.7
Text(1,23,"LLL KKKKKKKKK
Text(10,3,"LLL
Text(17,3,"LLL
Horizontal 1
Text(26,25,"LLL PPPPPPPP
Horizontal ú.3
Text(35,3,"I = //R
Pause
ClrDraw:Goto AE
Lbl PB
ClrDraw
Line(ú5,4,ú4.7,4
Line(ú4.7,4.5,ú4.7,3.5
Text(3,8,"1
Line(ú4.7,4.5,ú3.5,4.5:Line(ú4.7,3.5,ú3.5,3.5
Line(ú3.5,4.5,ú3.5,3.5
Line(ú3.5,4,ú3,4
Line(ú3,4,ú3,3.2
Line(ú3.25,3.2,ú2.7,3.2
Line(ú3.25,3.2,ú3.25,1.8:Line(ú2.7,3.27,ú2.7,1.8
Line(ú3.25,1.8,ú2.7,1.8
Line(ú3,1.8,ú3,1.2
Line(ú5,1,ú3,1
Text(13,18,"2
Text(1,22,"A
Text(24,22,"B
Text(7,40,"PPPP
Text(14,44,"""
Text(36,10,"UUU = E.R2/(R1+R2)
Lbl PZ
Pt-Change(ú3,4
Pt-Change(ú3,1
Text(57,90,""
getKeyüX
If X=84 or X=105:Goto AE
If X=15 or X=72:Goto Á
If Xø26:Goto PZ
ClrDraw
Line(ú5,4,ú2,4
Line(ú4,4,ú4,3.2
Line(ú4.4,3.2,ú3.7,3.2
Line(ú4.4,3.2,ú4.4,1.7:Line(ú3.7,3.2,ú3.7,1.7
Line(ú4.4,1.6,ú3.7,1.6
Line(ú4,1.6,ú4,0
Line(ú2,4,ú2,3.2
Line(ú2.3,3.2,ú1.8,3.2
Line(ú2.3,3.2,ú2.3,1.7:Line(ú1.7,3.2,ú1.7,1.7
Line(ú2.3,1.7,ú1.8,1.7
Line(ú2,1.7,ú2,0
Line(ú5,0,ú2,0
Text(22,14,"I1
Text(22,33,"I2
Text(34,4,"I
Line(ú4.3,.9,ú3.8,.9:Line(ú4.2,.8,ú3.9,.8:Line(ú2.2,.9,ú1.8,.9:Line(ú2.1,.8,ú1.9,.8:Line(ú4.5,.3,ú4.5,ú.3:Line(ú4.6,.2,ú4.6,ú.2
Text(13,8,"1
Text(13,27,"2
Text(7,40,"PPPP
Text(14,44,"""
Text(40,14,"I1 = I.R2/(R1+R2)
Lbl PY
Text(57,2,""
getKeyüX
If X=84 or X=105:Goto AE
If X=15 or X=72:Goto Á
If Xø24:Goto PY
If X=24:Goto PB
Lbl B
ClrDraw
DelVar X
Menu(" MMMMMMMMM ","PPPPPPPPPP",BA,"DDDDDDDDD",BB,"EEEEEEEE",BC,"RRRRRR",BE,"",B,"RRRRRR",1,"QQQQQQQ",Á
Lbl BA
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,22,"PPPPPPPPP
Text(10,3,"P = <<(()> = <<(()..(()>
Text(17,8,"=UI....(FF) W
Text(26,8,"= R.IÜ
Text(33,8,"= UÜ/R
Lbl BZ
Text(1,90,""
getKeyüX
If X=84 or X=105:Goto B
If X=15 or X=72:Goto Á
If Xø26:Goto BZ
Lbl BY
DelVar X:ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,17,"PPPPPPPPP
Text(10,3,"Q = UI....(FF)
Text(10,50,""" VAR
Text(20,8,"= UÜ/L.. = -UÜ.CC
Text(27,8,"= LL.IÜ = úIÜ/CC
Text(37,8,"= P....(FF)
Lbl BX
Text(1,2,""
Text(1,90,""
getKeyüX
If X=84 or X=105:Goto B
If X=15 or X=72:Goto Á
If X=24:Goto BA
If Xø26:Goto BX
ClrDraw:DelVar X
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,14,"PPPPPPPPP
Text(10,3,"S = U.I
Text(10,50,""" VA
Text(17,8,"= ð(PÜ+QÜ)
Lbl BW
Text(1,2,""
getKeyüX
If X=84 or X=105:Goto B
If X=15 or X=72:Goto Á
If Xø24:Goto BW:Goto BY
Lbl BB
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,33,""""""""""
Text(10,3,""""(FF) = P/S = R/Z
Text(17,5,""""(FF) = Q/S
Text(24,3,""""(FF) = Q/P = LL/R
Text(31,45,"= 1/RCC
Text(40,0,"C = P(((((FFF')----(FF)) / UÜ..
Text(48,3,""""" (FFF') = 0.4
Lbl BV
getKeyüX
If X=84 or X=105:Goto B
If X=15 or X=72:Goto Á
Goto BV
Lbl BC
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,18,"VVVVVV
Text(10,0,""(() = (()..(()
Text(17,3,"= UI.[[[[(FF)----(222+FF)]
Text(26,0,""(() = Uð(2))))(((+ÁÁ)
Text(33,14,"= [U,ÁÁ]
Text(42,2,""(() = Ið(2))))(((+ÁÁ)
Text(49,14,"= [I,ÁÁ]
Lbl BT
Text(1,90,""
getKeyüX
If X=84 or X=105:Goto B
If X=15 or X=72:Goto Á
If Xø26:Goto BT
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,33,"CCCCCCCC
Text(10,3,"S = P++Q
Text(17,5,"= UI....(FF)++.UI....(FF)
Lbl BS
Text(1,2,""
getKeyüX
If X=84 or X=105:Goto B
If X=15 or X=72:Goto Á
If Xø24:Goto BS:Goto BC
Lbl D
ClrDraw:DelVar X
Menu(" TTTTTTTT ","CCCCCCCC *",T,"CCCCCCCC ",U,"EEEEEEEE",DA,"DDDDDDDDD",DB,"",D,"RRRRRR",1,"QQQQQQQ",Á
Lbl T
ClrDraw:DelVar X
Menu(" CCCCCCCC * ","PPPPPPPPP",TA,"CCCCCCC",TB,"TTTTTTT",TC,"AAAAA",TD,"",T,"RRRRRR",D,"QQQQQQQ",Á
Lbl TA
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,28,"PPPPPPPPP *
Text(10,0,"P1 = V1.I1....(FF1) = P2=P3
Text(17,0,"Q1 = V1.I1....(FF1) = Q2=Q3
Text(26,8,"PP = 3.P1 = 3VI....(FF)
Text(34,16,"= ð(3)UI....(FF)
Text(42,8,"QQ = 3.Q1 = 3VI....(FF)
Text(49,16,"= ð(3)UI....(FF)
Text(57,8,"SS = ð(PPÜ+QQÜ) = ð(3)UI
Lbl TZ
getKeyüX
If X=84 or X=105:Goto T
If X=15 or X=72:Goto Á
Goto TZ
Lbl TB
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,26,"CCCCCCC *
Text(10,3,""1(() =
Text(17,10,"Ið(2)....(((-FF)
Text(26,3,""2(() =
Text(33,10,"Ið(2)....(((-2Ä/3-FF)
Text(42,3,""3(() =
Text(49,10,"Ið(2)....(((-4Ä/3-FF)
Lbl TY
Text(1,86,">
getKeyüX
If X=84 or X=105:Goto T
If X=72:Goto Á
If Xø15:Goto TY
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.5:Line(5,5,5,3.7
Text(1,26,"CCCCCCC *
Text(10,2,"I1 = P1/V
Lbl TN
Text(1,2,"<
getKeyüX
If X=105 or X=86:Goto T
If X=15:Goto Á
If X=11:Goto
Goto TN
Lbl TC
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,23,"TTTTTTT
Text(10,3,"V1(() = Vð(2)....((()
Text(17,3,"V2(() = Vð(2)....(((-2Ä/3))
Text(24,3,"V3(() = Vð(2)....(((-4Ä/3))
Text(33,0,"EE :
Text(41,3,"V11+V22+V33 = 0
Text(48,3,"V1 = (V,0ô)
Text(48,45,"V2 = (V,ú120ô)
Text(55,3,"V3 = (V,ú240ô)
Lbl TX
getKeyüX
If X=84 or X=105:Goto T
If X=15 or X=72:Goto Á
Goto TX
Lbl TD
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,38,"AAAAA
Text(10,0,"R = 22/3
Text(18,3,"PP = 3RIÜ/2 = 33JÜ
Lbl TW
getKeyüX
If X=84 or X=105:Goto T
If X=15 or X=72:Goto Á
Goto TW
Lbl U
ClrDraw:DelVar X
Menu(" CCCCCCCC ","PPPPPPPPP",UA,"CCCCCCC",UB,"TTTTTTT",UC,"AAAAA",UD,"",U,"RRRRRR",D,"QQQQQQQ",Á
Lbl UA
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,28,"PPPPPPPPP
Text(10,0,"P1 = U12.J12....(FF1) =P2=P3
Text(17,0,"Q1 = U12.J12....(FF1) =Q2=Q3
Text(25,2,"PP = 3.P1 = 3VJ....(FF)
Text(33,10,"= UIð(3)....(FF)
Text(41,2,"QQ = 3VJ....(FF)
Text(48,10,"= UIð(3)....(FF)
Text(56,2,"SS = ð(PPÜ+QQÜ) = UI.ð(3)
Lbl UZ
getKeyüX
If X=84 or X=105:Goto U
If X=15 or X=72:Goto Á
Goto UZ
Lbl UB
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,26,"CCCCCCC
Text(10,3,""1(() = 12(()--31(()
Text(17,3,""2(() = 23(()--13(()
Text(24,3,""3(() = 31(()--23(()
Lbl UY
getKeyüX
If X=84 or X=105:Goto U
If X=15 or X=72:Goto Á
Goto UY
Lbl UC
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,17,"TTTTTTT
Text(10,3,"U12 = V1-V2
Text(17,3,"U23 = V2-V3
Text(24,3,"U31 = V3-V1
Text(33,3,"QQQ ,
Text(40,0,"""
Text(47,0,""""""""""""" .
Lbl UX
getKeyüX
If X=84 or X=105:Goto U
If X=15 or X=72:Goto Á
Goto UX
Lbl UD
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,38,"AAAAA
Text(10,3,"U = V.ð(3) I = J.ð(3)
Text(17,3,"
Lbl UW
getKeyüX
If X=84 or X=105:Goto U
If X=15 or X=72:Goto Á
Goto UW
Lbl DA
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,18,"VVVVVV
Text(10,3,"" = UI[[[[(()----(222++)]
Text(17,3,""(() = Ið(2))))(((+ÁÁ)
Text(24,3,""(() = Uð(2))))(((+ÁÁ)
Lbl DZ
getKeyüX
If X=84 or X=105:Goto D
If X=15 or X=72:Goto Á
Goto DZ
Lbl DB
ClrDraw
Horizontal 5:Horizontal 3.7:Line(ú5,5,ú5,3.7:Line(5,5,5,3.7
Text(1,33,""""""""""
Text(10,3,""""(() = P/S = R/Z
Text(17,5,""""(() = Q/S
Text(24,3,""""(() = Q/P = LL/R
Text(31,45,"= 1/RCC
Text(40,0,"C =P(((((((')----(())/3UÜ..
Text(48,3,""""" (((') = 0.4
Lbl DY
getKeyüX
If X=84 or X=105:Goto D
If X=15 or X=72:Goto Á
Goto DY
Lbl C
ClrDraw:DelVar X
Menu(" MMMMMMMM ","SySySySySySySySy",CA,"AAAAAAAAAA",CB,"C.CCCCCCC",CC,"PPP PPP",CD,"",C,"RRRRRR",1,"QQQQQQQ",Á1
Lbl Á1
Pic6
Pic7
If X=84 or X=105:Goto C
ClrHome:AxesOn
ClrDraw:Stop
Pic6:RecallPic 6
Text(0,60,"BBBBB
Text(8,38,"PP = UIð(3))))(Á)
Text(16,45,"PP = (3/2)RIÜ
Text(22,53,"= 33IÜ *
Text(29,53,"= 33JÜ
Text(36,45,"PPP = G.PPP
Text(43,45,""" = F/P
Text(50,45,"G = (((--)///
Lbl CZ
Text(57,90,""
getKeyüX
If X=15 or X=72 or X=84 or X=105:Goto Á1
If Xø26:Goto CZ
ClrDraw
RecallPic 6
Text(0,60,"A VVVV
Text(8,45,"PP = PPP + PP
Text(15,54,"= PP - PPPP
Text(22,45,"PP = PPP = 0
Lbl CY
Text(56,2,""
getKeyüX
If X=15 or X=72 or X=84 or X=105:Goto Á1
If Xø24:Goto CY:Goto CB
Lbl CC
ClrDraw:DelVar X
Pic7:RecallPic 7
Text(0,60,"BBBBB
Text(8,38,"E = K....
Text(15,38,"T = K...I
Text(22,38,"K = (1/2Ä)(P//)N
Text(32,37,"SI III = CCC
Text(39,40,"=> E = KK'..
Text(46,49,"T = KK'.I
Lbl CX
Text(57,90,""
getKeyüX
If X=15 or X=72 or X=84 or X=105:Goto Á1
If Xø26:Goto CX
Lbl CW
ClrDraw:DelVar X
RecallPic 7
Text(0,60,"BBBBB
Text(8,40,"U = E+RI M
Text(15,40,"U = E-RI G
Text(23,40,"PP = UI
Text(30,40,"PP = UI+PPP
Text(37,40,"PPP = RIÜ
Text(44,40,"PPP = ...
Text(51,40,"PP = PPP+PPP
Text(57,49,"= (RR+RR)IÜ
Lbl CV
Text(57,2,""
Text(57,90,""
getKeyüX
If X=15 or X=72 or X=84 or X=105:Goto Á1
If X=24:Goto CC
If Xø26:Goto CV
ClrDraw
RecallPic 7
Text(0,60,"BBBBB
Text(8,45,"PPP = EI
Text(15,53,"= TTT..
Text(22,45,"PP = TP..
Text(29,45,"PP = TT..
Text(36,45,"" = PP/PP
Lbl CU
Text(57,2,""
getKeyüX
If X=15 or X=72 or X=84 or X=105:Goto Á1
If Xø24:Goto CU:Goto CW
Lbl CD
Pause
Lbl E
ClrDraw:0üX
Text(0,90,">
Text(0,15,"RRRRRR TTTTTTTTTTTT
Text(8,0,"(E) : (()))'++(()) = (()
Text(16,0,"1/ EE :
Text(24,5,"(EÐ): (()))'++(() = 0
Text(31,0,"" = (()//(() F = ?
Text(38,0,"" = K..^(úF) CC: = 1/F
Lbl EB
getKeyüX
If X=72:Goto Á
If X=84 or X=105:Goto 1
If Xø26:Goto EB
Lbl EC
ClrDraw:0üX
Text(0,0,"2/ SSS :
Text(0,85,"< >
Text(8,0,""" = AA+B ' = A
Text(15,0,"MMMMMM (E)
Text(22,0,""(())))'++(())) = (()
Text(29,0,"IIIIIIIIII (() ''''''
Text(36,0,"""""" ''''''
Lbl ED
getKeyüX
If X=72:Goto Á
If X=84 or X=105:Goto 1
If X=24:Goto E
If Xø26:Goto ED
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 12 Jui 2013, 0:12
Il y a bien des erreurs de traductions, mais ce n'est pas catastrophique. Pas d'utf8, juste des mauvais ascii, cela reste lisible.
Et puis j'ai créé une liste pour gagner du temps dans ce cas là.
Tu dois indiquer le type d'erreur en plus de l'endroit pour qu'on réponde précisément aux problèmes.
RecallGDB sert à rappeler toutes les données des menus liés au graphique stockées dans une des 10 variables dédiées à cela : BDG ou GDB de 0 à 9. (GDB=GraphicDataBase=BDG=BaseDonnéesGraphique)
Si aucune BDG n'a été précédemment sauvegardée, cela plante avec une erreur indéfini/undefined
Ce RecallGDB n'a aucune utilité dans ce contexte je crois.
En toute logique il faudrait stocker (StoreGDB) au début pour la rappeller au moment de quitter le programme
Mais je n'ai pas trouvé de telle commande dans ce code.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
![](../images/char/<img src="./images/smileys/cupsmiley.gif" border="0" alt="cupsmiley.gif" title="cupsmiley.gif" />.png)
