【導讀】虛作假、抄襲的情況，本人愿承擔全部責任。象，本人愿承擔指導教師的相關責任。

　　

【正文】 效實用的通信程序。 每個使用的 MSComm 控件對應著一個串行端口。如果應用程序需要訪問多個串行端口，必須使用多個 MSComm 控件。可以在 Windows“控制面板”中改變端口地址和中斷地址。 串 口控件的使用 MSComm 控件 屬性描述 ： CommPort 設置或返回通信端口號 ； Settings 以字符串的形式設置或返回 波特率 、 奇偶校驗 、 數據位 和停止位 ； PortOpen 設置或返回通信端口的狀態(tài)。也可以打開和關閉端口 ； If = 打開串口 Then = 關閉串口 = Right(, 1) = Trim$() amp。 , amp。 Left$(, 1) amp。 , amp。 Trim$() amp。 , amp。 Trim$() = 0 If = True Then MsgBox 串口已打開 Else = True End If 圖 44 串口設置窗口及 MSComm控件屬性設置代碼 28 Input 返回和刪除接收 緩沖區(qū) 中的字符 ； Output 將字符串寫入發(fā)送 緩沖區(qū) ； InBuffCount 返回接收緩沖區(qū)中等待的字符數； OutBuffCount 返回發(fā)送緩沖區(qū)中等待的字符數； CommEvent 屬性為通信事件或錯誤返回下列值之一。在該控件的對象庫中也可以找到這些 常量 ； VB 實現對 GSM 模 塊的控制 利用 MSComm 控件的 input 和 output 等屬性 通過串口實現與 TC35 的通信，程序工作流程圖 44所示 ： 每個事件控制不同的“動作”， 如利用定時器對串口進行定時掃描，當串口有數據接收時，則執(zhí)行程序， 串口數據接收定時器 TimerMSCreceive 的 工作流程如圖 45 所示： 條件滿足 Y N N Y 啟動 載入窗體 等待事件發(fā)生 調用函數或過程？ 執(zhí)行事件 執(zhí)行函數或過程 定時器事件 按鈕事件 組合框事件 第三方控件事件 圖 44 工作機制流程圖 29 定時器工作 InBufferCount 屬性值是否為 0 Y N 將 Input 里的值取出放入變量 text 內 串口數據用 Text 控件的text 屬性顯示 通過 MSComm的 output屬性對 TC35 發(fā)送讀短信指令 串口數據中是否有 +CMTI:字符串 Y N 是否復選框上的控制號碼發(fā)送來的 數據入庫 定時器工作結束 Y N 圖 45 定時器 TimerMSCreceive 工作流程圖 30 定時器 TimerMSCreceive 屬性設置窗口： 圖 46 TimerMSCreceive 屬性設置窗口： 定時器 TimerMSCreceive Interval 屬性值 =100 表示定時器每 100ms 觸發(fā)一次 定時器 TimerMSCreceive 代碼 ： Private Sub TimerMSCReceive_Timer() If 0 Then Sleep (50) text = = + text buf = text = Len() If InStr(buf, +CMTI:) 0 Then 39。判斷是否有新短信進來 = AT+CMGR= + Trim(Mid$(buf, 15, 2)) + vbCr + vbLf 39。讀新短信 smshs = Trim(Mid$(buf, 15, 2)) = True End If If Len(buf) 20 Then buf = Trim(Right$(buf, Len(buf) 20)) End If 39。數據采集進 access 表 (串口數據 ) = buf If Then If InStr(buf, ) 0 Then buf = Trim(Right$(buf, 3)) (號碼 ) = (代碼 ) = buf 31 (時間 ) = Format(Now) If buf = 000 Then = 000 End If End If End If = True End If End Sub 對 GSM 模塊發(fā)指令則只需要用 到 MSComm 控件的 output 屬性即可，將其在mand 控件中 調用 ，代碼如下： Private Sub CommandMSCSend_Click() If = True Then = Trim() + vbCr + vbLf Else MsgBox (請先打開串口 ) End If End Sub VB 實現對 GSM 模塊短信的收發(fā) GSM 模塊短信收發(fā)規(guī)則： AT+CMGF 命令解釋：設置短信格式 命令格式： AT+CMGF=mode（ 0PDU 格式 1text 格式） 命令返回： OK ERROR 設置短信格式 AT+CMGS 命令解釋：發(fā)送短信 命令格式： AT+CMGS=da[,toda]CR Text is enteredctrlz/ESC 命令返回： +CMGS:mr[,scts] +CMS ERROR:err OK ERROR 32 測試結果： a. AT+CMGS=13510090403CR ctrlz +CMS ERROR:500 命令錯誤； b. AT+CMGS=13510090403CR IT IS TEST NOWctrlz +CMGS: 235 OK AT+CMGR 命令解釋：讀短信 命令格式： AT+CMGR=indes 命令返回： +CMGS:stat,[alpha],length]CRLFpdu +CMS ERROR:err OK ERROR 測試結果： a. AT+CMGR=5 +CMS ERROR:500 命令錯誤， 5號短信位置為空； b. AT+CMGR=2 +CMGL: 2,REC READ,+8613682326205,N?R,03/08/28 17:30:35+00 998B76844F60002E518D5FCD5FCD5427+CMGS: 235 OK 讀出 2號短信； AT+CMGD 命令解釋：刪除短信 命令格式： AT+CMGD=index 命令返回： +CMS ERROR:err OK ERROR 測試結果： AT+CMGD=1 OK 33 1 號短信被刪除； 以上出發(fā)送短信特別外，其余 AT 指令的 VB 代碼均為： =AT+CMGD+VBCRLF 格式，都已回車換行（ vbcrlf=chr（ 13） +chr（ 10） =hex（ 0D0A） ）結尾；發(fā)送短信的 AT 指令結尾格式為： AT+CMGS=“ 號碼 ” 發(fā)送短消息的字節(jié)數 短信內容 H(1A)/CTRL+Z/CHR(26) 結束符號 其 VB 代碼為： Private Sub Commandsendsms_Click() 39。發(fā)短信 If = True Then = at+cmgs= amp。 Chr$(34) amp。 amp。 Chr$(34) amp。 vbCr Sleep (100) = amp。 Chr$(26) Sleep (100) = + + // + + // + Format(Now) + vbCrLf Else MsgBox (請先打開串口 ) End If End Sub 發(fā)送短信時其實是分為兩段控制的，在第一次發(fā)送 AT 發(fā)送短信的指令后要等待 GSM 應答 ，其標志字符為“ ” ,收到該字符后才能繼續(xù)發(fā)送短信內容；故此這里程序使用了 Sleep 延時函數調用延時來實現“兩段化”。 這里可以結合上面AT指令有關發(fā)送短信的介紹以及 VB 代碼一起理解。 VB 界面設計 VB 整體界面如下圖 47 所示： 34 整個界面包括串口設置區(qū)、 GSM 模塊調試區(qū)、數據庫打開按鈕、遠程監(jiān)控短信發(fā)送控制區(qū)、 VB與組態(tài)王數據交互區(qū)以及反饋短信定時發(fā)送區(qū)。 VB 數據庫的建立 圖 47 遠程監(jiān)控系統(tǒng) VB 界面 1 圖 48 數據庫界面 35 ADO 數據庫 控件 ADO（ ActiveX Data Object）數據訪問接口是 Microsoft 處理數據庫信息的最新技術，它是一種 ActiveX 對象，采用了被稱為 OLEDB 的數據庫訪問模式，是數據庫訪問對象 DAO、遠程數據對象 RDO 和開放數據庫互連 ODBC 三種方式的擴展。 ADO 對象模型定義了一個 可編程的分層對象集合，主要由三個對象成員Connection、 Command 和 Recordset 對象組成，對象描述如下圖 48所示： 在使用 ADO 數據控件前，必須通過“工程 |部件”菜單命令選擇“ Microsoft ActiveX Data Objects Library” 選項，將 ADO 數據控件添加到工具箱 圖 410 添加 ADO 控件 圖 49 ADO 對象描述表 36 ADO 數據庫控件屬性 ConnectionString 用來與數據庫建立連接，它包括 4個參數： Provide—— 指定數據源的名稱 FileName—— 指定數據源所對應的文件名 RemoteProvide—— 在遠程數據服務器打開一個客戶端時所用的數據源名稱 RemoteServer—— 在遠程數據服務器打開一個主機端時所用的數據源名稱 RecordSource 確定具體可訪問的數據，可以是數據庫中的單個表名、一個存儲查詢或一個 SQL 查詢字符串 ConnectionTimeout 設置數據連接的超時時間，若在指定時間內連接不成功則顯示超時信息 MaxRecords 確定從一個查詢中最多能返回的記錄數 對 ADODC 的屬性設置可以通過右鍵控件選擇 ADODC 屬性選項來設置，也可以直接通過代碼進行設置，其代碼如下： = Provider=。Data Source= + + \。Persist Security Info=False = adCmdTable = 控制號碼庫 其中 Jet 引擎是 VB 數據庫應用程序的組成核心 ， 37 DataSource 中的 的功能是打開工程目錄下的文件 選擇 Access 文件 ，數據源 CommandType 屬性值為： 8 :adcmdunkown 產生 Recordsource 命令類型未知，通常使