INSTRUCTION DELAY SANS GETTICKCOUNT NI OBJECT TIMER

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 

Télécharger le zip

• AJOUTER UN ZÉRO DEVANT UN CHIFFRE
• MINIMUM ET MAXIMUM
• HORREUR DES ERREUR DE DIVISION PAR 0
• SAVOIR SI UN NOMBRE EST PREMIER !!!
• METTRE DES SECONDES EN HEURES (4 LIGNES)

• FUSEAUX MATIC
• AVERTISSEUR
• CREATION DU VERSION SHAREWARE
• ERYGENDA ÉTERNEL OU PRESQUE. VERSION DE BASE, SANS ATTACHEMENTS À DES DOCUMENTS
• HORLOGE 2

• CLASSES TIMER (SANS MODULE)
• HAPPY MEMORY
• VISTA - TIMER RESOLUTION ET CPU CYCLE
• CALCUL MENTAL
• PROGRAMMER UN DÉLAI AVEC LA FONCTION TIMER