网页功能: 加入收藏 设为首页 网站搜索  
如何用MSComm Control传Binary Data
发表日期:2002-12-08作者:[] 出处:  

以下是读取Binary Data

Dim Buffer as Variant

Dim Arr() as Byte

' 设定并开启连接埠

MSComm1.CommPort = 1

' 连线速度 9600 baud、无同位检查、资料位元 8、停止位元 1

MSComm1.Settings = "9600,N,8,1"

告诉控制项当使用 Input 时,读取整个暂存区

MSComm1.InputLen = 0

MSComm1.PortOpen = True

' 设定 InputMode 以读取二进位资料

MSComm1.InputMode = comInputModeBinary

' 等待直到输入暂存区有 10 个位元组

Do Until MSComm1.InBufferCount < 10

  DoEvents

Loop

' 往暂存区存二进位资料

Buffer = MSComm1.Input

' 指定给位元组阵列以便处理

Arr = Buffer

MSComm1.PortOpen = False

而送出Binary的资料则没有像InputMode的属性,在VB5.0中

Output属性是接Varant所以直接将ByteArray传送出去就好了,

所以重点变成如何将想传的资料放入ByteArray

Dim Buffer(5)

Buffer(0) = 210

Buffer(1) = 150

Buffer(2) = 68

Buffer(3) = 56

MSComm1.Output = Buffer

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 如何用MSComm Control传Binary Data
本类热点文章
  用MSComm控件实现来电显示
  用MSComm控件实现来电显示
  WOL(Wake on Lan)程序的源代码
  用VB调试串口通讯
  用VB调试串口通讯
  用PocketPCPhone替代AT指令的手机SMS服务
  用PocketPCPhone替代AT指令的手机SMS服务
  保存页面为MHT的代码
  用VB动态获取所有网络邻居的名称及其IP..
  用VB动态获取所有网络邻居的名称及其IP..
  于Winsock控件制作的一个“服务器,N客..
  于Winsock控件制作的一个“服务器,N客..
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2021 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00791