Option Explicit
Private Sub Command1_Click()
'发送数据
Dim outdata As String
outdata = Text1.Text
MSComm1.Output = outdata
End Sub
Private Sub Command2_Click()
Unload Me '退出串口调试
End Sub
Private Sub Form_Load()
'初始化串口
With MSComm1
MSComm1.CommPort = 1 '选串口1
MSComm1.Settings = "4800,n,8,1" '设置波特率，数据位，停止位
MSComm1.PortOpen = True '串口打开
.InputMode = comInputModeText
.RThreshold = 1
End With
End Sub
Private Sub MSComm1_OnComm()
Dim indata As String
With MSComm1
Select Case MSComm1.CommEvent
Case comEvReceive '有接收事件发生，
indata = MSComm1.Input '
Text2.Text = indata '显示字符
End Select
End With
End Sub
command1发送按钮command2退出按钮text1发送区显示text2接受区显示
