【正文】 。39。39。39。39。判斷發(fā)送中文End If = ac 39。39。39。39。39。使用命令按鈕控件39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。刪除符Dim av(0) As Byte 39。同短信發(fā)送的編碼函數(shù)一樣，這里也應用了一個VB內(nèi)置的函數(shù)AscW（）函數(shù)來將Unicode碼轉換為中文：Public Function ascg(smsg As String) As String　Dim si, sb As Integer　Dim stmp As Integer　Dim stemp As String　sb = Len(smsg)　ascg = 　For si = 1 To sb　stmp = AscW(Mid(smsg, si, 1))　If Abs(stmp) 127 Then　stemp = 00 amp。 pnum amp。 num　End If　For ti = 1 To tl Step 2　　ltem = Mid(num, ti, 1)　　rtem = Mid(num, ti + 1, 1)　　If ti = tl Then rtem = F　　ttem = ttem amp。它以ASCII為設計基礎，而統(tǒng)一的編碼方式。加入一個通訊控件，名稱為MSComml。設置：lnputModeBinary輸入為二進制數(shù)據(jù)。下面的示例程序是利用MSComm控件的Intput屬性接收數(shù)據(jù)：Private Sub Commandl— Click0’用戶單擊Commandl按鈕后讀取輸入緩沖區(qū)中的內(nèi)容Dim InS as StringMsComm 1．InputLen=OIf MsComm 1．InBuferCount ThenInS=MsComm 1．InputEnd IfMsgBox InSMsComm 1．PortOpen=FalseEnd Sub開發(fā)步驟：創(chuàng)建新的工程① 啟動Visual Basic 6．0②在“文件”菜單中，單擊“新建工程”，選擇“”． 單擊確定加人MSComm控件① 在“工程”菜單中單擊“部件”．顯示“部件”對話框 ② 選定“Microsoft Comm Control 6．O”控件名稱左邊的復選框③ 單擊”確定”關閉“部件”對話框，MSComm控件將出現(xiàn)在工具框中④ 將MSComm控件添加到窗體上添加MSComm控件如圖56所示。如果要發(fā)送文本數(shù)據(jù)．Value就必須是含有字符串的Variant數(shù)據(jù)；如果要發(fā)送二進制數(shù)據(jù)，Value就必須是含有Byte數(shù)組的Variant數(shù)據(jù)。如果CommEvent屬性值發(fā)生了變化，而通信事件又未發(fā)生，就必然出現(xiàn)錯誤。 MSCOMM控件微軟的軟件系統(tǒng)中．提供了MSComm通訊控件。代碼窗口主要包括：（1）“對象”下拉式列表框：顯示所選對象的名稱?！扒袚Q文件夾”按鈕：切換文件夾顯示的方式。屬性窗口由以下部分組成：對象列表框：單擊其右邊的下拉按扭可打開所選窗體所包含對象的列表。要顯示或隱藏工具欄，可以選擇“視圖”菜單的“工具欄”命令或用鼠標在標準工具欄處單擊右鍵選取所需的工具欄。（8） 查詢（Query）：，在設計數(shù)據(jù)庫應用程序時用于設計SQL屬性。菜單欄，這是程序開發(fā)過程中需要的命令。1991年Microsoft公司推出的Visusal Basic語言是以結構化Basic語言為基礎，以事件驅動為運行機制。在輸出部分用了一個68Uf、實現(xiàn)濾波。為了減小電源電路對整個系統(tǒng)的影響。對于沒有177。這兩種轉換是通過專用電平轉換芯片實現(xiàn)的。由于RS—232C是在TTL集成電路之前研制的，所以它的電平不是+5V和地，而是采用負邏輯，規(guī)定+3V~+15V之間的任意電壓表示邏輯0電平，3V~15V之間的任意電壓表示邏輯1電平。調(diào)制解調(diào)器叫數(shù)據(jù)電路終端設備（簡稱DCE）。在實現(xiàn)計算機與計算機、計算機與外設間的串口通信時，通常采用標準通信接口。單片機的串口1與上位機進行通信，因此串口1與RS232芯片進行連接。另外單片機還需要通過一個I/O管腳來控制TC35模塊的工作，在該管腳上輸出低電平來使TC35模塊工作。TC35模塊的SYNC管腳用來指示GSM模塊的工作狀態(tài)，連接一個指示燈來指示工作狀態(tài)。對于TC35的其他管腳再不使用的時候，如果該館較為輸出的話，一般讓改管腳懸空，如果該管腳位輸入管腳，需要將該管腳通過10K的電阻拉高。常見工作模式由省點模式、IDLE、TALK等模式。短消息編碼：設需要發(fā)送的短消息內(nèi)容為“Hi”，使用的GSM字符集為7位編碼。（6）、（7）、（8）通稱目的地址（TPDestinationAddress）。這需要根據(jù)不同的地域作相應的修改。1文本AT+CSCASMS service center address短消息中心地址AT+CSCBSelect cell broadcast messages選擇蜂窩廣播消息AT+CSMPSet SMS text mode parameters設置短消息文本模式參數(shù)AT+CSMSSelect Message Service選擇短消息服務表31與SMS有關的GSM AT指令對短消息的控制共有三種模式：ISMG：Internet Short Message Gateway，因特網(wǎng)短信網(wǎng)關。發(fā)送流程圖如圖22所示。無線傳輸有數(shù)傳電臺的方式，由于采用電臺的方式受通信距離的入網(wǎng)許可證等方面的限制，因此采用電臺方式的無線數(shù)據(jù)傳輸系統(tǒng)在應用上也有很大的局限性。由于GSM網(wǎng)絡實現(xiàn)了聯(lián)網(wǎng)和漫游，這樣利用GSM網(wǎng)絡傳輸數(shù)據(jù)不需要再組建專用通信網(wǎng)絡，因此采用段心系方式傳輸數(shù)據(jù)的系統(tǒng)應用將會越來越廣泛。The serial port corresponds at instruction。該系統(tǒng)基于GSM 原理利用手機通信的遠程信息檢視系統(tǒng)．該系統(tǒng)利用了手機短信的遠距離收發(fā)與單片機的有效結合，最大特點是可實現(xiàn)安全遠距離實時監(jiān)控，并記錄監(jiān)控結果，由于利用了TC35模塊，所以硬件相對簡單，主要有PC機、TC35模塊、單片機以及它們之間的串行接口，并進行編程來控制。以往這些領域往往采用集群通訊﹑CDPD網(wǎng)或有線MODEM來進行通訊，但這些技術大多存在通訊范圍有限﹑費用高﹑每次通訊需先撥號等缺點。無線MODEM無線通訊模塊便是在這種背景下，由我們自己研發(fā)出的通訊產(chǎn)品。2 無線MODEM設計的方案此次設計研究的是——無線MODEM工作原理與工程實現(xiàn)短信息收發(fā)功能的信息系統(tǒng)，此設計硬件電路：基于單片機實現(xiàn)數(shù)據(jù)傳輸系統(tǒng)。3 短信息系統(tǒng)（1）短信中心服務GSM(Global System for Mobile Communication)網(wǎng)絡除了提供話音服務外，還提供面向字符的短信服務(SMS，Short Message Service)。其結構和原理如圖32所示。指（91）+（683108200805F0）的長度。11amp。一般將這兩位置為00Bit ：0—不使用遠程網(wǎng)絡，只是短消息設備之間的協(xié)議；1—使用遠程網(wǎng)絡。那么就成了11001000（C8），i剩下六位110100，前面再補兩個0，變成00110100（34），于是“Hi”就變成了兩個八進制數(shù) C8 34。作為TC35的核心，基帶處理器主要處理GSM終端內(nèi)的語音、數(shù)據(jù)信號，并涵蓋了蜂窩射頻設備中的所有的模擬和數(shù)字功能。另外TC35模塊還需要連接SIM卡座子，這樣就實現(xiàn)了一個完整獨立的GSM終端。對于跳線器JP不是必須的，圖中加上主要是用來進行仿真模擬使用的。該系統(tǒng)的時鐘部分都是采用晶體振蕩器來實現(xiàn)的。 RS232的介紹及外圍電路在工業(yè)自動控制、智能儀器儀表中，單片機的應用越來越廣泛。它包括了按位串行通信的電氣和機械方面的規(guī)定，適用于短距離或帶調(diào)制解調(diào)器的通信場合。RS—232C接口的具體規(guī)定如下：（1）范圍RS—232C標準適用于DCE和DTE間的串行二進制通信。使用RS—232C，數(shù)據(jù)傳輸?shù)牟ㄌ芈试试S范圍為0b/s~20kb/s。28/V。其接口電路如圖44所示。 圖46 電源電路圖，來減小輸入端受到的干擾。它簡單易學、人機對話方便、程序運行調(diào)試方便，因此很快得到了廣泛的應用。VB有三種工作模式：設計模式：可進行用戶界面的設計和代碼的編制，來完成應用程序的開發(fā)。（3） 視圖（View）：用于集成開發(fā)環(huán)境下程序源代碼、控件的查看。（11） 外接程序（AddIns）：用于為工程增加或刪除外接程序。每個窗體查必須有唯一的窗體名字。用戶可以選頂某一屬性，然后對該屬性值進行設置或修改。一個應用程序至少包含一個窗體文件。（2）“過程”下拉式列表框：列出所有對象對應于“對象”列表框中對象的事件過程名稱。在發(fā)送和接收時通過改變Output和Input的屬性的類型來改變接收到的數(shù)據(jù)：若設置為字符串類型，則按文本方式發(fā)送或接收；若設置為字節(jié)數(shù)據(jù)，則按二進制數(shù)據(jù)格式發(fā)送或接收。事件驅動方式是處理串行通信的一種有效的方法，它可以利用OnComm事件捕獲并處理通信中發(fā)生的事件或錯誤，實時性較強。Input屬性的返回類型為Variant。鏈路層：8位數(shù)據(jù)位、l位停止位、無奇偶校驗、19200波特率CommPotr 設置并返回通訊端口號。Rthreshold 設置并返回要接收的字符數(shù)。圖57 短信息收發(fā)界面 VB對英文和漢字的處理英文的數(shù)據(jù)編碼方式： GSM只支持ASCII碼值從0x00到0x7f的128個字符。Public Function chg(rmsg As String) As String　Dim tep As String　Dim temp As String　Dim i As Integer　Dim b As Integer　tep = rmsg　i = Len(tep)　b = i / 4　If i = b * 4 Then　b = b 1　tep = Left(tep, b * 4)　Else　tep = Left(tep, b * 4)　End If　chg = 　For i = 1 To b　temp = amp?！? 短信的發(fā)送主要借助于VB的Msm控件實現(xiàn)，關于Msm控件，前面的技術介紹部分有詳細介紹。 pmsg　sleep(1)　 = AT+CMGF=0 + vbCr　 = AT+CMGS= amp。但是它使用的技術卻決不比短信的發(fā)送少，這里主要用到了Msm控件的Output屬性和AT+CMGR指令。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。H4End Sub39。39。39。39。39。此事件會在每一個Interval屬性值的間隔內(nèi)被調(diào)用一次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。 (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。39。39。39。39。39。英文不處理39。39。39。39。39。39。達到了預期的結果。通過本次設計，我對VB的可視化編程有了深刻的認識。參考文獻[1] Basic [2] 李旭暉、高仁忠、 [3] Mark [4] [5] 黃菇云、張學忠、 [6] 范逸之、 Basic與RS232 [7] 鐘震宇、[8] 范逸之、 [9] 劉圣才、 Basic [10]