Question

VB 发送十六进制串口数据

我想用VB做的软件，发送一组十六进制串口数据，请问怎么做？

数据“30h 30h 5Fh 63h 31h 0Dh”

悬赏100，奉上，请笑纳！

Answer 1

关键是要搞清楚,想发送的数据类型,如字符串,还是二进制数(命令),我的理解是你要通过串口某些设备的数据,那就要发送二进制命令数据.....
先定义一个Byte 数组,把要发送的16进制字符放如数组,然后发送就OK.
Exp:
dim sendBuffer(5) as Byte
sendBuffer(1)=&H30
sendBuffer(2)=&H30
sendBuffer(3)=&H5F
......
msComm.Output=sendBuffer

Answer 2

Dim 数据(8) As Byte

数据(0) = &H68
数据(1) = &H11
数据(2) = &H22
数据(3) = &H33
数据(4) = &H44
数据(5) = &H55
数据(6) = &H66
数据(7) = &H77

串口1.Write(数据, 0, 8)

//数组可以，单个数据就不对

Answer 3

Private Sub Command1_Click()
    Dim sj() As String
    Dim sjByt() As Byte
    Dim i As Long
    sj = Split(Text1, " ")
    ReDim sjByt(UBound(sj))
    For i = 0 To UBound(sj)
    sjByt(i) = Val("&H" & Str(Val(sj(i))))
    Next i
    MSComm1.Output = sjByt
End Sub

Private Sub Form_Load()
    Text1 = "30h 30h 5Fh 63h 31h 0Dh"
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.PortOpen = True
End Sub

Answer 4

        Dim sandcher() As Byte
        ReDim sandcher(5)
        sandcher(0) = &H30
        sandcher(1) = &H30
        sandcher(2) = &H5F
        sandcher(3) = &H63
        sandcher(4) = &H31
        sandcher(5) = &H0D
        
            With MSComm1
                If .PortOpen = False Then .PortOpen = True
                .Output = sandcher
            End With

追问

你这个是锁定发送的命令，能做成 text 文本框，我自己输入什么就发送什么吗？

我的代码格式都是 “02H 50H 4FH 46H 03H” 这样的格式，如果需要转换什么进制，那我也需要转换进制的代码。

追答

您的代码格式每个数值后面都加了H说明是十六进制的 所以不用转换进制 。所以参考下面的知友的代码稍微修改一下如下：

Private Sub Command1_Click()
    Dim sj() As String
    Dim sjByt() As Byte
    Dim i As Long
    sj = Split(Text1, " ")
    ReDim sjByt(UBound(sj))
    For i = 0 To UBound(sj)
        sjByt(i) = Val("&H" & Str(Val(left(sj(i),2))))
    Next i
    MSComm1.Output = sjByt
End Sub
 
Private Sub Form_Load()
    Text1 = “02H 50H 4FH 46H 03H"
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.PortOpen = True
End Sub

Answer 5

只要发送吗，我这有一份程序，你看看能不能用。这个程序是没有问题的，把Text1中的文字以16进制的形式发送出去（不包括转换16进制的过程）。
'十六进制发送
Private Sub Hexsent()
Dim hexchrlen%, Hexchr As String, hexcyc%, hexmid As Byte, hexmiddle As String, CmdLenth As Integer
Dim hexchrgroup() As Byte, i As Integer
hexchrlen = Len(Text1text)
For hexcyc = 1 To hexchrlen '检查Text1文本框内数值是否合适
Hexchr = Mid(Text1text, hexcyc, 1)
If InStr("0123456789ABCDEFabcdef", Hexchr) = 0 Then
MsgBox "无效的数值，请重新输入", , "错误信息"
Exit Sub
End If
Next
ReDim hexchrgroup(1 To hexchrlen \ 2) As Byte
For hexcyc = 1 To hexchrlen Step 2 '将文本框内数值分成两个、两个
i = i + 1
Hexchr = Mid(Text1text, hexcyc, 2)
hexmid = Val("&H" & CStr(Hexchr))
hexchrgroup(i) = hexmid
Next
CmdLenth = 5 + hexchrgroup(5) * 2
MSComm1.RThreshold = CmdLenth
MSComm1.Output = hexchrgroup
End Sub

追问

我界面大概是这样，代码必须是这样的30h 30h 21h 0Dh的格式，可能会超过4组以上的十六进制数据，

你刚发的我不怎么看得懂，能帮我做一个吗？

追答

- - 这个有点麻烦呢 你是使用的MSComm控件吧？

追问

是的。就是按下command1，发送text1里的所有数据到串口

追答

行，邮箱告诉我，做好了给你发过去~

追问

825157766 扣扣的，有劳

追答

好了，给你发过去了，有问题回复邮件吧。