VB打字游戲課程設(shè)計(jì)報(bào)告

1、內(nèi)容摘要：本程序是利用vb編寫的一個(gè)打字游戲，游戲具有功能：上方有文字掉下，按鍵可將其擊掉，有速度選擇，難度選擇，難度低時(shí)為單個(gè)字符，難度高時(shí)為單詞。本游戲，可以讓用戶從零開始逐步變?yōu)榇蜃指呤?，短時(shí)間內(nèi)運(yùn)指如飛！48小時(shí)成為打字高手，寓教于樂。本設(shè)計(jì)報(bào)告包括初始的設(shè)計(jì)想法，概要設(shè)計(jì)和詳細(xì)設(shè)計(jì)。詳細(xì)設(shè)計(jì)包括界面設(shè)計(jì)和所需代碼，及其運(yùn)行后的結(jié)果圖，以便具體使用。本設(shè)計(jì)適用于VB初學(xué)者、愛好者的參考資料。由于編者水平有限，時(shí)間倉(cāng)促，難免有不足之處，敬請(qǐng)讀者不吝賜教。目 錄1. 功能描述32. 概要設(shè)計(jì)33. 詳細(xì)設(shè)計(jì)44. 效果及存在問題95. 心得體會(huì)12小組成員12參考文獻(xiàn)121功能描述本程序是

2、利用vb編寫的一個(gè)打字游戲，游戲可以選擇難易程度，選擇簡(jiǎn)單時(shí)上方掉落的是單個(gè)字符，選擇困難時(shí)上方掉落的是單詞，當(dāng)正確按鍵時(shí)可以將其擊掉，成績(jī)相應(yīng)增加一分，開始前可以選擇游戲速度，點(diǎn)擊加減按鈕可以調(diào)節(jié)游戲速度。本程序還有許多實(shí)用功能，可以將游戲暫停、繼續(xù)、從來、結(jié)束等。2概要設(shè)計(jì)打字游戲簡(jiǎn)單方框圖：屏幕上方掉落單個(gè)字符時(shí)鍵盤輸入對(duì)應(yīng)的單個(gè)字符屏幕上的單個(gè)字符消失與單詞最比較相同時(shí)單詞消失屏幕上方掉落為單詞時(shí)鍵盤輸入對(duì)應(yīng)的單詞單詞存在在標(biāo)簽label8的caption上3詳細(xì)設(shè)計(jì)(1)界面設(shè)計(jì)在窗體上添加6個(gè)命令按鈕command1、command2、 command3 、command4、Com

3、mand5 command6、8個(gè)標(biāo)簽Label1、Label2、Label3、Label4、Label5、Label6、Label7、Label8、2個(gè)定時(shí)器time1、time2、1個(gè)文本框text1和2個(gè)單選按鈕option1、option2按表修改它們的屬性，如圖所示。對(duì)象屬性值Command1Caption加Command2Caption減Command3Caption開始Command4Caption結(jié)束Command5Caption暫停/繼續(xù)Command6Caption重來Label1CaptionLabel2CaptionLabel3Caption成績(jī)Label4Captio

4、n速度Label5Caption18Label6CaptionLabel7CaptionLabel8Captiontime1Interval0Time2Interval0Option1Caption簡(jiǎn)單Option2Caption困難Text1text(2)編寫程序代碼如下：Private Sub Command1_Click()'曾加速度Label5.Caption = Label5.Caption + 1End Sub'減小速度Private Sub Command2_Click()Label5.Caption = Label5.Caption - 1End Sub'

5、;開始游戲Private Sub Command3_Click()If Option1.Value ThenTimer1.Interval = 1Timer2.Interval = 0Label7.Caption = ""Label1.Top = 8760Label6.Top = 8760Label1.Visible = TrueLabel6.Visible = TrueEnd IfIf Option2.Value ThenTimer2.Interval = 1Timer1.Interval = 0Label1.Caption = ""Label6.Ca

6、ption = ""RandomizeClsa = Array("one", "two", "three", "free", "feel", "fly", "lacking", "the", "power", "that")x = Int(Rnd * (UBound(a) + 1)Label7.Caption = a(x)Command1.Enabled = FalseComm

7、and2.Enabled = FalseLabel7.Top = 0Label7.Visible = TrueEnd IfText1.SetFocusEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)'判斷簡(jiǎn)單時(shí)是否打中，并使成績(jī)加一If Option1.Value ThenTimer1.Interval = 1If KeyAscii = Asc(Label1.Caption) Then Label1.Top = 0 Label1.Left = Rnd() * 10800 Label1.Caption = Chr$(Rnd() *

8、 26 + 97) Label2.Caption = Label2.Caption + 1 End IfIf KeyAscii = Asc(Label6.Caption) Then Label6.Top = 0 Label6.Left = Rnd() * 10800 Label6.Caption = Chr$(Rnd() * 26 + 97) Label2.Caption = Label2.Caption + 1 End If End If '判斷困難時(shí)是否打中，并使成績(jī)加一If Option2.Value ThenTimer2.Interval = 1End If If KeyAsc

9、ii >= 65 And KeyAscii <= 86 Or KeyAscii >= 97 And KeyAscii <= 122 Then Label8.Caption = Label8.Caption & Chr(KeyAscii) ElseIf KeyAscii = 32 Then Label8.Caption = "" Text1.Text = "" End If If Label7.Caption = Label8.Caption Then Label7.Caption = "" Label8

10、.Caption = "" Text1.Text = "" Label7.Top = 0 Label7.Left = Rnd() * 10800 Randomize Cls a = Array("one", "two", "three", "free", "feel", "fly", "lacking", "the", "power", "that") x

11、= Int(Rnd * (UBound(a) + 1) Label7.Caption = a(x) Label2.Caption = Label2.Caption + 1End IfEnd Sub'結(jié)束Private Sub Command4_Click()EndEnd Sub'暫?；蚶^續(xù)游戲Private Sub Command5_Click()Static f As IntegerIf f = 0 ThenTimer1.Interval = 0Timer2.Interval = 0f = 1Command3.SetFocusElseTimer1.Interval = 1Ti

12、mer2.Interval = 1f = 0Command3.SetFocusEnd IfEnd Sub'重新游戲Private Sub Command6_Click()Timer1.Interval = 0Label2.Caption = 0Label5.Caption = 18Timer1.Interval = 0Timer2.Interval = 0Label1.Visible = FalseLabel6.Visible = FalseLabel7.Visible = FalseLabel1.Caption = ""Label6.Caption = "

13、;"Label7.Caption = ""Command1.Enabled = TrueCommand2.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Randomize'簡(jiǎn)單時(shí)游戲速度Label1.Top = Label1.Top + Label5.CaptionLabel6.Top = Label6.Top + Label5.Caption + 15'判斷是否到底，并隨機(jī)生成字母，從頂開始 If Label1.Top > 8760 Then Label1.Top = 0 Label1.Le

14、ft = Rnd() * 10800 Label1.Caption = Chr$(Rnd() * 26 + 96)End IfIf Label6.Top > 8760 Then Label6.Top = 0 Label6.Left = Rnd() * 10800 Label6.Caption = Chr$(Rnd() * 26 + 96) End IfEnd SubPrivate Sub Timer2_Timer()Randomize'困難時(shí)游戲速度Label7.Top = Label7.Top + Label5.Caption + 10'判斷是否到底，并隨機(jī)生成單詞，從

15、頂開始If Label7.Top > 8760 Then Label7.Top = 0 Label7.Left = Rnd() * 10800RandomizeClsa = Array("one", "two", "three", "free", "feel", "fly", "lacking", "the", "power", "that")x = Int(Rnd * (UBound(a)

16、 + 1)Label7.Caption = a(x) Else Label7.Top = Label7.Top + 5End IfEnd Sub4效果及存在問題運(yùn)行后得到如圖界面選擇簡(jiǎn)單模式時(shí)，單擊開始，上方掉落的是單個(gè)字符選擇困難模式時(shí)，單擊開始，上方掉落的是單詞存在問題: 1結(jié)束時(shí)沒有提示是否確定結(jié)束游戲 2 游戲還缺許多人性化設(shè)計(jì)5.心得體會(huì) 通過本次的VB實(shí)驗(yàn)程序設(shè)計(jì)，使我對(duì)VB課程有進(jìn)一步的了解，使自己的上機(jī)能力有大幅度提升，在設(shè)計(jì)這個(gè)程序時(shí)，首先我開始構(gòu)思游戲的內(nèi)容，再?gòu)臅?、網(wǎng)上找了一些有關(guān)打字游戲設(shè)計(jì)的資料，但是當(dāng)把基本的弄好了之后，發(fā)現(xiàn)了一些棘手的問題，使我無從下手，經(jīng)過與同學(xué)的商討和老師的指導(dǎo)后，終于明白了其中的奧妙：其實(shí)在打字游戲程序上花費(fèi)最多事時(shí)間是在鍵盤的輸入如何問題，當(dāng)對(duì)應(yīng)的輸入和掉落的單個(gè)字符、單詞相同時(shí)屏幕上的單個(gè)字符、