vb编写rs232串口程序向下位机单片机发送数据问题.docVIP

VB编写RS232串口程序向下位机单片机发送数据的问题 Public Sub out() Dim tmp, buf As String tmp = Format(Date, yymmdd) Format(Time(), hhmmss) MSComm.Output = tmp End Sub 怎么改 才能发送16进制的数据啊?因为下位机 是单片机 只能接收16进制的数据 而这个程序好象是以ASC码形式发送的 Option Explicit Dim a1 As String 定义a1为全局变量 Dim bytData(1) As Byte Private Sub cmdSend_Click() Call SendData(bytData) End Sub Public Function SendData(ByRef bytData() As Byte) As Long On Error Resume Next MSComm1.InBufferCount = 0 清空接收缓冲区 MSComm1.Output = bytData 发送数据 Do DoEvents Loop Until MSComm1.OutBufferCount = 0 等待，直到数据发送完毕 MSComm1.OutBufferCount = 0 清空发送缓冲区 End Function 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.PortOpen = True 打开端口 Text3 = bytData(0) = HF0 bytData(1) = HF End Sub 另见/questionhtml我的答复,是一简化的串口调试精灵代码,在TXTSEND中写16进制命令,可手动单次发送或自动发送。 这样发送就可以了，mscomm会自动转成16进制发出去的。有时我们不得不用16进制发是要发十六进制数无法用ascii码表示，即大于H80的数，比如HAA。 你看看串口调试精灵，接收用字符还是十六进制，是可以任意选择的，而和用字符还是十六进制发送无关。 下面是编程用十六进制发和收，其实用这反而麻烦。 With MSComm1 .CommPort = 1 .Settings = 115200,N,8,1 .InputLen = 0 .InputMode = comInputModeBinary .RThreshold = 3 .PortOpen = True End With 发 dim DA(4) as Byte DA(0)=HAA DA(1)=HAA DA(2)=H04 DA(3)=H02 DA(4)=..... MSComm1.OutPut=DA() 收： Dim AD() As Byte Dim Ik As Long AD=MSComm1.Input For Ik=0 To Ubound(AD) Text1.text=text1.text Chr(AD(Ik)) Next