VB 弄过串口通信 请进

来源：百度知道 编辑：UC知道 时间：2024/06/04 21:21:32
大家好 我现在想写个 可以向单片机发送数据和接受数据 上位机
我现在遇到的问题是 只能向单片机发送个位数
各位有没有例程 拿个给我看下
行不通的就 别回了 期待高手
来个人

vb与单片机通讯有两种，一中是以ACSII形式发送，一种是以十六进制的形式发送。

给你一个十六进制的发送形式你看看

发送程序

Public Sub SendComm(ByVal SendTxt As String)
If Not form1.MSComm1.PortOpen Then Exit Sub
Dim B() As Byte : B = form1.MSComm1.Input '发送之前先清除一下
Dim i As Integer
Dim StrHH As String
Dim SendBuf() As Byte
Dim IntArrMax As Integer
Dim StrTemp As String = ""
IntArrMax = Len(SendTxt) / 2 - 1
ReDim SendBuf(IntArrMax)
For i = 0 To IntArrMax
StrHH = Mid(SendTxt, i * 2 + 1, 2)
SendBuf(i) = CByte(Val("&H" & StrHH))
StrTemp = StrTemp & StrHH & " "
form1.Textbox1.Text = StrTemp
Next i
form1.MSComm1.Output = SendBuf
End Sub
接收程序
Public ReadStr As String
Public S_U As String
Public S_I As String
P