2003-02-22, 17:37
hmm wenn i in vb
Sub Sleep(Milliseconds)
Dim Zeit1 As Variant
Dim Zeit As Single
Zeit = Milliseconds / 1000
Zeit1 = Timer
Do
DoEvents
If Timer < Zeit1 Then Zeit = Zeit - 86400
Loop Until (Timer - Zeit1 > Zeit)
End Sub
verwend hob i a 100 % auslastung
die anwendung reagiert aber dank dem doEvents weiterhin...![[Bild: icon_rolleyes.gif]](https://www.downhill-board.com/images/graemlins/icon_rolleyes.gif)
ois a scheiß
Sub Sleep(Milliseconds)
Dim Zeit1 As Variant
Dim Zeit As Single
Zeit = Milliseconds / 1000
Zeit1 = Timer
Do
DoEvents
If Timer < Zeit1 Then Zeit = Zeit - 86400
Loop Until (Timer - Zeit1 > Zeit)
End Sub
verwend hob i a 100 % auslastung
die anwendung reagiert aber dank dem doEvents weiterhin...
![[Bild: icon_rolleyes.gif]](https://www.downhill-board.com/images/graemlins/icon_rolleyes.gif)
ois a scheiß
![[Bild: icon_lol.gif]](https://www.downhill-board.com/images/graemlins/icon_lol.gif)