可以选择串口了.txt

来自「计算机与CM320模块通信,只是简单的一点,利用AT命令,串口,VB编写!比较粗」· 文本 代码 · 共 88 行

Private Sub Command3_Click()
    If Combo1.Text = "com1" Then
        MSComm1.CommPort = 1
        MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
        MSComm1.PortOpen = True '...打开串口
    End If
    If Combo1.Text = "com2" Then
        MSComm1.CommPort = 2
        MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
        MSComm1.PortOpen = True '...打开串口
    End If
    If Combo1.Text = "com3" Then
        MSComm1.CommPort = 3
        MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
        MSComm1.PortOpen = True '...打开串口
    End If
    If Combo1.Text = "com4" Then
        MSComm1.CommPort = 4
        MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
        MSComm1.PortOpen = True '...打开串口
    End If
    If Combo1.Text = "com4" Then
        MSComm1.CommPort = 5
        MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
        MSComm1.PortOpen = True '...打开串口
    End If
    If Combo1.Text = "com4" Then
        MSComm1.CommPort = 6
        MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
        MSComm1.PortOpen = True '...打开串口
    End If
End Sub

Private Sub Form_Load()

Combo1.AddItem "com1"

Combo1.AddItem "com2"

Combo1.AddItem "com3"
Combo1.AddItem "com4"
Combo1.AddItem "com5"
Combo1.AddItem "com6"


End Sub


Private Sub Command1_Click()
'...发送数据

MSComm1.OutBufferCount = 0 '...清空输出寄存器

MSComm1.Output = Text1.Text & vbCr '...发送数据

End Sub

Private Sub Command2_Click()

'...退出

Unload Me
End Sub



Private Sub Mscomm1_Oncomm()

With MSComm1
Select Case CommEvent
Case comEvReceive

' 接收数据

' 对数据进行处理
Case comEvSend
'发送数据
'Case comEventRxParity
'对奇偶校验错误进行处理
End Select

 If comEvReceive Then
Text1.Text = MSComm1.Input
'MSComm1.InBufferCount = 0
End If
End With
End Sub