VB Timer 1000 Millisekunden sind doch 1 Sekunde?

Hallo Wissende,

VB5.0, ich hab eine Form mit einem CommandButton.
Code in der Form:

Private Sub Command1_Click()
Call warte
End Sub

Ich habe ein Modul mit folgendem Code:

Sub warte()
Dim Zeit As Single
Zeit = Timer
While Timer

Hallo
Mit so einer Schleife wie while wend kannst Du die Programmausführung des ganzen Rechners(mit 1 core) blockieren.
Da sollte wenigstens ein DoEvents mit rein.
Du hast eine Function Timer.
Ich nehme an, das soll die Funktion des Timer-Steuerelementes sein.
Diese Funkton startet sich selber und sollte innerhalb einer entsprechen kleinen Zeit beendet werden.
Wenn Du die auch noch zusätzlich aufrufst, erzeugt Du ein unvorhersehbares Ergebis, oder unter Umständen mehrere Instanzen der Funktion, im Extremfall mit Stapelüberlauf.
Das Timercontrol arbeit, wenn es zum Beispiel auf 1000 ms(=1sec) eingestellt wird, sehr genau und ist geeignet, eine Uhrzeit zu führen.
Es kann sein, das es im Millisekundenbereich nicht ganz genau arbeitet, oder die Programmausführung zu langsam ist, je nachdem, was fabriziert wurde.
Schau Dir lieber einmal die Beispiele in der Hilfe an, und modifiziere diese Schritt für Schritt.

MfG
Matthias

Hallo Reinhard,

Laut Hilfe rechnet der Timer in Millisekunden

da ist der Interval des Timer-Steuerelements gemeint.
In Deinem Code sind das Sekunden. :smile:

Gruß Rainer

Dankschön, hab’s jetzt verstanden :smile: o.w.T