vb(12)第五章串口通信方法與實(shí)現(xiàn)2-資料下載頁
2025-01-02 09:54本頁面
【正文】 (3)編寫代碼 用 Modem實(shí)現(xiàn)遠(yuǎn)程通信完整代碼如下： Dim timel Private Sub Command1_Click() = _ ATDT Chr(13) timel = Timer Do While Timer timel 30 DoEvents If Then _ GoTo CD_Ture Loop MsgBox “未檢測到載波信號” = _ +++,ATH0 Chr(13) Exit Sub CD_Ture: = End Sub Private Sub Form_Load() = 1 = True = True = _ ATE0Q1M2S0=1 Chr(13) End Sub Private Sub MSComm1_OnComm() Select Case Case EvReceive = 0 If 0 Then ‘此處加延時 = = _ +++,ATH0 Chr(13) End If = 1 End Select End Sub (4)運(yùn)行程序 上一頁 下一頁 謝謝觀看 /歡迎下載 BY FAITH I MEAN A VISION OF GOOD ONE CHERISHES AND THE ENTHUSIASM THAT PUSHES ONE TO SEEK ITS FULFILLMENT REGARDLESS OF OBSTACLES. BY FAITH I BY FAIT
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1