VB 串口调试助手源代码

最新推荐文章于 2025-05-13 00:51:56 发布

原创

最新推荐文章于 2025-05-13 00:51:56 发布 · 2.1k 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#vb #integer #string #delay #file

这是一个VB程序，用于串口调试助手的功能实现。包括串口状态检查、打开、关闭、初始化等操作，涉及COM端口设置如波特率、校验位、数据位和停止位。代码中包含打开、关闭串口的子程序，以及根据用户选择的串口配置重新设置串口的函数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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
        blnComOpen = True
    Else
        blnComOpen = False
    End If
    Call Status
Err:
End Sub
'----------------------------------
'            关闭串口
'----------------------------------
Public Sub ComClose()
On Error GoTo Err
    If frmMain.MSComm.PortOpen = True Then
        frmMain.MSComm.PortOpen = False                 ' 先判断串口是否打开，如果打开则先关闭
    End If

    blnComOpen = False
    Call Status
Err:
End Sub
'----------------------------------
'           串口初始化
'----------------------------------
Public Sub Com_initial(Port As Double, BaudRate As Double, ParityBit As String, DataBit As Double, StopBit As Double)
On Error GoTo ErrorTrap                                     ' 错误则跳往错误处理
    If frmMain.MSComm.PortOpen = True Then
        frmMain.MSComm.PortOpen = False                      ' 先判断串口是否打开，如果打开则先关闭
    End If
    frmMain.MSComm.InputMode = comInputModeBinary          &n