[Résolu] Compte à rebours
Utilisateur WDF
Inscrit:
28/12/2008 14:19
Post(s): 52
Salut,

je dois creer un petite application qui lance un compte a rebours (1 heure par exemple) et à la fin eteint l'ordi.

j'ai besoin d'aide pour gerer ce compte à rebours.
je pense utiliser une procedure automatique (à la place d'un timersys) mais comment afficher ce compte à rebours.

merci d'avance et bon dev
glock19

Contribution le : 01/07/2010 19:24

Edité par drcharly93 sur 14/7/2010 19:42:26
Créer un fichier PDF de la contribution Imprimer


Re: Compte à rebours
Animateur WDF
Inscrit:
02/03/2003 04:07
De Noisy le grand(93)
Post(s): 2745
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

Contribution le : 01/07/2010 23:17
_________________
@A+
Contact (privé)......
email : drcharly@wdforge.org
[DrCharly93]
Créer un fichier PDF de la contribution Imprimer


Re: Compte à rebours
Utilisateur WDF
Inscrit:
28/12/2008 14:19
Post(s): 52
Salut DrCharly93

Merci beaucoup pour ta disponibilite et ta reponse

Bon dev
Glock19

Contribution le : 11/07/2010 19:10

Edité par drcharly93 sur 14/7/2010 19:42:47
Créer un fichier PDF de la contribution Imprimer



 Haut   Précédent   Suivant




Enregistrer votre réponse
CompteNom   Mot de passe   Authentification
Message:


Vous ne pouvez pas débuter de nouveaux sujets.
Vous pouvez voir les sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
Visualiser tous les Partenaires...
WinDev, WebDev, WinDev Mobile et HyperFile sont des marques déposées par PCSoft. |  Voter |  Legal |  Contact |   XOOPS 2.0.13.2