VB串口通信

谁有VB串口通信的实例！
比如我要发一个数组的数据！用串口控件写！
很简单一小段程序，我该怎样写！ --------------------编程问答-------------------- 帮你顶一下，话说，你查MSDN了么？通常这种标准控件都有说明的很详细的例子的 --------------------编程问答-------------------- 追着西西来
--------------------编程问答-------------------- http://download.csdn.net/source/1262066 --------------------编程问答-------------------- 从来不会用串口控件，也不知道对不对

Private Sub Command1_Click()

    Dim aa(0 To 10)       As Byte

    MSComm1.Output = aa

End Sub



Private Sub Form_Load()

    MSComm1.CommPort = 1 '通道1

    MSComm1.Settings = "9600,N,8,1" '"9600,N,8,1"

    MSComm1.PortOpen = True '打开串口

    MSComm1.RThreshold = 1 '一个字符产生 OnComm 事件

End Sub

--------------------编程问答-------------------- 娃娃猪 节日快洛 --------------------编程问答-------------------- Private Sub Command1_Click()
    Dim iStr1 As String
    Dim iStr2() As String
    Dim iStr3() As Byte
    Dim i As Integer
    iStr1 = "10 02 55 fa 03 00 00 00 d1 b1 10 03"   'iStr1中就是你要发送的数据
    iStr2 = Split(iStr1)
    ReDim iStr3(UBound(iStr2))
        For i = 0 To UBound(iStr2)
            iStr3(i) = "&H" & iStr2(i)
        Next
    MSComm1.Output = iStr3          '将处理后的数据用MSComm控件发送出去。
End Sub
下边是根据你自己的要求对MSComm控件进行设置，至于MSComm下边属性的详细意思到网上一查就说的很清楚了。 
    With MSComm1
        .CommPort = 1
        .Settings = "9600,n,8,1"
        .InBufferCount = 0
        .InputLen = 0
        .RThreshold = 1
        .InputMode = comInputModeBinary '以2进制接收
        .PortOpen = True
    End With --------------------编程问答-------------------- 我上边的代码，如果楼主用串口助手按16进制接收，就能接收到。可以试下。 --------------------编程问答-------------------- Dim aa(100) As Byte
.
.
.
MSComm1.Output = aa
--------------------编程问答-------------------- dim aa(100) as byte
dim bb
.
.
.
bb=aa
MSComm1.Output = bb --------------------编程问答-------------------- 推荐msdn

补充：VB ,  基础类