Hallo BlueNature!

Danke für die Hilfe.

Zitat Zitat von BlueNature
Private Sub Command1_Click()
For i = 0 To (Text1.Text) Step 1
Picture1.BackColor = RGB(255, 255, 255)
Picture1.BackColor = RGB(255, 0, 0) <== unsinnig, da doppelt
TIMEINIT
While TIMEREAD = Val(Text2.Text) <== ">=" verwenden!
DoEvents
<== hier passiert kein Output!!!
Wend
If i = (Text1.Text) Then Exit For <== ebenfalls ">=" verwenden!
Anstatt Exit For auch evtl Exit Sub?
Next i
End Sub
Die Farben habe ich anstatt dem DTR Zustand genommen. Vorerst aufm Trockenen schwimmen lernen . Deswegen sind die Farben zwei - einmal für DTR 0 und einmal DTR 1.
Zu der Angelegenheit ">=" man lernt immer.
Und was DoEvents betrifft, was für ein Output? Ich dachte, das ich damit halt die Verzögerung "reinkriege". Nachedem sich die Farben gewechselt haben, wird bestimmte Zeit verlaufen und dann geht es wieder los .... oder nicht?
Exit Sub und CloseComm habe ich mit dem Command2 gelöst. Ich habe es nicht mitkopiert.

MfG

KZ