关于mscomm串口通信中16进制数的发送问题 高分求解 !!

bamboosee 2003-05-09 10:18:09
用mscomm控件如何 将16进制的代码发出去?
我需要 通过串口 发送16进制的代码 来控制 单片机
欢迎 大家出主意呀!!
...全文
76 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
tolywang 2003-05-10
  • 打赏
  • 举报
回复
VB中16进制码好像是通过0x开头的 .
w18ily 2003-05-10
  • 打赏
  • 举报
回复
Private DSend() As Byte

//
ReDim DSend(0 To 6) As Byte
Buffer = com1.Input
DSend(0) = &HE7
DSend(1) = &H1
DSend(2) = &H7
DSend(3) = &H0
DSend(4) = &H0
DSend(5) = &H3
DSend(6) = &HE8
com1.Output = DSend() '下发
gardenia 2003-05-10
  • 打赏
  • 举报
回复
Dim OutTmp(0) As Byte
Dim OutData As Variant

MSComm1.InputMode = 1
MSComm1.CommPort = 1 'COM1
MSComm1.PortOpen = True

OutTmp(0) = Val("&HA1") '发送16进制码A1
OutData = OutTmp
MSComm1.Output = OutData

OutTmp(0) = Val("&HA2") '发送16进制码A2
OutData = OutTmp
MSComm1.Output = OutData

……
dyx 2003-05-09
  • 打赏
  • 举报
回复
msComm.Output = Chr$(&HFF) '发送十六进制的FF


http://www.tsfigure.com.cn/comtest.htm
欢迎使用我开发的串口调试软件

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧