FAIRE UNE PAUSE DANS UN PROGRAMME (PREND EN CHARGE LE PASSAGE DE MINUIT)
DeAtHCrAsH
Messages postés
2670
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
-
22 déc. 2002 à 18:34
nonopirator Messages postés 6 Date d'inscription lundi 14 février 2005 Statut Membre Dernière intervention 29 juin 2010 - 1 mars 2005 à 13:38
nonopirator Messages postés 6 Date d'inscription lundi 14 février 2005 Statut Membre Dernière intervention 29 juin 2010 - 1 mars 2005 à 13:38
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5416-faire-une-pause-dans-un-programme-prend-en-charge-le-passage-de-minuit
https://codes-sources.commentcamarche.net/source/5416-faire-une-pause-dans-un-programme-prend-en-charge-le-passage-de-minuit
1 mars 2005 à 13:38
Public Sub Pause(ByVal Duree As Single, Optional ByVal bloque As Boolean = False)
Dim Debut, courant As Single
Debut = Timer
Do
If Not bloque Then DoEvents
courant = Timer
If courant < Debut Then courant = courant + 24 * 3600
Loop While (Debut + Duree) > courant
End Sub
12 mai 2004 à 09:13
13 mai 2003 à 00:52
26 déc. 2002 à 23:33
Une petite remarque.
Je m'explique, imagine que ton application tourne 24hrs/24.
La fonction Function GetTickCoun renvoi la durée écoulé (en milisecondes) depuis l'allumage du PC.
L'exemple que tu donnes est déclaré en Long donc pour une durée de 2147483647 (milisecondes) soit 24 jours 20 hrs 31 minutes et 23 secondes après il se produira un dépassement de capacité.
Contrairement a mon exemple, le Timer se reinitialise à 0 toutes les 24 hrs.
C'etais simplement une remarque, mais il faut le savoir.
Voili voilou..., A+
23 déc. 2002 à 19:59
C'est vrai que l'on peut utiliser le composant timer parcontre je pense que cela prend un peut plus de ressources.
Merci et A+
23 déc. 2002 à 16:12
public sub myTimer_proc()
mytimer.enable = false
end sub
et dans le code
myTimer.enable = true
while myTimer.enable
dovents
wend
Je m'en sert pour mes timeouts de connexion avec winsock. a+
22 déc. 2002 à 22:41
Tu as raison, je n'avais pas pensé à cette posibilité.
Merci pour ton exemple.
Bonne prog.
A+
22 déc. 2002 à 18:34
Voici quelques remarques :
1) L'API sleep n'est pas une réelle pose puisque qu'elle bloque l'execution du programme.
2) Pour faire une pose tu peux faire plus simplement.. Regarde .. Et pas besoin de module ....
tu declares en générale cet API :
Private Declare Function GetTickCount Lib "kernel32" () As Long
Et ensuite tu mets cette procedure dans ton form :
Public Sub Attente(ByVal MilsecToWait As Long)
Dim lngEndingTime As Long
lngEndingTime = GetTickCount() + (MilsecToWait)
Do While GetTickCount() < lngEndingTime
DoEvents
Loop
End Sub
Puis pour mettre une pose, tu n'as cas appeller la procédure comme suit :
Attente 2000 ' le temps est en milliseconde..
Voili voilou...
Bonne programmation et A++
DeAtH_-_CrAsH