声明一个变量数组其类型为Byte。然后将你要的数据逐一赋值到这个数组,将MSComm控件串行模式属性:InputMode 设为 二进制模式,也就是值为1的那个,然后将这个变量数组输出到 OutPut 就行了。如:
dim DA(4) as Byte
DA(0)=&HAA
DA(1)=&HAA
DA(2)=&H04
DA(3)=&H02
DA(4)=.....
MSComm1.OutPut=DA()
*注意在VB中十六进制要用 &H 开头表示
发接为二进制发送,自然接收也是一样的,所以接收的也应该是一个Byte类型的不定变量数组,接收后可用 Ubound 语句来获取字节数,接收的数据以 变量(下标) 形式取得,不能将数组直接赋值于一个变量或控件的字符属性中。如:
Dim AD() As Byte
Dim Ik As Long
AD=MSComm.Input
For Ik=0 To Ubound(AD)
Text1.text=text1.text & Chr(AD(Ik))
Next
Dim a() As Byte
a = ChrB(&H2) & StrConv("12123", vbFromUnicode) & ChrB(&H3)
Winsock1.SendData a
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/75802/viewspace-927248/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/75802/viewspace-927248/