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

Message non lude Larwive » 25 Mai 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.
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. Image

En mettant à profit mes pouvoirs de devin, sachant que j'ai écrit ma signature bien avant ta venue, ton pseudo est Anonymous.:whistle:
Avatar de l’utilisateur
LarwiveProgrammeur
Niveau 12: CP (Calculatrice sur Pattes)
Niveau 12: CP (Calculatrice sur Pattes)
Prochain niv.: 88.2%
 
Messages: 282
Images: 20
Inscription: 25 Oct 2018, 17:41
Localisation: Chez moi
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: 1ère année d'école d'ingénieur informatique
GitHub: Larwive

Re: Boucles programme

Message non lude Larwive » 25 Mai 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
Je dis que je ne dis rien, à part que mes programmes sont disponibles ici. Image

En mettant à profit mes pouvoirs de devin, sachant que j'ai écrit ma signature bien avant ta venue, ton pseudo est Anonymous.:whistle:
Avatar de l’utilisateur
LarwiveProgrammeur
Niveau 12: CP (Calculatrice sur Pattes)
Niveau 12: CP (Calculatrice sur Pattes)
Prochain niv.: 88.2%
 
Messages: 282
Images: 20
Inscription: 25 Oct 2018, 17:41
Localisation: Chez moi
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: 1ère année d'école d'ingénieur informatique
GitHub: Larwive

Re: Boucles programme

Message non lude Larwive » 25 Mai 2019, 21:28

Le programme EFFACEUR sert à supprimer les variables.
Je dis que je ne dis rien, à part que mes programmes sont disponibles ici. Image

En mettant à profit mes pouvoirs de devin, sachant que j'ai écrit ma signature bien avant ta venue, ton pseudo est Anonymous.:whistle:
Avatar de l’utilisateur
LarwiveProgrammeur
Niveau 12: CP (Calculatrice sur Pattes)
Niveau 12: CP (Calculatrice sur Pattes)
Prochain niv.: 88.2%
 
Messages: 282
Images: 20
Inscription: 25 Oct 2018, 17:41
Localisation: Chez moi
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: 1ère année d'école d'ingénieur informatique
GitHub: Larwive

Re: Boucles programme

Message non lude Hamza.S » 25 Mai 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
Avatar de l’utilisateur
Hamza.SAdmin
Niveau 17: GM (Grand Maître des calculatrices)
Niveau 17: GM (Grand Maître des calculatrices)
Prochain niv.: 28.4%
 
Messages: 4460
Images: 18
Inscription: 07 Nov 2014, 00:43
Genre: Homme
Calculatrice(s):
MyCalcs profile

Re: Boucles programme

Message non lude Larwive » 25 Mai 2019, 21:31

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

En mettant à profit mes pouvoirs de devin, sachant que j'ai écrit ma signature bien avant ta venue, ton pseudo est Anonymous.:whistle:
Avatar de l’utilisateur
LarwiveProgrammeur
Niveau 12: CP (Calculatrice sur Pattes)
Niveau 12: CP (Calculatrice sur Pattes)
Prochain niv.: 88.2%
 
Messages: 282
Images: 20
Inscription: 25 Oct 2018, 17:41
Localisation: Chez moi
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: 1ère année d'école d'ingénieur informatique
GitHub: Larwive

Re: Boucles programme

Message non lude Hamza.S » 25 Mai 2019, 21:45

ton code passe de ceci :
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
Image
Avatar de l’utilisateur
Hamza.SAdmin
Niveau 17: GM (Grand Maître des calculatrices)
Niveau 17: GM (Grand Maître des calculatrices)
Prochain niv.: 28.4%
 
Messages: 4460
Images: 18
Inscription: 07 Nov 2014, 00:43
Genre: Homme
Calculatrice(s):
MyCalcs profile

Re: Boucles programme

Message non lude Larwive » 26 Mai 2019, 05:43

Merci beaucoup,
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. Image

En mettant à profit mes pouvoirs de devin, sachant que j'ai écrit ma signature bien avant ta venue, ton pseudo est Anonymous.:whistle:
Avatar de l’utilisateur
LarwiveProgrammeur
Niveau 12: CP (Calculatrice sur Pattes)
Niveau 12: CP (Calculatrice sur Pattes)
Prochain niv.: 88.2%
 
Messages: 282
Images: 20
Inscription: 25 Oct 2018, 17:41
Localisation: Chez moi
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: 1ère année d'école d'ingénieur informatique
GitHub: Larwive

Re: [Résolu] Boucles minuteur

Message non lude UnCurieux » 26 Mai 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
Avatar de l’utilisateur
UnCurieuxProgrammeur
Niveau 11: LV (Légende Vivante)
Niveau 11: LV (Légende Vivante)
Prochain niv.: 23.7%
 
Messages: 367
Images: 2
Inscription: 19 Mai 2017, 18:20
Genre: Homme
Calculatrice(s):
MyCalcs profile
Classe: Prépa scientifique 1A


Retourner vers Problèmes divers / Aide débutants

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 15 invités

-
Rechercher
-
Social TI-Planet
-
Sujets à la une
Comparaisons des meilleurs prix pour acheter sa calculatrice !
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
Phi NumWorks jailbreak
123
-
Faire un don / Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...
Faire un don
Découvrez les avantages d'un compte donateur !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partenaires et pub
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
837 utilisateurs:
>826 invités
>6 membres
>5 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Autres sites intéressants
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)