Hallo Forum,

wie das so aussieht, so einfach ist es mit bla bla Pin High, Pin Low bla bla auch wieder nicht. Mommentan bin ich auf dem Warteinterval stehengeblieben. Da ich vor habe nur bestimmte anzahl der Schritte durchzuführen wollte ich es über For...Next machen. Da ich aber den Pin nicht lange offen haben will wollte ich TIMEREAD dazugeben, damit ich Pin High setze und dann wieder Low, dann warte ich ne Weile ca 3ms und dann wieder von vorne. Tja ich kriege es halt einfach nicht rein . Bis jetzt habe ich das so geschrieben:

Private Sub Command1_Click()
For i = 0 To (Text1.Text) Step 1
Picture1.BackColor = RGB(255, 255, 255)
Picture1.BackColor = RGB(255, 0, 0)
TIMEINIT
While TIMEREAD = Val(Text2.Text)
DoEvents
Wend
If i = (Text1.Text) Then Exit For
Next i
End Sub


Wo: Text1 ist anzahl der Schritte und Text2 soll die Wartezeit festlegen. Kann mir da vielleicht jemand weiterhelfen?

MfG

KZ