壹前言一研究動機現今網路小遊戲繁多, 不乏許多釣魚的有趣遊戲, 但釣魚遊戲實在太多了! 想要打破釣魚遊戲只能釣魚的觀念, 我利用所學的 Visual Basic2012, 將改換釣餌, 將釣餌更換成時下當紅的恐龍 yee 頭, 以及使用 MicroAngelo 製作游標, 將遊戲內游標改換成

Size: px

Start display at page:

Download "壹前言一研究動機現今網路小遊戲繁多, 不乏許多釣魚的有趣遊戲, 但釣魚遊戲實在太多了! 想要打破釣魚遊戲只能釣魚的觀念, 我利用所學的 Visual Basic2012, 將改換釣餌, 將釣餌更換成時下當紅的恐龍 yee 頭, 以及使用 MicroAngelo 製作游標, 將遊戲內游標改換成"

甚坂蒲
5 years ago
Views:

1 投稿類別 : 資訊類篇名 : VB 程式設計釣 YEE 作者 : 陳永齊高雄市中正高工資訊科二年級忠班指導老師 : 簡文興老師

2 壹前言一研究動機現今網路小遊戲繁多, 不乏許多釣魚的有趣遊戲, 但釣魚遊戲實在太多了! 想要打破釣魚遊戲只能釣魚的觀念, 我利用所學的 Visual Basic2012, 將改換釣餌, 將釣餌更換成時下當紅的恐龍 yee 頭, 以及使用 MicroAngelo 製作游標, 將遊戲內游標改換成 J 型自製圖示, 不僅增添趣味, 也能跟上現代風潮的主流, 吸引更多年輕人遊玩二研究目的 1. 了解使用程式語言讓物品移動的位移技巧 2. 學習如何更換滑鼠游標 3. 學習數學涵式的運用 4. 因興趣使然三研究方法 ( 一 ) 研究步驟 1. 準備期 : 尋找主題和資源 2. 程式設計 : 尋找物件, 編寫程式碼 3. 測試 : 試玩尋找主題構想程式內容參閱程式書籍程式實例參考編寫程式撰寫小論文流程方塊圖 ( 二 ) 研究工具為了完成本次研究主題, 我們需要以下工具及軟體 2

3 表 ( 一 ) 工具及軟體表類別項目名稱數量硬體軟體電腦 (Windows XP 7) visual basic Adobe Photoshop CS4 MicroAngelo 1 台貳正文一遊戲介紹當點擊遊戲程式後, 跑出遊戲畫面如 ( 圖一 ), 點擊 play 字樣的按鈕就可以開始遊戲, 遊戲視窗中 YEE 的圖片將會隨機移動, 並且碰牆後速度隨機增減圖 ( 二 ) 為遊戲流程圖圖 ( 一 ) 遊戲畫面 3

4 圖 ( 二 ) 遊戲流程圖二遊戲程式解說 ( 一 ) 使用控制項表 ( 二 ) 控制項控制項名稱控制項功能 button 製作按鈕 PictureBox 顯示圖片的框框 Timer 計時器 Windows Media Player 音樂播放器 MenuStrip 設計文字功能表界面 Label 顯示資料 ( 二 ) 程式介紹 1. 全域變數表 ( 三 ) 全域變數 Dim a AsInteger' 倒數秒數 Dim b AsInteger' 分數 Dim c AsInteger' 判別是否能取得分數 Dim q AsInteger' 初始移動值 Dim w AsInteger' 初始移動值 4

5 2. From 程式碼開啟程式後隱藏 AxWindowsMediaPlayer1 物件, 把聲音開到最大, 植入 YEE 聲音音樂, 並且停止播放表 ( 四 )From2 PrivateSub Form2_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load AxWindowsMediaPlayer1.Visible = False ' 隱藏 AxWindowsMediaPlayer1 物件 AxWindowsMediaPlayer1.settings.volume = 100 ' 聲音最大聲 AxWindowsMediaPlayer1.URL = "G:\ 新增資料夾 \ 小論文 ( 寫一些 )\ 作業喔 \I dinosauriantropomorfihannoilsanguenel ritmo123.wav" EndSub' 載入音樂 PrivateSub Form2_Activated(sender AsObject, e AsEventArgs) HandlesMe.Activated' AxWindowsMediaPlayer1.Ctlcontrols.stop() ' 視窗開啟時停止播放 3. Timer 設置三個 Timer 讓第 2.3 個控制圖片移動和速度的快慢如表 ( 五 ), 讓第 1 個 Timer 來控制倒數秒數如表 ( 四 ) Timer2 啟動後重複執行, 讓圖片每 1 毫秒座標 X Y 值加 10 像素, 如果碰到圖片邊緣, 使用亂數讓 q 和 w 值變更, 再以 q 和 w 值增加或減少來變更快慢, 再用 Timer3 延遲 1 秒重新啟動, 若不延遲會爆衝如表 ( 五 ) 表 ( 五 )Timer2.3 PrivateSub Timer2_Tick(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Timer2.Tick DimiAsInteger = 0 Rnd() Do ' 亂數 ' 迴圈 PictureBox2.Location = NewPoint(PictureBox2.Left + q, PictureBox2.Top + w) ' 圖片移動 If PictureBox2.Left < 0 Then q = Rnd() * ElseIf PictureBox2.Left > PictureBox1.Left + PictureBox1.Width - PictureBox2.Width Then 5

6 q = -Rnd() * If PictureBox2.Top < PictureBox1.Top Then w = Rnd() * ElseIf PictureBox2.Top > PictureBox1.Top + PictureBox1.Height - PictureBox2.Height Then i += 1 LoopWhilei = 1 i = 0 Timer3.Start() EndSub Timer2.Stop() w = -Rnd() * ' 啟動 Timer3 延遲一秒 PrivateSub Timer3_Tick(sender AsSystem.Object, e AsSystem.EventArgs) Handles Timer3.Tick Timer3.Stop() Timer2.Start() ' 不延遲會爆衝表 ( 六 )Timer1 PrivateSub Timer1_Tick(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Timer1.Tick If a > 0 Then' 秒數遞減 a -= 1 Label3.Text = a If a = 0 Then Me.Cursor = Cursors.Default Timer1.Enabled = False' 計時器關閉 Timer2.Enabled = False' 計時器關閉 MessageBox.Show(" 時間到! 還要玩按 PLAY") c = 0 ' 點擊圖片能得分關閉 Timer2.Stop() Timer3.Stop() Button1.Enabled = True Label3.Text = 60 6

7 4. Button 點擊 Button1 開始遊戲, 把點擊圖片得分開啟, 改變游標, 分數歸零並且把 play 按鈕關閉表 ( 七 )Button1 PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click If c = 0 Then a = 60 Timer1.Enabled = True Me.Cursor = NewCursor("../../../../1.cur") c = 1 Timer2.Enabled = True' 計時器啟動 Label4.Text = 0' 分數等於 0 q = 10 w = 10 ' 初始移動值 ' 初始移動值 Button1.Enabled = False'Play 按鈕不啟用 ' 變更游標圖 ( 三 ) 為遊戲進行時原始的游標狀態與改變後游標的狀態圖 ( 四 ): 圖 ( 三 ) 原始游標圖 ( 四 ) 改變後游標 5. PictureBox 表 ( 八 ) 點擊圖片, 分數加 1 並且播放音樂 PrivateSub PictureBox2_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles PictureBox2.Click If c = 1 Then b += 1 ' 分數加 1 Label4.Text = b ' 分數 Label AxWindowsMediaPlayer1.Ctlcontrols.play() ' 播放音樂 7

8 ( 三 ) 遊玩時狀態圖 ( 五 ) 開始畫面圖 ( 六 ) 點擊 play 後開始遊戲圖 ( 七 ) 點擊圖片得分時畫面圖 ( 八 ) 時間到遊戲結束三結論一心得每一台電腦裝的 VB 都不一樣, 有 2010 版 2012 版和 2015 版, 在寫程式的時候, 我使用 2010 寫在用 2012 開起來存檔, 在使用 2010 開突然發現他開不起來, 讓我非常的困擾, 之後發現有 2015 版, 就想新版能加上去的東西比較多, 下載後寫完程式釣 YEE 程式就這樣 8

9 程式完成了二未來的研究與建議 1. 加排名記分板, 能讓玩家與玩家能夠比賽 2. 增加更換圖片, 能釣更多的東西 3. 增加釣餌肆引註資料 1. 鄧文淵, 文淵閣工作室 (2011) Visual Basic 2010 程式設計速學對策台北市 : 碁峰出版社 2. MSDN-Microsoft 擷取日期 :2015/11/13, 取自 3. 吳老師教學部落格擷取日期 :2015/11/10, 取自 : 9

投影片 1

投影片 1 計算機程式及實習期末報告題目 : 六宿炒翻天班級 : 奈米一乙姓名 : 陳洋翼學號 :4A514050 老師 : 謝慶存程式說明設計結帳系統, 選擇數量後, 在按下計算, 將會顯示總金額若是老人或小孩, 將可享 8 折或 9 折的優惠程式畫面填選數量在火腿蛋炒飯的數量選擇 1, 並按下計算, 可得總金額 50 元程式畫面打折填選完後, 若客人是小孩或老人, 選擇欲打折項目,