Question

单片机发送VB接受的简单串口程序

VB界面上点击按钮，然后再文本框内显示（十进制）

Answer 1

新建VB工程，界面上放一个Text1， 一个MSComm1控件。
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "115200,n,8,1"
MSComm1.InBufferCount = 0
MSComm1.RThreshold = 1
MSComm1.InputLen = 0
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
ins = ""

End Sub

Private Sub MSComm1_OnComm()
ins = ins & MSComm1.Input
MSComm1.InputLen = 0
MSComm1.InBufferCount = 0
Text1.Text = ins
End Sub
该程序即接收单片机从串口来的数据，并显示在Text1上