【正文】 Persist Security Info=False = adCmdTable = 控制號碼庫 其中 Jet 引擎是 VB 數(shù)據(jù)庫應(yīng)用程序的組成核心 ， 37 DataSource 中的 的功能是打開工程目錄下的文件 選擇 Access 文件 ，數(shù)據(jù)源 CommandType 屬性值為： 8 :adcmdunkown 產(chǎn)生 Recordsource 命令類型未知，通常使用。 ADO 對象模型定義了一個 可編程的分層對象集合，主要由三個對象成員Connection、 Command 和 Recordset 對象組成，對象描述如下圖 48所示： 在使用 ADO 數(shù)據(jù)控件前，必須通過“工程 |部件”菜單命令選擇“ Microsoft ActiveX Data Objects Library” 選項(xiàng)，將 ADO 數(shù)據(jù)控件添加到工具箱 圖 410 添加 ADO 控件 圖 49 ADO 對象描述表 36 ADO 數(shù)據(jù)庫控件屬性 ConnectionString 用來與數(shù)據(jù)庫建立連接，它包括 4個參數(shù)： Provide—— 指定數(shù)據(jù)源的名稱 FileName—— 指定數(shù)據(jù)源所對應(yīng)的文件名 RemoteProvide—— 在遠(yuǎn)程數(shù)據(jù)服務(wù)器打開一個客戶端時所用的數(shù)據(jù)源名稱 RemoteServer—— 在遠(yuǎn)程數(shù)據(jù)服務(wù)器打開一個主機(jī)端時所用的數(shù)據(jù)源名稱 RecordSource 確定具體可訪問的數(shù)據(jù)，可以是數(shù)據(jù)庫中的單個表名、一個存儲查詢或一個 SQL 查詢字符串 ConnectionTimeout 設(shè)置數(shù)據(jù)連接的超時時間，若在指定時間內(nèi)連接不成功則顯示超時信息 MaxRecords 確定從一個查詢中最多能返回的記錄數(shù) 對 ADODC 的屬性設(shè)置可以通過右鍵控件選擇 ADODC 屬性選項(xiàng)來設(shè)置，也可以直接通過代碼進(jìn)行設(shè)置，其代碼如下： = Provider=。 VB 界面設(shè)計 VB 整體界面如下圖 47 所示： 34 整個界面包括串口設(shè)置區(qū)、 GSM 模塊調(diào)試區(qū)、數(shù)據(jù)庫打開按鈕、遠(yuǎn)程監(jiān)控短信發(fā)送控制區(qū)、 VB與組態(tài)王數(shù)據(jù)交互區(qū)以及反饋短信定時發(fā)送區(qū)。 Chr$(26) Sleep (100) = + + // + + // + Format(Now) + vbCrLf Else MsgBox (請先打開串口 ) End If End Sub 發(fā)送短信時其實(shí)是分為兩段控制的，在第一次發(fā)送 AT 發(fā)送短信的指令后要等待 GSM 應(yīng)答 ，其標(biāo)志字符為“ ” ,收到該字符后才能繼續(xù)發(fā)送短信內(nèi)容；故此這里程序使用了 Sleep 延時函數(shù)調(diào)用延時來實(shí)現(xiàn)“兩段化”。 Chr$(34) amp。 Chr$(34) amp。數(shù)據(jù)采集進(jìn) access 表 (串口數(shù)據(jù) ) = 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 控件中 調(diào)用 ，代碼如下： Private Sub CommandMSCSend_Click() If = True Then = Trim() + vbCr + vbLf Else MsgBox (請先打開串口 ) End If End Sub VB 實(shí)現(xiàn)對 GSM 模塊短信的收發(fā) GSM 模塊短信收發(fā)規(guī)則： AT+CMGF 命令解釋：設(shè)置短信格式 命令格式： AT+CMGF=mode（ 0PDU 格式 1text 格式） 命令返回： OK ERROR 設(shè)置短信格式 AT+CMGS 命令解釋：發(fā)送短信 命令格式： AT+CMGS=da[,toda]CR Text is enteredctrlz/ESC 命令返回： +CMGS:mr[,scts] +CMS ERROR:err OK ERROR 32 測試結(jié)果： 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 測試結(jié)果： 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 測試結(jié)果： AT+CMGD=1 OK 33 1 號短信被刪除； 以上出發(fā)送短信特別外，其余 AT 指令的 VB 代碼均為： =AT+CMGD+VBCRLF 格式，都已回車換行（ vbcrlf=chr（ 13） +chr（ 10） =hex（ 0D0A） ）結(jié)尾；發(fā)送短信的 AT 指令結(jié)尾格式為： AT+CMGS=“ 號碼 ” 發(fā)送短消息的字節(jié)數(shù) 短信內(nèi)容 H(1A)/CTRL+Z/CHR(26) 結(jié)束符號 其 VB 代碼為： Private Sub Commandsendsms_Click() 39。判斷是否有新短信進(jìn)來 = AT+CMGR= + Trim(Mid$(buf, 15, 2)) + vbCr + vbLf 39。在該控件的對象庫中也可以找到這些 常量 ； VB 實(shí)現(xiàn)對 GSM 模 塊的控制 利用 MSComm 控件的 input 和 output 等屬性 通過串口實(shí)現(xiàn)與 TC35 的通信，程序工作流程圖 44所示 ： 每個事件控制不同的“動作”， 如利用定時器對串口進(jìn)行定時掃描，當(dāng)串口有數(shù)據(jù)接收時，則執(zhí)行程序， 串口數(shù)據(jù)接收定時器 TimerMSCreceive 的 工作流程如圖 45 所示： , amp。 , amp。 , amp。 串 口控件的使用 MSComm 控件 屬性描述 ： CommPort 設(shè)置或返回通信端口號 ； Settings 以字符串的形式設(shè)置或返回 波特率 、 奇偶校驗(yàn) 、 數(shù)據(jù)位 和停止位 ； PortOpen 設(shè)置或返回通信端口的狀態(tài)。如果應(yīng)用程序需要訪問多個串行端口，必須使用多個 MSComm 控件。 示例： 發(fā)送： AT CR LF 27 接收到： AT CR LF OK LF（通信成功） 接收到： AT CR LF ERROR LF（通信失?。? VB 與 GSM 模塊的互連通訊 串口控件介紹 MSComm 控件通過串行端口傳輸和接收數(shù)據(jù)，為應(yīng)用程序提供串行通信功能，可以連接到其他通信設(shè)備（如 Modem）．還可以發(fā)送命令、進(jìn)行數(shù)據(jù)交換以及監(jiān)視和響應(yīng)在通信過程中可能發(fā)生的各種錯誤和事件，從而可以用它創(chuàng)建全雙工 、事件驅(qū)動的、高效實(shí)用的通信程序。 每個 AT命令行中只能包含一條 AT指令；對于 由終端設(shè)備 主動向 PC端報告的 URC 指示或者 response 響應(yīng)，也要求一行最多有一個，不允許上報的一行中有多條指示或者響應(yīng) 。AT 指令集是 從終端設(shè)備 （ Terminal Equipment， TE)或數(shù)據(jù)終端設(shè)備 （ Data Terminal Equipment， DTE)向終端適配器 (Terminal Adapter， TA)或數(shù)據(jù)電路終端設(shè)備 (Data Circuit Terminal Equipment， DCE)發(fā)送的。 在不需要額外硬件電路 的前提下 ,可支持 FR,HR 和 EFR 語音信道編碼 。 TC35 模塊 主要由 GSM 基帶處理器 ,GSM 射頻模塊 ,供電模塊 (ASIC),閃存 ,ZIF連接器 ,天線接口六部分組成 。 模塊有 AT 命令集接口 ,支持文本和 PDU 模式的短消息 ,第三組的二類傳真 ,以及 , 的非透明模式 。 圖 43 ActiveX控件窗口 26 GSM 模塊介紹 GSM 模塊簡介 TC35 是 Siemeils 公司推出的新 代無線通信 GSM 模塊 ， 自帶 RS232 通訊接口 ,可以方便地與 PC 機(jī) ,單片機(jī)連機(jī)通訊 。本次設(shè)計所用到的 MSComm 控件就是按這種方法添加的，具體操作步驟如下： (1) 在 Visual Basic 系統(tǒng)菜單下，依次選擇【工程】→【部件】菜單選項(xiàng)，打開“部件”窗口，如圖 43所示； (2) 在“部件”窗口，選擇要添加的 ActiveX 控件， MSComm 控件就勾選Microsoft Comm Contol 項(xiàng)， 單擊“確定”按鈕，被選中的 ActiveX 控件就會裝載到工具箱中供后續(xù)程序設(shè)計使用。 尤 其是文件管理、多媒體技術(shù)、數(shù)據(jù)庫技術(shù)的應(yīng)用，通確定算法 Y Y Y N N N 開始 分析問題 提出算法 編寫程序 調(diào)試運(yùn)行 結(jié)束 正確 正確 正確 圖 42 程序設(shè)計的一般步驟 25 常要依賴 ActiveX 控件才能得以實(shí)現(xiàn)。詳細(xì)設(shè)計階段的一般步驟如下： (1) 分析問題：對實(shí)際問題進(jìn)行詳細(xì)分析； 圖 41 集成開發(fā)環(huán)境 24 (2) 提出算法：找到解決問題的算法； (3) 確定算法：對算法進(jìn)行分析，嚴(yán)重其正確性，給出最佳算法； (4) 編寫程序：選擇一種程序設(shè)計語言，描述“數(shù)據(jù)結(jié)構(gòu)”和“算法”； (5) 運(yùn)行調(diào)試：保證程序的正確性。程序設(shè)計就是詳細(xì)設(shè)計階段應(yīng)完成的任務(wù)。 工程代碼的基本結(jié)構(gòu)又分順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、子過程和函數(shù)過程。工程或工程組有時由多個對象組成，而每一個對象必須要描述屬性、事件和方法 3個要素。 Visual Basic 的集成開發(fā)環(huán)境 (IDE)于 Windows 環(huán)境下的許多應(yīng)用程序相似，同樣具有標(biāo)題欄、菜單欄、工具欄、快捷菜單，除此之外，它還有工具箱、工程瀏覽器窗口、屬性窗口、窗體布局窗口、立即窗口、窗體設(shè)計器窗口、代碼編輯窗口等，如圖 41所示。 Visual Basic 已經(jīng)是非常成熟穩(wěn)定的開發(fā)系統(tǒng)，能讓企業(yè)快速建立多層的系統(tǒng)以及 Web 應(yīng)用程序，成為當(dāng)前 Windows 上最流行的 Visual Basic 版本。該版本包括專業(yè)版的全部功能，同時具有自動化管理器、部件管理器、數(shù)據(jù)庫管理工具等。 程序員 可以輕松的使用 VB提供的組件快速建立一個應(yīng)用程序。它源自于 BASIC 編程語言 。 22 4 PC 端 VB界面的設(shè)計與開發(fā) Visual Basic 開發(fā)環(huán)境 簡介 Visual Basic 中文企業(yè)版 Visual Basic 是一種由 微軟 公司開發(fā)的包含協(xié)助 開發(fā)環(huán)境 的 事件驅(qū)動 編程語言 。 圖 51 PLC IO 表（組態(tài)部分） 圖 52 PLC 程序節(jié)選