vb(12)第五章串口通信方法與實現(xiàn)2(存儲版)
【正文】 002 CTS 超時 EventDSRTO 1003 DSR 超時 EventFrame 1004 幀錯誤 EventOverrun 1006 數(shù)據(jù)丟失（端口超速） EventCDTO 1007 CD 超時 EventRxOver 1008 接收緩沖區(qū)溢出 EventRxParity 1009 極性錯誤 EventTxFull 1010 發(fā)送緩沖區(qū)滿 EventDCB 1011 檢索端口設(shè)備控制塊 (DCB)時的意外錯誤 ◆ 管腳狀態(tài)及接收 /發(fā)送緩沖區(qū)狀態(tài)等常數(shù)（ 共計 7個）。處于命令狀態(tài)下的 Modem會把 PC 機(jī)發(fā)往串口的信息當(dāng)成指令來執(zhí)行。 AT指令應(yīng)用舉例 ◆ 對 Modem初始化 ： =“ ATE0Q1M0S0=5” Chr(13)，表示不回應(yīng)指令、不返回結(jié)果碼、關(guān)閉揚聲器、振鈴響 5次后摘機(jī)。 (3)編寫代碼 用 Modem實現(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
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1