Keskustelu: Ohjelmointikysymykset: VB6: miten tehdä 2 sekunnin tauko ohjelmaan

Miten VB6:lla tehdään esimerkiksi 2 sekunnin tauko ohjelmaan, jolloin ohjelma odottaa 2 sekuntia ennen seuraavaa toimintoa. Sleep, pause, wait käskyt eivät näytä tehoavan tai en osaa niitä käyttää.

Tapoja on useita. WinApista löytyy Sleep-funktio, mutta omankin aliohjelman voi helposti tehdä järjestelmäkellon avulla. Tässä on Odota-aliohjelma, joka pitää sekunteina ilmoitetun tauon ohjelmassa jumiuttamatta Windowsin muuta toimintaa. Käyttöesimerkki perässä.

Sub Odota(sekunnit As Single)
    Dim a As Single
    a = Timer
    Do While a + sekunnit > Timer
        DoEvents
    Loop
End Sub

Private Sub Form_Click()
    Print "Tämä tulee heti..."
    Odota 2
    Print "...tämä vasta kahden sekunnin kuluttua."
End Sub