在串口通信时 如何以16进制发送数据啊！

[bkm2000]

在串口通信时 如何以16进制发送数据啊！
为什么我只能发送字符呢

例如 我发送端输入 1 接收的是 31

应该如何设置啊！！

[zdingyun]

Private Sub Form_Load()
    '设置端口
     MSComm1.CommPort = 1
    MSComm1.Settings = "9600,n,8,1 "
    MSComm1.InputMode = comInputModeBinary
    MSComm1.PortOpen = True
End Sub

Private Sub Command1_Click()
    Dim Data1(31) As Byte
    MSComm1.InputLen = 0
    MSComm1.InBufferCount = 0
    MSComm1.OutBufferCount = 0
    For i = 0 To 30
        Data1(i) = Val("&H" & Hex(i))
    Next
    Data1(31) = &H49
    MSComm1.Output = Data1
End Sub

[bkm2000]

1楼 你这段代码我试了下 不行啊

现在无论我输入什么数据 接收到的都是18191A1B1C1D1E49呀

麻烦您再帮我看下！！谢谢啊！！

[candy110]

一楼给你的就是固定输出的.
你要输出什么数据要自己改Data1(i)里面的值.
还有接收到数据以后怎么显示也要自己写.

[candy110]

控件:command1,text1,MSComm1
//发送
Private Sub Command1_Click()
Dim strBuffer As String
Dim a As String
Dim Send_Chr(13) As Byte

With MSComm1
strBuffer = Trim(txet1.Text)//text里面输入的数字是没有空格的,如果有,改变下面的FOR循环
For i = 0 To Len(strBuffer) - 1 Step 2
a = Mid(strBuffer, i + 1, 2)
Send_Chr(i / 2) = "&H" & a
Next
.Output = Send_Chr
End With
End Sub

//接收,可以用MSComm1_OnComm,不过这个不是很稳定.
//下面用的是TIMER循环接收,代码都一样
Dim ReceivedLen As Integer
Dim av As Variant
Dim ab(1024)
With MSComm1
If .InBufferCount > 0 Then
ReceivedLen = .InBufferCount

''ReDim ab(ReceivedLen + 1)
For i = 1 To ReceivedLen
av = .Input
ab(i) = av(0)

Text2.Text = Text2.Text & vbNewLine & "ab(" & i & "): " & Hex(ab(i))
Text2.SelStart = Len(Text1.Text)
Next
end if
以上都是我以前写的一个串口通讯工具里面拿出来的.没有单独调试.大概就是这样.

[zdingyun]

这是在TxtSend文本框写16进制命令发送的代码：

Private Sub cmdSend_Click()
    Dim sj() As Byte
    Dim sj_Txt As String
    Dim i As Integer
    sj_Txt = TxtSend
    ReDim sj(Len(sj_Txt) / 2 - 1)
    For i = 0 To Len(sj_Txt) - 1 Step 2
       sj(i / 2) = Val("&H" & Mid(sj_Txt, i + 1, 2))
    Next
    If MSComm1.PortOpen = True Then
        MSComm1.Output = sj
    Else
        MSComm1.PortOpen = True
        MSComm1.Output = sj
    End If
End Sub

Private Sub Form_Load()
    MSComm1.CommPort = 1            'COM端口
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.InputMode = comInputModeBinary      '采用二进制接收
    MSComm1.InBufferCount = 0   '清空接受缓冲区
    MSComm1.OutBufferCount = 0  '清空传输缓冲区
    MSComm1.RThreshold = 1      '产生MSComm事件
    MSComm1.InBufferSize = 1024
    MSComm1.PortOpen = True '打开端口
    TxtSend = ""
End Sub

[rainy0214]

MSComm1.InputMode = comInputModeBinary '采用二进制接收
，如果你发送的数据为“1”,在接收到的数据进行处理“hex(asc(1))=31”去试试吧

[UltraBejing]

好像没那么简单,呵呵.