Private Sub Form_Load()

    MSComm1.CommPort = 1 '使用串行口1

    MSComm1.Settings = "4800,N,8,1" '波特率4800，無校驗，8個數據位，1個停止位。

    MSComm1.InputLen = 1 '當使用MSComm1.Input時，每次從接收緩沖區取一個字節。

    TestTimer.Interval = 20 '定時器的中斷間隔為20ms，用于更新顯示時間。
    
End Sub

Private Sub Command1_Click()

    Dim echoch% '命令變量
    
    Dim ch$

    On Error Resume Next '簡單的錯誤處理

    Label1.Caption = MSComm1.Settings '顯示串行口的設置。
    
    TestTimer.Enabled = True

    If Command1.Caption = "通信" Then '若當前命令按扭的提示為“通信”則開始發送和

        Command1.Caption = "停止" '接受數據，并將命令按扭提示改為“停止”，以

        CmdExit.Enabled = False '允許停止通信。使退出命令在通信中失效。
        
        Echo.Enabled = False

        If Not MSComm1.PortOpen Then '若串行口沒有打開，則打開串行口

            MSComm1.PortOpen = True

        End If

        If MSComm1.PortOpen Then '若串口已經打開，則發送連接或控制命令給單片機

            If Echo.Text <> "" Then '若命令輸入框不空，則將其轉換為ASCII碼值

                echoch% = Asc(Echo.Text)
                
            Else

                echoch% = &H41 '否則確省命令為41H,ASCII的"A"

            End If

            MSComm1.Output = echoch% '向串行口寫入一字節命令，由WINDOWS自動將命令發出

            LabelSend.Caption = Chr(echoch%) & " ASCII " & Hex(echoch%) '顯示剛發出的命令
        
        End If

        Do While MSComm1.PortOpen

            If MSComm1.InBufferCount > 0 Then '若mscomm1.InBufferCount＞0表示接受緩沖區有數據，并讀出一個字符

                ch$ = MSComm1.Input

                LabelReceive.Caption = Asc(ch$)
                 
                Select Case ch$
                
                    Case Asc("Y") '若收到字母“Y”，則退出當前循環進入下一循環
                    
                        MsgBox "連接成功,您可以給單片機發送命令了！"
                    
                    Case Asc("A")
                        
                        MsgBox "你發送的一號命令已經被單片機收到！"
                                    
                    Case Asc("B")
                        
                        MsgBox "你發送的二號命令已經被單片機收到！"
                        
                    Case Asc("C")
                    
                        MsgBox "你發送的N號命令已經被單片機收到！"
                        
                    Case Else
                    
                        MsgBox "你發送了非法命令，單片機已經暈了！"
                        
                End Select

            Else
                                    
                If MsgBox("連接失敗,請檢查連接是否正確！", vbRetryCancel) = 4 Then
    
                    dummy = DoEvents()
           
                    MSComm1.Output = echoch% '否則繼續向下位機發命令，通知下位機送數據
                    
                Else
                
                     Exit Do
                
                End If

            End If

            dummy = DoEvents() '讓系統處理其他消息

        Loop        '下位機接受到正確的命令，并回發命令正確時，進入下面循環

    Else '在通訊過程中，按下cmdCOMM按鈕則停止通信，發出停止測試

        Command1.Caption = "通信" '命令，關閉串行口，使退出按鈕有效。

        MSComm1.Output = Chr(&H5F)

        MSComm1.PortOpen = False

        CmdExit.Enabled = True
        
        Echo.Enabled = True
        
        TestTimer.Enabled = False

    End If

End Sub

Sub CmdExit_Click()

    If MSComm1.PortOpen Then '確認關閉串行口
 
        MSComm1.PortOpen = False

    End If

    End '終止整個程序

End Sub

Private Sub Command2_Click()

    TestTimer.Enabled = True

End Sub

Private Sub TestTimer_Timer() '更新顯示時間

    LabTime.Caption = Time$

End Sub