跪求通信程序

Question

请教各位高手，怎样用VB编写PC与单片机RS232通信，要求PC连续发送32个字节如(0x23)让单片机接收，我是初学者，求源代码，谢谢啦！

Answer 1

LZ:参照如下代码修改:
Option Explicit
    Dim sjByt() As BytePrivate Sub Command1_Click() '2进制发送
    ReDim sjByt(1 To 10) '设置为10个元素
    sjByt(1) = &H31
    sjByt(2) = &H32
    sjByt(3) = &H12
    sjByt(4) = &H31
    sjByt(5) = &H32
    sjByt(6) = &H33
    sjByt(7) = &H34
    sjByt(8) = &H35
    sjByt(9) = &H36
    sjByt(10) = &H37
    MSComm1.Output = sjByt '此命令执行一次发送10字节
End SubPrivate Sub Form_Load()
    MSComm1.PortOpen = True
End Sub

Answer 2

http://download.csdn.net/source/1262066