Une petite pause, en microseconde.

Commenter

Contenu du snippet

C'est rare mais des fois on ne veut pas que ça aille trop vite !

bonne pause !

ryl...

Source / Exemple : 


Exemples d'utilisation:

DelayUS(1);			= 1 µS
DelayUS(100);			= 100 µS
DelayUS(100000);		= 100 mS
DelayUS(1000000);		= 1 S

			------------------------------------------

//////////////////////////
// Attendre N microSeconde
procedure DelayUS(MicroS:int64);
var Frq_Base, Time_memo, Time_now, dif: Int64;
begin

if QueryPerformanceFrequency(Frq_Base) then begin// Base fréquence systême
  QueryPerformanceCounter(Time_memo);     	// Repère temps
  repeat
   QueryPerformanceCounter(Time_now);// Comparer le Repère temps au temps qui
   dif := (Time_now - Time_memo) * 1000000 div Frq_Base;  // s'écoule
  until dif > MicroS;      // Si pause pas suffisante recommencer
end;

end;

A voir également

S'inscrire maintenant

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.

Du même auteur (rylryl)