Ichbinalex
Erfahrenes Mitglied
Hallo,
Ich hab in der Arbeit eine Wait funktioniert Programmiert.
Das Betriebssytem ist dort Windows XP.
Zuhause Funktioniert die Funktion nicht. Das einzige was unterschiedlich ist (ausser Hardware natürlich) das ich Windows Vista 64 Buiness verwende,
Ich hab in der Arbeit eine Wait funktioniert Programmiert.
Visual Basic:
Public Sub Wait(ByVal Seconds As Integer)
Dim Time As Integer = Now.Millisecond
Time = Time + Seconds
If Time > 999 Then
Time = Time - 1000
End If
Do Until Time = Now.Millisecond
My.Application.DoEvents()
Loop
End Sub
Public Sub WaitSeconds(ByVal Seconds As Integer)
Dim Time As Integer = Now.Second
Time = Time + Seconds
If Time > 59 Then
Time = Time - 60
End If
Do Until Time = Now.Second
My.Application.DoEvents()
Loop
End Sub
Zuhause Funktioniert die Funktion nicht. Das einzige was unterschiedlich ist (ausser Hardware natürlich) das ich Windows Vista 64 Buiness verwende,