【導(dǎo)讀】虛作假、抄襲的情況，本人愿承擔(dān)全部責(zé)任。象，本人愿承擔(dān)指導(dǎo)教師的相關(guān)責(zé)任。

　　

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