vb課程設(shè)計報告---打字程序設(shè)計報告

1、<p><b>　　打字程序設(shè)計報告</b></p><p><b>　　一、設(shè)計思路</b></p><p><b>　　1.要達(dá)到的目的</b></p><p>　?、倬帉懣刂撇藛?，實現(xiàn)主要功能；</p><p>　　②兩個產(chǎn)生字母的Label放置在Frame上&

2、lt;/p><p>　?、墼跇?biāo)簽上隨機出現(xiàn)字母，字母位置必須在Frame或Picture內(nèi)</p><p>　　④根據(jù)級別的不同，產(chǎn)生的字母類型（大寫、小寫、數(shù)字、上檔鍵）也不同，下落的速度隨著級別而增加；</p><p>　?、萃ㄟ^敲擊鍵盤，將相應(yīng)字母從屏幕上消失，同時在Frame或Picture上重新產(chǎn)生新的字母；</p><p>　?、抻嬎?/p>

3、出在規(guī)定的時間內(nèi)打字的正確率，并給用戶提示信息</p><p>　?、叽蜃志毩?xí)可連續(xù)進(jìn)行，當(dāng)沒到規(guī)定時間時也可以停止練習(xí)，顯示的時間、分?jǐn)?shù)恢復(fù)到初始狀態(tài)并給出提示信息。</p><p>　?、嗑毩?xí)的時間可以自由設(shè)定可以改變字體的屬性</p><p>　?、嵩诰毩?xí)開始時，可以輸入用戶的姓名并在窗體上顯示出來</p><p><b>　

4、　2.關(guān)鍵問題的解決</b></p><p>　　①于隨機字母的生成，此過程需要完成的工作有幾個：字母的生成方法Label1.Caption = Chr(Int(Rnd * 26) + 48)設(shè)定Label1隨機顯示的字母；設(shè)定顯示字母的速度speed=75，也可以隨機設(shè)定速度speed=Int(Rnd*100+100)；設(shè)定字母出現(xiàn)的左邊位置Label1.Left = Int (Rnd * Fram

5、e1.Width)；設(shè)定字母出現(xiàn)的頂部位置Label1.Top = Frame1.Top。</p><p>　?、谧帜赶侣浜陀洉r，兩個Timer控件的工作。Timer1用于控制字母的下落，采用的方法Label1.top=Label1.top+speed。并檢查字母是否超出Frame范圍，超出則重新調(diào)用生成字母的過程。Timer2用于控制練習(xí)的時間，每秒觸發(fā)一次時間減1。當(dāng)時間為0時停止生成新的字母，計算出打字的正

6、確率，并通過MsgBox通知用戶。</p><p>　?、蹤z驗字母是否和鍵盤鍵如一樣，通過KeyPress事件實現(xiàn)。如果正確則重新生成新的字母，并且給記錄打字正確個數(shù)的變量加1。</p><p>　?、鼙尘昂妥煮w的改變，使用一個通用對話框，挺容易解決。</p><p>　?、蓦S等級不同，下落字母增多以及下落速度加快，使用3個LABEL，定義3個過程，再改變timer

7、控件的interave屬性，實現(xiàn)速度不同。</p><p>　　二、模塊之間的調(diào)用關(guān)系，或程序流程圖</p><p>　　三、部分程序關(guān)鍵源代碼及注釋</p><p><b>　　Sub Cer()</b></p><p>　　Label3.Caption = Chr(Round(Rnd * 28) + 62)

8、 實現(xiàn)字母隨機產(chǎn)生</p><p>　　Label3.Left = Int(Rnd * F2.Width) 下落位置隨機產(chǎn)生</p><p>　　Label3.Top = F2.Top</p><p>　　End Sub 定義過程 </p><p

9、>　　Private Sub VBcolor_Click()</p><p>　　CommonDialog2.Flags = vbCCRGBInit</p><p>　　CommonDialog2.Color = BackColor</p><p>　　CommonDialog2.Action = 3</p><p>　　F2.Back

10、Color = CommonDialog2.Color</p><p>　　Label3.BackColor = CommonDialog2.Color</p><p>　　Label4.BackColor = CommonDialog2.Color</p><p>　　Label5.BackColor = CommonDialog2.Color</p>

11、<p>　　End Sub 設(shè)置背景顏色字體同理 </p><p>　　Open "out.txt" For Input As #1</p><p>　　Input #1, score</p><p><b>　　Close #1</b>

12、;</p><p>　　Cls 打開記事本，并寫如記錄</p><p>　　Print score </p><p><b>　　Again:</b></p><p>　　a = InputBox("請輸入游戲時間")&l

13、t;/p><p>　　If a < 10 Or Not IsNumeric(a) Then</p><p>　　MsgBox "請重新輸入10秒以上"</p><p>　　GoTo Again 回到對話框 </p><p>　　End If

14、 輸入時間，實現(xiàn)輸入正確后結(jié)束</p><p>　　Text2.Text = a </p><p>　　Private Sub Timer1_Timer() </p><p>　　If Val(Text2.Text) > 0 Then

15、 </p><p>　　Label3.Top = Label3.Top + 100 要是達(dá)到要求，下落 </p><p>　　If Label3.Top > F2.Height Then</p><p>　　Text3.Text = Val(Text3.Text) + 1</p&

16、gt;<p>　　Cer 落完后，調(diào)用過程，實現(xiàn)字母產(chǎn)生，以達(dá)到徇環(huán)</p><p>　　End If </p><p>　　四、設(shè)計方案的完善及目前存在的問題</p><p>　　1．設(shè)計方案要完善的地方</p&

17、gt;<p>　　不用三個獨立的label,而用控件數(shù)組，這樣可以簡化代碼。</p><p>　?、?實現(xiàn)排行榜功能，能每次看到最高分</p><p>　?、?建立個人檔案，隨時能查看個人練習(xí)資料</p><p>　　2. 目前存在的問題</p><p>　?、儆捎谔砑恿送ㄓ脤υ捒?，當(dāng)打開.frm窗口是加載錯誤，但打開.vb

18、p文件沒問題</p><p><b>　?、跊]能建立起排行榜</b></p><p>　?、劢⒌囊酝涗洸樵兲唵瘟?lt;/p><p>　　五、本次設(shè)計的收獲及心得體會</p><p>　　我非常喜歡VB課程設(shè)計，讓我感受到了動手的樂趣，成功運用課本知識的滿足感，通過這次機會，我們增強了我們實踐能力，運用知識的能力，它再

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

20、上所述，本題木是個很不錯的課題</p><p>　　2．對本次設(shè)計的意見和建議</p><p>　　本次活動培養(yǎng)我們綜合利用VB語言進(jìn)行程序設(shè)計的能力，培養(yǎng)了我們利用系統(tǒng)提供的標(biāo)準(zhǔn)函數(shù)和標(biāo)準(zhǔn)控件進(jìn)行創(chuàng)新設(shè)計。</p><p>　　現(xiàn)在雖然要求素質(zhì)教育，但我們實踐的機會還是很少，像這樣好的火動更少，所以，搞這種實踐活動是非常有必要的</p><p&