南台科技大學自控一甲學號 :4A20H002 學生 : 葉宸侑老師 : 謝慶存

計算機程式及實習 課堂作業之口頭報告ppt製作拉霸遊戲機南台科技大學自控一甲學號:4A20H002 學生:葉宸侑老師:謝慶存

目錄 • 程式說明 • 表單設計 • 程式碼 • 心得

系統功能說明 一開始玩需要先設定投注數量，按下拉感圖示就開始玩拉霸機。如果說沒有投注的話或是金額超過過你擁有的，就會顯示對話方塊“投注有誤”將無法開始遊戲。成功投注時，拉感會向下，即開始遊戲。

中獎條件如下：  若得到3個圖，則投注量得到5倍。  若得到3個圖，則投注量得到10倍。  若得到3個圖，則投注量得到15倍。  若得到3個圖，則投注量得到20倍。

表單設計 Button2

圖檔

程式碼 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共執行幾次 '表單載入時執行Form1_Load事件處理程序 • End Sub

'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) ' 使用迴圈使pic1~pic3顯示0.jpg圖 For i As Integer = 1 To p.GetUpperBound(0) p(i).Image = Image.FromFile("0.jpg") p(i).SizeMode = PictureBoxSizeMode.Zoom Next Timer1.Interval = 100 ' 使Timer1計時器每0.1秒執行一次 lblSum.Text = 50 ' 可投注的總數量lblSum為50 End Sub

Private Sub picBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picBtn.Click ' 判斷投注量nudQty.Value是否大於 0 ' 且投注量nudQty.Value是否大於可投注總數量lblSum.Text If nudQty.Value > 0 And nudQty.Value <= lblSum.Text Then Timer1.Enabled = True '計時器Timer1啟動 ' 可投注量減掉本次的的投注題 lblSum.Text = Val(lblSum.Text) - nudQty.Value nudQty.Enabled = False ' 無法投注 picBtn.Image = New Bitmap("down.jpg") ' 使picBtn顯示down.jpg picBtn.Enabled = False ' picBtn圖片按鈕失效 Else '若投注量小於0且投注量大於可投注的總數量 MsgBox("投注有誤") End If End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim r As New Random '建立亂數物件r ' 使用迴圈讓pic1~pic3每次執行皆亂數的方式顯示0.jpg~3.jpg For i As Integer = 1 To p.GetUpperBound(0) num(i) = r.Next(0, 4) ' 產生 0~3 的亂數並指定給 n(1)~n(3) ' 使pic1~pic3以亂數的方式顯示 0.jpg~3.jpg p(i).Image = Image.FromFile(num(i).ToString & ".jpg") Next t += 1

' 當計時器執行20次時，即馬上判斷是否中獎 If t = 20 Then Timer1.Enabled = False ' 計時器Timer1停止 nudQty.Enabled = True ' 可以開始投注 picBtn.Enabled = True ' picBtn圖形按鈕可啟用 ' 當num(1)=0且num(2)=0且num(3)=0表示pic1~pic3三個圖示皆是荔枝 If num(1) = 0 And num(2) = 0 And num(3) = 0 Then lblSum.Text = (Val(lblSum.Text) + (nudQty.Value * 5)).ToString MsgBox("中獎了! 投注量*5") ' 當num(1)=1且num(2)=1且num(3)=1表示pic1~pic3三個圖示皆是星星 ElseIf num(1) = 1 And num(2) = 1 And num(3) = 1 The

ElseIf num(1) = 1 And num(2) = 1 And num(3) = 1 Then lblSum.Text = (Val(lblSum.Text) + (nudQty.Value * 10)).ToString MsgBox("中獎了! 投注量*10") ' 當num(1)=2且num(2)=2且num(3)=2表示pic1~pic3三個圖示皆是西瓜 ElseIf num(1) = 2 And num(2) = 2 And num(3) = 2 Then lblSum.Text = (Val(lblSum.Text) + (nudQty.Value * 15)).ToString MsgBox("中獎了! 投注量*15") ' 當num(1)=3且num(2)=3且num(3)=3表示pic1~pic3三個圖示皆是BAR ElseIf num(1) = 3 And num(2) = 3 And num(3) = 3 Then lblSum.Text = (Val(lblSum.Text) + (nudQty.Value * 20)).ToString MsgBox("中獎了! 投注量*20") End If picBtn.Image = New Bitmap("up.jpg") '使picBtn顯示up.jpg t = 0 End If End Sub

心得這門課對的老師非常的逗趣，上課不時會開開玩笑～讓課堂充滿歡笑，還好遇到這麼好的老師～不過還記得第一天上課連個儲存都忘了怎麼存，真是太可怕了，這門課對我來說有些困難。這個作業做過程中遇到了許多困難，光是匯入圖片就上網查詢了許久。程式寫入也一直碰壁，還好有同學的幫助，才得以順利解決。

南台科技大學自控一甲學號 :4A20H002 學生 : 葉宸侑老師 : 謝慶存