Programme complexe log de nav

[fl125]

Bonjour,

Prochainement je vais participer à une compétition aérienne qui me tiens à coeur.
Dans l'espoir d'être selectionné, j'aimerais installer un programme sur ma TI83+ qui me serait trés utile (voir cdc images ci-dessous).

Le nombre d'étapes est inconnu il peut y'en avoir 10 comme 20... (il faudrait donc que les cycles se repétent indéfiniment).




Voici un exemple avec des valeures concrétes.
Dans cet exemple il y'a 2 étape.



Je ne sais pas si ces images sont assez explicative.
Vous pouvez me contacter par msn afin que je vous explique directement la chose.

J'aurais peut être la chance d'être sélectionné grace à vous.
Merci d'avance pour votre aide.

Cordialement,

FL125

[fl125]

Bonjour,

Oui je ne connais pas du tout la programmation...

[ced78fr]

c'est trop easy à faire sa

mais en ce moment j'ai pas beaucoup de temps, Tama tu pourrais pas le faire pour moi ?

[fl125]

Bonjour,

J'ai un ami qui a fait une ébauche du prog :

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 -------

[Ver2guerre]

Oulà, je ne programme pas sur z80, mais ça me parait "chelou"

[ced78fr]

A ouai mais la c'est pas bien écrit du tout le programme beugerai dès la première ligne et toutes les lignes.

Faut qu'il écrive son porgamme en Ti basic pas en français...

[tama]

c'est du langage Casio ça...
sinon c'est facile à faire

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


[ced78fr]

et ba voil

bien joué !

[tama]

ouais c'était simple
c'est basique ça

[ced78fr]

c'est le cas de le dire !