背單詞程序課程設(shè)計(jì)報(bào)告

1、.（北京) 計(jì)算機(jī)語(yǔ)言課程設(shè)計(jì)背單詞 院 系：地球物理與信息工程學(xué)院專 業(yè)： 自動(dòng)化09 小組成員：常潤(rùn)秀、覃丹丹、周衍彤 陳建龍、黃冬 完成日期： 2011年7月14 日 小組設(shè)計(jì)成績(jī)： 評(píng)閱：1. 程序運(yùn)行情況：2. 答辯情況：3. 平時(shí)表現(xiàn)：4. 設(shè)計(jì)報(bào)告：一、設(shè)計(jì)目的：綜合運(yùn)用面向?qū)ο箝_發(fā)工具，設(shè)計(jì)Windows風(fēng)格的軟件。通過(guò)此次程序設(shè)計(jì)題目，使學(xué)生熟練掌握Windows應(yīng)用程序的開發(fā)過(guò)程，為以后專業(yè)課的學(xué)習(xí)奠定基礎(chǔ)。二、所選編程語(yǔ)言：Visual Basic 6.0三、系統(tǒng)總體設(shè)計(jì)思路：背單詞軟件是英語(yǔ)學(xué)習(xí)類軟件的分支，是專門針對(duì)用戶背誦英語(yǔ)單詞，掌握詞匯量而制作的輔助學(xué)習(xí)軟件。由

2、于媒介為個(gè)人電腦，所以背單詞軟件有著其它背單詞工具無(wú)法達(dá)到的智能化與互動(dòng)性，但相對(duì)應(yīng)的，過(guò)于依賴電腦和較差的便攜性成為其缺陷。所以作為背單詞的軟件的設(shè)計(jì)思路應(yīng)該簡(jiǎn)單為原則。用戶操作必須簡(jiǎn)單、方便為原則。（1） 本題目共提供了“大學(xué)英語(yǔ)四級(jí)詞匯”和“大學(xué)英語(yǔ)六級(jí)詞匯”兩個(gè)詞庫(kù)文件（分別是grade4.txt和grade6.txt），通過(guò)“詞庫(kù)設(shè)置”中的“詞庫(kù)”組合框可以選擇想要的詞庫(kù)。默認(rèn)的詞庫(kù)是“大學(xué)英語(yǔ)四級(jí)詞匯”。（2） 為了便于用戶使用，程序允許選擇想要記憶的單詞范圍。默認(rèn)的單詞范圍是“A至Z”，即全部單詞。如果選擇的范圍是“A至C”，那么程序只顯示以A、B和C字母開頭的單詞。程序應(yīng)保證“

3、起始字母”在“終止字母”之前，即不會(huì)出現(xiàn)類似于“C至A”的情況。（3） 據(jù)需要選擇“隨機(jī)”或“循環(huán)”復(fù)選框。如果不選擇“隨機(jī)”，則顯示單詞時(shí)是以單詞在詞庫(kù)中的順序（即字母的順序）顯示的，否則以隨機(jī)順序顯示。如果不選擇“循環(huán)”復(fù)選框，單詞顯示一遍之后自動(dòng)停止回到起始狀態(tài)。如果選擇了“循環(huán)”復(fù)選框，顯示一遍之后會(huì)自動(dòng)從頭開始顯示。在隨機(jī)方式之下，循環(huán)是沒(méi)有意義的，所以當(dāng)“隨機(jī)”復(fù)選框選定時(shí)，“循環(huán)”復(fù)選框應(yīng)變?yōu)闊o(wú)效且呈現(xiàn)未選定狀態(tài)。（4） 畢后，單擊“開始”按鈕，窗口最上方顯示區(qū)域從右向左以字幕方式動(dòng)態(tài)顯示所選的單詞，包括詞性和詞義。在顯示過(guò)程中可以改變字體大小、滾動(dòng)速度和背景顯示顏色。單擊“暫停

4、”按鈕可以暫停滾動(dòng)，這時(shí)“暫?！卑粹o變?yōu)椤袄^續(xù)”，單擊會(huì)繼續(xù)滾動(dòng)。單擊“退出”按鈕退出主界面。設(shè)計(jì)任務(wù)分工安排：由于小組由五名成員構(gòu)成，可將界面模塊分為五個(gè)部分：1.滾動(dòng)字幕以及部分相關(guān)控制控件。設(shè)計(jì)人員：陳建龍。2.字體大小，滾動(dòng)速度，背景顏色控制。設(shè)計(jì)人員：常潤(rùn)秀。3.詞庫(kù)選擇。設(shè)計(jì)人員：覃丹丹，黃冬。4.顯示方式（隨機(jī)，循環(huán)） 設(shè)計(jì)人員：覃丹丹，黃冬。5.主界面其他相關(guān)控件，以及其他彈出界面和進(jìn)入界面。設(shè)計(jì)人員：周衍彤。設(shè)計(jì)進(jìn)度安排：設(shè)計(jì)時(shí)間：2011.7.72011.7.8, 2011.7.112011.7.137、8號(hào)找到各部分設(shè)計(jì)思路，進(jìn)行初步設(shè)計(jì)11號(hào)各控件、模塊設(shè)計(jì)完成12號(hào)各

5、控件、模塊組合13號(hào)設(shè)計(jì)報(bào)告撰寫四、系統(tǒng)各功能模塊設(shè)計(jì) 包括采用的關(guān)鍵控件、關(guān)鍵技術(shù)、主要界面通過(guò)運(yùn)行本程序，可以輕松背單詞。主要功能包括選擇詞庫(kù)范圍（大學(xué)英語(yǔ)四級(jí)詞匯、大學(xué)英語(yǔ)六級(jí)詞匯）、選擇首字母范圍、選擇播放方式(隨機(jī)、循環(huán))、改變字體大小、改變滾動(dòng)速度、改變滾動(dòng)條背景顏色等。（一） 主要界面A、首界面：可以選擇“點(diǎn)擊進(jìn)入”按鈕或者“退出”按鈕，繼續(xù)程序。B、選擇點(diǎn)擊進(jìn)入之后，進(jìn)入主程序界面。C、單擊使用說(shuō)明按鈕，彈出對(duì)話框。（二） 關(guān)鍵控件A、 按鈕控件：本程序中運(yùn)用大量按鈕控件，分別控制首界面中“點(diǎn)擊進(jìn)入”、“退出”，主程序界面中“開始”、“暫停”、“退出”、“使用說(shuō)明”以及滾動(dòng)條兩

6、側(cè)“左移”、“右移”功能。在首界面中，單擊“點(diǎn)擊進(jìn)入”按鈕后，首界面消失，進(jìn)入主程序界面。單擊“退出”按鈕，彈出”是否退出”的對(duì)話框。在主程序界面中，單擊“開始”按鈕之前， “暫停”按鈕為灰顯狀態(tài)。單擊“開始”按鈕，滾動(dòng)條開始滾動(dòng)，此時(shí)單擊“暫停”按鈕，滾動(dòng)條停止?jié)L動(dòng)，“暫?！卑粹o變更為“繼續(xù)”按鈕，單擊”繼續(xù)“按鈕，滾動(dòng)條繼續(xù)滾動(dòng)。單擊“退出”按鈕，回歸首界面。單擊“使用說(shuō)明”，彈出“使用說(shuō)明”窗體。點(diǎn)擊“左移” 、“右移”按鈕，滾動(dòng)條相應(yīng)左右移動(dòng)。B、 標(biāo)簽控件：本程序使用大量標(biāo)簽控件，以便標(biāo)注各個(gè)控件的功能。C、 組合框控件本程序中共有三個(gè)組合框，分別控制詞庫(kù)范圍（大學(xué)英語(yǔ)四級(jí)詞匯、大學(xué)

7、英語(yǔ)六級(jí)詞匯）、首字母范圍的選擇。D、 滾動(dòng)條控件本程序中共有四個(gè)滾動(dòng)條控件，分別控制滾動(dòng)速度、滾動(dòng)條背景顏色的更改。E、 復(fù)選框控件通過(guò)對(duì)復(fù)選框按鈕的選擇，選擇播放方式（隨機(jī)、循環(huán)）。點(diǎn)擊“隨機(jī)”框 ，“循環(huán)”框?yàn)榛绎@狀態(tài)，滾動(dòng)單詞內(nèi)容隨機(jī)播放。點(diǎn)擊“循環(huán)”框，選擇首字母范圍之后，在該字母范圍內(nèi)循環(huán)播放。F、 單選按鈕控件通過(guò)對(duì)單選按鈕的選擇，選擇滾動(dòng)字體的大小。單擊“大字體”框時(shí)，字體變?yōu)?0號(hào)字。單擊“小字體”框時(shí)，字體為14號(hào)字。G、 圖像框控件首界面中圖片的放置。H、 文本框控件構(gòu)成滾動(dòng)字體（三）關(guān)鍵技術(shù)A、時(shí)鐘與滾動(dòng) 將時(shí)鐘的Interval設(shè)定為顯示速度滾動(dòng)條的值的線性函數(shù)（Ti

8、mer1.Interval = HScroll1.Value * 20），時(shí)鐘的速度便由滾動(dòng)條的值控制，成為為可調(diào)的。為了循環(huán)的執(zhí)行，這里定義一個(gè)隨機(jī)變量k。隨著時(shí)鐘計(jì)時(shí)，當(dāng)text1中顯示內(nèi)容從左起的第一個(gè)字符的ASCII碼大于零，則其字幕顯示為前一個(gè)詞從第四位開始取長(zhǎng)度為這個(gè)詞長(zhǎng)度減三的部分和后一個(gè)詞前三位部分，k=k+3。而當(dāng)text1中顯示內(nèi)容從左起的第一個(gè)字符的ASCII碼小于零，則其字幕顯示為前一個(gè)詞從第二位開始取長(zhǎng)度為這個(gè)詞長(zhǎng)度減一的部分和后一個(gè)詞第一位部分，k=k+1。如此便形成了字幕可以以不同速度滾動(dòng)的效果。B、詞庫(kù)選擇與調(diào)用文檔 當(dāng)詞庫(kù)選擇的組合框1選擇大學(xué)英語(yǔ)四級(jí)詞匯時(shí)，

9、便open大學(xué)英語(yǔ)四級(jí)詞匯的文本文檔命名為#1以input形式使用；當(dāng)詞庫(kù)選擇的組合框1選擇大學(xué)英語(yǔ)六級(jí)詞匯時(shí)，便open大學(xué)英語(yǔ)六級(jí)詞匯的文本文檔命名為#1以input形式使用。注意：文檔中的單詞按順序排列，一行一個(gè)，首字前有四個(gè)空格，每一次首字母變化前加入書寫“/”的一行，以便后面設(shè)定范圍之用。通過(guò)while循環(huán)，文檔內(nèi)容以字符串nextline按行輸入遇到“/”則顯示空白。C、范圍設(shè)定 范圍設(shè)定有兩個(gè)方面。1）若下限比上限小，下限設(shè)定為空白。如此便滿足了下限不比上限小的要求。2）組合框2和3 是用來(lái)設(shè)定范圍的，他們的每個(gè)選項(xiàng)都有一個(gè)編號(hào)ListIndex。設(shè)定上限時(shí)，我們?cè)僖淮斡玫紸SC

10、II碼。當(dāng)用來(lái)存放nextline的數(shù)組s( )的元素s(m)的第五位（即單詞首字母）的ASCII碼比組合框2 的ListIndex+96的值大的時(shí)候，用來(lái)存放有效字符串的數(shù)組t(r)的下標(biāo)r開始計(jì)數(shù)。令s(m)=t(r),則上限設(shè)定成功。設(shè)定下限時(shí)，我們用變量j 來(lái)對(duì)“ /”計(jì)數(shù)。當(dāng)j比組合框3的ListIndex大時(shí)，跳出while循環(huán)。如此，下限便得到了控制。 D、對(duì)隨機(jī)顯示的控制 未選擇復(fù)選框1時(shí)，用for循環(huán)按Text1.Text = Text1.Text & t(n)使字幕順序顯示；選擇時(shí)，用Randomize產(chǎn)生1到r-1之間的隨機(jī)數(shù)，將r的值依次存入到數(shù)組a(n)中，用for循

11、環(huán)按 Text1.Text = Text1.Text & t(a(n)使字幕隨機(jī)顯示。 E、循環(huán)控制 由于時(shí)鐘不會(huì)停，系統(tǒng)默認(rèn)的是循環(huán)，所以我們只需對(duì)不選復(fù)選框2的情況進(jìn)行控制。我們?cè)贏中提到的k值，在這里開始顯示作用。當(dāng)k的值大于text1顯示內(nèi)容的總長(zhǎng)度后，輸出空白，即不循環(huán)。F、字幕的左右移動(dòng) 當(dāng)點(diǎn)擊按鈕5時(shí)，我們用Text1.Text = Mid(Text1.Text, 11, Len(Text1.Text) - 10) & Left(Text1.Text, 10)來(lái)使字幕左移；當(dāng)點(diǎn)擊按鈕6時(shí)，我們用 Text1.Text = Mid(Text1.Text, Len(Text1.Tex

12、t) - 9, 10) & Left(Text1.Text, Len(Text1.Text) - 10)來(lái)使字幕右移。五、軟件運(yùn)行結(jié)果(1）、運(yùn)行程序，可顯示一個(gè)背單詞的首界面?！包c(diǎn)擊進(jìn)入”即可進(jìn)入背單詞的主界面（2）、提供了“大學(xué)英語(yǔ)四級(jí)詞匯”和“大學(xué)英語(yǔ)六級(jí)詞匯”兩個(gè)詞庫(kù)文件，通過(guò)“詞庫(kù)”組合框可以選擇想要的題庫(kù)，默認(rèn)的詞庫(kù)是“大學(xué)英語(yǔ)四級(jí)詞匯”。（3）、為了便于用戶使用，可以選擇想要記憶的單詞范圍，默認(rèn)的單詞范圍是“AZ”。.（4）、根據(jù)需要選擇“隨機(jī)”或“循環(huán)”復(fù)選框。如果二者都不選，則默認(rèn)顯示單詞表顯示到最后一個(gè)單詞即停止；如果選擇“隨機(jī)”復(fù)選框，“循環(huán)”復(fù)選框變?yōu)闊o(wú)效且不可選定狀態(tài)

13、。如果選擇了“循環(huán)”復(fù)選框，顯示一遍之后會(huì)自動(dòng)從頭開始顯示。（5）、通過(guò)“其他設(shè)置”中的“字體大小”單選框可以選擇滾動(dòng)單詞時(shí)的字體大小。 （6）、通過(guò)操作滾動(dòng)條可以設(shè)置字幕滾動(dòng)速度。 (7)、通過(guò)顏色設(shè)置里面對(duì)R、G、B的調(diào)節(jié)可以實(shí)現(xiàn)對(duì)顯示單詞欄背景顏色的調(diào)整。（8）、設(shè)置完畢后，單擊“開始”按鈕，窗口最上方顯示區(qū)域從右向左以字幕方式動(dòng)態(tài)顯示所選的單詞，包括詞性和詞義，如圖14.4所示。在顯示過(guò)程中可以改變字體大小、滾動(dòng)速度和顯示顏色。單擊“暫?！卑粹o可以暫停滾動(dòng)，這時(shí)“暫?！卑粹o變?yōu)椤袄^續(xù)”，單擊會(huì)繼續(xù)滾動(dòng)。（9）、單擊該主界面的“退出”，立即回到我們的進(jìn)入界面，繼續(xù)單擊“退出”，即可完全退

14、出背單詞程序。（10）、若對(duì)本運(yùn)行軟件操作有疑問(wèn)，進(jìn)入主界面后可以單擊左下角的使用說(shuō)明。六、設(shè)計(jì)總結(jié)通過(guò)這次課程設(shè)計(jì)，VB編程水平有了很大的提高。從最開始編寫這個(gè)程序到程序運(yùn)行，經(jīng)過(guò)對(duì)程序的反復(fù)調(diào)試與修改，深刻感受到編寫一個(gè)程序是一個(gè)漫長(zhǎng)而辛苦的過(guò)程，需要編程人員具備足夠的耐心與細(xì)心。與此同時(shí)也培養(yǎng)我們查閱知識(shí)并通過(guò)自學(xué)掌握知識(shí)的能力。程序的入手階段是困難的，剛剛接觸一個(gè)新的程序會(huì)感到無(wú)從下手。首先要做一些準(zhǔn)備工作。要了解這個(gè)程序是干什么的，它應(yīng)具備怎樣的功能。當(dāng)明確了這些問(wèn)題 以后，就要針對(duì)不同的功能逐一的思考實(shí)現(xiàn)該功能的方法。對(duì)于每一個(gè)功能的實(shí)現(xiàn)需要用到那些知識(shí)，通過(guò)查閱相關(guān)知識(shí)，做到心中

15、有數(shù)，再進(jìn)行編程。編程時(shí)要先 制定一個(gè)大的框架，用幾個(gè)模塊，什么模塊，那些事件過(guò)程，那些通用過(guò)程，當(dāng)大致的輪廓出來(lái)后再進(jìn)行深一步的編寫，考慮語(yǔ)句的語(yǔ)法、邏輯，各個(gè)通用過(guò)程的調(diào)用，事件過(guò)程的實(shí)現(xiàn)。這里會(huì)遇到真正難以解決的問(wèn)題，要再次通過(guò)查閱多方資料并結(jié)合認(rèn)真思考來(lái)尋找解題思路。當(dāng)然在編程的過(guò)程中最重要的一點(diǎn)就是善于總結(jié)，這樣可以避免重蹈覆轍。 在程序編寫結(jié)束后，更要進(jìn)行總結(jié)，認(rèn)真思考怎樣編寫一個(gè)過(guò)程是簡(jiǎn)便快捷的，在下次遇到同樣問(wèn)題時(shí)可以節(jié)省時(shí)間，提高效率。 這次做課程設(shè)計(jì)，了解了程序的編制過(guò)程和基本的思維方法,同時(shí)也對(duì)編程產(chǎn)生了濃厚的興趣，希望能在課余時(shí)間多編制一些這樣的小程序，可以學(xué)到更多的知

16、識(shí)，同時(shí)提高編程的速度，鍛煉思考方式，開拓思維空間，為我們今后的學(xué)習(xí)打下一個(gè)良好的基礎(chǔ)。七、參考文獻(xiàn)書籍參考：教學(xué)課件附錄：源程序（1）主界面(Form1):Dim i%, k%, m%, r%Private Sub Check1_Click()Check2.Value = 0If Check1.Value = 1 ThenCheck2.Enabled = FalseElseCheck2.Enabled = TrueEnd IfEnd Sub實(shí)現(xiàn)隨機(jī)與循環(huán)復(fù)選框的選擇Private Sub Combo2_click()Combo3_ClickEnd SubPrivate Sub Combo3_

17、Click()If Combo3.ListIndex Combo2.ListIndex + 96 Thenr = r + 1ReDim Preserve t(r)t(r) = s(m)End IfIf j Combo3.ListIndex ThenExit DoEnd IfLoop將詞庫(kù)每行數(shù)據(jù)存入s(n)中，下標(biāo)對(duì)應(yīng)行號(hào)。實(shí)現(xiàn)范圍選擇，并將范圍內(nèi)的每行數(shù)據(jù)存入t(r)中，下標(biāo)對(duì)應(yīng)行號(hào)。Select Case Check1.ValueCase 0Text1.Text = For n = 1 To rText1.Text = Text1.Text & t(n)Next nText1.Text=

18、& Text1.Text 未選擇隨機(jī)時(shí)的文本輸出 Case 1Dim a() As StringDim Y%, X%, z%Text1.Text = z = r - 1For n = 1 To r - 1RandomizeY = Int(z - 1) * Rnd) + 1ReDim Preserve a(n)a(n) = t(Y)For X = Y To z - 1t(X) = t(X + 1)將t()中已經(jīng)選擇存入a(n)中的元素剔除Next Xz = z - 1Next n將t(r)中的全部元素以隨機(jī)的順序存入a(n)For n = 1 To r - 1Text1.Text = Text1

19、.Text & a(n)Next nText1.Text= & Text1.Text 隨機(jī)方式輸出End SelectCloseTimer1.Enabled = TrueIf Command2.Caption = 繼續(xù) ThenCommand2.Caption = 暫停i = i + 1End SubPrivate Sub Command2_Click()If i Mod 2 = 0 ThenCommand2.Caption = 繼續(xù): Timer1.Enabled = FalseElseCommand2.Caption = 暫停: Timer1.Enabled = TrueEnd Ifi =

20、 i + 1End SubPrivate Sub Command3_Click()大學(xué)英語(yǔ)四六級(jí).Visible = TrueForm1.Visible = FalseEnd SubPrivate Sub Command4_Click()Form2.Visible = TrueEnd SubPrivate Sub Command5_Click()Text1.Text = Mid(Text1.Text, 11, Len(Text1.Text) - 10) & Left(Text1.Text, 10)使?jié)L動(dòng)字幕左移10位End SubPrivate Sub Command6_Click()Text

21、1.Text = Mid(Text1.Text, Len(Text1.Text) - 9, 10) & Left(Text1.Text, Len(Text1.Text) - 10)使?jié)L動(dòng)字幕右移10位End SubPrivate Sub Form_Load()Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2窗口顯示居中Combo1.List(0) = 大學(xué)英語(yǔ)四級(jí)詞匯Combo1.List(1) = 大學(xué)英語(yǔ)六級(jí)詞匯Command2.Enabled = FalseCombo1.Text = Combo1.List(0)C

22、ombo2.List(0) = ACombo2.List(1) = BCombo2.List(2) = CCombo2.List(3) = DCombo2.List(4) = ECombo2.List(5) = FCombo2.List(6) = GCombo2.List(7) = HCombo2.List(8) = ICombo2.List(9) = JCombo2.List(10) = KCombo2.List(11) = LCombo2.List(12) = MCombo2.List(13) = NCombo2.List(14) = OCombo2.List(15) = PCombo2.

23、List(16) = QCombo2.List(17) = RCombo2.List(18) = SCombo2.List(19) = TCombo2.List(20) = UCombo2.List(21) = VCombo2.List(22) = WCombo2.List(23) = XCombo2.List(24) = YCombo2.List(25) = Z Combo2.ListIndex = 0Combo2.Text = Combo2.List(0)Combo3.List(0) = ACombo3.List(1) = BCombo3.List(2) = CCombo3.List(3)

24、 = DCombo3.List(4) = ECombo3.List(5) = FCombo3.List(6) = GCombo3.List(7) = HCombo3.List(8) = ICombo3.List(9) = JCombo3.List(10) = KCombo3.List(11) = LCombo3.List(12) = MCombo3.List(13) = NCombo3.List(14) = OCombo3.List(15) = PCombo3.List(16) = QCombo3.List(17) = RCombo3.List(18) = SCombo3.List(19) =

25、 TCombo3.List(20) = UCombo3.List(21) = VCombo3.List(22) = WCombo3.List(23) = XCombo3.List(24) = YCombo3.List(25) = Z Combo3.ListIndex = 25Combo3.Text = Combo3.List(25)Option1.Value = TrueCheck1.Value = 0Check2.Value = 0HScroll2.Value = 255HScroll3.Value = 255HScroll4.Value = 255End SubPrivate Sub HS

26、croll1_Change()Timer1.Interval = HScroll1.Value * 20End SubPrivate Sub HScroll2_Change()Text1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)End SubPrivate Sub HScroll3_Change()Text1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)End SubPrivate Sub HScroll4_Change()Text1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)End SubPrivate Sub Option1_Click()If Option1.Value = True ThenText1.FontSize = 14End IfEnd SubPriv