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
Voir le premier message non lu • 8 messages
• Page 1 sur 1
[Résolu] Boucles minuteur
Dernière édition par Larwive le 26 Mai 2019, 05:45, édité 1 fois.
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)- Messages: 282
- Images: 20
- Inscription: 25 Oct 2018, 17:41
- Localisation: Chez moi
- Genre:
- Calculatrice(s):→ MyCalcs profile
- Classe: 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)- Messages: 282
- Images: 20
- Inscription: 25 Oct 2018, 17:41
- Localisation: Chez moi
- Genre:
- Calculatrice(s):→ MyCalcs profile
- Classe: 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)- Messages: 282
- Images: 20
- Inscription: 25 Oct 2018, 17:41
- Localisation: Chez moi
- Genre:
- Calculatrice(s):→ MyCalcs profile
- Classe: 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)- Messages: 4464
- Images: 18
- Inscription: 07 Nov 2014, 00:43
- Genre:
- Calculatrice(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)- Messages: 282
- Images: 20
- Inscription: 25 Oct 2018, 17:41
- Localisation: Chez moi
- Genre:
- Calculatrice(s):→ MyCalcs profile
- Classe: 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: Tout sélectionner
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: Tout sélectionner
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)- Messages: 4464
- Images: 18
- Inscription: 07 Nov 2014, 00:43
- Genre:
- Calculatrice(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: Tout sélectionner
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)- Messages: 282
- Images: 20
- Inscription: 25 Oct 2018, 17:41
- Localisation: Chez moi
- Genre:
- Calculatrice(s):→ MyCalcs profile
- Classe: 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)- Messages: 367
- Images: 2
- Inscription: 19 Mai 2017, 18:20
- Genre:
- Calculatrice(s):→ MyCalcs profile
- Classe: Prépa scientifique 1A
8 messages
• Page 1 sur 1
Retourner vers Problèmes divers / Aide débutants
Qui est en ligne
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 68 invités