


全文預(yù)覽已結(jié)束
下載本文檔
版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
此文檔收集于網(wǎng)絡(luò),如有侵權(quán),請(qǐng)聯(lián)系網(wǎng)站刪除擲骰子游戲設(shè)計(jì)報(bào)告學(xué)院 學(xué)院 班級(jí) 學(xué)號(hào) 姓名 成績(jī) 一、設(shè)計(jì)思路1.要達(dá)到的目的培養(yǎng)學(xué)生綜合利用VB語(yǔ)言進(jìn)行程序設(shè)計(jì)的能力,主要是培養(yǎng)學(xué)生綜合使用基本控件的、子過(guò)程和控件數(shù) 組等操作能力。 設(shè)計(jì)的擲骰子程序可以讓您在休閑時(shí)間享受猜點(diǎn)數(shù)的樂(lè)趣。設(shè)計(jì)的擲骰子游戲程序能輸入點(diǎn)數(shù),也可以選擇點(diǎn)數(shù)進(jìn)行猜數(shù)。2.關(guān)鍵問(wèn)題的解決使用Timer事件用于隨機(jī)產(chǎn)生點(diǎn)數(shù)。使用Shape控件數(shù)組,通過(guò)改變其Visible屬性顯示點(diǎn)數(shù)圖案,通過(guò)改變其Fillcolor改變點(diǎn)數(shù)的顏色。使用API函數(shù)SetCursor為L(zhǎng)abel添加手形光標(biāo)。通過(guò)對(duì)Command的Caption屬性判斷和更改,使一個(gè)Command響應(yīng)不同的事件。二、模塊之間的調(diào)用關(guān)系,或程序流程圖3、 部分程序關(guān)鍵源代碼及注釋Public num As Integer, vn As IntegerPrivate Sub Cmd_Click()Select Case Cmd.CaptionCase 開(kāi)始Cmd.Caption = 停止 定義點(diǎn)擊cmd按鈕之后的caption屬性Timer1.Enabled = True 觸發(fā)timer1 Label2 = 產(chǎn)生的點(diǎn)數(shù) 確定label內(nèi)文字信息 LblNumber2 = 正在產(chǎn)生 確定lblnumber2內(nèi)文字信息 LblResult = 正在產(chǎn)生點(diǎn)數(shù),請(qǐng)稍后. 確定lblresult內(nèi)的文字信息Case 停止Cmd.Caption = 重新輸入 定義點(diǎn)擊停止按鈕之后的cmd的caption屬性Timer1.Enabled = False 使timer1停止 LblNumber2 = vn & 點(diǎn) 使lblnumber中顯示產(chǎn)生的點(diǎn)數(shù) Label2 = 產(chǎn)生的點(diǎn)數(shù) 確定label2顯示的文字信息 If vn = num Then LblResult = 恭喜,您猜對(duì)了。 Else LblResult = 您猜錯(cuò)了。 利用if語(yǔ)句定義lblnumber的文字信息Case 重新輸入 FrmInput.Show 定義點(diǎn)擊重新輸入按鈕后的事件FrmInput.TxtInput.SelStart = 0FrmInput.TxtInput.SelLength = Len(FrmInput.TxtInput.Text)FrmInput.TxtInput.SetFocusUnload MeEnd SelectEnd SubPrivate Sub Cmd1_Click()Select Case Label3.CaptionCase 點(diǎn)數(shù)輸入If Int(Val(TxtInput) 0 And Int(Val(TxtInput) 7 Then 定義輸入字?jǐn)?shù)的范圍(1-6)FrmMain.Show 使frmmain顯示ElseLabel3.Caption = 錯(cuò)誤 確定label3的caption屬性Label1.Caption = 您輸入的數(shù)據(jù)不符合規(guī)定,請(qǐng)重新輸入。 確定label1的caption屬性TxtInput.Visible = False 使texinput隱藏For i = 0 To 5LblClick(i).Visible = FalseNextCmd1.Caption = 重新輸入 定義cmd1的caption屬性End If Case 錯(cuò)誤 Cmd1.Caption = 確定 定義點(diǎn)擊重新輸入按鈕后cmd1的caption屬性For i = 0 To 5 循環(huán)結(jié)構(gòu)LblClick(i).Visible = True Next Label3.Caption = 點(diǎn)數(shù)輸入 確定label3的caption屬性Label1.Caption = 請(qǐng)輸入您猜測(cè)點(diǎn)數(shù)的數(shù)字: 確定label1的cap同屬性TxtInput.Visible = True 定義點(diǎn)擊確定按鈕后textinput顯示TxtInput.SelStart = 0TxtInput.SelLength = Len(TxtInput.Text)TxtInput.SetFocusEnd SelectEnd Sub四、設(shè)計(jì)方案的完善及目前存在的問(wèn)題1設(shè)計(jì)方案要完善的地方骰子的點(diǎn)數(shù)未采用自定義圖片。不能兩個(gè)人同時(shí)競(jìng)猜,少了一些樂(lè)趣。當(dāng)點(diǎn)擊開(kāi)始是骰子滾動(dòng)的比較不美觀。2. 目前存在的問(wèn)題骰子點(diǎn)數(shù)變換的畫(huà)面不夠流暢。五、本次設(shè)計(jì)的收獲及心得體會(huì)在上課的過(guò)程中要努力地認(rèn)真的去聽(tīng)老師的教課,課下認(rèn)真的消化老師所講的內(nèi)容。要多在圖書(shū)館和網(wǎng)上進(jìn)行自學(xué),拓寬自己的知識(shí)面才能更好地去完成每一次作業(yè)。增加練習(xí)vb的時(shí)間,把基礎(chǔ)做扎實(shí)。理論學(xué)習(xí)也要應(yīng)用實(shí)踐,做幾個(gè)自己力所能及的小程序。六、對(duì)該題目和VB設(shè)計(jì)的意見(jiàn)和建議1. 對(duì)該題目的意見(jiàn)和建議可以在點(diǎn)擊開(kāi)始時(shí)增加音樂(lè)效果,使程序更加好玩。可以給骰子做一個(gè)外衣,使骰子更加美觀。這種游戲太過(guò)簡(jiǎn)單,不是很經(jīng)得起玩。2對(duì)本次設(shè)計(jì)
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 電器安全大班教育
- 小學(xué)健康課:正確洗手
- 健康養(yǎng)老服務(wù)體系構(gòu)建與實(shí)踐
- 小兒重癥肺炎發(fā)病護(hù)理
- 心衰病的中醫(yī)護(hù)理常規(guī)
- 胃內(nèi)鏡手術(shù)護(hù)理
- 腦卒中患者的飲食護(hù)理
- 一堂安全教育課
- 吃水果的健康注意事項(xiàng)
- 2025年冷拉鋼項(xiàng)目規(guī)劃申請(qǐng)報(bào)告模范
- 2024-2025學(xué)年度天津鐵道職業(yè)技術(shù)學(xué)院?jiǎn)握小墩Z(yǔ)文》真題附答案詳解(突破訓(xùn)練)
- 2025年育嬰師職業(yè)資格考試試題及答案
- 2023年三種人試題附答案
- 北京市八十中學(xué)2025屆八年級(jí)英語(yǔ)第二學(xué)期期中經(jīng)典試題含答案
- 2024年 金澤鎮(zhèn)專(zhuān)職村務(wù)工作者招錄考試真題試題含答案
- 哇哈哈品牌管理制度
- 2025年第十屆“學(xué)憲法、講憲法”網(wǎng)絡(luò)知識(shí)競(jìng)賽題庫(kù)(含答案)
- 北師大版四年級(jí)下冊(cè)數(shù)學(xué)計(jì)算題每日一練帶答案(共30天)
- HIV實(shí)驗(yàn)室風(fēng)險(xiǎn)評(píng)估-
- 工程更改控制程序DFCPQEOMS-06
- 送電線路工程跨越河流架線施工專(zhuān)項(xiàng)方案
評(píng)論
0/150
提交評(píng)論