新建 文本文档.txt

来自「单片机与PC机的通信,下位机用汇编写的,上位机用VB实现.」· 文本 代码 · 共 11 行

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