水果輪盤小遊戲 ---- 使用 Visual Basic 2012 投稿類別 : 資訊類篇名 : 水果盤小遊戲 -Visual Basic 2012 作者 : 吳承軒國立高雄高級工業職業學校綜高科三年甲班徐毅倫國立高雄高級工業職業學校綜高科三年甲班郭家豪國立高雄高級工業職業學校綜高

Size: px

Start display at page:

Download "水果輪盤小遊戲 ---- 使用 Visual Basic 2012 投稿類別 : 資訊類篇名 : 水果盤小遊戲 -Visual Basic 2012 作者 : 吳承軒國立高雄高級工業職業學校綜高科三年甲班徐毅倫國立高雄高級工業職業學校綜高科三年甲班郭家豪國立高雄高級工業職業學校綜高"

斡柏
5 years ago
Views:

1 投稿類別 : 資訊類篇名 : 水果盤小遊戲 -Visual Basic 2012 作者 : 吳承軒國立高雄高級工業職業學校綜高科三年甲班徐毅倫國立高雄高級工業職業學校綜高科三年甲班郭家豪國立高雄高級工業職業學校綜高科三年甲班指導老師 : 王志偉老師 1

2 壹前言一研究動機高職資訊主要的專業課程, 除了專題製作外, 便是程式語言, 而我們所學的程式語言則為 Visual Basic 2012 起初大家對程式語言不甚了解, 甚至感到畏懼, 但經過老師細心指導及自行實作練習後, 便發現程式語言可以靈活運用我們腦中的想像力與創意, 創作出許多有趣又實用的程式經過組員討論並評估後, 決定利用 Visual Basic 2012 程式語言去設計一個小遊戲, 作為我們專題製作的研究方向二研究目的 ( 一 ) 設計水果盤遊戲 ( 二 ) 了解設計水果盤遊戲的過程 ( 三 ) 研究設計水果盤時所使用的語法貳正文以下開始介紹 Visual Basic 的概念及本次小論文的研究文法一介紹 ( 一 ) 什麼是 Visual Basic? 什麼是 Visual Basic?"Visual" 指的是用來建立使用者所見的方法, 也就是建立圖形使用者介面, 或稱為 GUI "Basic" 指的是 BASIC ( 初學者多用途符號指令碼, Beginners All-Purpose Symbolic Instruction Code) 程式設計語言, 在電腦運算史中, 這是最多程式設計人員所使用的語言只要學習其中少數幾項功能, 就可以建立有用的程式 ( 二 ) 程式語法 1. 一維陣列宣告 (One-dimension Array Declare) (1) 明確指定索引上限 : 語法 :Dim 陣列名稱 ( 索引上限 ) As 資料型別範例 :Dim A(3) As Integer 說明 : 索引下限由 0 開始, 所以上面範例共有 4 個元素, 分別是 A(0) A(1) A(2) A(3) 此時不能明確指定陣列元素的初值數值陣列預設初值為 0, 字串陣列初值為空字串 2

3 (2) 沒有指定索引上限 : 語法 :Dim 陣列名稱 () As 資料型別 = { 初值 1, 初值 2, 初值 3, } 範例 :DimB() As Integer = {-1, -1, -1} 說明 : 由設定的初值個數自動決定索引上限, 索引下限仍是由 0 開始 (3) 沒有指定索引上限也未給初值 : 語法 :Dim 陣列名稱 () As 資料型別或 Dim 陣列名稱 As 資料型別 () 範例 :Dim C()As Integer 或 Dim D As Integer() 說明 : 使用前須使用 New 關鍵字產生陣列, 例如 C = New Integer() {0, 0, 0, 0, 0,0} 2.Random (1) 建構函數 Random 類別不在設計環境的工具箱中, 所以必須自行利用 New 關鍵字呼叫建構函數方式來產生此物件就 Random 類別而言, 它的建構函數有兩種型式 : 表 ( 一 )Random 語法使用與時間相依的種子值來初始化 Random() Random 類別的新執行個體, 所以每次所取得的亂數都不相同使用指定的種子值, 初始化 Random Random(Seed As Int32) 類別的新執行個體這兩種建構函數最大區別在於種子值, 前者是隨時間變動, 後者則是固定的由於亂數的產生始於種子值, 如果重複使用相同的種子就會產生相同的連續數字所以若要讓不同的 Random 物件產生不同序列, 就必須以第一種建構子 Random() 來建立物件 (2) 常用方法 Next 表 ( 二 )Random.NEXT 語法傳回一個亂數, 多型, 有 3 種型式 : Next(): 傳回小於 2^31-1 的非負值的整數亂數 Next(maxValue As Int32): 傳回小於指定最大值的非負值整數亂數, 所以傳回亂數的最大值是 maxvalue-1 Next(minValue As Int 32,maxValue As Int32): 傳回大於或等於 minvalue, 並且小於 maxvalue 的整數亂數 ; 也就是說, 3

4 傳回值的範圍包含 minvalue 但不包含 maxvalue 例如若 AutoRand 為 Random 物件, 則 AutoRand.Next(6,8) 只有兩種可能亂數 6 或 7 3.Timer (1) 功能提供一套機制, 可於指定間隔執行指定作業 (2) 建構函數 Timer() 表 ( 三 )Timer 語法建立一個 Timer 類別的新物件例如 Dim Timer1 As New Timer() 會產生一個名為 Timer1 的 Timer 物件 (3) 常用屬性 Enabled Interval 表 ( 四 )Timer 常用屬性語法計時器的啟動或停止計時的時間, 單位為千分之一秒 (4) 常用事件 Tick 表 ( 五 )Timer 常用事件語法計時終了時觸發的事件二設備表 ( 六 ) 設備表單使用工具數量硬體電腦一 ( 台 ) 軟體 Visual studio 2012 一 ( 套 ) Word 2010 一 ( 套 ) 三製作過程首先做出遊戲開始以及遊戲結束的訊息視窗的程式 ; 進入遊戲畫面後玩家就擁有分數, 每玩一次的分數是 200 分, 因為當按下旋轉鈕後, 水果輪盤會抓取亂數做為起點, 按下停止鈕後, 會照著程式產生終點, 再判斷水果轉盤是否有連線, 若有連線就贏得 200 分, 直到籌碼用完, 遊戲才結束 4

5 以下為系統流程圖如圖 01 遊戲結束是否分數 =0 失去分數否主畫面遊戲開始旋轉停止是否連線獲得分數是圖 01 基本流程圖四成果 ( 一 ) 主畫面畫面有甚麼物件? 藉由遊戲開始按鈕進入遊戲畫面, 如圖 02 遊戲結束則是結束程式圖 02 開始遊戲畫面 5

6 剛開始執行程式時的程式碼 Public Class Form_Start Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Form_Main.Show() ' 遊戲畫面出現 Me.Visible = False ' 開始畫面消失 End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Me.Close() ' 程式關閉 End Sub End Class ( 二 ) 選取圖片 Timer 開始計時後, 藉由 Random 產生的亂數來選取出現的圖片的程式碼 Private Sub Timer_Run_0_Tick(sender As Object, e As EventArgs) Dim rnd As New Random Dim a, b As Integer a = rnd.next(1, 9) ' 取亂數 b = 0 Select Case a Case 1 Pic(b).Image = My.Resources._7 ' 取亂數之後, 所顯示的圖片來源 Case 2 Pic(b).Image = My.Resources.apple Case 3 Pic(b).Image = My.Resources.banana Case 4 Pic(b).Image = My.Resources.cherry Case 5 Pic(b).Image = My.Resources.grape Case 6 Pic(b).Image = My.Resources.watermalon Case 7 Pic(b).Image = My.Resources.melon Case 8 Pic(b).Image = My.Resources.strawbeerry Case 9 6

得獎時右上出現金幣左上圖為第一次玩得分畫面圖右上圖為未得分畫面圖左下圖為第二次玩得分畫面圖右下圖為第三次玩未得分畫面圖圖 03 得獎畫面 Private

Text If PicNumber(0) = PicNumber(1) And PicNumber(1) = PicNumber(2) And

7 Pic(b).Image = My.Resources.pineapple End Select PicNumber(b) = a End Sub ( 三 ) 得獎畫面何謂得獎? 得獎時右上出現金幣左上圖為第一次玩得分畫面圖右上圖為未得分畫面圖左下圖為第二次玩得分畫面圖右下圖為第三次玩未得分畫面圖圖 03 得獎畫面 Private Sub score() point = Label2.Text If PicNumber(0) = PicNumber(1) And PicNumber(1) = PicNumber(2) And PicNumber(0) = PicNumber(2) Then ' 第一列圖片相同 PictureBox10.Image = My.Resources.gold PictureBox10.Visible = True Label2.Text = point If PicNumber(0) = PicNumber(4) And PicNumber(4) = PicNumber(8) And 7

8 PicNumber(8) = PicNumber(0) Then ' 斜右下圖片相同 PictureBox10.Image = My.Resources.gold PictureBox10.Visible = True Label2.Text = point If PicNumber(0) = PicNumber(3) And PicNumber(3) = PicNumber(6) And PicNumber(6) = PicNumber(0) Then ' 第一行圖片相同 PictureBox10.Image = My.Resources.gold PictureBox10.Visible = True Label2.Text = point If PicNumber(3) = PicNumber(4) And PicNumber(4) = PicNumber(5) And PicNumber(5) = PicNumber(3) Then ' 第二列圖片相同 PictureBox10.Image = My.Resources.gold PictureBox10.Visible = True Label2.Text = point If PicNumber(6) = PicNumber(7) And PicNumber(7) = PicNumber(8) And PicNumber(8) = ( 以下程式碼雷同 ) End Sub ( 四 ) 討論 1 問: 我們剛開始要對 9 個圖取亂數時, 中獎機率太高, 如何處理? 答 : 我們藉由調整資料來源的方式, 來把中獎機率調到較平衡的狀態 2 問: 原本全盤相同時有跟單線得獎時不同的得獎圖案, 但因為中獎機率很難全盤相同答 : 所以我們決定把不同的得獎圖案給移除 3 問: 水果盤的圖片停止方式, 原本我們的方式是讓全部一起停答 : 經由指導老師的說法, 我們就多使用一個碼錶, 來讓圖片有間隔 1 秒後依序停止 4 問: 開始按鈕與停止按鈕的問題, 第一次按下開始鈕時, 再按下停止鈕, 圖片會正常依序的停止但再度按下開始按鈕時, 圖片就會自動依序的停止答 : 發現這個情況時, 我們再度回去查看程式碼, 把按下開始鈕的程式碼多加一條讓圖片依序停止的碼錶不作用參結論 8

9 從暑假得知要做小論文一直到完成作品, 時間是頗充裕, 但過程中遇到電腦頻頻死機, 浪費不少時間, 而且製作過程中所遇到的問題令我們非常頭痛從剛開始打程式碼, 我們遇到各種的 BUG, 遇到問題時需要找老師同學幫忙或者上網查資料或許起初會有些挫折感, 但問題解決的那當下會有無比的成就感湧上心頭我們學的 VB 不是很多, 這次做的程式可說是非常得辛苦大部分的程式碼都是慢慢地去找出來並加以鑽研, 鑽研差不多之後, 我們再繼續的打接下來的程式碼這次的小論文過程其實相當有趣 ; 透過組員間的討論, 不僅讓我們學習到很多東西, 對於 VB 我們也不再感到陌生, 這次的小論文中, 不論是在實作上或者是論文報告上, 我們都獲得許多寶貴的經驗肆引註資料一陳會安 (2014) 用實例學 Visual Basic 2013/2012 程式設計 : 程式邏輯視窗程式資料庫 Android App 臺北市: 碁峰資訊二陳會安 (2013) Visual Basic 2012 程式設計範例教本臺北市 : 旗標三莊利吉 (2008) 物件導向程式設計教材擷取日期 2016 年 10 月 14 日, 取自 9

Microsoft PowerPoint - VB14.ppt

Microsoft PowerPoint - VB14.ppt VB 列表盒 LISTBOX 應用資科系林偉川執行畫面 1 2 1 重要屬性 LISTBOX 物件 (VB6) 新增至 LISTBOX 物件中 ADDITEM 自 LISTBOX 物件中刪除選取物件 REMOVEITEM 自 LISTBOX 物件中取出選取物件 ListIndex 顯示 LISTBOX 物件中紀錄個數 Listcount 3 LISTBOX 物件 (VB.NET) 重要屬性新增至