急！请问如何用MSCOMM控件实现如下的串口通讯程序？

Question

我要向芯片发请求信息，如果芯片反映成功，则返回信息．格式如下：计算机向芯片发送请求信息：
发送格式（共７个字节，以＼区分，为１６进制，从低到高）：
40＼02＼02＼00＼10＼00＼10若芯片接受成功，则会向计算机返回接受信息．
接受格式（共９个字节）：
06＼40＼00＼03＼00＼00＼04＼00＼07请问如何编程，请给出源代码？

Answer 1

Dim a() As Byte
首先，在Form_load中定义MScomm控件
Private Sub Form_Load()
On Error GoTo err
MSCommVideo.CommPort = 1
MSCommVideo.Settings = "9600,n,8,1"
If MSCommVideo.PortOpen = False Then
   MSCommVideo.PortOpen = True
End If
err:
End Sub然后，在你需要的事件中发送代码
ReDim a(4) As Byte
a(0) = 2
a(1) = &H24
a(3) = &H2D
a(4) = 3
MSCommVideo.Output = a()
Do While (MSCommVideo.OutBufferCount <> 0)
Loop
以上是发送数据在MScomm的Oncomm事件中
select case (我不记得是什么了，反正是收到数据)
        处理接受的数据
end select想要完整的，下周一可以给你

Answer 2

发送数据还是跟我上面写的一样
接受数据的处理
Private Sub MSComm1_OnComm()Select Case MSComm1.CommEvent
       Case comEvReceive
            b = MSComm1.Input
            Text2.Text = b
End SelectEnd Sub如果你那边硬件调试比较麻烦，建议你将PC232串口的2，3脚短接，然后找一个串口调试工具来看一下你发送接收的数据是否正确，我用的是PortSpyV11串口调试工具，比较好用