sky110 

 VB串口通信问题
各位高手  我现在在用VB实现PC机与单片机的串口通信，我用下载的串口精灵可以实现数据的发送回收，而我按照其他书上的例子做的串口精灵就收不到数据  这是怎么回事情啊 想的我头痛，

Private Sub Command1_Click()
Dim number As Integer
Dim outbyte(0) As Byte
number = Val(Text1.Text)
outbyte(0) = CByte(number)
MSComm1.OutBufferCount = 0
MSComm1.Output = outbyte

End Sub

Private Sub Command2_Click()
MSComm1.PortOpen = False
Unload Form1

End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
Dim indata As Variant
Dim arr(0) As Byte
Select Case MSComm1.CommEvent
Case comEvReceive
indata = MSComm1.Input
arr(0) = AscB(indata)
Text2.Text = arr(0)
MSComm1.InBufferCount = 0
End Select

End Sub

这是全部代码   ，数据是按照协议 才用16进制发送，
端口波特率应该没问题    

发送数据：a5 5a 01 5c c5     
接收结果A5 5A 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 5C C5 

希望高人热心帮忙啊   我比较着急啊

发表时间:2006年3月9日9:42:41