Bonjour
Bloc déclaration globales de la fenêtre
GLOBALE
hDebut est une Heure
hActuel est un Heure
hValConpteARebours est une Heure
nTimer est un entier
Bloc du bouton qui déclenche le compte a rebours
lblHeure est un libelle au format heure HH:MM:SS
nHeure est affectée avec une valeur pour commencer le compte a rebours à 1h00 (format : hhmmss)
hDebut = HeureSys()
hActuel = hDebut
nHeure est un entier = HeureVersEntier("010000")
lblHeure = EntierVersHeure(nHeure)
hValConpteARebours = EntierVersHeure(nHeure)
nTimer = Timer(proConteARebours,100)
proCompteARebours()
Code de la procédure proCompteARebours
PROCEDURE proCompteARebours()
nDifference est un entier
nDifference = HeureDifférence(hDebut,HeureSys())
SI nDifference >= HeureVersEntier(hValConpteARebours) ALORS
FinTimer(nTimer)
//Ici appeler la procédure d'extinction du PC
Info("Fin du compte a rebours !")
RETOUR
FIN
lblHeure = EntierVersHeure(HeureVersEntier(hValConpteARebours) - nDifference)
Cordialement