Come mettere in pausa un programma senza utilizzare le API

Questo metodi sono utilizzati per aspettare che accada un evento o per mettere in pausa il programma, per un determinato periodo di tempo.

Per attendere un evento e lasciare che Windows possa accedere ad altri eventi dello stesso programma usa questo codice:

'concede che siano svolte altre attività, nel
'programma, mentre trascorre il tempo determinato
Public Sub Attendi(HowLong As Date)
Dim TempTime As Date

TempTime = DateAdd("s", HowLong, Now)
While TempTime > Now
    'Concede a Windows di accedere ad altri eventi
    DoEvents
Wend
End Sub

Se non vuoi che windows possa accedere ad altri eventi usa questo codice:

'blocca tutte le attività del programma finchè
'non sia passato il tempo determinato
Public Sub Attendi2(HowLong As Date)
Dim TempTime As Date

TempTime = DateAdd("s", HowLong, Now)
While TempTime > Now
Wend
End Sub

Così, per mettere in pausa il programma per 5 secondi usa il seguente codice:

Attendi 5

Il codice che segue non verrà eseguito, finchè non sia trascorso il tempo determinato.

Testato su: tutti i Sistemi Operativi