vb課程設(shè)計報告書

1、河北聯(lián)合大學(xué)軟件設(shè)計基礎(chǔ)（ vb） 課程設(shè)計報告設(shè)計名稱：猜 數(shù) 字 游 戲姓名： x c學(xué)號：2010030101專業(yè)班級：學(xué)院： 機(jī) 械 工 程 學(xué) 院設(shè)計時間：2011 年 6 月 3 日 2011 年 6 月 24 日設(shè)計地點：學(xué) 校 機(jī) 房指導(dǎo)教師評語：指導(dǎo)教師簽字：年月日成績：軟件設(shè)計基礎(chǔ)（ vb） 課程設(shè)計報告第2 頁，共16 頁目錄1.課程設(shè)計目的 3 2.課程設(shè)計任務(wù)與要求 3 3.課程設(shè)計說明書 4 4.課程設(shè)計成果 11 5.程序調(diào)試過程 13 6.設(shè)計問題的不足和改進(jìn)方案 14 7.課程設(shè)計心得 15 8.附錄 17 9.參考文獻(xiàn) 17軟件設(shè)計基礎(chǔ)（ vb） 課程設(shè)計報

2、告第3 頁，共16 頁1 課程設(shè)計目的軟件設(shè)計基礎(chǔ)（vb ） 課程設(shè)計是這門課程的實踐性教學(xué)環(huán)節(jié)之一，本次設(shè)計結(jié)合實際應(yīng)用的要求，使課程設(shè)計既覆蓋vb 的知識點，又接近工程實際需要。目的是通過課程設(shè)計的綜合訓(xùn)練，培養(yǎng)學(xué)生實際分析問題、解決問題的能力， 以及編程和動手能力，最終目標(biāo)是通過課程設(shè)計這種形式，幫助學(xué)生系統(tǒng)掌握vb 這門課程的主要內(nèi)容，養(yǎng)成良好的編程習(xí)慣，更好的完成教學(xué)任務(wù)。2課程設(shè)計任務(wù)與要求：要求：本次課程設(shè)計利用軟件設(shè)計基礎(chǔ)（vb） 課程中所學(xué)到的編程知識和編程技巧，完成具有一定難度和工作量的程序設(shè)計題目，幫助學(xué)生掌握編程、調(diào)試的基本技能，獨立完成所布置的任務(wù)。要求：1、對系統(tǒng)進(jìn)

3、行功能需求分析2、設(shè)計合理的數(shù)據(jù)結(jié)構(gòu)和系統(tǒng)框架3、界面設(shè)計美觀、清楚、合理4、編程簡練，程序功能齊全，能正確運行5、具有一定的創(chuàng)新性6、說明書、流程圖要清楚7、課題完成后必須按要求提交課程設(shè)計報告任務(wù)：1、 熟練使用循環(huán)結(jié)構(gòu)和選擇結(jié)構(gòu)；2、 掌握基本控件3、 使用一些基本函數(shù)4、 程序能完整運行5、該程序需要一定創(chuàng)新軟件設(shè)計基礎(chǔ)（ vb） 課程設(shè)計報告第4 頁，共16 頁3課程設(shè)計說明書功能描述游戲運行后， 玩家可以根據(jù)提示結(jié)果， 猜測正確的數(shù)字， 此游戲能考察玩家的邏輯思維，最終結(jié)果猜測正確，可以顯示你總共猜測次數(shù)，誰猜的次數(shù)少，誰就獲勝。概要設(shè)計模塊結(jié)構(gòu)圖：根據(jù)功能分析， 建立系統(tǒng)的體系結(jié)

4、構(gòu)，即將整個系統(tǒng)分解成若干子模塊，用框圖表示各功能模塊之間的接口關(guān)系（如下圖）。簡易文件系統(tǒng)功能框圖詳細(xì)設(shè)計1、首先在 form 中加入一個commandbuttion 控件， 在 command1 上點擊鼠標(biāo)右鍵，選擇復(fù)制， 在窗體上點擊鼠標(biāo)右鍵，選擇粘貼在窗體上粘貼出九個command1, 此時出現(xiàn)對話框問你要不要創(chuàng)建控件數(shù)組，在此選擇是。然后再加入兩個commandbuttion 控件，一個listbox 、一個 frame、一個 label 。設(shè)置窗體的caption屬性為“猜一猜” 、borderstyle為 1fixed single、控件數(shù)組的captin分別為 0、1、2、3、

5、 4、5、6、7、 8、9，command2 的 caption為“確定 ，command3 的 caption為“取打開游戲（新游戲）輸入數(shù)字判斷結(jié)果（顯示提示）結(jié)果錯誤，繼續(xù)輸入結(jié)果正確游戲結(jié)束軟件設(shè)計基礎(chǔ)（ vb） 課程設(shè)計報告第5 頁，共16 頁消 ，frame1 的 caption為“提示： ，label1 的 cpation 為“ 0 個數(shù)值及位置猜對,0 個數(shù)值猜對但位置不對”。然后選擇菜單編輯器編輯菜單為：游戲、新游戲、顯示答案、結(jié)束游戲，她們的name屬性分別為：game 、new 、view、end。2、在 form_load() 事件中使除菜單外的所有的控件不可操作。3、

6、在 new_click()事件中產(chǎn)生4 個不同的隨機(jī)數(shù)，并使command2 可操作。4、在 command1_click(index as integer)中將控件數(shù)組的索引值作為所猜的數(shù)值，共按下控件數(shù)組command1 中的不同的4 個。5、單擊確定按鈕時，判斷用戶輸入是否正確代碼實現(xiàn)dim pca, pcb, pcc, pcd as integer 電腦給出的每一位數(shù)dim usera, userb, userc, userd as integer 用戶輸入的每一位數(shù)dim degree as integer 用戶猜了幾次dim num as integer 判斷用戶輸入次數(shù)的變量pr

7、ivate sub command1_click(index as integer) 用戶輸入時if num = 4 then command1(index).enabled = false 使得輸入過的按鈕無效end if 判斷用戶輸入了幾位，如果輸入了四位則確認(rèn)按鈕有效if num = 4 then command2.enabled = true end if 取得用戶輸入select case index case 0 userenter (0) 調(diào)用 userenter過程case 1 userenter (1) case 2 userenter (2) 軟件設(shè)計基礎(chǔ)（ vb） 課程設(shè)

8、計報告第6 頁，共16 頁case 3 userenter (3) case 4 userenter (4) case 5 userenter (5) case 6 userenter (6) case 7 userenter (7) case 8 userenter (8) case 9 userenter (9) end select end sub private sub command2_click() dim a, b as integer a = 0 b = 0 degree = degree + 1 if usera = pca then a = a + 1 elseif use

9、ra = pcb or usera = pcc or usera = pcd then b = b + 1 end if if userb = pcb then a = a + 1 elseif userb = pca or userb = pcc or userb = pcd then b = b + 1 軟件設(shè)計基礎(chǔ)（ vb） 課程設(shè)計報告第7 頁，共16 頁end if if userc = pcc then a = a + 1 elseif userc = pca or userc = pcb or userc = pcd then b = b + 1 end if if userd

10、= pcd then a = a + 1 elseif userd = pca or userd = pcb or userd = pcc then b = b + 1 end if 顯示提示label1.caption = a & 個數(shù)值及位置猜對 (a) & & b & 個數(shù)值猜對但位置不對 (b) list1.additem usera & userb & userc & userd & & a & a & & b & b 初始化輸入按鈕command2.enabled = false

11、 for i = 0 to 9 command1(i).enabled = true next i num = 1 判斷輸贏if a = 4 then msgbox 你猜對了！ & 你一共猜了 & degree & 次 for i = 0 to 9 command1(i).enabled = false next i command2.enabled = false end if 軟件設(shè)計基礎(chǔ)（ vb） 課程設(shè)計報告第8 頁，共16 頁end sub private sub command3_click() num = 1 for i = 0 to 9 command1

12、(i).enabled = true next i command2.enabled = false end sub private sub end_click() end end sub private sub form_load() for i = 0 to 9 command1(i).enabled = false next i command2.enabled = false command3.enabled = false view.enabled = false end sub private sub new_click() view.enabled = true 可以看答案lis

13、t1.clear 清空列表框degree = 0 軟件設(shè)計基礎(chǔ)（ vb） 課程設(shè)計報告第9 頁，共16 頁對隨機(jī)數(shù)生成器做初始化randomize num = 1 label1.caption = 0 & 個數(shù)值及位置猜對 & 0 & 個數(shù)值猜對但位置不對 電腦給出的每一位數(shù)pca = int(9 * rnd) do pcb = int(9 * rnd) loop while pcb = pca do pcc = int(9 * rnd) loop while pcc = pca or pcc = pcb do pcd = int(9 * rnd) loop while

14、 pcd = pca or pcd = pcb or pcd = pcc for i = 0 to 9 command1(i).enabled = true next command2.enabled = false command3.enabled = true end sub private sub view_click() msgbox 答案是： & pca & pcb & pcc & pcd & 你答對了嗎？ end sub sub userenter(i) 取得用戶輸入if num = 1 then usera = i num = num +

15、1 軟件設(shè)計基礎(chǔ)（ vb） 課程設(shè)計報告第10 頁，共16 頁elseif num = 2 then userb = i num = num + 1 elseif num = 3 then userc = i num = num + 1 elseif num = 4 then userd = i num = num + 1 else: msgbox 四位數(shù)夠了！ end if end sub 軟件設(shè)計基礎(chǔ)（ vb） 課程設(shè)計報告第11 頁，共16 頁4課程設(shè)計成果（1）初始頁面（2）開始游戲（點擊新游戲，輸入4 個數(shù)）軟件設(shè)計基礎(chǔ)（ vb） 課程設(shè)計報告第12 頁，共16 頁（3）運行結(jié)果（點

16、擊確定按鈕）（4）查看答案（點擊游戲菜單中的查看答案）軟件設(shè)計基礎(chǔ)（ vb） 課程設(shè)計報告第13 頁，共16 頁5.程序調(diào)試過程在程序運行過程中，調(diào)試是不可或缺的重要環(huán)節(jié)。調(diào)試過程中， 可以對程序直接進(jìn)行語法檢查，我在寫完所有代碼后，然后運行程序，就發(fā)現(xiàn)了一些語法錯誤， 如 if 后缺少 end if，對變量沒有正確定義。我在運行程序時， 發(fā)現(xiàn)運行結(jié)果有時不正確， 我想這應(yīng)該是邏輯錯誤， 對于邏輯錯誤 vb 是檢查不出來的，也沒有提示信息產(chǎn)生，所以只能靠自己仔細(xì)分析閱讀程序，并認(rèn)真調(diào)試。最后發(fā)現(xiàn)有一個地方的pcc 寫成了 pcd，還有一個地方的 usera 寫成了 userc 。就是這些細(xì)小的地方，導(dǎo)致了程序運行結(jié)果發(fā)生錯誤。軟件設(shè)計基礎(chǔ)（ vb） 課程設(shè)計報告第14 頁，共16