Hallo Wolfgang!
Danke für Deine Hilfe.
Diese Soll - Ist Angelegenheit habe ich mir auch schon überlegt. Ich wollte es mit Start, Finish, TotalTime abwickeln (siehe Code).
Code:
Private Sub Command1_Click()
Start = Timer
'a-----------------------------------------
TIMEINIT
While TIMEREAD() < Val(Text2.Text) / 10
DoEvents
'DTR 0
Picture1.BackColor = RGB(255, 255, 255)
Wend
'b-----------------------------------------
TIMEINIT
While TIMEREAD() < Val(Text2.Text) / 10
DoEvents
'DTR 1
Picture1.BackColor = RGB(255, 0, 0)
Wend
'c-----------------------------------------
TIMEINIT
While TIMEREAD() < Val(Text2.Text) / 10
DoEvents
' If CHKBOX1.true Then
' RTS 0
' Else
' RTS 1
' End If
Picture1.BackColor = RGB(0, 0, 255)
Wend
'd-----------------------------------------
For i = 1 To Val(Text1.Text) Step 1
TIMEINIT
While TIMEREAD() < 2
DoEvents
'TXD 1
Picture1.BackColor = RGB(0, 100, 100)
Wend
TIMEINIT
While TIMEREAD() < 5
DoEvents
'TXD 0
Picture1.BackColor = RGB(100, 100, 100)
Wend
If i >= Val(Text1.Text) Then Exit For
Next i
'e----------------------------------------
TIMEINIT
While TIMEREAD() < Val(Text2.Text) / 10
DoEvents
'DTR 0
Picture1.BackColor = RGB(255, 255, 0)
Wend
'f-----------------------------------------
Finish = Timer
TotalTime = Finish - Start
TIMEINIT
While TIMEREAD() < Val(Text2.Text) - TotalTime
DoEvents
'DTR 0
Picture1.BackColor = RGB(0, 0, 0)
Wend
Print "TotalTime"; TotalTime
End Sub
Tja, das was Du weiter geschrieben hast, verstehe ich aber nicht so ganz:
Ich weis eigentlich nicht warum du deine Zeitintervalle in einer anderen Sub machst. Ich würde an deiner Stelle die Impulse im Haupt-Sub erzeugen. Da mit Zeitschelifen arbeiten die mit DoEvent bestücken und dann deine anderen Aktionen die du überwacht haben willst wie z.B. Tastatur, Objekte zum klicken etc. mit DoEvents ausführen lassen das die nicht blocken zur Laufzeit deiner Haupt-Sub.
Soll das heissen, ich soll das nicht unter Command abwickeln, sonder unter Form?
Und das mit DoEvents geht leider bei mir total daneben.
MfG
KZ
Lesezeichen