Instruction delay sans gettickcount ni object timer

0/5 (4 avis)

Vue 11 336 fois - Téléchargée 536 fois

Description

'**************************************************
'* NOM : Fonction Delai()
'* DATE : 06/08/2000
'*
'* AUTEUR : Legay Thomas (TomAmplius)
'*
'* DESCRIPTION :
'* Permet de faire une pause de X secondes.
'* sans utilise Function GetTickCount& Lib "kernel32" ()
'* et encore moins un controler Timer
'* (extention en centieme de seconde posible)
'*
'**************************************************

Source / Exemple :


Option Explicit
Dim Tmp_1 As Long 'Variable temporaire 1
Dim Tmp_2 As Long 'Variable temporaire 2
Dim Temps As Integer 'Temps du delai

Private sub Delay(Temps As Integer) 'Ne renvoie rien
Tmp_1 = Timer
Do
  DoEvents
  Tmp_2 = Timer
Loop Until (Tmp_2 - Tmp_1) / 1000 > Temps 
End sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
mokonaxxjp Messages postés 6 Date d'inscription lundi 4 avril 2005 Statut Membre Dernière intervention 28 décembre 2005 1
13 avril 2005 à 06:17
meme si vous mettez un delai de 500ms?

Moi pour ce delai ca merde, les donnes que je dois envoyer toutes les 500 ms partent bcp plus vite...

Soluce?
begini Messages postés 8 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 14 juin 2003
27 janv. 2004 à 04:54
parfait c est ce que je cherchais !!!

merci
cs_logarcon Messages postés 44 Date d'inscription mardi 31 décembre 2002 Statut Membre Dernière intervention 4 avril 2008
5 oct. 2003 à 23:43
ca marche pas
Serval12000 Messages postés 9 Date d'inscription mardi 17 octobre 2000 Statut Membre Dernière intervention 12 juin 2002
26 mars 2002 à 15:31
Ton code m a sortit d un sacré problème même s il reste un problème
Le fait de diviser par 1000 fait que le code réagit comme une boucle infinie
J ai du réduir à 10 pour que ca ne dure pas tros longtemps

Mais merci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.