Gast
#2297088
Hallo,
ich brauche in meinem Programm eine Pausenfunktion, da ich Digitale
Ausgänge ein und ausschalte.
Habe es so probiert, allerdings wird meine eingegebene Pausenzeit nicht
eingehalten, es ist immer viel kürzer.
Habe ein Modul erstellt:
Public Sub Delay(nSekunden As Long)
Dim TimeOut As Long
TimeOut = (GetTickCount / 1000) + nSekunden
Do
Application.DoEvents
Loop Until TimeOut < (GetTickCount / 1000)
End Sub
Was mache ich flasch?