计算机程式及实习期末报告题目拉霸游戏.pptVIP

* * 計算機程式及實習期末報告題目:拉霸遊戲 機械工程系 奈米ㄧ甲 學號學生:林妍伶 老師:謝慶存 拉霸遊戲 這是一個每個人都有看過的小遊戲 只不因為有可能會涉及到賭博，所以做這程式過過乾癮 不過呢，好拉霸 不玩嗎? 摘要 一. 拉霸遊戲機遊戲規則： 1. 開始時需先設定本次投注數量，按 拉桿圖示即開始玩拉霸機。若投注量為0或投注量超過你擁有的總數量，即顯示對話方塊，告知您「阿部等著你贏錢呢」無法玩拉霸機。投注總量預設50。 2. 若允許投注時，按 未拉桿圖示即變成 已按拉桿圖示，此時拉霸機開始轉動且表單上的三個圖片方塊控制項中，每個控制項會以亂數方式由下面四張圖檔中任選一張顯示。 中獎的條件 - 0.jpg、 - 1.jpg、 - 2.jpg、 - 3.jpg 大約過了三秒後，拉霸機停止自動轉動，程式上判斷是否有中獎？並將拉桿恢復成變成 圖示。 中獎條件如下： ? 若得到3個 圖，則投注量得到5倍。 ? 若得到3個 圖，則投注量得到10倍。 ? 若得到3個 圖，則投注量得到15倍。 ? 若得到3個 圖，則投注量得到20倍。 .系統分析 二1. 本遊戲需先設計一張背景圖當表單背景 在程式建立三個圖片方塊，一個未按和已按拉桿圖示 一個標籤控制項用來顯示目前可投注總數量和一個數字按鈕控制項用來設定每次投注量。 2. 拉霸機上面三個圖示如何建立為方便用迴圈來讀取圖片，需將表單的三個圖片方塊設成控制項陣列，將圖檔變成檔名尾端含有連續數字檔。建立一個陣列為PictureBox圖片方塊陣列，陣列元素為p(0)~p(3)，將pic1~pic3三個圖片控制項指定給p(1)~p(3)，即可使用迴圈透過p(1)~p(3)來操作pic1~pic3三個圖片方塊控制項的相關屬性。 3. 如何應用計時器由圖片控制項中亂數取圖？- 當拉霸機啟動時，Timer1 計時器的 Tick 事件即 開始計時在指定時間內，pic1~pic3 三張圖片- 控制項分別以亂數方式由 0~3.jpg 四張圖片中 選取一張來顯示。- 為讓拉霸機上的三張水果圖有滾動感覺， 每隔 0.1 秒重新亂數取圖一次，連續20次才停止 計時- 必須宣告 t 成員變數，當計時器執行一次時 t變數 累加 1，當 t=20，計時器即停止且 t 變數馬上還原 為 0。 程式流程圖 表面設計 pic1/pic2/pic3 picBtn lblSum Timer1 (縮小到下面了) 規則 1.本遊戲需要有3個同樣的花色才能得到錢 2.每次賭都是會扣錢的 要注意 3.輸了就會把你給的前扣除 4.贏到的會把你的錢在X上妳中的花色 5.沒有錢下注 你就是GAME OVER 從起新局八 程式碼 Public Class Form1 宣告p(0)~p(3)的PictureBox陣列，可存放用來存放0.jpg~3.jpg 其中p(0)不使用，p(1)~p(3)代表三個拉霸圖示 Dim p(3) As PictureBox 宣告num(0)~num(3)的整數陣列，用來存放0~3的數值 其中num(0)不使用 Dim num(3) As Integer Dim t As Integer 宣告t用來計算Timer1,Timer2,Time3共執行幾次 表單載入時執行Form1_Load事件處理程序 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 使表單無法被調整大小 Me.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink picBtn.Image = New Bitmap(up.jpg) 使picBtn顯示up.jpg 使載入的圖片隨picBtn大小伸縮 picBtn.SizeMode = PictureBoxSizeMode.StretchImage p(1) = pic1 將pic1指定給p(1) p(2) = pic2 將pic2指定給p(2) p(3) = pic3 將pic3指定給p(3)