863
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
MSComm1.CommPort = 1 '您的串口是 COM1
MSComm1.InputMode = comInputModeText
MSComm1.Settings = "9600,n,8,1"
MSComm1.RThreshold = 6
MSComm1.EOFEnable = true
MSComm1.Handshaking = comNone
MSComm1.InBufferSize = 1024
Text1.Text = ""
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent '接收数据
Case comEvReceive '对数据进行处理
InString = MSComm1.Input
Text1.Text = InString + Text1.Text
End Select
End Sub