用vb串口实现发送一串000110010001010101000101010的二进制数 怎么发送 怎么接收
供稿:hz-xin.com 日期:2025-01-21
VB串口发送一串16进制跟接收问题
需要先串口控件初始化,此处略
发送时:
Dim Sendbuffer(3) as Byte
SendBuffer(0)=&H19
SendBuffer(1)=&H15
SendBuffer(2)=&H45
MSCOMM.OUTPUT=Sendbuffer
接收时;
在控件接收事件Oncomm中
Dim RecvBuffer(1024) as Byte
RecvBuffer=MSCOMM.InPut
如果发送的是0X19,0X15,0X45
那么RecvBuffer(0)=&H19
RecvBuffer(1)=&H15
RecvBuffer(2)=&H45
首先在ford_load事件里要把MSComm1的发送接收方式改成字节接收方式,即MSComm1.InputMode = comInputModeBinary
Command6里的发送事件改为:
dim outbyte(2) as byte
outbyte(0)=&HBB
outbyte(1)="&H0" & trim(text3.text)
outbyte(2)="&H" & format(10*val(text4.text),"00")
MSComm1.OutBufferCount = 0
mscomm1.output=outbyte
VB 里
dim SendData(1) as tbye
SendData(0)=&haa
SendData(1)=&h22
注意:MSComm 数据传输模式 为 2进制方式
MSComm1.Output=SendData
祝你顺利
BTW,推荐 一本 经典入门 书
Visual_Basic与_RS-232_串行通信控制
如果需要 pdf 电子文档,可以 联系
需要先串口控件初始化,此处略
发送时:
Dim Sendbuffer(3) as Byte
SendBuffer(0)=&H19
SendBuffer(1)=&H15
SendBuffer(2)=&H45
MSCOMM.OUTPUT=Sendbuffer
接收时;
在控件接收事件Oncomm中
Dim RecvBuffer(1024) as Byte
RecvBuffer=MSCOMM.InPut
如果发送的是0X19,0X15,0X45
那么RecvBuffer(0)=&H19
RecvBuffer(1)=&H15
RecvBuffer(2)=&H45