如何发送数据

Question

用pc通过串口给单片机发送数据用vb6.0编程比如我要发送 0xFF  字节,
我用vb不知如何实现
试过:
用MScomm1.output=255    出错用MScomm1.output=chr(255) 数据不准确

Answer 1

dim a as byte
a=&HFF
output=a
或者用byte数组也行

Answer 2

楼上试过不行,提示
MScomm1.output=a 为无效属性值 

Answer 3

在前面加一句：
MSComm1.InputMode = comInputModeBinary '字节数组方式接收数据
（或者设计时界面也可以把这个属性先选择上，默认的是文本模式数据，那是没办法传递字节的）

Answer 4

使用chr()函数
chr(128)是正确的,到了chr(129)到chr(255)就全是255

Answer 5

加MSComm1.InputMode = comInputModeBinary 
也不行,提示属性值无效

Answer 6

vb唯一的一个串口通讯 MScomm控件啊.

Answer 7

Option Explicit
'发送FF
Private Sub Command1_Click()
    Dim outByte(1) As Byte
    outByte(0) = 255
    MSComm1.OutBufferCount = 0
    MSComm1.Output = outByte
End SubPrivate Sub Form_Load()
    With MSComm1
        .CommPort = 1
        .Settings = "9600,n,8,1"
        .RThreshold = 1
        .InputMode = comInputModeBinary
        .InputLen = 1
        .PortOpen = True
    End With
End Sub
'查看发送后串口的返回值
Private Sub MSComm1_OnComm()
    If MSComm1.CommEvent = 2 Then
        MSComm1.RThreshold = 0
        Debug.Print MSComm1.Input
        MSComm1.RThreshold = 1
    End If
End Sub

Answer 8

Dim a(0) As Byte a(0) = &HFF 
MScomm1.Output = a跟 MSComm1.InputMode = comInputModeBinary 没什么关系。InputMode 只表示输入数据的解释方法。

Answer 9

of123 指导过我这个问题，再次感谢！很经典。
char 好像可以发送0-154  155 -255 就会错。折磨过我！

Answer 10

http://topic.csdn.net/u/20090716/12/3aa3d7e7-d70d-4058-8bcc-26529e5ed1cb.html看一下这个