Code : Tout sélectionner
Procedure Pulse(uID, uMsg, dwUser, dw1, dw2)
Debug "Hello! I was sent the user value of: "+Str(dwUser)
EndProcedure
timeSetEvent_(1000, 0, @Pulse(), 5, #TIME_PERIODIC)
Repeat
Delay(1)
Until GetAsyncKeyState_(#VK_ESCAPE) & 32768
Mais comme j'ai lu que tu voulais acheter PureBasic, ça ne sera bientôt plus un problème pour toi

Sinon fais une recherche sur le mot timer ici ou sur le forum anglais ,tu devrais trouver d'autres exemples.