π
<-
Chat plein-écran
[^]

[Résolu] Boucles minuteur

:32ti73: :32ti73e: :32ti73e2: :32ti76f: :32ti80: :32ti81: :32ti82: :32ti85: :32ti86: :32ti82s: :32ti82sf: :32ti82sfn: :32ti83: :32ti83p: :32ti83pb: :32ti83pr: :32ti83pfr: :32ti83pse: :32ti84p: :32ti84pse: :32ti84ppse: :32ti84pfr: :32ti84pcse: :32ti83pfrusb: :32ti82p: :32ti82a: :32ti84pce: :32ti83pce:

[Résolu] Boucles minuteur

Unread postby LePetitMage » 25 May 2019, 21:26

Bonsoir,
j'ai fait mon programme sur le minuteur avec les contraintes décrits sur ce sujet https://tiplanet.org/forum/viewtopic.php?f=8&t=22634&p=242495#p242495 mais le boucle "Repeat A=0" avec "A-1 :f91: A" après ne fonctionne plus. J'ai aussi essayé avec "While A>0" avec toujours "A-1 :f91: A". J'ai ensuite essayé "For(F,0,A,1) mais ça ne fonctionne toujours pas.
Je veux que le temps restant s'affiche à chaque seconde mais depuis le changement depuis le sujet cité au-dessus, le temps n'est affiché plus qu'une fois.

Merci d'avance pour vos réponses.
Last edited by LePetitMage on 26 May 2019, 05:45, edited 1 time in total.
User avatar
LePetitMage
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Level up: 1.6%
 
Posts: 33
Joined: 25 Oct 2018, 17:41
Location: Chez moi
Gender: Male
Calculator(s):
Class: TS

Re: Boucles programme

Unread postby LePetitMage » 25 May 2019, 21:27

Voici le code :
prgmEFFACEUR
60→M
3600→H
86400→J
Disp "MINUTE : M","HEURE : H","JOUR : J
Input "COMBIEN DE SECONDES ?",A
0→B
For(F,0,A,1)
Wait 1
ent(A/86400)→B
ent(reste(A,86400)/3600)→C
ent(reste(reste(A,86400),3600)/60)→D
A-86400B-3600C-60D→E
If B≥1
Then:Disp "J:"+versChaîne(B)+",H:"+versChaîne(C)+",M:"+versChaîne(D)+",S:"+versChaîne(E
Else:If C≥1
Then:Disp "H:"+versChaîne(C)+",M:"+versChaîne(D)+",S:"+versChaîne(E
Else:If D≥1
Then:Disp "M:"+versChaîne(D)+",S:"+versChaîne(E
Else:If E≥1
Then:Disp "S:"+versChaîne(E
End:End
If A=0
Then:Repeat B=25
Disp "C'EST FINI !
B+1→B
End
User avatar
LePetitMage
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Level up: 1.6%
 
Posts: 33
Joined: 25 Oct 2018, 17:41
Location: Chez moi
Gender: Male
Calculator(s):
Class: TS

Re: Boucles programme

Unread postby LePetitMage » 25 May 2019, 21:28

Le programme EFFACEUR sert à supprimer les variables.
User avatar
LePetitMage
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Level up: 1.6%
 
Posts: 33
Joined: 25 Oct 2018, 17:41
Location: Chez moi
Gender: Male
Calculator(s):
Class: TS

Re: Boucles programme

Unread postby Hamza.S » 25 May 2019, 21:30

ça n'a rien à voir avec la fonction du sujet précédent, c'est plutôt la façon dont tu as écrit ton programme qui pose problème
Image
User avatar
Hamza.SAdmin.
Niveau 17: GM (Grand Maître des calculatrices)
Niveau 17: GM (Grand Maître des calculatrices)
Level up: 6.8%
 
Posts: 3545
Images: 18
Joined: 07 Nov 2014, 00:43
Gender: Male
Calculator(s):

Re: Boucles programme

Unread postby LePetitMage » 25 May 2019, 21:31

Donc j'ai dû changer quelque chose qu'il ne fallait pas avec les changements de tout à l'heure.
User avatar
LePetitMage
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Level up: 1.6%
 
Posts: 33
Joined: 25 Oct 2018, 17:41
Location: Chez moi
Gender: Male
Calculator(s):
Class: TS

Re: Boucles programme

Unread postby Hamza.S » 25 May 2019, 21:45

ton code passe de ceci :
Code: Select all
60→M
3600→H
76800→J
Disp "MINUTE : M","HEURE : H","JOUR : J
Input "COMBIEN DE SECONDES ?",A
0→B
Repeat A=0
Wait 1
A-1→A
Disp A
End
If A=0
Then
Repeat B=25
Disp "C'EST FINI !
B+1→B
End


à cela :
Code: Select all
prgmEFFACEUR
60→M
3600→H
86400→J
Disp "MINUTE : M","HEURE : H","JOUR : J
Input "COMBIEN DE SECONDES ?",A
0→B
For(F,0,A,1)
Wait 1
ent(A/86400)→B
ent(reste(A,86400)/3600)→C
ent(reste(reste(A,86400),3600)/60)→D
A-86400B-3600C-60D→E
If B≥1
Then:Disp "J:"+versChaîne(B)+",H:"+versChaîne(C)+",M:"+versChaîne(D)+",S:"+versChaîne(E
Else:If C≥1
Then:Disp "H:"+versChaîne(C)+",M:"+versChaîne(D)+",S:"+versChaîne(E
Else:If D≥1
Then:Disp "M:"+versChaîne(D)+",S:"+versChaîne(E
Else:If E≥1
Then:Disp "S:"+versChaîne(E
End:End
If A=0
Then:Repeat B=25
Disp "C'EST FINI !
B+1→B
End

il y a beaucoup de changement.
prend du recul pour analyser ce que doit faire ton programme et ce que tu dois rentrer dans ton programme
Image
User avatar
Hamza.SAdmin.
Niveau 17: GM (Grand Maître des calculatrices)
Niveau 17: GM (Grand Maître des calculatrices)
Level up: 6.8%
 
Posts: 3545
Images: 18
Joined: 07 Nov 2014, 00:43
Gender: Male
Calculator(s):

Re: Boucles programme

Unread postby LePetitMage » 26 May 2019, 05:43

Merci beaucoup,
j'ai eu une autre idée qui fonctionne.

Code: Select all
60→M
3600→H
86400→J
Disp "MINUTE : M","HEURE : H","JOUR : J
Input "COMBIEN DE SECONDES ?",A
0→B
Lbl A
A-1→A
Wait 0.8165
ent(A/86400)→B
ent(reste(A,86400)/3600)→C
ent(reste(reste(A,86400),3600)/60)→D
A-86400B-3600C-60D→E
If B≥1
Then:Disp "J:"+versChaîne(B)+",H:"+versChaîne(C)+",M:"+versChaîne(D)+",S:"+versChaîne(E
Goto A
Else:If C≥1
Then:Disp "H:"+versChaîne(C)+",M:"+versChaîne(D)+",S:"+versChaîne(E
Goto A
Else:If D≥1
Then:Disp "M:"+versChaîne(D)+",S:"+versChaîne(E
Goto A
Else:If E≥1
Then:Disp "S:"+versChaîne(E
Goto A
Else:If A=0
Then:Repeat B=25
Disp "C'EST FINI !
B+1→B
End
User avatar
LePetitMage
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Level up: 1.6%
 
Posts: 33
Joined: 25 Oct 2018, 17:41
Location: Chez moi
Gender: Male
Calculator(s):
Class: TS

Re: [Résolu] Boucles minuteur

Unread postby UnCurieux » 26 May 2019, 16:42

N'hésite pas à modifier celui que tu as uploadé : archives_voir.php?id=2120274 si celui-là fonctionne mieux.
Maths
,
fractales
,
géométrie
, packs de
levels Oiram
, jeux, physique, ... : ici


ImageImage
User avatar
UnCurieuxProg.
Niveau 11: LV (Légende Vivante)
Niveau 11: LV (Légende Vivante)
Level up: 21.3%
 
Posts: 365
Images: 2
Joined: 19 May 2017, 18:20
Gender: Male
Calculator(s):


Return to Problèmes divers / Aide débutants

Who is online

Users browsing this forum: No registered users and 1 guest

-
Search
-
Featured topics
Concours TI-Planet-Casio de rentrée 2019. 3 défis pour plus d'une 15aine de calculatrices graphiques et nombre de goodies sortant de l'ordinaire ! :D
Comparaisons des meilleurs prix pour acheter sa calculatrice !
12
-
Donations / Premium
For more contests, prizes, reviews, helping us pay the server and domains...

Discover the the advantages of a donor account !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partner and ad
Notre partenaire Jarrety 
-
Stats.
304 utilisateurs:
>293 invités
>5 membres
>6 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Other interesting websites
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)