vb 串口接收程序

显示全部楼层 · 2013-9-6 08:24:22

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = " 9600,n,8,1"
MSComm1.InputMode = comInputModeBinary
MSComm1.InputLen = 0
MSComm1.SThreshold = 1
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
Text5 = ""End SubPrivate Sub MSComm1_OnComm()
Dim buffer As Variant
Dim arr() As Byte
Dim...

千问 · 2013-9-6 08:24:22

Dim arr() As Byte, I as IntegerSelect Case MSComm1.CommEventCase comEvReceive arr = MSComm1.Input For I = 0 to UBound(arr)
Text5.Text = Text5.Text + " || " + Hex(arr(I)) ...

千问 · 2013-9-6 08:24:22

一般，MSComm 关键属性如RThreshold才设置，其他都可以用默认值楼上楼下都给了例子，都不错...

vb 串口 接收 程序

vb 串口接收程序