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 A" après ne fonctionne plus. J'ai aussi essayé avec "While A>0" avec toujours "A-1 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.
[Résolu] Boucles minuteur
First unread post • 8 posts
• Page 1 of 1
[Résolu] Boucles minuteur
Last edited by Larwive on 26 May 2019, 05:45, edited 1 time in total.
Je dis que je ne dis rien, à part que mes programmes sont disponibles ici.
En mettant à profit mes pouvoirs de devin, sachant que j'ai écrit ma signature bien avant ta venue, ton pseudo est Anonymous.
En mettant à profit mes pouvoirs de devin, sachant que j'ai écrit ma signature bien avant ta venue, ton pseudo est Anonymous.
-
LarwiveProgrammeur
Niveau 12: CP (Calculatrice sur Pattes)- Posts: 282
- Images: 20
- Joined: 25 Oct 2018, 17:41
- Location: Chez moi
- Gender:
- Calculator(s):→ MyCalcs profile
- Class: 1ère année d'école d'ingénieur informatique
- GitHub: Larwive
Re: Boucles programme
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
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
Je dis que je ne dis rien, à part que mes programmes sont disponibles ici.
En mettant à profit mes pouvoirs de devin, sachant que j'ai écrit ma signature bien avant ta venue, ton pseudo est Anonymous.
En mettant à profit mes pouvoirs de devin, sachant que j'ai écrit ma signature bien avant ta venue, ton pseudo est Anonymous.
-
LarwiveProgrammeur
Niveau 12: CP (Calculatrice sur Pattes)- Posts: 282
- Images: 20
- Joined: 25 Oct 2018, 17:41
- Location: Chez moi
- Gender:
- Calculator(s):→ MyCalcs profile
- Class: 1ère année d'école d'ingénieur informatique
- GitHub: Larwive
Re: Boucles programme
Le programme EFFACEUR sert à supprimer les variables.
Je dis que je ne dis rien, à part que mes programmes sont disponibles ici.
En mettant à profit mes pouvoirs de devin, sachant que j'ai écrit ma signature bien avant ta venue, ton pseudo est Anonymous.
En mettant à profit mes pouvoirs de devin, sachant que j'ai écrit ma signature bien avant ta venue, ton pseudo est Anonymous.
-
LarwiveProgrammeur
Niveau 12: CP (Calculatrice sur Pattes)- Posts: 282
- Images: 20
- Joined: 25 Oct 2018, 17:41
- Location: Chez moi
- Gender:
- Calculator(s):→ MyCalcs profile
- Class: 1ère année d'école d'ingénieur informatique
- GitHub: Larwive
Re: Boucles programme
ç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
-
Hamza.SAdmin
Niveau 17: GM (Grand Maître des calculatrices)- Posts: 4464
- Images: 18
- Joined: 07 Nov 2014, 00:43
- Gender:
- Calculator(s):→ MyCalcs profile
Re: Boucles programme
Donc j'ai dû changer quelque chose qu'il ne fallait pas avec les changements de tout à l'heure.
Je dis que je ne dis rien, à part que mes programmes sont disponibles ici.
En mettant à profit mes pouvoirs de devin, sachant que j'ai écrit ma signature bien avant ta venue, ton pseudo est Anonymous.
En mettant à profit mes pouvoirs de devin, sachant que j'ai écrit ma signature bien avant ta venue, ton pseudo est Anonymous.
-
LarwiveProgrammeur
Niveau 12: CP (Calculatrice sur Pattes)- Posts: 282
- Images: 20
- Joined: 25 Oct 2018, 17:41
- Location: Chez moi
- Gender:
- Calculator(s):→ MyCalcs profile
- Class: 1ère année d'école d'ingénieur informatique
- GitHub: Larwive
Re: Boucles programme
ton code passe de ceci :
à cela :
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
- 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
-
Hamza.SAdmin
Niveau 17: GM (Grand Maître des calculatrices)- Posts: 4464
- Images: 18
- Joined: 07 Nov 2014, 00:43
- Gender:
- Calculator(s):→ MyCalcs profile
Re: Boucles programme
Merci beaucoup,
j'ai eu une autre idée qui fonctionne.
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
Je dis que je ne dis rien, à part que mes programmes sont disponibles ici.
En mettant à profit mes pouvoirs de devin, sachant que j'ai écrit ma signature bien avant ta venue, ton pseudo est Anonymous.
En mettant à profit mes pouvoirs de devin, sachant que j'ai écrit ma signature bien avant ta venue, ton pseudo est Anonymous.
-
LarwiveProgrammeur
Niveau 12: CP (Calculatrice sur Pattes)- Posts: 282
- Images: 20
- Joined: 25 Oct 2018, 17:41
- Location: Chez moi
- Gender:
- Calculator(s):→ MyCalcs profile
- Class: 1ère année d'école d'ingénieur informatique
- GitHub: Larwive
Re: [Résolu] Boucles minuteur
N'hésite pas à modifier celui que tu as uploadé : archives_voir.php?id=2120274 si celui-là fonctionne mieux.
-
UnCurieuxProgrammeur
Niveau 11: LV (Légende Vivante)- Posts: 367
- Images: 2
- Joined: 19 May 2017, 18:20
- Gender:
- Calculator(s):→ MyCalcs profile
- Class: Prépa scientifique 1A
8 posts
• Page 1 of 1
Return to Problèmes divers / Aide débutants
Who is online
Users browsing this forum: No registered users and 50 guests