sscom42 vb串口调试助手源代码程序串口调试助手源代码程序
本文主要为sscom42 vb串口调试助手源代码程序,一起来学习下
Option Explicit '变量显示
'----------------------------------
' 变量定义申明
'----------------------------------
Public blnComOpen As Boolean '串口状态
'----------------------------------
' 过程、函数定义
'----------------------------------
'----------------------------------
' 串口状态
'----------------------------------
Public Sub ComStatus()
If frmMain.MSComm.PortOpen = False Then
frmCom.shpComLed.BackColor = vbRed
frmCom.cmdComSwitch.Caption = "打开串口" ' 串口状态显示
frmMain.StatusBar.Panels(3).Text = "COM Port Cloced"
blnZigbeeModuleConnect = False
ElseIf frmMain.MSComm.PortOpen = True Then
frmCom.shpComLed.BackColor = vbGreen
frmCom.cmdComSwitch.Caption = "关闭串口"
frmMain.StatusBar.Panels(3).Text = "" & frmCom.cboCOM.Text & " OPEND," & frmCom.cboBaudRate.Text & "," & _
"" & Mid(frmCom.cboParityBit.Text, 2, 1) & "," & frmCom.cboDataBit.Text & "," & frmCom.cboStopBit.Text
End If
End Sub
'----------------------------------
' 打开串口
'----------------------------------
Public Sub ComOpen()
On Error GoTo Err
If frmMain.MSComm.PortOpen = True Then
frmMain.MSComm.PortOpen = False ' 先判断串口是否打开,如果打开则先关闭
End If
Call Com_reSet(Val(Mid(frmCom.cboCOM.Text, 4, 1)), Val(frmCom.cboBaudRate.Text), Mid(frmCom.cboParityBit.Text, 2,
1), Val(frmCom.cboDataBit.Text), Val(frmCom.cboStopBit.Text)) '串口设置
If frmMain.MSComm.PortOpen = True Then