串口通信

[liu_swallow]

用于工业控制，程序发送六位十六进制数&H0A,&H01,&HE8,&H08,&HF0.一次性发送
如何发，请写出大概代码

[liu_swallow]

upupupupup
uuuuuuuuuuuuu
ppppppppppppppppp!!!!!!!!!!!!!!!!!!1111

[liu_swallow]

upupupupup
uuuuuuuuuuuuu
ppppppppppppppppp!!!!!!!!!!!!!!!!!!1111

[liu_swallow]

upupupupup
uuuuuuuuuuuuu
ppppppppppppppppp!!!!!!!!!!!!!!!!!!1111
为什么没人回答

[wingchi]

upupupupup
uuuuuuuuuuuuu
ppppppppppppppppp!!!!!!!!!!!!!!!!!!1111
`

[dfdsfdsfsfsafsdfsdf]

dim b() as byte
b=&H34
mscomm1.inputmode=1
MsComm1.output=b

[liu_swallow]

你好，我要传送的可是一组十六进制数据；

[佛的光辉]

dim b() as byte
redim b(0 to 4)
b(0)=&H0A
b(1)=&H01
b(2)=&HE8
b(3)=&H08
b(4)=&HF0
.
.
.
.
MsComm1.output=b

[LuYao]

dim a(10) as byte /用来存放：&H0A,&H01,&HE8,&H08,&HF0
dim b() as byte
mscomm1.inputmode=1
for i=0 to Len(数组长度）
b=a(i)
MsComm1.output=b
next i

[LuYao]

Dim a(10) As Byte '/用来存放：&H0A,&H01,&HE8,&H08,&HF0
Dim b(1) As Byte
Dim i As Integer

For i = 0 To 10
a(i) = "&H" & Hex(i + 20)
Next i
MSComm1.InputMode = 1
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
MSComm1.Output = a 直接这样就可以了！

[maskzha]

YES↑

[hxy1982]

up!!