Hallo VB-Helden,
habe eine Endlosschleife, aus der ich raus will, wenn Seriell ein Zeichen ( ‚R‘ ) eintrifft. Was muß ich tun ( oder lassen ) ?
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent ’ Behandeln jedes Ereignisses
… 'oder Fehlers
Case comEvReceive ’ Anzahl empfangener Zei-
’ chen gleich RThreshold ( == 1 )
c = MSComm1.Input
Select Case c
…
Case Asc(„R“)'soll ready bedeuten und nächstes Cmd freigeben.
HWStatusWert.Caption = "bereit "
ReadyChar = True
…
End Select
…
End Select
End Sub
Public Function WaitForReady(hick)
Do While ReadyChar = False
Loop
’ Form1.Timer1.enable = False ( anderes Thema )
End Function
Ich dachte das Comm Ereignis verändert das ReadyChar, auch während dem Loop-Aufenthalt. Aus der komme ich jedoch gar nicht mehr raus. Ansonsten sehe ich Serielle Zeichen munter reinkommen, sowohl in einem VB-Fenster als auch auf einem RS232 Monitor ( kommt das ‚R‘ zu schnell …)
Gruss und vielen Dank für die Mühe, die ich Euch bereite,
Uwe P.