Transcript 下載/瀏覽

計算機程式及實習
期末報告ppt製作
題目：拉霸遊戲機
南台科技大學
機械工程系
車輛一甲
學號：4A315090
老師：謝慶存
學生:黃議鋒
拉霸遊戲機的遊戲介紹
首先請先下注你想下注的金額
請按下>>>>
計分為右圖
，單拉到有3個一樣時，
，並且
表單輸入介面
pic1/pic2/pic3
picbtn
lable1
nudQty
lblSum
lable2
水果圖片檔
程式碼設計
Public Class Form1
Dim p(3) As PictureBox '宣告P(0)~P(3)的PictureBox，可存放0.jpg~3.jpg 其中P(0)不使用，
P(1)~P(3)代表三個拉霸圖示
Dim num(3) As Integer '宣告num(0)~num(3)的整數陣列，用來存放0~3的數值 其中num(0)不
使用
Dim t As Integer
'宣告t用來計算Timer1共執行幾次
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
picBtn.Image = New Bitmap("UP.jpg顯") '使picBtn示UP.jpg
picBtn.SizeMode = PictureBoxSizeMode.StretchImage '載入的圖片隨著picBtn大小改變
p(1) = pic1
'將pic(1)指定給P(1)
p(2) = pic2
'將pic(2)指定給P(2)
p(3) = pic3
'將pic(3)指定給P(3)
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
lblSum.Text = 50
End Sub
'宣告Timer1每0.1秒執行一次
Private Sub picBtn_Click(sender As Object, e As EventArgs) Handles
picBtn.Click
If nudQty.Value > 0 And nudQty.Value <= lblSum.Text Then
'判定nudQty是否大於0 且投注量nudQty.Value是否大於可投注量
lblSum.Text
Timer1.Enabled = True
lblSum.Text = Val(lblSum.Text) - nudQty.Value
次的投注量
nudQty.Enabled = False
picBtn.Image = New Bitmap("DOWN.jpg")
DOWN.jpg
picBtn.Enabled = False
'計時器Timer1啟動
'可投注量減本
'無法投注
'使picBtn顯示
'picBtn圖片按鈕失效
Else
MsgBox("不給＄＄就想玩(ˋ.ˊ)")
無法投注
End If
'若小於0則
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim r As New Random
'建立亂數物件r
For i As Integer = 1 To p.GetUpperBound(0)
執行皆亂數的方式顯示1.jpg~3.jpg
num(i) = r.Next(0, 4)
'使用迴圈讓pic1~pic3每次
'產生0~3的亂數並指定給n(1)~n(3)
p(i).Image = Image.FromFile(num(i).ToString & ".jpg")
的方式顯示1.jpg~3.jpg
'使pic1~pic3皆為亂數
Next
t += 1
If t = 20 Then
中獎
'當計時器執行20次時，馬上判定是否
End If
Timer1.Enabled = False
'計時器Timer1停止
nudQty.Enabled = True
'可以開始投注
picBtn.Enabled = True
'picBtn的按鈕可以啟用
End Sub
End Class
If num(1) = 0 And num(2) = 0 And num(3) = 0 Then
lblSum.Text = (Val(lblSum.Text) + (nudQty.Value * 5)).ToString
MsgBox("以為很了不起？！")
ElseIf num(1) = 1 And num(2) = 1 And num(3) = 1 Then
lblSum.Text = (Val(lblSum.Text) + (nudQty.Value * 10)).ToString
MsgBox("感覺還不錯啦！！")
ElseIf num(1) = 2 And num(2) = 2 And num(3) = 2 Then
lblSum.Text = (Val(lblSum.Text) + (nudQty.Value * 15)).ToString
MsgBox("有進步(應該啦！！）")
ElseIf num(1) = 3 And num(2) = 3 And num(3) = 3 Then
lblSum.Text = (Val(lblSum.Text) + (nudQty.Value * 20)).ToString
MsgBox("好吧~~算你幸運！！")
End If
picBtn.Image = New Bitmap("UP.jpg")
t=0
End Sub
End Class
實際執行
開始下注
幫拉到３個一樣的就恭喜你啦！
心得
在學期的一開始完全聽不懂VB在做甚麼有什麼好用的，但在老師用心的講解下我
漸漸覺得VB是多麼的有趣好玩。
畢竟不會的東西就是要學,VB對一般人來說,可以說是比較簡單了,雖然有時候我都
禁不起周公的誘惑就睡著,但老師仍然努力的教導我們,或許有些人都沒聽進去,但
老師的努力有目共睹,希望好老師可以繼續教導下去,帶領出許多的人才!!
感謝-謝慶存-老師的細心教導！！
參考文獻
Visual Basic 2013基礎必修課 蔡文龍編 碁峰 2013