Private Sub Command1_Click()
MSComm1.Output = Text1.Text '发送数据
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 4 '设置串口的端口号
MSComm1.Settings = 9600,n,8,1 '设置串口的波特率等参数
MSComm1.RThreshold = 1 '设置最小接收的字节数
MSComm1.PortOpen = True '打开串口
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
Text2.Text = Text2.Text MSComm1.Input '接收数据
End Select
End Sub