有发送有接收了.txt

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

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

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

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

End Sub

Private Sub Command2_Click()

'...退出

Unload Me
End Sub



Private Sub Form_Load()

'...初始化

MSComm1.CommPort = 1 '...使用Com1口

MSComm1.Settings = "9600,n,8,1" '...设置通讯参数

MSComm1.PortOpen = True '...打开串口

End Sub

Private Sub Mscomm1_Oncomm()

With MSComm1
Select Case CommEvent
Case comEvReceive

' 接收数据

' 对数据进行处理
Case comEvSend
'发送数据
'Case comEventRxParity
'对奇偶校验错误进行处理
End Select
End With
 If comEvReceive Then
Text2.Text = MSComm1.Input
MSComm1.InBufferCount = 0
End If

End Sub