VB課程設(shè)-55-.doc_第1頁(yè)
VB課程設(shè)-55-.doc_第2頁(yè)
VB課程設(shè)-55-.doc_第3頁(yè)
全文預(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ì)自己和他人造成任何形式的傷害或損失。

評(píng)論

0/150

提交評(píng)論