Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

[WD14] compte a rebours

2 réponses
Avatar
Franck
Bonjour,

J'aimerais faire un truc qui devrait être simple, un compte à rebours.
Je voudrais partir à 20 minutes et décompter seconde par seconde
jusqu'à zéro
Je ne vois pas du tout comment m'y prendre, quelqu'un aurait une astuce

Merci

2 réponses

Avatar
Romain PETIT
Franck a écrit :
Bonjour,

J'aimerais faire un truc qui devrait être simple, un compte à rebours.
Je voudrais partir à 20 minutes et décompter seconde par seconde jusqu'à zéro
Je ne vois pas du tout comment m'y prendre, quelqu'un aurait une astuce

Merci



Bonsoir,

pas testé, mais un truc comme ça devrait convenir...
(c'est plus compliqué qu'un simple timer et un compteur, mais c'est
normalement plus précis)

*** code declaration fenetre
gf_eTimer est un entier
gf_dhFin est une DateHeure

*** clic bouton go
gf_dhFin = dateSys()+heuresys()
gf_dhFin..minutes += 20
gf_eTimer = Timer("pl_Decompte", 100)// toutes les secondes


*** procédure locale pl_Decompte
dhEnCours est une DateHeure = DateSys()+HeureSys()
sDiff est une chaine
sDiff = DateHeureDifférence(dhEnCours),gf_dhFin)
dDurée est une Durée = ChaîneVersDurée(sDiff, duréeCentième)

SI dDurée>0 ALORS
// libellé
LIB_Decompte = "Temps restant : " + dDurée..Jour + "jours" + RC +
...
dDurée..Heure + "heures" + RC + ...
dDurée..Minute + "minutes" + RC + ...
dDurée..Seconde + "secondes" + RC + ...
dDurée..Milliseconde + "millièmes de seconde")
SINON
LIB_Decompte = "Terminé"
FIN

--
Romain PETIT
contact : rompetit chez free fr
+-+ posté sur Usenet avec MesNews et non depuis un forum web +-+
news:fr.comp.developpement.agl.windev
http://www.mesnews.net/
http://fr.wikipedia.org/wiki/Newsgroup
Avatar
Franck
Merci, je vais tester


Romain PETIT a écrit :
Franck a écrit :
Bonjour,

J'aimerais faire un truc qui devrait être simple, un compte à rebours.
Je voudrais partir à 20 minutes et décompter seconde par seconde jusqu'à
zéro
Je ne vois pas du tout comment m'y prendre, quelqu'un aurait une astuce

Merci



Bonsoir,

pas testé, mais un truc comme ça devrait convenir...
(c'est plus compliqué qu'un simple timer et un compteur, mais c'est
normalement plus précis)

*** code declaration fenetre
gf_eTimer est un entier
gf_dhFin est une DateHeure

*** clic bouton go
gf_dhFin = dateSys()+heuresys()
gf_dhFin..minutes += 20
gf_eTimer = Timer("pl_Decompte", 100)// toutes les secondes


*** procédure locale pl_Decompte
dhEnCours est une DateHeure = DateSys()+HeureSys()
sDiff est une chaine
sDiff = DateHeureDifférence(dhEnCours),gf_dhFin)
dDurée est une Durée = ChaîneVersDurée(sDiff, duréeCentième)

SI dDurée>0 ALORS
// libellé
LIB_Decompte = "Temps restant : " + dDurée..Jour + "jours" + RC + ...
dDurée..Heure + "heures" + RC + ...
dDurée..Minute + "minutes" + RC + ...
dDurée..Seconde + "secondes" + RC + ...
dDurée..Milliseconde + "millièmes de seconde")
SINON
LIB_Decompte = "Terminé"
FIN