【文章內(nèi)容簡(jiǎn)介】 軟件控制現(xiàn)場(chǎng)的動(dòng)作，所以在PLC程序中加入一系列的輔助繼電器M，用來(lái)完成上位機(jī)控制下位機(jī)的目的；圖51 PLC IO表（組態(tài)部分）具體程序如下：圖52 PLC程序節(jié)選 程序中X035為外部按鈕控制主軸正轉(zhuǎn)，M9為數(shù)控系統(tǒng)上位機(jī)控制PLC用輔助繼電器，M109為監(jiān)控系統(tǒng)組態(tài)控制PLC用。 本章主要闡述了監(jiān)控系統(tǒng)組態(tài)部分的設(shè)計(jì)。從組態(tài)界面概述、組態(tài)變量、DDE連接設(shè)置、監(jiān)控畫(huà)面的設(shè)計(jì)以及下位機(jī)PLC程序5個(gè)部分闡述說(shuō)明了監(jiān)控系統(tǒng)組態(tài)部分的結(jié)構(gòu)，同時(shí)介紹了實(shí)現(xiàn)上位組態(tài)軟件控制PLC所添加的輔助繼電器，在數(shù)控系統(tǒng)原有兩種控制的基礎(chǔ)上所添加的第三種組態(tài)控制。4 PC端VB界面的設(shè)計(jì)與開(kāi)發(fā) Visual Basic Visual Basic 中文企業(yè)版Visual Basic是一種由微軟公司開(kāi)發(fā)的包含協(xié)助開(kāi)發(fā)環(huán)境的事件驅(qū)動(dòng)編程語(yǔ)言。從任何標(biāo)準(zhǔn)來(lái)說(shuō)，VB都是世界上使用人數(shù)最多的語(yǔ)言——不僅是盛贊VB的開(kāi)發(fā)者還是抱怨VB的開(kāi)發(fā)者的數(shù)量。它源自于BASIC編程語(yǔ)言。VB擁有圖形用戶(hù)界面（GUI）和快速應(yīng)用程序開(kāi)發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫(kù)，或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個(gè)應(yīng)用程序。該版本是供專(zhuān)業(yè)編程人員開(kāi)發(fā)功能強(qiáng)大的組內(nèi)分布式應(yīng)用程序。該版本包括專(zhuān)業(yè)版的全部功能，同時(shí)具有自動(dòng)化管理器、部件管理器、數(shù)據(jù)庫(kù)管理工具等。因此選擇此種版本可以獲得最大量的工具和支持。Visual Basic 已經(jīng)是非常成熟穩(wěn)定的開(kāi)發(fā)系統(tǒng)，能讓企業(yè)快速建立多層的系統(tǒng)以及 Web 應(yīng)用程序，成為當(dāng)前 Windows 上最流行的 Visual Basic 版本。 Visual Basic 。Visual Basic 的集成開(kāi)發(fā)環(huán)境(IDE)于Windows環(huán)境下的許多應(yīng)用程序相似，同樣具有標(biāo)題欄、菜單欄、工具欄、快捷菜單，除此之外，它還有工具箱、工程瀏覽器窗口、屬性窗口、窗體布局窗口、立即窗口、窗體設(shè)計(jì)器窗口、代碼編輯窗口等，如圖41所示。圖 41 Visual Basic 程序的基本結(jié)構(gòu)和設(shè)計(jì)一般步驟Visual Basic程序以工程組或工程為基本元素。工程或工程組有時(shí)由多個(gè)對(duì)象組成，而每一個(gè)對(duì)象必須要描述屬性、事件和方法3個(gè)要素。其中，事件程序代碼基本結(jié)構(gòu)如下：(1) 變量聲明；(2) 工程說(shuō)明；(3) 模塊；(4) 工程代碼。工程代碼的基本結(jié)構(gòu)又分順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、子過(guò)程和函數(shù)過(guò)程。從軟件工程角度講，軟件的生產(chǎn)工程大致經(jīng)過(guò)可行性分析、需求分析、規(guī)劃設(shè)計(jì)、詳細(xì)設(shè)計(jì)、實(shí)現(xiàn)、組裝測(cè)試、確認(rèn)測(cè)試、使用和維護(hù)等。程序設(shè)計(jì)就是詳細(xì)設(shè)計(jì)階段應(yīng)完成的任務(wù)。程序設(shè)計(jì)的一般步驟如圖42所示。詳細(xì)設(shè)計(jì)階段的一般步驟如下： (1) 分析問(wèn)題：對(duì)實(shí)際問(wèn)題進(jìn)行詳細(xì)分析；(2) 提出算法：找到解決問(wèn)題的算法；(3) 確定算法：對(duì)算法進(jìn)行分析，嚴(yán)重其正確性，給出最佳算法；(4) 編寫(xiě)程序：選擇一種程序設(shè)計(jì)語(yǔ)言，描述“數(shù)據(jù)結(jié)構(gòu)”和“算法”；確定算法YYYNNN開(kāi)始分析問(wèn)題提出算法編寫(xiě)程序調(diào)試運(yùn)行結(jié)束正確正確正確圖 42 程序設(shè)計(jì)的一般步驟(5) 運(yùn)行調(diào)試：保證程序的正確性。 ActiveX應(yīng)用控件的介紹ActiveX控件是針對(duì)基本內(nèi)部控件的擴(kuò)充，它可以支持設(shè)計(jì)工具條、目錄樹(shù)、選項(xiàng)卡等常用功能界面。尤其是文件管理、多媒體技術(shù)、數(shù)據(jù)庫(kù)技術(shù)的應(yīng)用，通常要依賴(lài)ActiveX控件才能得以實(shí)現(xiàn)。使用ActiveX控件，要先將ActiveX控件添加到工具箱，其后與內(nèi)部控件使用方法一樣，同樣也是要設(shè)計(jì)控件的屬性、事件和方法，但是ActiveX控件除了在“屬性”窗口定義相關(guān)的屬性外，還要通過(guò)ActiveX控件專(zhuān)門(mén)的“屬性頁(yè)”窗口，定義其特有的屬性。本次設(shè)計(jì)所用到的MSComm控件就是按這種方法添加的，具體操作步驟如下：圖43 ActiveX控件窗口(1) 在Visual Basic 系統(tǒng)菜單下，依次選擇【工程】→【部件】菜單選項(xiàng)，打開(kāi)“部件”窗口，如圖43所示；(2) 在“部件”窗口，選擇要添加的ActiveX控件，MSComm控件就勾選Microsoft Comm Contol ，單擊“確定”按鈕，被選中的ActiveX控件就會(huì)裝載到工具箱中供后續(xù)程序設(shè)計(jì)使用。上圖中Microsoft ADO Data Control ，Microsoft DataGrid Control ，此外還加載了數(shù)據(jù)綁定列表框控件（DataList）和數(shù)據(jù)綁定組合框控件（DataCombo）。 GSM模塊介紹 GSM模塊簡(jiǎn)介T(mén)C35是Siemeils公司推出的新代無(wú)線(xiàn)通信GSM模塊，自帶RS232通訊接口,可以方便地與PC機(jī),單片機(jī)連機(jī)通訊?？梢钥焖?、安全、可靠地實(shí)現(xiàn)系統(tǒng)方案中的數(shù)據(jù),語(yǔ)音傳輸,短消息服務(wù)(Short Message Service)—,可以工作在900MHz和1800MHz兩個(gè)頻段,所在頻段功耗分別為2w(900M)和1w(1800M)。模塊有AT命令集接口,支持文本和PDU模式的短消息,第三組的二類(lèi)傳真,。此外,該模塊還具有電話(huà)簿功能,多方通話(huà),漫游檢測(cè)功能,常用工作模式有省電模式,IDLE,實(shí)現(xiàn)電源連接,指令,數(shù)據(jù),語(yǔ)音信號(hào),可分別連接SIM卡支架和天線(xiàn)。TC35模塊主要由GSM基帶處理器,GSM射頻模塊,供電模塊(ASIC),閃存,ZIF連接器,天線(xiàn)接口六部分組成。作為T(mén)C35的核心,基帶處理器主要處理GSM終端內(nèi)的語(yǔ)音,數(shù)據(jù)信號(hào),并涵蓋了蜂窩射頻設(shè)備中的所有的模擬和數(shù)字功能。在不需要額外硬件電路的前提下,可支持FR,HR和EFR語(yǔ)音信道編碼。 AT指令簡(jiǎn)介AT 即Attention,AT指令一般應(yīng)用于終端設(shè)備與PC應(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ā)送的。其對(duì)所傳輸?shù)臄?shù)據(jù)包大小有定義：即對(duì)于A(yíng)T指令的發(fā)送，除AT兩個(gè)字符外，最多可以接收1056個(gè)字符的長(zhǎng)度（包括最后的空字符）。每個(gè)AT命令行中只能包含一條AT指令；對(duì)于由終端設(shè)備主動(dòng)向PC端報(bào)告的URC指示或者response響應(yīng)，也要求一行最多有一個(gè)，不允許上報(bào)的一行中有多條指示或者響應(yīng)。AT指令以回車(chē)作為結(jié)尾，響應(yīng)或上報(bào)以回車(chē)換行為結(jié)尾。示例：發(fā)送：AT CR LF接收到：AT CR LF OK LF（通信成功）接收到：AT CR LF ERROR LF（通信失?。?VB與GSM模塊的互連通訊 串口控件介紹MSComm控件通過(guò)串行端口傳輸和接收數(shù)據(jù)，為應(yīng)用程序提供串行通信功能，可以連接到其他通信設(shè)備（如Modem）．還可以發(fā)送命令、進(jìn)行數(shù)據(jù)交換以及監(jiān)視和響應(yīng)在通信過(guò)程中可能發(fā)生的各種錯(cuò)誤和事件，從而可以用它創(chuàng)建全雙工 、事件驅(qū)動(dòng)的、高效實(shí)用的通信程序。每個(gè)使用的MSComm控件對(duì)應(yīng)著一個(gè)串行端口。如果應(yīng)用程序需要訪(fǎng)問(wèn)多個(gè)串行端口，必須使用多個(gè)MSComm控件?？梢栽赪indows“控制面板”中改變端口地址和中斷地址。 串口控件的使用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è)置代碼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所示：條件滿(mǎn)足YNNY啟動(dòng)載入窗體等待事件發(fā)生調(diào)用函數(shù)或過(guò)程？執(zhí)行事件執(zhí)行函數(shù)或過(guò)程定時(shí)器事件按鈕事件組合框事件第三方控件事件圖 44 工作機(jī)制流程圖每個(gè)事件控制不同的“動(dòng)作”，如利用定時(shí)器對(duì)串口進(jìn)行定時(shí)掃描，當(dāng)串口有數(shù)據(jù)接收時(shí)，則執(zhí)行程序，串口數(shù)據(jù)接收定時(shí)器TimerMSCreceive的工作流程如圖45所示：定時(shí)器工作InBufferCount屬性值是否為0NY將Input里的值取出放入變量text內(nèi)串口數(shù)據(jù)用Text控件的text屬性顯示N串口數(shù)據(jù)中是否有+CMTI:字符串Y通過(guò)MSComm的output屬性對(duì)TC35發(fā)送讀短信指令N是否復(fù)選框上的控制號(hào)碼發(fā)送來(lái)的Y數(shù)據(jù)入庫(kù)定時(shí)器工作結(jié)束圖45 定時(shí)器TimerMSCreceive工作流程圖定時(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 (時(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 IfEnd 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測(cè)試結(jié)果：a. AT+CMGS=13510090403CR ctrlz +CMS ERROR:500 命令錯(cuò)誤； b. AT+CMGS=13510090403CR IT IS TEST NOWctrlz+CMGS: 235OKAT+CMGR命令解釋?zhuān)鹤x短信