Instruction delay sans gettickcount ni object timer

Soyez le premier à donner votre avis sur cette source.

Vue 10 860 fois - Téléchargée 521 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 -
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
-
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
-
ca marche pas
Serval12000
Messages postés
9
Date d'inscription
mardi 17 octobre 2000
Statut
Membre
Dernière intervention
12 juin 2002
-
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.