VB中的串口通信问题，高手请进。

Question

现在在做一个串口通信的程序，用于接受单片机发过来的数据。但现在接受不到数据，现在请教各位，串口控件需要设置哪些？或是能给个接受数据的程序（只是接受数据的部分）。谢谢~~~~！

Answer 1

这么拽的问题才给10分,就只能得到10分的答案, 要得到100分的答案, 放100分上来Private Sub cmdExit_Click()
    If MSC.PortOpen Then
        MSC.PortOpen = False        '原来开的, 就关闭它
    End If
    Unload Me
End SubPrivate Sub cmdOpen_Click()
On Error GoTo Err_H
    MSC.CommPort = 1                '设置Com1为通信端口
    MSC.Settings = "9600,n,8,1"     '设置波特率
    If MSC.PortOpen Then
        MSC.PortOpen = False        '原来开的, 就关闭它
    End If
    MSC.PortOpen = True             '打开通信端口
    Label1.Caption = "COM" & MSC.CommPort & " Open Ok On " & CStr(MSC.Settings)
    Exit Sub
Err_H:
    Label1.Caption = Err.Number & ": " & Err.Description
End Sub.......  分不够了, 后边略

Answer 2

这个网上搜索一下控件MSCOMM会有很多的，
关键是要设置
With MSComm1:                               ' MSComm1控件初始化
    .InputLen = 0
    .RThreshold = 1     .CommPort =1
   .InBufferCount = 0
    .OutBufferCount = 0
    .InputMode = comInputModeText
      .Settings = "9600，n,8,1"
    End With
其他注意一下自己的握手协议，缓冲区大小以及接收时适当延时等，都需要自己调试时去摸索的。