【正文】 id(smsg, si, 1))　If Abs(stmp) 127 Then　stemp = 00 amp。 Hex(stmp)　Else　stemp = Hex(stmp)End If　ascg = ascg amp。 stemp　Next si　ascg = Trim(ascg)End Function 短信接收函數(shù)相對于短信的發(fā)送函數(shù)而言，短信的接收相當簡單，只需要以下的三行代碼就完成了。但是它使用的技術卻決不比短信的發(fā)送少，這里主要用到了Msm控件的Output屬性和AT+CMGR指令。Public Sub readsms(rnum As String)　 = AT+CMGF=1 + vbCr　 = AT+CMGR= amp。 rnum + vbCrEnd Sub　?。骸x變量Dim bb_b 39。unicode轉換變量Dim vv(1) As Byte 39。 換行符Dim ac(0) As Byte 39。刪除符Dim av(0) As Byte 39。08Dim adv(0) As Byte 39。0dDim ert(0) As ByteDim biaiDim byu(5)Dim c_cDim mmaDim cedDim reahDim rucDim TOOP(2)Dim opDim biaoDim opqDim read‘結束按鈕39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。使用命令按鈕控件39。關閉通信端口39。結束系統(tǒng)39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。Private Sub cmdEnd_Click() = False EndEnd Sub‘發(fā)送按鈕39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。使用命令按鈕控件39。將定時器控件的啟動/關閉狀態(tài)作切換39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。Private Sub Command1_Click()Dim weq(0) As Bytebiai = 0Call aaIf biai = 4 Then = av 39。判斷發(fā)送中文End If = ac 39。發(fā)送FD = ertIf ert(0) = 4 Then 39。判斷目標碼是否是4 = adv = 86 amp。 39。電話號碼End IfIf biai 4 Then = bb_bElseFor a = 1 To Len(bb_b)weq(0) = amp。h amp。 Mid(bb_b, a, 2) = weqa = a + 1NextEnd If = vvEnd Sub‘清除按鈕Private Sub Command2_Click() = = End Sub39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。窗體窗體的加載事件39。打開通信端口，通信端口的參數(shù)也可以在此指定之后39。再行打開通信端口39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。Private Sub Form_Load() = True ac(0) = amp。HFDvv(0) = amp。HDvv(1) = amp。HAav(0) = amp。H8adv(0) = amp。HDert(0) = amp。H4End Sub39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。定時器的Timer事件程序39。此事件會在每一個Interval屬性值的間隔內被調用一次39。程序檢查輸入緩沖區(qū)中是否有數(shù)據(jù)，若有數(shù)據(jù)39。則將此數(shù)據(jù)讀取后，指定給文本框的Text屬性39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。Private Sub Timer1_Timer()Dim i As Longinbyte = For i = LBound(inbyte) To UBound(inbyte)rty = Len(Hex(inbyte(i)))If rty = 1 Thenruc = ruc amp。 0 amp。 Hex(inbyte(i))Elseruc = ruc amp。 Hex(inbyte(i))End IfNext ircu = InStr(ruc, 0D0A)If rcu 2 Thenread = Left(ruc, rcu 1)Call curuc = Right(ruc, Len(ruc) rcu 3)End IfEnd SubPublic Sub cu()g = Len(read)GC = InStr(read, 433E) 39。處理中文gd = InStr(read, 453E) 39。處理英文If gd 2 Thengg = Left(read, gd 1)For v = 1 To Len(read)a = a amp。 Chr(amp。h amp。 (Mid(read, v, 2)))v = v + 1Nextgg = aElseIf GC 2 Thengg = Left(read, GC 1 + 4)For v = 1 To Len(gg)a = a amp。 Chr(amp。h amp。 (Mid(gg, v, 2)))v = v + 1Nextread = Right(read, Len(read) GC 3)gg = aFor a = 1 To Len(read)cc = cc amp。 ChrW(amp。h amp。 (Mid(read, a, 4))) 39。中文信息a = a + 3NextElseFor op = 1 To Len(read)gg = gg amp。 Chr(amp。h amp。 Mid(read, op, 2))op = op + 1NextEnd If = amp。 gg amp。 cc amp。 Chr(13) amp。 Chr(10)End Sub39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。中文處理成Unicode碼39。英文不處理39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。Public Sub aa()bb_b = cc = b = Len(cc)For bb = 1 To bb_b = Mid(cc, bb, 1)b_bb = AscW(b_b)If b_bb 0 And b_bb 128 Thenbbb = 00 amp。 Hex(AscW(b_b))ElseIf biai 4 Thenbiai = 4End Ifbbb = Hex(AscW(b_b))End Ifbb_b = bb_b amp。 bbbNextIf biai 4 Thenbb_b = End IfEnd Sub 實現(xiàn)系統(tǒng)功能的調試 對于VB的調試，此軟件提供了兩種方式：逐語句、逐過程。在調試時可以提供斷點，來逐步檢查一段一段的程序，這對龐大的系統(tǒng)程序非常有用，當有錯誤時光標將移動到錯誤行以方便調試，就這樣直到全部程序無錯誤。調試成功后，可以點擊運行按鈕，來運行全部的程序，以實現(xiàn)其功能。 最終達到的結果 本次設計成功的利用了VB來開發(fā)了一套實現(xiàn)短信息收發(fā)功能的信息系統(tǒng)，能夠通過PC機接收和發(fā)送短信。達到了預期的結果。
功能實現(xiàn)演示如下:打開短信息收發(fā)界面如圖所示。發(fā)送信息界面如下圖：接收信息如下圖：總結本次畢業(yè)設計是針對高度自動化進行控制系統(tǒng)的一小部分進行了設計，此產品廣泛應用于自動控制的各個領域，實現(xiàn)了遠距離無線控制。此次設計基本上達到了預期的目的，實現(xiàn)了其基本的功能。另外由于此次設計實現(xiàn)的功能簡單，還有許多功能可以進行在此基礎上進行擴展。此次設計不僅僅是一個應用程序編寫的過程，更重要的是在系統(tǒng)的分析和設計階段所做的工作。我們將充分利用Visual Basic在應用程序開發(fā)上的靈活和效率高的特點。VB是一個面向對象的可視化設計與面向對象的語言相結合的集成開發(fā)環(huán)境。通過本次設計，我對VB的可視化編程有了深刻的認識。致謝本次論文的完成，首先感謝母?！髂鲜痛髮W的辛勤培育，感謝電子信息工程學院給我提供了很好的環(huán)境，并非常感謝我的指導老師焦培林老師和輔導老師呂金萍老師耐心的指導和諄諄教誨。經過3個月的努力，我的畢業(yè)設計和論文終于完成了，雖然這個過程是漫長和枯燥的，但是每天覺得過的特別充實。畢業(yè)設計的順利完成使我獲得很多平時沒有學到的知識。畢業(yè)設計是大學4年所學知識的綜合運用，也是理論走向實踐的第一步，為以后走向工作崗位奠定了基礎。經過此次畢業(yè)設計，使我對無線通信和無線自動控制方面的知識有了很深的理解。此次設計是在指導老師焦老師和輔導老師呂老師的指導下完成的，指導老師焦培林老師淵博的知識，誠懇的為人，使我受益匪淺，在學習和生活上都給予我很大的幫助和照顧，同時還得到同學們的支持和幫助，使我度過了一個又一個的難關。鑒于我的水平有限，難免存在一些錯誤和漏洞，望各位老師不吝賜教，在此向大家表示忠心的感謝。參考文獻[1] Basic [2] 李旭暉、高仁忠、 [3] Mark [4] [5] 黃菇云、張學忠、 [6] 范逸之、 Basic與RS232 [7] 鐘震宇、[8] 范逸之、 [9] 劉圣才、 Basic [10]