[WD14] compte a rebours

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Romain PETIT
Le #23011741
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
Franck
Le #23060651
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
Publicité
Poster une réponse
Anonyme