Private Sub Init_MSComm(ByVal comPort As Integer, ByVal comBaud As String)
On Error GoTo ErrHandler:
'Mscomm控件初始化赋值设置
MSComm.CommPort = comPort ' 设置串口
MSComm.InputMode = comInputModeBinary ' 二进制输入模式
MSComm.RThreshold = 1 ' 接收1个字符触法OnComm 事件
MSComm.SThreshold = 1 ' 发送1个字符触法OnComm 事件
MSComm.Settings = CStr(comBaud) + ",n,8,1" ' 设置波特率
MSComm.OutBufferSize = 1024
MSComm.InBufferSize = 1024
MSComm.InputLen = 0
MSComm.InBufferCount = 0
If MSComm.PortOpen = False Then
MSComm.PortOpen = True ' 打开串口
CmdControl.Caption = "关闭串口"
CbComPort.Enabled = False
CbComBaud.Enabled = False
End If
Exit Sub
ErrHandler:
Exit Sub
End Sub
我串口一般都这么设
|
楼主
