Current location - Quotes Website - Team slogan - Real-time reception of vba serial communication
Real-time reception of vba serial communication
Private? Sub? MSComm 1 _ on com()

Choice? Case? MSComm 1。 CommEvent

Case? Did you get it? Did you get it? RThreshold? #? about

Dim? s? As? String? s2? As? line

s? =? MSComm 1。 invest

s2? =? Trim(s)S2 is the received data.

Case? other

End? choose

End? submarine