如用MSCOMM控件就很简单,为什么不用?
解决方案 »
- VB加载VC的DLL出现乱码问题
- 建立VTable表
- ¥$¥ 关于DBGrid:请问如何将SQL查询的结果放到DBGrid控件中? ¥$¥
- 谁能用VB编写1个排列组合综合运算问题
- 实用代码:【源码下载】类:CVBAPIHooker —— 可以让你事件化处理API拦截的类
- sql语句问题?
- 通过API移动窗口的问题。为什么代码失效?
- 请问用什么方法可以得到服务器的日期压。
- 如何把Dbgrid中某一格的已存在的数据删掉?
- 关于数据库中的图形问题,能解决问题的加上高分22分
- 巴顿,我正到处找你呢,快回http://www.csdn.net/expert/topic/547/547877.xml
- 有谁玩儿过《富甲天下3》这个游戏???进来一下。
使用mscomm控件,呵呵
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传送出去就好了,
所以重点变成如何将想传的资料放入ByteArrayDim Buffer(5)Buffer(0) = 210
Buffer(1) = 150
Buffer(2) = 68
Buffer(3) = 56MSComm1.Output = Buffer以上是我找到的