手機(jī)短消息編輯,vb程序設(shè)計(jì).doc

Visual Basic課 程 設(shè) 計(jì) 報(bào) 告任課教師：張小兵教授學(xué)生姓名：黃錫龍學(xué)生專業(yè)：武器發(fā)射工程學(xué)生學(xué)號(hào)：913108320115南京理工大學(xué)能源與動(dòng)力工程學(xué)院2014年04月04日目錄題目、知識(shí)點(diǎn)、題目介紹、功能要求簡(jiǎn)要 3突破、不足. 4程序代碼描述 5途中遇到的代碼 6編程的思考過程. 7感悟. 9窗體代碼. 10模塊代碼. 15題目：模擬手機(jī)短消息編輯器知識(shí)點(diǎn)：讀文本文件圖片的應(yīng)用繪圖的方法動(dòng)態(tài)數(shù)組的使用字符串處理AIP函數(shù)的使用題目介紹：移動(dòng)電話（手機(jī)）是當(dāng)今人們的必備通信工具之一，短消息是手機(jī)上的一個(gè)重要的功能，其低廉的資費(fèi)受到年輕人的青睞。因?yàn)槭謾C(jī)上只有09共10個(gè)數(shù)字鍵，所以在手機(jī)上輸入漢字不能像在計(jì)算機(jī)上使用雙手那么方便，而是成了“拇指的運(yùn)動(dòng)”。本題目要求編寫一個(gè)模擬短消息編輯程序，通過10個(gè)按鈕用拼音輸入法進(jìn)行短消息的編輯。功能要求簡(jiǎn)要：（程序界面如下圖所示）手機(jī)的顯示屏分為三個(gè)區(qū)域，包括：拼音提示區(qū)、漢字提示區(qū)和編輯區(qū)，每個(gè)區(qū)域均有一光標(biāo)提示當(dāng)前位置，單擊相應(yīng)的按鍵可以實(shí)現(xiàn)左右或上下移動(dòng)光標(biāo)及在不同區(qū)域切換光標(biāo)。輸入漢字時(shí)，按照該字的拼音順序單擊相應(yīng)的數(shù)字單擊數(shù)字“1”，可輸入標(biāo)點(diǎn)符號(hào)包括：“，。：、；！？“”。按鍵用于實(shí)現(xiàn)確定、選擇的功能。按鍵用于實(shí)現(xiàn)取消、刪除的功能。按鍵用于實(shí)現(xiàn)向左和向上移動(dòng)光標(biāo)的功能。按鍵用于實(shí)現(xiàn)向右和向下移動(dòng)光標(biāo)的功能。按鍵用于實(shí)現(xiàn)退出程序并保存所編輯的短消息的功能。按鍵用于實(shí)現(xiàn)顯示程序名及版本信息。拼音提示區(qū)和漢字提示區(qū)都要有滾動(dòng)的功能。在拼音提示區(qū)內(nèi)滾動(dòng)時(shí)，漢字提示區(qū)自動(dòng)顯示當(dāng)前拼音的漢字。拼音提示區(qū)只列出已輸入數(shù)字代表的字母可能組成的所有有效的拼音；如果已輸入的字母構(gòu)不成有效拼音，且再輸入也不會(huì)產(chǎn)生有效的拼音，那么繼續(xù)輸入字母則會(huì)開始一個(gè)新的拼音。本程序只能使用鼠標(biāo)鼠標(biāo)單擊按鍵進(jìn)行操作，完全模擬手指對(duì)手機(jī)的操作。突破：實(shí)現(xiàn)將本程序的矩形窗口改為手機(jī)形狀的非矩形窗口（用圓角矩形近似代替）。實(shí)現(xiàn)了將所編輯的短消息內(nèi)容保存為文件。實(shí)現(xiàn)了短消息編輯區(qū)中的文字滾動(dòng)顯示。 不足：1.只能保存一條短消息。 2.不能選擇是否保存，程序結(jié)束前必保存短消息 3.手機(jī)形狀不是完全吻合程序代碼描述：本程序由兩個(gè)模塊組成，分別是窗體模塊和標(biāo)準(zhǔn)模塊。窗體模塊中共有三個(gè)事件過程，如下Form_Load:為程序的運(yùn)行做準(zhǔn)備，包括改變窗體形狀、讀入拼音文件、和為部分?jǐn)?shù)組賦值等。ImgButton_MouseDown:加載手機(jī)按鈕圖片，實(shí)現(xiàn)按下按鈕的動(dòng)態(tài)效果。ImgButton_MouseUp:用index參數(shù)返回鼠標(biāo)所點(diǎn)擊的圖像框的序號(hào)，用select case 語句來執(zhí)行相應(yīng)的語句Case10 , 11 用來移動(dòng)光標(biāo)Case 12,13 用來確定或取消Case 0 用來打空格Case 1 用于輸入標(biāo)點(diǎn)符號(hào)Case 2,3,4,5,6,7,8,9 用于打拼音Case 14 顯示程序名及辦版本信息Case 15 退出程序并保存短消息標(biāo)準(zhǔn)模塊中定義了所有的全局變量及數(shù)組，還有十個(gè)全局過程，如下：read_pylist :確定拼音文件有多少個(gè)拼音，并將拼音與漢字對(duì)應(yīng)起來。get_string :得到當(dāng)前輸入的拼音所對(duì)應(yīng)的漢字如果是部分拼音，則得到第一個(gè)相匹配拼音的漢字。isPartofPinyin: 判斷一個(gè)字母序列是否是一個(gè)有效拼音的開頭部分。get_PYInput: 得到當(dāng)前輸入的數(shù)字序列所能組成的所有有效拼音。Search_py: 得到當(dāng)前輸入的數(shù)字序列所能組成的所有的字母組合。show_pinyin: 在拼音提示區(qū)顯示當(dāng)前所有的有效拼音。show_wenzi: 在漢字提示區(qū)顯示當(dāng)前選中的有效拼音所對(duì)應(yīng)的漢字。show_content: 在編輯區(qū)顯示編輯的內(nèi)容。Phoneabout: 顯示程序名及版本信息。API 函數(shù)：用于建立一個(gè)區(qū)域，并作用在窗體上。途中遇到的困難： 1.API函數(shù)的使用 2.建立區(qū)域時(shí)各點(diǎn)坐標(biāo)的確定 3.參數(shù)的調(diào)用 4.如何在相應(yīng)位置繪制出光標(biāo) 5.滾動(dòng)箭頭的顯示 6.文字的滾動(dòng)顯示編程的思考過程：在工程中創(chuàng)建一個(gè)窗體模塊和一個(gè)標(biāo)準(zhǔn)模塊，標(biāo)準(zhǔn)模塊中存放全局變量及通用過程。先建立窗體界面，在窗體上放置手機(jī)的圖片，然后將十六個(gè)圖像框數(shù)組放置在窗體上相應(yīng)位置。考慮到要將矩形窗體改為非矩形窗體，故測(cè)量出手機(jī)圖片的長(zhǎng)寬，調(diào)出系統(tǒng)的API函數(shù)，在標(biāo)準(zhǔn)模塊中定義CreateRoundRectRgn和SetWindowRgn函數(shù)，在窗體form_load 事件中調(diào)用，調(diào)整各點(diǎn)各點(diǎn)坐標(biāo)，便可得到近似的手機(jī)形狀的非矩形窗口。按照要求安放好其余所需的控件，并調(diào)整好其屬性。至此，程序的窗體界面就做好了。為了實(shí)現(xiàn)鼠標(biāo)按下按鍵時(shí)有動(dòng)態(tài)效果，使用Image圖像控件將這些圖片重疊在mphone.bmp圖片上并產(chǎn)生一個(gè)小位移，在這之前先將圖片對(duì)象賦值到pic數(shù)組中并在窗體的imgButton_MouseDown事件中給相應(yīng)的圖像框加載圖片即可。由于手機(jī)上的29八個(gè)數(shù)字鍵代表了不止一個(gè)字母，故需要在標(biāo)準(zhǔn)模塊中定義一個(gè)過程用于判斷是否為有效拼音或拼音的開頭部分（ isPartofpinyin），而在這之前，又需要先得到所按數(shù)字序列所能得到的所有字母組合（search_by），通過在標(biāo)準(zhǔn)模塊中定義get_PYInput過程，并在該過程中調(diào)用上述過程即可達(dá)到目的。在標(biāo)準(zhǔn)模塊中定義一個(gè)自定義數(shù)據(jù)類型PY_List，其中含有兩個(gè)成員，分別是pinyin、wenzi分別對(duì)應(yīng)相應(yīng)的拼音和漢字, 其數(shù)據(jù)類型均為string。在通用過程中將拼音文件Py.dat打開,用循環(huán)語句Do while loop 一行行的讀取拼音文件里的內(nèi)容，并用變量PYNum 記錄拼音文件的行數(shù)即拼音的個(gè)數(shù)，用函數(shù)EOF來判斷拼音文件是否讀取完畢。若是結(jié)束循環(huán)，完成該過程。就此便將程序所需的數(shù)據(jù)讀入到程序中。為了實(shí)現(xiàn)在三個(gè)圖片框顯示相應(yīng)拼音或文字，故在標(biāo)準(zhǔn)模塊中定義show_pinyin、show_wenzi、show_content 三個(gè)通用過程同時(shí)定義PYIndex、PYTopIndex、WZIndex、WZTopIndex、CNTindex、CNTTopindex六個(gè)全局變量用于確定當(dāng)前選定的拼音序號(hào)及當(dāng)前顯示的拼音序號(hào)、當(dāng)前選定的文字序號(hào)以及最上面的字的序號(hào)和當(dāng)前編輯的位置及當(dāng)前內(nèi)容的第一個(gè)字序號(hào)，通過使用這些變量可以實(shí)現(xiàn)相應(yīng)框中內(nèi)容的滾動(dòng)。再在窗體模塊中，定義一個(gè)imgButton_MouseDown事件，用參數(shù)Index帶回圖像框的序號(hào)確定鼠標(biāo)所按下的按鈕，再使用select case index來執(zhí)行相應(yīng)的語句，在其中調(diào)用標(biāo)準(zhǔn)模塊中定義的過程即可實(shí)現(xiàn)手機(jī)功能。感悟：任何一個(gè)程序都是由各個(gè)功能單元構(gòu)成的，一個(gè)大的任務(wù)可以分解為幾個(gè)任務(wù)，通過將每個(gè)功能單元完成編碼再將各個(gè)功能單元聯(lián)系起來，便可完成整個(gè)程序。編程中問題是不斷的，但只要慢慢思考總能解決，在編程過程中網(wǎng)絡(luò)提供了很多幫助，在嘗試將窗體改為手機(jī)形狀時(shí)，我在網(wǎng)絡(luò)上查找了許多方法，雖說最終沒有采取，但期間亦學(xué)得了許多知識(shí)。當(dāng)完成基本程序后，我試圖改善程序的功能，但稍微改動(dòng)一點(diǎn)就會(huì)在其他地方出現(xiàn)問題，以致我不得不持續(xù)的對(duì)程序進(jìn)行修改最終確定了現(xiàn)在的程序。這讓我意思到要做得更出色，就必須付出更大的努力，有付出才會(huì)有回報(bào)。此致！ 黃錫龍913108320115 2014年04月04日窗體代碼Private Sub Form_Load() Dim hRgn As Long hRgn = CreateRoundRectRgn(9, 2, 200, 520, 150, 150) Call SetWindowRgn(Me.hWnd, hRgn, True) 將窗體形狀改為手機(jī)形狀 Dim i As Integer KeyIndex(1) = 將數(shù)字與字母相對(duì)應(yīng) KeyIndex(2) = abc KeyIndex(3) = def KeyIndex(4) = ghi KeyIndex(5) = jkl KeyIndex(6) = mno KeyIndex(7) = pqrs KeyIndex(8) = tuv KeyIndex(9) = wxyz KeyIndex(0) = For i = 0 To 15 Set pic(i) = LoadPicture(App.Path & buttonpics & i & .bmp) Next Call read_pylist 打開拼音文件 focus = 1 首先指定拼音區(qū)End SubPrivate Sub imgButton_MouseDown(Index As Integer, Button As Integer, _ Shift As Integer, X As Single, Y As Single) 功能：實(shí)現(xiàn)鼠標(biāo)按下按鍵時(shí)的動(dòng)態(tài)效果 If Button = 1 Then 按左鍵，按鈕按下 imgButton(Index).Picture = pic(Index) End IfEnd SubPrivate Sub imgButton_MouseUp(Index As Integer, Button As Integer, _ Shift As Integer, X As Single, Y As Single) Dim i As Integer If Button = 1 Then Select Case Index Case 10 -按鈕 實(shí)現(xiàn)光標(biāo)向上和向左移動(dòng) Select Case focus Case 1 Call show_pinyin(picPinyin, -1, True) Call show_wenzi(picWenzi, 0, False) Case 2 Call show_wenzi(picWenzi, -1, True) Case 3 If CNTindex 0 Then Call show_content(picContent, -1) End If End Select Case 11 -按鈕 實(shí)現(xiàn)光標(biāo)向下和向右移動(dòng) Select Case focus Case 1 Call show_pinyin(picPinyin, 1, True) Call show_wenzi(picWenzi, 0, False) Case 2 Call show_wenzi(picWenzi, 1, True) Case 3 Call show_content(picContent, 1) End Select Case 12 OK 按鈕 用于確定 Select Case focus Case 1 在拼音區(qū) Call show_pinyin(picPinyin, 0, False) Call show_wenzi(picWenzi, 0, True) focus = focus + 1 Case 2 在文字區(qū) If strContent = Then strContent = Mid(WZCurrent, WZIndex, 1) CNTindex = 1 CNTTopindex = 1 Call show_content(picContent, 0) Else strContent = Left(strContent, CNTindex) & Mid(WZCurrent, WZIndex, 1) & Right(strContent, Len(strContent) - CNTindex) Call show_content(picContent, 1) End If Case 3 End Select Case 13 cancel 按鈕 取消 Select Case focus Case 1 If NumList = Then focus = 3 Erase PYInput PYInputNum = 0 WZCurrent = Call show_pinyin(picPinyin, 0, False) Call show_wenzi(picWenzi, 0, False) Else NumList = Left(NumList, Len(NumList) - 1) If NumList = Then Erase PYInput PYInputNum = 0 Call show_pinyin(picPinyin, 0, False) WZCurrent = Call show_wenzi(picWenzi, 0, False) focus = 3 Else Call get_PYInput If PYInputNum = 0 Then 如果輸入了一個(gè)不合法的拼音，則重新開始輸入拼音 NumList = WZCurrent = WZIndex = 1 WZTopIndex = 1 End If PYIndex = 1 PYTopIndex = 1 Call show_pinyin(picPinyin, 0, True) 顯示拼音，第一個(gè)拼音為默認(rèn) Call show_wenzi(picWenzi, 0, False) End If End If Case 2 文字區(qū) focus = 1 Call show_pinyin(picPinyin, 0, True) Call show_wenzi(picWenzi, 0, False) Case 3 編輯區(qū) If strContent Then If CNTindex 0 Then strContent = Left(strContent, CNTindex - 1) & Right(strContent, Len(strContent) - CNTindex) 刪除當(dāng)前字符 CNTindex = CNTindex - 1 Call show_content(picContent, 0) End If End If End Select Case 15 保存短消息并推出程序 Open App.Path & 短消息.txt For Output As #1 Print #1, strContent Close End Unload Me Case 14 Call Phoneabout Case 1 輸入標(biāo)點(diǎn)符號(hào) Erase PYInput PYInputNum = 0 NumList = Call show_pinyin(picPinyin, 0, False) WZCurrent = ，。：、；?。俊啊?WZIndex = 1 WZTopIndex = 1 focus = 2 Call show_wenzi(picWenzi, 0, True) Case 0 strContent = Left(strContent, CNTindex) & & Right(strContent, Len(strContent) - CNTindex) If CNTindex = 0 Then CNTTopindex = 1 Call show_content(picContent, 1) NumList = Case 2 To 9 按字母鍵，檢驗(yàn)是否顯合法的拼音，如果是則檢索相應(yīng)的漢字 If focus = 2 Then 如果當(dāng)前在文字提示區(qū)，則拼音從頭開始 NumList = Index Else NumList = NumList & Index 記下按鍵 End If Call get_PYInput 每按一次數(shù)字鍵就調(diào)用一次 If PYInputNum = 0 Then 如果輸入了一個(gè)不合法的拼音，則立即重新開始輸入拼音 NumList = WZCurrent = NumList = Index get_PYInput End If PYIndex = 1 PYTopIndex = 1 Call show_pinyin(picPinyin, 0, True) 顯示拼音，第一個(gè)拼音為默認(rèn) WZIndex = 1 WZTopIndex = 1 Call show_wenzi(picWenzi, 0, False) focus = 1 End Select imgButton(Index).Picture = LoadPicture() 卸載圖片 End IfEnd Sub模塊代碼Option Base 1Option ExplicitPublic Declare Function CreateRoundRectRgn Lib gdi32 (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As LongPublic Declare Function SetWindowRgn Lib user32 (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Type PY_LIST 自定義數(shù)據(jù)類型 pinyin As String * 6 拼音 wenzi As String 拼音對(duì)應(yīng)的所有文字End TypePublic PYList() As PY_LIST 記錄拼音與漢字的對(duì)應(yīng)關(guān)系Public PYNum As Integer 有效的拼音的個(gè)數(shù),即拼音文件的行數(shù)Public KeyIndex(0 To 9) As String 數(shù)字與字母的對(duì)應(yīng)關(guān)系Public NumList As String 用于記錄當(dāng)前按下的數(shù)字序列Public PYInput() As String 記錄當(dāng)前輸入的所有的有效拼音Public PYInputNum As Integer 當(dāng)前輸入的有效拼音個(gè)數(shù)Public PYIndex As Integer, PYTopIndex As Integer當(dāng)前選定的拼音序號(hào),以及當(dāng)前顯示的拼音序號(hào)Public WZCurrent As String 當(dāng)前拼音所對(duì)應(yīng)的所有文字Public WZIndex As Integer, WZTopIndex As Integer 當(dāng)前選定的文字序號(hào)以及最上面的字Public strContent As String 當(dāng)前編輯內(nèi)容Public CNTindex As Integer 當(dāng)前編輯的位置Public CNTTopindex As Integer 當(dāng)前內(nèi)容的第一個(gè)字序號(hào)Public pic(0 To 15) As Picture 用于保存按鈕圖片Public focus As Integer用于記錄當(dāng)前的輸入焦點(diǎn):1.拼音提示區(qū)2.文字提示區(qū)，3.編輯區(qū)Public Sub read_pylist()功能：給動(dòng)態(tài)數(shù)組PYList賦值，拼音及其相對(duì)應(yīng)的漢字 Dim i As Integer Dim s As String If Dir(App.Path & py.dat) = Then MsgBox 找不到拼音文件py.dat！, vbCritical, sms: End Open App.Path & py.dat For Input As 1 PYNum = 0 Do While Not EOF(1) PYNum = PYNum + 1 用于確定拼音文件有多少行 ReDim Preserve PYList(PYNum) Line Input #1, s i = InStr(s, ) 找到空格位置 PYList(PYNum).pinyin = Left(s, i - 1) 取拼音段 PYList(PYNum).wenzi = Right(s, Len(s) - i) 取文字部分 Loop Close 1End SubPublic Function get_string(pinyin As String) As String 功能：得到當(dāng)前輸入的拼音相對(duì)應(yīng)的文字，如果是部分拼音，則得到第一個(gè)相匹配拼音相應(yīng)的漢字 Dim i As Integer If pinyin = Then get_string = For i = 1 To PYNum If RTrim(PYList(i).pinyin) = pinyin Then 如果是完整的拼音 get_string = PYList(i).wenzi Exit Function End If Next For i = 1 To PYNum If InStr(RTrim(PYList(i).pinyin), pinyin) Then 如果是部分拼音 get_string = PYList(i).wenzi Exit Function End If Next End FunctionPublic Function isPartofPinyin(pinyin As String) As Boolean功能：測(cè)試一個(gè)字母序列是否是一個(gè)有效拼音的開頭部分 Dim i As Integer If pinyin = Then Exit Function For i = 1 To PYNum If InStr(RTrim(PYList(i).pinyin), pinyin) = 1 Then isPartofPinyin = True Exit Function End If NextEnd FunctionPublic Sub get_PYInput() 功能：得到當(dāng)前的輸入的數(shù)字所對(duì)應(yīng)的有效拼音 Dim i As Integer Dim num As Integer Dim list() As String Dim s As String Erase PYInput PYInputNum = 0 Call search_py(1, list, num, s) 得到所有字母組合 For i = 1 To num 得到其中是拼音的，或是拼音前半部分的 If isPartofPinyin(list(i) Then 判斷是否是有效拼音的開頭部分 PYInputNum = PYInputNum + 1 記錄當(dāng)前的有效的拼音個(gè)數(shù) ReDim Preserve PYInput(PYInputNum) PYInput(PYInputNum) = list(i) 記錄有效拼音 End If NextEnd SubPublic Sub search_py(i As Integer, list() As String, num As Integer, s As String)功能：得到當(dāng)前輸入的數(shù)字所構(gòu)成的所有字母組合 If i Len(NumList) Then num = num + 1 ReDim Preserve list(num) list(num) = s Exit Sub Else Dim j As Integer Dim k As Integer k = Len(KeyIndex(Val(Mid(NumList, i, 1) 記錄當(dāng)期按下的數(shù)字所對(duì)應(yīng)的字母?jìng)€(gè)數(shù) For j = 1 To k s = s & Mid(KeyIndex(Val(Mid(NumList, i, 1), j, 1) Call search_py(i + 1, list, num, s) s = Left(s, i - 1) Next End IfEnd SubPublic Sub show_pinyin(picPinyin As PictureBox, status As Integer, filled As Boolean)功能：用于顯示當(dāng)前的有效拼音 status:0 首次顯示 1 向后移動(dòng) -1向前移動(dòng) Dim i As Integer, j As Integer Dim LineNum As Integer, H As Single 可顯示的行數(shù)和行高 If PYInputNum = 0 Then picPinyin.Cls frmMain.imgUp.Visible = False 使?jié)L動(dòng)箭頭不可見 frmMain.imgDown.Visible = False Exit Sub End If If status = 1 And PYIndex = PYInputNum Or status = -1 And PYIndex = 1 Then Exit Sub 當(dāng)前已有第一或最后一個(gè)拼音 H = picPinyin.TextHeight(f) LineNum = picPinyin.ScaleHeight H - 1 計(jì)算可顯示的行數(shù) Select Case status 得到當(dāng)前拼音序號(hào) Case 0 PYTopIndex = 1 PYIndex = 1 Case 1 If PYIndex - PYTopIndex + 1 = LineNum Then PYTopIndex = PYTopIndex + 1 End If PYIndex = PYIndex + 1 Case -1 If PYIndex = PYTopIndex Then PYTopIndex = PYTopIndex - 1 End If PYIndex = PYIndex - 1 End Select