如何用MSComm Control传Binary Data

想学好编程，学好外语很重要 [enadd 2006年12月25日]

	您现在的位置：编程笔记网 >> 应用开发 >> vb >> Internet >> 文章正文

如何用MSComm Control传Binary Data

【字体：小大】

如何用MSComm Control传Binary Data

作者：- 文章来源：- 点击数：更新时间：2006-9-8

以下是读取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

[1]

文章录入：enadd 责任编辑：enadd

上一篇文章： MultiLink的WinSock Server程式

下一篇文章：没有了

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

最新热点		最新推荐		相关文章
				用VB编写DirectX7.0游戏（下… 用VB编写DirectX7.0游戏（上… 使用OLE DB和ADO调用返回记录… 使用VB调用Oracle程序包内的… VB中用ADO对象动态创建数据库… fffff MultiLink的WinSock Server程… 用VB制作浏览器用VB编写网络寻呼机制作自己的网络搜索软件

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

\| 设为首页 \| 加入收藏 \| 联系站长 \| 友情链接 \| 版权申明 \| 管理登录 \|


	Copyright ©2000 - 2005 Enadd.com 备案序号:辽ICP备06005595号 QQ:1656107 站长：enadd