投稿類別 : 資訊類篇名 : Visual Basic 愛財嫁有財作者 : 李健瑛市立沙鹿高級工業職業學校資料處理科三年甲班陳宜佳市立沙鹿高級工業職業學校資料處理科三年甲班陳玟潔市立沙鹿高級工業職業學校資料處理科三年甲班指導老師 : 謝若湘

Size: px

Start display at page:

Download "投稿類別 : 資訊類篇名 : Visual Basic 愛財嫁有財作者 : 李健瑛市立沙鹿高級工業職業學校資料處理科三年甲班陳宜佳市立沙鹿高級工業職業學校資料處理科三年甲班陳玟潔市立沙鹿高級工業職業學校資料處理科三年甲班指導老師 : 謝若湘"

规任
4 years ago
Views:

1 投稿類別 : 資訊類篇名 : 作者 : 李健瑛市立沙鹿高級工業職業學校資料處理科三年甲班陳宜佳市立沙鹿高級工業職業學校資料處理科三年甲班陳玟潔市立沙鹿高級工業職業學校資料處理科三年甲班指導老師 : 謝若湘

2 壹前言本團隊使用 Visual Basic 2010, 設計出一款愛財嫁有財的小遊戲, 運用敘述小故事的方式來層層帶出遊戲的玩法, 增加玩家對遊戲的興趣遊戲關卡介紹 : 一研究動機在多多國裡有一位美麗的公主, 各國的王子都紛紛慕名而來, 但公主十分愛錢, 她只嫁給最有錢的人, 經過一輪的篩選, 最後剩下的兩位王子將進行最後一場比賽比賽規則是在花園裡藏了許多的金幣, 要在時間之內獲得最多金幣的那位王子, 可進行拉霸, 獲得的金幣數有達到公主的要求, 就可以娶公主回家, 若沒有就下次在努力喔! 從小我們所玩的雙人遊戲中, 幾乎都是很死板的, 像是打怪或比速度快等遊戲, 但我們這次藉由偶像劇的劇情, 想出了嬌嬌女或富家女選有錢老公的劇情, 跳脫以往出現過的遊戲, 而且遊戲玩法很簡單老人小孩也可輕易操作二研究目的本團隊認為簡單的遊戲並沒辦法刺激玩家繼續玩下去的念頭, 於是我們將遊戲改編為雙人遊戲, 因為一般遊戲大多都是玩家對電腦, 我們將遊戲改成玩家對玩家增加遊戲之間的較勁三研究方法本團隊利用實際操作的方式寫出遊戲, 並運用 Visual Basic 2010 PhotoImpact 小畫家等軟體, 設計出一款愛財嫁有財的小遊戲貳正文一軟體 Visual Basic 發展過程 1988 年, 微軟公司推出 Quick BASIC4.5( 簡稱 QB), QB 除了擁有一般高階語言的優點外, 程式亦具有結構化 ; 模組化 ; 可編譯程式執行檔等功能 Visual Basic( 簡稱 VB), 是美國微軟公司以 BASIC 程式語言所研發而成, 且是以視覺化圖形來設計, 例如下拉式文字方塊圖形方塊等來安排二程式理論 ( 一 )If Then Else If 條件成立, 則執行 Then 之後的敘述 ; 但條件不成立, 則執行 Else 後的敘述如圖 < 圖一 > 1

3 If 判斷條件 Then 敘述 1 Else 敘述 2 EndIf 成立條件不成立敘述 1 敘述 2 < 圖一 > ( 二 )For-Next 若重覆處理迴圈之次數為已知者, 可使計數迴圈如圖 < 圖二 > For 計數變數 = 起始值 To 終止值 Step 增減量敘述 Next 計數變數 = 起始值否計數變數 <= 終止值是執行敘述計數變數 = 計數變數 + 增減值 < 圖二 > ( 三 ) 副程式與函數 Call by Value 傳值呼叫 (ByVal) 呼叫者變數值傳給副程式或函數, 在該副程式或函數中若有改變, 不影響原值 Call by Reference 傳值呼叫 (ByRef, 預設 ) 呼叫者將變數儲存位址傳給副程式或函數, 在該副程式或函數中若有改變, 即影響原值 2

4 三分工李健瑛 : 程式碼撰寫遊戲構思小論文撰寫陳宜佳 : 程式碼撰寫遊戲構思美工陳玟潔 : 遊戲構思美工小論文撰寫四遊戲及程式介紹 ( 一 ) 遊戲架構流程圖如圖 < 圖三 > 主頁故事遊戲規則遊戲開始拉霸結束 < 圖三 > ( 二 ) 遊戲畫面與內容介紹 < 圖四 > 標題 ( 圖四來源資料 : 研究者繪製 ) 起始畫面使用一個 Button 來進入遊戲 < 圖五 > 故事大綱 ( 圖五來源資料 : 研究者繪製 ) 並使用 PhotoImpact 做美工, 敘述整個遊戲故事 3

5 < 圖六 > 遊戲規則 ( 圖六來源資料 : 研究者繪製 ) 說明吃金幣的遊戲規則, 並按下一頁可開始進行遊戲如圖 < 圖六 > < 圖七 > 吃金幣 ( 圖七來源資料 : 研究者繪製 ) 玩家 1 與玩家 2 進行吃金幣比賽, 率先獲得 5 個金幣者, 才可繼續進行下一個關卡如圖 < 圖七 > < 圖八 > 遊戲說明 ( 圖八來源資料 : 研究者繪製 ) 勝利方可進行拉霸, 此頁面敘述拉霸遊戲規則如圖 < 圖八 > < 圖九 > 拉霸 ( 圖九來源資料 : 研究者繪製 ) 總共有 5 次機會, 累計金額初始值為 5( 萬 ), 若有相同者, 累計金額便隨著玩家所骰的結果來翻倍如圖 < 圖九 > < 圖十 > 結局一 < 圖十一 > 結局二 4

6 ( 圖十來源資料 : 研究者繪製 ) ( 圖十一來源資料 : 研究者繪製 ) 結局有兩個, 如果玩家有達到公主的標準就是出現 < 圖十 >, 反之就出現 < 圖十一 > ( 三 ) 程式介紹關卡一吃金幣的程式碼如 < 表一 > 關卡二拉霸的程式碼如 < 表二 > < 表一 > Dim sx, sy, xx, xy As Integer ' 人物位置 Dim ax, ay, aa, bb As Integer ' 金幣位置, 計算吃了幾個金幣, 並顯示出來 Dim a, b, name1, name2 As String Dim p As Boolean Dim coin(15) As PictureBox Dim eatcoin() As String = New String(15) {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown Select Case e.keycode Case Keys.W a = "w" ' 向上 Case Keys.S a = "s" ' 向下 Case Keys.A a = "a" ' 向左 Case Keys.D a = "do" ' 向右 Case Keys.Up b = "u" ' 向上 Case Keys.Down b = "d" ' 向下 Case Keys.Left b = "l" ' 向左 Case Keys.Right b = "r" ' 向右 End Select ' 移動玩家位置 game1_location() ' 男 1 game2_location() ' 男 2 ' 圖片轉換 game1_images() ' 男 1 game2_images() ' 男 2 p = Not p ' 吃金幣 eat_coin() Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load picture = My.Computer.FileSystem.CurrentDirectory & "\pic\" ' 從電腦抓取圖片 Me.BackgroundImage = Image.FromFile(picture & "image1.jpg") ' 插入圖片 Me.BackgroundImageLayout = ImageLayout.Stretch sx = PictureBox1.Left ' 設 sx 為男 1 的上邊位置 sy = PictureBox1.Top ' 設 sy 為男 1 的上邊位置 xx = PictureBox2.Left ' 設 xx 為男 2 的上邊位置 xy = PictureBox2.Top ' 設 xy 為男 2 的上邊位置 name1 = InputBox(" 玩家 1", " 遊戲名字 ") GroupBox1.Text = name1 ' 將玩家 1 所輸入的名字傳到 GroupBox1 name2 = InputBox(" 玩家 2", " 遊戲名字 ") GroupBox2.Text = name2 ' 將玩家 2 所輸入的名字傳到 GroupBox2 ' 出現頻果 5

7 game_coin() Private Sub game1_location() ' 移動玩家 1 的位置 Select Case a Case "w" If PictureBox1.Top >= 120 Then sy = sy 25 ' 若 sy 的上邊位置 >=120, 則可向上移動 25 Case "s" If PictureBox1.Top <= 380 Then sy = sy + 25 ' 若 sy 的上邊位置 <=380, 則可向下移動 25 Case "a" If PictureBox1.Left >= 15 Then sx = sx 25 ' 若 sx 的左邊位置 >=15, 則可向左移動 25 Case "do" If PictureBox1.Left <= 785 Then sx = sx + 25 ' 若 sx 的左邊位置 <=785, 則可向右移動 25 End Select PictureBox1.Location = New Point(sx, sy) ' 將新 sx,sy 傳到 PictureBox1.Location Private Sub game1_images() Select Case True Case a = "do" And p = True PictureBox1.Image = My.Resources.bb a = "" ' 清空之前所按的鍵, 以讓兩個玩家移動時互不影響 Case a = "do" And p = False PictureBox1.Image = My.Resources.bb a = "" Private Sub game_coin() ' 金幣位置 For i = 1 To 15 coin(i) = New PictureBox ' 直接在表單裡抓取一個 PictureBox 存放金幣圖案 coin(i).image = My.Resources.coin coin(i).sizemode = PictureBoxSizeMode.StretchImage coin(i).size = New Size(50, 50) ' 金幣大小為 50*50 If coin(i).top = 0 Then ' 判斷金幣位置是否有重複 Randomize() ax = Int(Rnd() * 700) + 40 ay = Int(Rnd() * 250) coin(i).top = 1 coin(i).location = New Point(ax, ay) coin(i).backcolor = Color.Transparent ' 去背景, 讓背景透明化 Me.Controls.Add(coin(i)) Next Private Sub eat_coin() ' 吃金幣 For i = 1 To 15 ' 出現 15 個金幣 If (PictureBox1.Left >= coin(i).left And PictureBox1.Left <= coin(i).left + 20) And (PictureBox1.Top >= coin(i).top And PictureBox1.Top <= coin(i).top + 20) Then If eatcoin(i) = 0 Then ' 判斷金幣是否有重複吃到 aa = aa + 1 ' 若沒有則將所吃到的金幣數加 1, 並顯示在 Label1.Text Label1.Text = aa eatcoin(i) = 1 ' 將金幣 i 的代號變成 1 coin(i).visible = False ' 讓金幣隱藏 Next 6

8 If aa = 5 Then ' 若是玩家 1 先吃到 5 個金幣, 則獲勝並進入到下一關 MsgBox(name1 & " 獲勝, 可進行終極任務 ") Me.Hide() Form5.Show() Label3.Text = 1 ' 讓 Label3.Text 變成 1, 並隱藏 Label3.Visible = False ElseIf bb = 5 Then MsgBox(name2 & " 獲勝, 可進行終極任務 ") Me.Hide() Form5.Show() Label3.Text = 2 Label3.Visible = False < 表二 > Dim p(3) As PictureBox ' 存放圖片 Dim t, c(3) As Integer 't 為暫時存放隨機存取的圖片,c 為判斷 3 張圖片是否有相同的 Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.BackgroundImage = Image.FromFile(My.Computer.FileSystem.CurrentDirectory & "\pic\image2.jpg") ' 從檔案裡取出背景 Label2.Visible = False 'label2 隱藏 Label2.Text = Enabled 'label2 不能點選 Label1.Text = "Go" ' 出現 Go, 讓玩家點選 Dim a As String a = Form4.Label3.Text ' 抓在上個遊戲中 Label3.Text 所存的數字 If a = 1 Then ' 若為 1, 則抓玩家 1 的圖片, 反之, 則抓玩家 2 的圖片 PictureBox4.Image = Form4.PictureBox1.Image Label5.Text = 1 ElseIf a = 2 Then PictureBox5.Image = Form4.PictureBox2.Image Label5.Text = 2 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Randomize() For i = 1 To 3 ' 放三張圖片 t = Int(Rnd() * 6) ' 六張圖片隨機選取 3 張放到變數 t c(i) = t ' 再把變數 t 放到變數 c 做判斷 p(i).image = ImageList1.Images(t) ' 再將三張圖片放到變數 P Next Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click p(1) = PictureBox1 ' 第一張圖片 p(2) = PictureBox2 ' 第二張圖片 p(3) = PictureBox3 ' 第三張圖片 For i = 1 To 6 ImageList1.Images.Add(Image.FromFile(My.Computer.FileSystem.CurrentDirectory & "\pic\a" & i & ".gif")) ' Next ImageList1.ImageSize = New Size(150, 150) ' Timer1.Enabled = True 'Timer 開啟,PictureBox 的圖每 0.1 秒換一次 Label1.Visible = False 'label1 隱藏 Label1.Text = Enabled 'label1 無效, 不能點 Label2.Visible = True 'label2 顯示 Label2.Text = "Stop" Label3.Text = Label3.Text - 1 ' 計算剩餘拉霸次數 7

9 Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click Timer1.Enabled = False ' 當按 Label2 時,Timer 關掉,3 個 PictureBox 的圖不再更換 If c(1) = c(2) And c(1) = c(3) And c(2) = c(3) Then' 判斷有幾張圖一樣, 若 3 張都一樣則為中大獎累積金幣 *3 * 骰到的點數 MsgBox(" 中大獎!", 0, " 結果 ") 2 張都一樣則為中獎累積金幣 * 骰到一樣的點數 Label4.Text = Label4.Text * 3 *(c(1)+1) 3 張都不一樣則為沒中獎累積金幣不做翻倍 ElseIf c(1) = c(2) Or c(2) = c(3) Or c(1) = c(3) Then MsgBox(" 中獎!", 0, " 結果 ") If c(1) = c(2) Then Label4.Text = Label4.Text * (c(1)+1) If c(2) = c(3) Then Label4.Text = Label4.Text * (c(2)+1) If c(1) = c(3) Then Label4.Text = Label4.Text * (c(3)+1) ElseIf c(1) <> c(2) And c(2) <> c(3) And c(1) <> c(3) Then MsgBox(" 沒中獎!", 0, " 結果 ") If Label3.Text <> 0 Then ' 判斷剩餘次數是否不等於 0, 若不等於 0 就可繼續 Label2.Visible = False Label2.Text = Enabled Label1.Visible = True Label1.Text = "Go" ElseIf Label3.Text = 0 Then ' 等於 0 時, 就出現 Msgbox 告訴玩家共獲得多少個金幣 Label2.Visible = False Label2.Text = Enabled MsgBox(" 總共獲得了 " & Label4.Text & " 萬個金幣 ",, " 結果 ") Dim norm As Integer norm = 100 If Label4.Text > 100 Then ' 判斷累積金額是否有超過 100, 有則出現 MsgBox 恭喜您達到公主的目標, 出現 Form7 完美的結局 MsgBox(" 恭喜您達到公主的目標, 歡樂多更多 ",, " 結果 ") Me.Hide() Form7.Show() Else ' 沒有則出現 MsgBox 您未達到公主的目標, 失去了追求公主的資格, 出現 Form8 失敗的結局 MsgBox(" 您未達到公主的目標, 失去了追求公主的資格 ",, " 結果 ") Me.Hide() Form8.Show() 参收穫及探討這次的遊戲撰寫讓我們對程式有了更深入的了解, 程式的世界很複雜, 且還有很多地方是我們必須慢慢去學習, 並不是很輕鬆就能撰寫完成的, 並且這一個遊戲讓我們學習到許多語法還有邏輯觀念, 尤其是副程式, 讓我們了解能藉由副程式讓整個遊戲的撰寫過程中, 不會被弄亂, 也因為撰寫這個遊戲讓我們從門外漢, 變得愈來愈喜歡撰寫程式愈來愈有成就感肆引註資料黃建庭 (2011) 程式設計使用 Visual Basic 2010 新北市 : 全華 8

10 Visual Basic 語言的基礎檢索日期 :2017 年 5 月 31 日取自 : 副程式與函數擷取日期 :2017 年 5 月 28 日取自 : 夢想家資訊工廠 (2017) 計算機概論總複習世紀精選新北市 : 全華 9

Visual Basic D 3D

Visual Basic D 3D Visual Basic 2008 2D 3D 6-1 6-1 - 6-2 - 06 6-2 STEP 1 5-2 (1) STEP 2 5-3 (2) - 6-3 - Visual Basic 2008 2D 3D STEP 3 User1 6-4 (3) STEP 4 User1 6-5 (4) - 6-4 - 06 STEP 5 6-6 (5) 6-3 6-3-1 (LoginForm) PictureBox1