新建 文本文档.txt

单片机与PC机的通信,下位机用汇编写的,上位机用VB实现.

Private Sub MSComm1_OnComm()
    Dim i As Integer
    Select Case MSComm1.CommEvent
        Case comEvReceive
            inbyte = MSComm1.Input
            For i = LBound(inbyte) To UBound(inbyte)
                Text3.Text = Text3.Text + Hex(inbyte(i)) + Chr(32)
            Next i
        Case comEvSend
    End Select
End Sub