vb課程設計報告---打字程序設計報告

1、<p><b>　　打字程序設計報告</b></p><p><b>　　一、設計思路</b></p><p><b>　　1.要達到的目的</b></p><p>　?、倬帉懣刂撇藛?，實現主要功能；</p><p>　?、趦蓚€產生字母的Label放置在Frame上&

2、lt;/p><p>　?、墼跇撕炆想S機出現字母，字母位置必須在Frame或Picture內</p><p>　?、芨鶕墑e的不同，產生的字母類型（大寫、小寫、數字、上檔鍵）也不同，下落的速度隨著級別而增加；</p><p>　?、萃ㄟ^敲擊鍵盤，將相應字母從屏幕上消失，同時在Frame或Picture上重新產生新的字母；</p><p>　?、抻嬎?/p>

3、出在規定的時間內打字的正確率，并給用戶提示信息</p><p>　?、叽蜃志毩暱蛇B續進行，當沒到規定時間時也可以停止練習，顯示的時間、分數恢復到初始狀態并給出提示信息。</p><p>　?、嗑毩暤臅r間可以自由設定可以改變字體的屬性</p><p>　?、嵩诰毩曢_始時，可以輸入用戶的姓名并在窗體上顯示出來</p><p><b>　

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

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

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

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

8、 實現字母隨機產生</p><p>　　Label3.Left = Int(Rnd * F2.Width) 下落位置隨機產生</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 設置背景顏色字體同理 </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、 輸入時間，實現輸入正確后結束</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 要是達到要求，下落 </p><p>　　If Label3.Top > F2.Height Then</p><p>　　Text3.Text = Val(Text3.Text) + 1</p&

16、gt;<p>　　Cer 落完后，調用過程，實現字母產生，以達到徇環</p><p>　　End If </p><p>　　四、設計方案的完善及目前存在的問題</p><p>　　1．設計方案要完善的地方</p&

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

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

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

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