【導(dǎo)讀】隨著通信行業(yè)的不斷發(fā)展，串口通信越來越成熟。人們對于信息的依賴程度也變得越。來越高，所以信息的傳播速度、傳播方式、傳播范圍都有著廣闊的發(fā)展前景。本章主要研究串口通信在短信訂票行業(yè)的應(yīng)用。以開發(fā)一套軟件對短信的自動接收并自動刪除變得尤為重要。本系統(tǒng)主要是探討利用GSM. 能夠利用VB語言設(shè)置串口參數(shù)，能夠?qū)?shù)。據(jù)庫進(jìn)行收集信息，能實現(xiàn)手機與數(shù)據(jù)庫的聯(lián)系。系統(tǒng)中采用了西門子的GSM模塊的功。客戶也可以通過手機簡單地發(fā)送一條短信訂到車票，系統(tǒng)管理員也可以通。過數(shù)據(jù)庫查到相應(yīng)的客戶需求。

　　

【正文】 Unicode碼轉(zhuǎn)換成國標(biāo)字，由于收到的短信是以 Unicode 的方式放在緩沖區(qū)中，其中每四個 Unicode碼 就會組成一個漢字，所以解碼時必須是每四位解碼組成一個漢字，才能夠得到信息的內(nèi)容。 Chrw（）的返回值是以字符串的形式返回的。 對截取的用戶數(shù)調(diào)用如下程序便可譯碼： Public Function ToGB(ByVal strcon As String) 39。對收到的短信內(nèi)容進(jìn)行中文解碼 Dim Gkstr As String 五邑大學(xué)本科畢業(yè)設(shè)計 17 Dim hanzi As String Dim k As Integer Dim shiliu As String For k = 0 To (Len(strcon) 4) / 4 Gkstr = Mid(strcon, (k * 4) + 1, 4) 39。每四位解碼為漢字組成字符串 shiliu = Val(amp。H amp。 Gkstr) 39。val 函數(shù)與 HEX 函數(shù)相反 hanzi = hanzi amp。 ChrW(shiliu) 39。chrw 是轉(zhuǎn)換為國標(biāo)字的函數(shù) Next k ToGB = hanzi End Function ⑵ 對 收到的手機號碼、接收時間 實現(xiàn)反編碼 接收到的 PDU碼里面包含手機號碼和接收時間，均采用十進(jìn)制的半八位編 碼。所以解碼時只需將其相鄰的高位和低位對應(yīng)進(jìn)行交換就可以得到需要的值。由于電話號碼的位數(shù)是奇數(shù)，編碼時在其最后一位加上了 F，所以解碼時要記得去掉 “ F” 。 收到的 時間的前6 位 代表 日期，后 6 位 代表 時間，后 兩 位 代表 時區(qū)。 Public Function FhoneDecode（ ByVal Inputdata As String） As String Dim c1 As Integer Dim Tem1 As String Dim Tem2 As String Tem1=Inputdata For c1=0 To Len（ Tem1） 1 Step 2 Tem2=Tem2amp。（ StrReverse（ Mid（ Tem1， c1+1,2））） Next If Right（ Tem2,1） =”F” Then Tem2=(Tem2,Len(Tem21) End if PhoneDecode=Tem2 End Function 但是實際中，并未用到此解碼方式。在讀取短信時，用了 AT + CMGR = 1，這條指令以 Text 的模式進(jìn)行讀取。其中的手機號碼、接收時間均正常顯示，例如： AT + CMGR = 1 返回值： +CMGR: REC READ,+8615914502720,13/04/18,13:51:10+32 其中 +8615914502720便是手機號碼， 13/04/18,13:51:10+32便是時間，里面包含了時區(qū)。再用如下程序去除手機號碼中的 86 及時間中的時區(qū)。 = bList On Error Resume Next 39。一般接收的手機號碼都帶有 86，去除 If Left(MyStr(1), 3) = +86 Then 五邑大學(xué)本科畢業(yè)設(shè)計 18 MyStr(1) = Right(MyStr(1), Len(MyStr(1)) 3) End If c1 = InStr(MyStr(3), +) 39。 若接收的短信時間中含有時區(qū)，把時區(qū)去除 If c1 0 Then MyStr(3) = Left(MyStr(3), c1 1) c1 = InStr(MyStr(3), ) If c1 0 Then MyStr(3) = Left(MyStr(3), c1 1) 讀取 完， 就運用如下 的指 令 進(jìn)行取出 ，并以 一定 的格式 展現(xiàn) ： = AryList(n).SourceNo = Format(AryList(n).ReachDate, YYYYMMDD) amp。 amp。 Format(AryList(n).ReachTime, HH:MM:SS) amp。 vbCrLf 39。定義接收到短信的顯示格式 信息寫入數(shù)據(jù)庫 讀取完短信后，信息內(nèi)容會顯示在對應(yīng)的文本框中，此時一旦文本框都有數(shù)據(jù)，則連接數(shù)據(jù)庫，自動 添加 數(shù)據(jù)庫中。代碼如下： If And And Then 39。把程序放在這里，一旦不為空，則讀入數(shù)據(jù) 39。 39。 39。寫入數(shù)據(jù)庫 (信 息內(nèi)容 ) = (手機號碼 ) = (收到時間 ) = 39。 End If 數(shù)據(jù)庫信息查詢 在 SQL SERVER 數(shù)據(jù)庫中的新建 查找 中輸入 下面的 語句： USE 訂票系統(tǒng) GO SELECT *(*是代表所有的內(nèi)容，也可以輸入要查找的任何內(nèi)容 ) FROM 信息 即可查詢到對應(yīng)的信息。 五邑大學(xué)本科畢業(yè)設(shè)計 19 本章小結(jié) 本章主要對 落實 該系統(tǒng)所需的代碼進(jìn)行相應(yīng)的介紹。 GSM 模塊設(shè)置串口的主要程序、如何實現(xiàn)對 新短信到來的自動提醒 、短信的自動接收 ， 然后 對短信 進(jìn)行解碼，譯漢字、提取手機號碼、接收時間。在數(shù)據(jù)庫方面如何進(jìn)行信息寫入、查詢數(shù)據(jù) 、導(dǎo)出數(shù)據(jù) 。 五邑大學(xué)本科畢業(yè)設(shè)計 20 第 6 章 系統(tǒng)的測試 系統(tǒng) 主 界面 通過 VB 建立接收界面，首先接收到的短信顯示在接收緩 沖區(qū)信息里面，再提取需要信息進(jìn)行譯碼分別顯示在信息內(nèi)容、手機號碼、接收時間文本框上。 Adodc1 是 ADO 控件，用來使短信內(nèi)容、手機號碼、接收時間這 3 個文本框與數(shù)據(jù)庫進(jìn)行相應(yīng)連接。 圖 51 短信接收界面 系統(tǒng)測試 主要測試 沒有 短信到達(dá)時系統(tǒng)界面，新短信到達(dá)時系統(tǒng)界面，有何 提醒 ？讀取短信時顯示界面。數(shù)據(jù)庫打開界面，寫入界面。系統(tǒng)管理員如何查詢導(dǎo)出數(shù)據(jù)。 主要是對系統(tǒng) 作用 的一個展示。 未 到的 界面 系統(tǒng)沒有新短信到達(dá)時， 短信內(nèi)容、手機號碼、收到時間是空白的。此時沒有短信輸入。接收緩沖區(qū)也沒有任何提示。 系統(tǒng)界面圖 52 所示 。 五邑大學(xué)本科畢業(yè)設(shè)計 21 圖 52 讀取新短信 當(dāng)系統(tǒng)接收到新的短信，會在接收緩沖區(qū)信息文本框中顯示內(nèi)容 +CMTI： “SM”,1 說明有新短信到達(dá)，短信序號為 1。 圖 53 新短信到達(dá)界面 讀取短信界面 接收到新的短信，進(jìn)行譯碼后， 把對應(yīng)的內(nèi)容 顯示到文本框 中 如下： 五邑大學(xué)本科畢業(yè)設(shè)計 22 圖 54 讀取新短信界面 接收 到 新短信時，接收緩沖區(qū)的內(nèi)容 如 圖 55 所示 。 分別是 AT+CMGL 進(jìn)行 PDU 模式的讀取、 AT+CMGR 進(jìn)行 TEXT 模式的讀取。 兩次讀取同一條短信， 第一次讀取是為了獲得短信內(nèi)容， 進(jìn)行 PDU碼轉(zhuǎn) 成 國標(biāo)字。 第二次讀取是為了獲取手機號碼、接收時間。 圖 55 讀取新短信 當(dāng)系統(tǒng)界面的短信內(nèi)容、手機號碼、收到時間這三個文本框都存在內(nèi)容時，就會自動將接收到的短信內(nèi)容寫入數(shù)據(jù)庫， 在 數(shù)據(jù)庫中的顯示 如下： 五邑大學(xué)本科畢業(yè)設(shè)計 23 圖 56 讀取新短信 系統(tǒng)管理員通過打開數(shù)據(jù)庫，在新建查詢中輸入如圖所示的查詢語句，就會查詢到相應(yīng)的內(nèi)容， 并 顯示在下面的 查詢結(jié)果 界面上。 圖 57 信息查詢界面 系統(tǒng)管理員 對 信息內(nèi)容的管理 是 導(dǎo)出數(shù)據(jù)。在訂票系統(tǒng)數(shù)據(jù)庫中右擊，選擇任務(wù)，導(dǎo)出數(shù)據(jù)，即可導(dǎo)出一份 EXCEL 表格，進(jìn)行相應(yīng)的編輯、查詢。 同樣也可以把系統(tǒng)做得更加的完美，在系統(tǒng)界面上進(jìn)行查詢。不需要導(dǎo)出。 五邑大學(xué)本科畢業(yè)設(shè)計 24 圖 58 信息查詢界面 本章小結(jié) 本 章主要是對系統(tǒng)界面、 短信到達(dá)前、到達(dá)時、譯碼后、寫入數(shù)據(jù)庫后的展示與及 測試結(jié)果的一個描述。完全可以實現(xiàn)短信的自動讀取、自動寫入功能。當(dāng)有短信到達(dá)時也有提醒的功能。整個讀取的過程不需要人工的參 與。所以這個環(huán)節(jié)就節(jié)省了很多不必要的花費。 這就是訂票系統(tǒng)的精髓所在。 五邑大學(xué)本科畢業(yè)設(shè)計 25 結(jié)論 本系統(tǒng)的設(shè)計能夠?qū)崿F(xiàn)短信的自動接收，并且自動寫入數(shù)據(jù)庫?？蛇\用到生活中的訂票系統(tǒng)。既定發(fā)短信的規(guī)則，可以使顧客花費一條短信的費用即可訂到需要的票。不需打電話，不需花費更多的時間，客運站也不需要客服。這將便于訂票系統(tǒng)的運行。不過真正用到生活中。需要把該系統(tǒng)更加完善化，該系統(tǒng)只是訂票系統(tǒng)的大體輪廓而已。不過對于這個課題的研究使我對于新的東西更有挑戰(zhàn)的勇氣。在研究這個系統(tǒng)中遇到了很多的困難，也得到了很多的體會： ⑴ 如何使接收到的短信自動顯示在 VB 界面上 ?這里主要涉及到對 GSM 串口通信的熟悉，所以我借了好幾本關(guān)于串口通信的書，最后把相關(guān)參數(shù)學(xué)會，便進(jìn)行相應(yīng)參數(shù)的設(shè)置。 ⑵ 怎么樣才能對接收到的信息進(jìn)行解碼，顯示出來呢？對于這個問題，我學(xué)習(xí)了關(guān)于Unicode 碼的組成，進(jìn)行一步一步的分析，看過了 PDU碼的相關(guān)解碼，所以逆編碼，所以就想出了解碼的辦法。雖然對于接收到的 PDU碼也可以把短信中心、手機號碼、接收時間解出來，但是我并沒有這么做。我用了兩種方法，首先用 AT + CMGL = 0 獲取未讀信息，再用對接收到的 PDU碼進(jìn)行分析，截取用戶數(shù)長度，進(jìn)行中文內(nèi)容的解碼。然后用 AT + CMGR = 1 讀取已讀的短信， AT + CMPS = 1，獲取 Text 模式的短信，從中根據(jù)符號截取所需的手機號碼，接收時間，并以一定的格式顯示出來。再用 AT + CMGD = 1 刪除第一條已讀的短信，那么以后每當(dāng)有新的短信到來之時都會 存儲到 1 的位置。同時刪除后也不會再占用 SIM 卡的內(nèi)存。 ⑶ 當(dāng)有新短信到來時，會有提示，怎么才能自動讀取出來呢？這也是我所遇到的問題之一。后 來我想了一個辦法，新建一個窗體，叫模態(tài)窗體。當(dāng)主窗體的內(nèi)容讀完，會啟動模態(tài)窗體，模態(tài)窗體界面什么東西都沒有。同時在模態(tài)窗體中卸載主窗體。然后又重新裝載主窗體。這樣循環(huán)，所有新的短信都能夠讀取出來。 課題的設(shè)計能實現(xiàn)自動接收手機發(fā)送的短信、讀取顯示、自動寫入數(shù)據(jù)庫的功能。不用人工操作，可以省下類似接聽電話的客服費用。完成了系統(tǒng)的一些基本功能，日后可更進(jìn)一步地完善。 系統(tǒng)大體輪廓出來了，但是還是不夠完善， 這只是訂票系統(tǒng)實現(xiàn)短信自動接收、寫入 的簡單功能 。沒能實現(xiàn)發(fā)送短信的操作。日后可以試著對接收到的短信，進(jìn)行短信內(nèi) 容、客戶需求分析，而作出判斷自動反饋信息的操作。 高速、靈活并且低消費的短信服務(wù)已經(jīng)成為了一種很重要的通信手段。正越來越被更多的人所采用。 五邑大學(xué)本科畢業(yè)設(shè)計 26 致謝 四年就這樣轉(zhuǎn)眼即逝，我的讀書生涯也即將畫上句號。我的畢業(yè)設(shè)計也接近了尾聲。在過去的這一段時間里，我曾失望、焦慮、也想放棄過。但是最后還是堅持下來了。這幾個月來很感謝在身邊支持我的同學(xué)們，在我最絕望的時候，總能夠給我正能量。也很感謝我的導(dǎo)師，謝謝他在我走錯方向的時候，讓我走回了正軌。在我解決不了問題的時候給與我指點。我的導(dǎo)師認(rèn)真負(fù)責(zé)，該指點的時候給與幫助，該讓我獨 立的時候從不心軟。這讓我面對問題的時候，首先會獨立思考，自己找出解決的方案，不會一有問題就想著找人幫助。這次的設(shè)計很大程度鍛煉了我自學(xué)的能力，從開始什么都不懂，找資料，一邊做，一邊學(xué)，遇到問題就找參考書、文獻(xiàn)學(xué)習(xí)。一個一個問題突破。最后不但做出了作品，也學(xué)會了很多東西。畢業(yè)設(shè)計不但鍛煉了我們動手實踐的能力，而且讓我們變得更獨立。 五邑大學(xué)本科畢業(yè)設(shè)計 27 參考文獻(xiàn) [1] 李江全等編著 .Visual Basic 數(shù)據(jù)采集與串口通信測控應(yīng)用實戰(zhàn) .人民郵電出版社 ,. [2] 常桂英等編著 .Visual Basic 程序設(shè)計 +SQL Server 20xx 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)案例教程 .清華大學(xué)出版社 ,. [3] 李長林編著 .Visual Basic 串口通信技術(shù)與經(jīng)典實例 .清華大學(xué)出版社 ,. [4] 明日科技等編著 .Visual Basic 項目開發(fā)案例全程實錄 .第二版 .清華大學(xué)出版社， . [5] 李愛民 .基于串口通信的 SMS 短消息收發(fā)管理系統(tǒng)的研究與實現(xiàn) .山東大學(xué)碩士學(xué)位論文 .20xx.： 162 [6] 周立平 .VB 在實現(xiàn)短信收發(fā)平臺中的應(yīng)用 .灘坊學(xué)院學(xué)報 .20xx,第 9 卷（第 4 期）： 12 [7] Remote data monitoring system design based on GSM short message service[C].//20xx IEEE International Sympos