Forum TI-Planet.org

Fonction
Lbl : shift --- vars --- F3 --- F1
Goto : shift --- vars --- F3 --- F2
? : shift --- vars --- F4
-- : C'est la Fleche (Avec la lettre L)
If : shift --- vars --- F1 --- F1
Then : shift --- vars --- F1 --- F2
IfEnd : shift --- vars --- F1 --- F3
: shift --- vars --- F6--- F3 --- F3
: shift --- vars --- F6--- F3 --- F4
Or : option --- F6 --- F6 --- F4 --- F2
' : Alpha --- F1
" : Alpha --- F2
: : shift --- vars ---F6 --- F5
ViewWindow : shift --- F3 --- F1
Text : Shift --- F4 --- F6 ---F6 --- F2
, : Touche virgule (Avec la lettre K)
[PAUSE] : Sorte de petit Triangle : shift --- vars --- F5
A la fin de chaque ligne il y a la petite flèche qui se trouve sur la touche EXE

------ Programme ------

Lbl 1
"----------------"
"HEURE DE DEPART"
"----------------"
"ENTRER HEURE:"?--A
"ENTRER MINUTE:"?--B
"ENTRER SECONDE:"?--C
If A24 Or A0
Then "ENTRER UNE VALEUR ENTRE 0 ET 24 POUR L'HEURE"
Goto 1
IfEnd
If B60 Or B0 Or C60 Or C0
Then "ENTRER UNE VALEUR ENTRE 0 ET 60 POUR LES MINUTES ET LES SECONDES"
Goto 1
IfEnd
Goto 2
Lbl 2
ViewWindow 1,127,0,63,1,0
Text 6,12, "HEURE DE DEPART"
Text 12,12,A
Text 12,22,"HEURE"
Text 12,52,B
Text 12,62,"MIN"
Text 12,82,C
Text 12,92,"SEC"[PAUSE]
Goto 3
Lbl 3
"----------------"
"TEMPRS ESTIMER PROCHAIN POINT"
"----------------"
"ENTRER MINUTE:"?--D
"ENTRER SECONDE:"?--E
If D60 Or D0 Or E60 Or E0
Then "ENTRER UNE VALEUR ENTRE 0 ET 60 POUR LES MINUTES ET LES SECONDES"
Goto 3
IfEnd
B+D--G
C+E--H
A--Z
Goto 4
Lbl 4
If G60Then G-60--G
Z+1--Z
IfEnd
If H60Then H-60--H
G+1--ZG
IfEnd
Goto 5
Lbl 5
ViewWindow 1,127,0,63,1,0
Text 6,12, "TEMPS ESTIMER PROCHAIN"
Text 12,12,"POINT"
Text 18,12,A
Text 18,22,"HEURE"
Text 18,52,B
Text 18,62,"MIN"
Text 18,82,C
Text 18,92,"SEC"[PAUSE]
Goto 6
Lbl 6
"----------------"
"TEMSP REEL"
"----------------"
"ENTRER MINUTE:"?--I
"ENTRER SECONDE:"?--J
If I60 Or I0 Or J60 Or J0
Then "ENTRER UNE VALEUR ENTRE 0 ET 60 POUR LES MINUTES ET LES SECONDES"
Goto 6
IfEnd
B+I--K
C+J--L
A--M
Lbl 7
If K60Then K-60--K
M+1--M
IfEnd
If L60Then L-60--L
K+1--K
IfEnd
ViewWindow 1,127,0,63,1,0
Text 6,12, "HEURE DE DEPART"
Text 12,12,A
Text 12,22,"HEURE"
Text 12,52,B
Text 12,62,"MIN"
Text 12,82,C
Text 12,92,"SEC"
Text 20,12, "HEURE ESTIMER PROCHAIN"
Text 26,12,"POINT"
Text 33,12,A
Text 33,22,"HEURE"
Text 33,52,B
Text 33,62,"MIN"
Text 33,82,C
Text 33,92,"SEC"
Text 41,12, "HEURE REELLE"
Text 47,12,A
Text 47,22,"HEURE"
Text 47,52,B
Text 47,62,"MIN"
Text 47,82,C
Text 47,92,"SEC"[PAUSE]
Goto 3

------ Fin -------

Code: Select all

- c'est la flèche (sto au dessus de On)
= c'est supérieur ou égal
= c'est inférieur ou égal
ne pas mettre ce qu'il y a après les //

0-A //heure
0-B // minute
0-C // seconde
While A=0 and A=24 and B=0 and B=60 and C=0 and C=60
ClrHome
Disp "HEURE DE DEPART"
Input "HEURE?",A
Input "MINUTE?",B
Input "SECONDE?",C
End
Text(0,0,"HEURE DE DEPART")
Text(6,0,A,"H",B,"M",C,"S")
Pause
0-D
0-E
While D=0 and D=60 and E=0 and E=60
ClrHome
Disp "TEMPS ESTIME"
Input "MINUTE?",D
Input "SECONDE?",E
End
B+D-G
C+E-H
A-Z
If G60
Then
G-60-G
Z+1-Z
End
If H60
Then
H-60-H
G+1-G
End
Text(14,0,"TEMPS ESTIME PROCHAIN")
Text(20,0,Z,"H",G,"M",H,"S")
Pause
While I=0 and I=60 and J=0 and J=60
ClrHome
Disp "TEMPS REEL"
Input "MINUTE?",I
Input "SECONDE?",J
End
B+I-K
C+J-L
A-M
If K60
Then
K-60-K
M+1-M
End
If L60
Then
L-60-L
K+1-K
End
Text(28,0,"TEMPS REEL")
Text(34,0,M,"H",K,"M",L,"S")
Pause