level 1
指端轻语
楼主
Private Sub Command4_Click() ‘ 单击按钮发送f8 23 00 01
Call SendData(&H23, &H0, &H1)
End Sub
Function SendData(CMD As Variant, DAT1 As Variant, DAT2 As Variant)
Dim Outdat(4) As Byte
Outdat(0) = &HF8
Outdat(1) = CMD
Outdat(2) = DAT1
Outdat(3) = DAT2
MSComm1.OutBufferCount = 0
MSComm1.Output = Outdat
End Function
是这样的如果像单片机串口调试助手那样，发送在text1中输入内容可以在text2上显示
但是发送自己定义的 f8 23 00 01 text2上就不显示
大家帮忙看看是哪的问题啊 谢谢啊
2014年08月30日 14点08分
1
Call SendData(&H23, &H0, &H1)
End Sub
Function SendData(CMD As Variant, DAT1 As Variant, DAT2 As Variant)
Dim Outdat(4) As Byte
Outdat(0) = &HF8
Outdat(1) = CMD
Outdat(2) = DAT1
Outdat(3) = DAT2
MSComm1.OutBufferCount = 0
MSComm1.Output = Outdat
End Function
是这样的如果像单片机串口调试助手那样，发送在text1中输入内容可以在text2上显示
但是发送自己定义的 f8 23 00 01 text2上就不显示
大家帮忙看看是哪的问题啊 谢谢啊