Question

我想做51单片机向pc每隔1s发送“*”！怎么显示！VB通信下面设置如何更改？

Private Sub Form_Load()
Dim Istring As String
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 1
MSComm1.RThreshold = 1
End Sub
Private Sub send()
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
MSComm1.Output = sendstring
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
Nowstring = MSComm1.Input
Instring = Instring + Nowstring
If Nowstring = "*" Then
data_number = data_number + 1
data_string(data_number) = Instring（总显示函数或子程序为定义怎么更改）
TextBox.txt = Instring
Instring = ""
End If
End Select
End Sub

Answer 1

你的问题就在于与51单片机通信的模式设置不正确，你没有注意ASC（8位）码与“大字符集”（16位）的问题。