vb課程設(shè)計(jì)報(bào)告---打字程序設(shè)計(jì)報(bào)告

1、<p><b>　　打字程序設(shè)計(jì)報(bào)告</b></p><p><b>　　一、設(shè)計(jì)思路</b></p><p><b>　　1.要達(dá)到的目的</b></p><p>　　①編寫控制菜單，實(shí)現(xiàn)主要功能；</p><p>　?、趦蓚€(gè)產(chǎn)生字母的Label放置在Frame上&

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

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

4、　2.關(guān)鍵問題的解決</b></p><p>　?、儆陔S機(jī)字母的生成，此過(guò)程需要完成的工作有幾個(gè)：字母的生成方法Label1.Caption = Chr(Int(Rnd * 26) + 48)設(shè)定Label1隨機(jī)顯示的字母；設(shè)定顯示字母的速度speed=75，也可以隨機(jī)設(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>　　②字母下落和記時(shí)，兩個(gè)Timer控件的工作。Timer1用于控制字母的下落，采用的方法Label1.top=Label1.top+speed。并檢查字母是否超出Frame范圍，超出則重新調(diào)用生成字母的過(guò)程。Timer2用于控制練習(xí)的時(shí)間，每秒觸發(fā)一次時(shí)間減1。當(dāng)時(shí)間為0時(shí)停止生成新的字母，計(jì)算出打字的正

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

7、控件的interave屬性，實(shí)現(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、 實(shí)現(xiàn)字母隨機(jī)產(chǎn)生</p><p>　　Label3.Left = Int(Rnd * F2.Width) 下落位置隨機(jī)產(chǎn)生</p><p>　　Label3.Top = F2.Top</p><p>　　End Sub 定義過(guò)程 </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("請(qǐng)輸入游戲時(shí)間")&l

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

14、 輸入時(shí)間，實(shí)現(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)用過(guò)程，實(shí)現(xiàn)字母產(chǎn)生，以達(dá)到徇環(huán)</p><p>　　End If </p><p>　　四、設(shè)計(jì)方案的完善及目前存在的問題</p><p>　　1．設(shè)計(jì)方案要完善的地方</p&

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

18、p文件沒問題</p><p><b>　?、跊]能建立起排行榜</b></p><p>　　③建立的以往記錄查詢太簡(jiǎn)單了</p><p>　　五、本次設(shè)計(jì)的收獲及心得體會(huì)</p><p>　　我非常喜歡VB課程設(shè)計(jì)，讓我感受到了動(dòng)手的樂趣，成功運(yùn)用課本知識(shí)的滿足感，通過(guò)這次機(jī)會(huì)，我們?cè)鰪?qiáng)了我們實(shí)踐能力，運(yùn)用知識(shí)的能力，它再

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

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