Programme cas
Par Junecooper • 19 Février 2018 • 2 589 Mots (11 Pages) • 479 Vues
...
Locate 14,4,"4º[D]"
Locate 14,5,"5º[E]"
Locate 14,6,"6º[F]"
Lbl C
If GetKey=72
Then 1ºO
Goto D
IfEnd
If GetKey=62
Then 2ºO
Goto D
IfEnd
If GetKey=52
Then 3ºO
Goto D
IfEnd
If GetKey=73
Then 4ºO
Goto D
IfEnd
If GetKey=63
Then 5ºO
Goto D
IfEnd
If GetKey=53
Then 6ºO
Goto D
IfEnd
Goto C
Lbl D
OºMat A[11,7]
If F=0
Then 1ºÎ
OºT
Goto B
IfEnd
Î+1ºÎ
ClrText
Locate 7,1,"TORSEUR"
Locate 15,1,Î
Locate 2,2,"POINT D’APPLICATION"
0ºA
0ºB
0ºC
0ºD
0ºE
0ºU
0ºV
0ºW
0ºJ
0ºK
0ºR
0ºX
0ºY
0ºZ
0ºL
0ºM
0ºN
T=1äTºMat A[11,1]
T=2äTºMat A[11,2]
T=3äTºMat A[11,3]
T=4äTºMat A[11,4]
T=5äTºMat A[11,5]
T=6äTºMat A[11,6]
Locate 4,4,"1º[A]"
O=1äLocate 7,4,"-"
Mat A[11,1]=1äLocate 7,4,"-"
Locate 4,5,"2º[B]"
O=2äLocate 7,5,"-"
Mat A[11,2]=2äLocate 7,5,"-"
Locate 4,6,"3º[C]"
O=3äLocate 7,6,"-"
Mat A[11,3]=3äLocate 7,6,"-"
Locate 14,4,"4º[D]"
O=4äLocate 17,4,"-"
Mat A[11,4]=4äLocate 17,4,"-"
Locate 14,5,"5º[E]"
O=5äLocate 17,5,"-"
Mat A[11,5]=5äLocate 17,5,"-"
Locate 14,6,"6º[F]"
O=6äLocate 17,6,"-"
Mat A[11,6]=6äLocate 17,6,"-"
Lbl A
If GetKey=72
Then 1ºT
If O=T
Then 0ºT
Goto A
Else If Mat A[11,1]=1
Then 0ºT
Goto A
Else Goto B
IfEnd
IfEnd
IfEnd
If GetKey=62
Then 2ºT
If O=T
Then 0ºT
Goto A
Else If Mat A[11,2]=2
Then 0ºT
Goto A
Else Goto B
IfEnd
IfEnd
IfEnd
If GetKey=52
Then 3ºT
If O=T
Then 0ºT
Goto A
Else If Mat A[11,3]=3
Then 0ºT
Goto A
Else Goto B
IfEnd
IfEnd
IfEnd
If GetKey=73
Then 4ºT
If O=T
Then 0ºT
Goto A
Else If Mat A[11,4]=4
Then 0ºT
Goto A
Else Goto B
IfEnd
IfEnd
IfEnd
If GetKey=63
Then 5ºT
If O=T
Then 0ºT
Goto A
Else If Mat A[11,5]=5
Then 0ºT
Goto A
...