vb打字游戲課程設計報告

1、<p><b>　　打字程序設計報告</b></p><p><b>　　一、功能</b></p><p>　　編織一個打字練習游戲程序，使用戶在游戲過程中進行指法練習。</p><p>　　1程序設計的思想和方法。</p><p>　?、倬帉懣刂撇藛?，實現(xiàn)主要功能；</p>

2、<p>　?、趦蓚€產(chǎn)生字母的Label放置在Frame上</p><p>　?、墼跇撕炆想S機出現(xiàn)字母，字母位置必須在Frame或Picture內</p><p>　?、芨鶕?jù)級別的不同，產(chǎn)生的字母類型（大寫、小寫、數(shù)字、上檔鍵）也不同，下落的速度隨著級別而增加；</p><p>　?、萃ㄟ^敲擊鍵盤，將相應字母從屏幕上消失，同時在Frame或Picture上

3、重新產(chǎn)生新的字母；</p><p>　　⑥計算出在規(guī)定的時間內打字的分數(shù)，并給用戶提示信息</p><p>　　⑦打字練習可連續(xù)進行，當沒到規(guī)定時間時也可以停止練習，顯示的時間、分數(shù)恢復到初始狀態(tài)并給出提示信息。</p><p>　?、嗑毩暤臅r間可以自由設定可以改變字體的屬性</p><p>　?、嵩诰毩曢_始時，需要輸入用戶的姓名并在窗體上顯

4、示出來</p><p>　　二、課程設計的詳細設計（在源代碼中已指出，不做詳細說明）</p><p>　　三、調試程序的過程（遇到的問題及解決辦法）</p><p>　?、儆陔S機字母的生成，此過程需要完成的工作有幾個：字母的生成方法Label1.Caption = Chr(Int(Rnd * 26) + 48)設定Label1隨機顯示的字母；設定顯示字母的速度spe

5、ed=75，也可以隨機設定速度speed=Int(Rnd*100+100)；設定字母出現(xiàn)的左邊位置Label1.Left = Int (Rnd * Frame1.Width)；設定字母出現(xiàn)的頂部位置Label1.Top = Frame1.Top。</p><p>　?、谧帜赶侣浜陀洉r，兩個Timer控件的工作。Timer1用于控制字母的下落，采用的方法Label1.top=Label1.top+speed。并檢查

6、字母是否超出Frame范圍，超出則重新調用生成字母的過程。Timer2用于控制練習的時間，每秒觸發(fā)一次時間減1。當時間為0時停止生成新的字母，計算出打字的正確率，并通過MsgBox通知用戶。</p><p>　?、蹤z驗字母是否和鍵盤鍵如一樣，通過KeyPress事件實現(xiàn)。如果正確則重新生成新的字母，并且給記錄打字正確個數(shù)的變量加1。</p><p>　?、鼙尘昂妥煮w的改變，使用一個通用對話

7、框，挺容易解決。</p><p>　?、蓦S等級不同，下落字母增多以及下落速度加快，使用3個LABEL，定義3個過程，再改變timer控件的interave屬性，實現(xiàn)速度不同。</p><p>　　1．設計方案要完善的地方</p><p>　　不用三個獨立的label,而用控件數(shù)組，這樣可以簡化代碼。</p><p>　?、?實現(xiàn)排行榜功能，

8、能每次看到最高分</p><p>　?、?建立個人檔案，隨時能查看個人練習資料</p><p>　　2. 目前存在的問題</p><p>　?、儆捎谔砑恿送ㄓ脤υ捒?，當打開.frm窗口是加載錯誤，但打開.vbp文件沒問題</p><p><b>　?、跊]能建立起排行榜</b></p><p>　

9、?、劢⒌囊酝涗洸樵兲唵瘟?lt;/p><p><b>　　四、輸入輸出數(shù)據(jù)</b></p><p><b>　　五、課程設計總結</b></p><p>　　我非常喜歡VB課程設計，讓我感受到了動手的樂趣，成功運用課本知識的滿足感，通過這次機會，我們增強了我們實踐能力，運用知識的能力，它再一次證實光有課本知識是遠遠不夠的

10、，我要提高的是綜合素質，而非僅是課本知識。</p><p>　　1. 對該題目的意見和建議</p><p>　　打字程序入門簡單，容易下手做，但要完善他還是有一定的難度， 我們有很大的創(chuàng)新空間，能發(fā)揮每個同學的潛能，而且它是一個非常常見的程序，所以，容易使人理解，編寫目的明確。綜上所述，本題木是個很不錯的課題</p><p>　　2．對本次設計的意見和建議</

11、p><p>　　本次活動培養(yǎng)我們綜合利用VB語言進行程序設計的能力，培養(yǎng)了我們利用系統(tǒng)提供的標準函數(shù)和標準控件進行創(chuàng)新設計。</p><p>　　現(xiàn)在雖然要求素質教育，但我們實踐的機會還是很少，像這樣好的火動更少，所以，搞這種實踐活動是非常有必要的</p><p>　　希望學校常搞這種活動</p><p><b>　　六、附件</

12、b></p><p><b>　　Sub Cer()</b></p><p>　　Label3.Caption = Chr(Round(Rnd * 28) + 62) 實現(xiàn)字母隨機產(chǎn)生</p><p>　　Label3.Left = Int(Rnd * F2.Width) 下落位置隨機產(chǎn)生</p

13、><p>　　Label3.Top = F2.Top</p><p>　　End Sub 定義過程 </p><p>　　Private Sub VBcolor_Click()</p><p>　　CommonDialog2.Flags = vbCCRGBInit</

14、p><p>　　CommonDialog2.Color = BackColor</p><p>　　CommonDialog2.Action = 3</p><p>　　F2.BackColor = CommonDialog2.Color</p><p>　　Label3.BackColor = CommonDialog2.Color</p

15、><p>　　Label4.BackColor = CommonDialog2.Color</p><p>　　Label5.BackColor = CommonDialog2.Color</p><p>　　End Sub 設置背景顏色字體同理 </p><p>　　O

16、pen "out.txt" For Input As #1</p><p>　　Input #1, score</p><p><b>　　Close #1</b></p><p>　　Cls 打開記事本，并寫如記錄</p><p

17、>　　Print score </p><p><b>　　Again:</b></p><p>　　a = InputBox("請輸入游戲時間")</p><p>　　If a < 10 Or Not IsNumeric(a) Then</p><p>　　MsgBox "

18、請重新輸入10秒以上"</p><p>　　GoTo Again 回到對話框 </p><p>　　End If 輸入時間，實現(xiàn)輸入正確后結束</p><p>　　Text2.Text = a &

19、lt;/p><p>　　Private Sub Timer1_Timer() </p><p>　　If Val(Text2.Text) > 0 Then </p><p>　　Label3.Top = Label3.Top + 100 要是

20、達到要求，下落 </p><p>　　If Label3.Top > F2.Height Then</p><p>　　Text3.Text = Val(Text3.Text) + 1</p><p>　　Cer 落完后，調用過程，實現(xiàn)字母產(chǎn)生，以達到徇環(huán)</p><p>