Instruction delay sans gettickcount ni object timer
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)
'*
'**************************************************
'* 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
- Instruction delay sans gettickcount ni object timer
- Object reference not set to an instance of an object. ✓ - Forum C# / .NET
- Timer c++ - Forum C++ & C++ .NET
- C++ timer - Forum C++ & C++ .NET
- Delphi delay ✓ - Forum Delphi / Pascal
- Comment lancer un timer et arrêter ce dernier a partir d'une méthode sans utlise ✓ - Forum C
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.