計算機程式及實習 期末報告之口頭報告PPT製作 題目: 記憶遊戲

Slides:



Advertisements
Similar presentations
計算機程式及實習 Computer Program Design and Experiment) 期末報告 ppt 南台科技大學機械工程系 姓名 : 蔡中銘 學號 :4A 授課老師 : 謝慶存大帥哥.
Advertisements

南台科技大學 機械工程系 班級 : 車輛三甲 學號 : 學生 : 黃郁鈞.  BMI 值的計算就是 :  體重 / 身高 x 身高  身高需換算成公尺單位計算.
計算機程式及實習 期末報告 PPT 製作 題目 : 肥胖因子檢查 南台科技大學 機械工程系 班級 : 車輛一乙 姓名 : 劉志瑋 學號 : 4A 老師 : 謝慶存.
Visual Basic 語言撰寫程式設計遊戲專題
計算機程式及實習期末報告 VB 2010設計遊戲程式
視窗應用程式表單的基本輸出入 資管系 助理教授 詹曉苓.
題目:徽章之記憶 南台科技大學 機械系 車輛一乙 學號:4A 姓名:黃冠嘉 教師:謝慶存
計算機程式及實習 期末報告 題目:超級猜一猜
題目:記憶大考驗地獄版 南台科技大學 機械工程學系 車輛一乙 學號:4A 姓名:蔡朝翔 教師:謝慶存
計算機概論 第4章 基本視窗程式應用 4-1 程式語言簡介 4-2 演算法與流程圖 4-3 視窗程式語言設計 4-4 資料結構.
計算機程式及實習 期末報告 題目:商店結帳系統
第10章 处理图形 Visual Basic 程序设计教程.
班級:自控四甲 姓名:何禎隆 學號: 老師:謝慶存
計算機程式及實習 課堂作業之口頭報告ppt製作
ooxx這個遊戲程式,非常的簡單只要你小時候會玩井字遊戲即可把電腦打敗,可以說是一種考智力取勝的遊戲。
課程名稱:程式設計 授課老師:________
計算機程式及實習 課堂作業之口頭報告ppt製作 題目:俄羅斯方塊
南台科技大學 機械工程系 車輛一甲 學號:4A 學生:黃信成 老師:謝慶存
Visual Basic 2005學習範本 第5章 選擇結構.
14 繪圖與動畫 [我的小畫家][打磚塊遊戲] 14-1 繪圖的基礎 14-2 滑鼠事件與基本繪圖 14-3 在Bitmap物件繪圖
VB教学中游戏化教学案例设计.
网 络 课 程 马 鞍 学 网 络 山 课 程 大 络 网 Visual Basic程序设计 第 一 讲 最容易接受的编程语言
開學熱身.
南台科技大學 機械工程系 自控一甲 學號: 姓名:林亮宇
題目:台灣客運 南臺科技大學 機械工程系 班級:奈米一乙 學號:4A 姓名:蔡政堯 授課教師:謝慶存
CH10.
BLANK overview.
程式語言Visual Basic 變數的可視範圍
CH11.
課程名稱:程式設計 授課老師:________
建立VB.NET應用程式 資管系 助理教授 詹曉苓.
第2章 建立Visual Basic應用程式.
程式語言 -Visual Basic 變數、常數與資料型態.
Google Data API Spreadsheet
过程 第 7 章.
第4章 程序控制结构与算法基础.
Timer & Format.
第10章 視窗應用程式的工具列與功能表.
機器人-Robot Nobody 機器人.
form1 卡拉OK pictureBox1 fish1.bmp pictureBox2 fish2.bmp label1 卡拉OK字幕機
新觀念的 VB6 教本 第 6 章 資料型別.
PCR300 (13.56MHz) Reader RS232/USB.
Ch03 基本輸出入介面設計 視窗程式設計 授課教師:王大瑾.
广州市教育局教学研究室编写的 初中《信息技术》第二册第二章 《程序设计初步》
Visual Basic程序设计.
多媒體.
VB程序设计语言 主讲教师:王 杨.
P2P聊天工具.
第4章 視窗應用程式的基本輸出入 4-1 物件基礎程式設計 4-2 表單控制項 4-3 按鈕控制項 4-4 資料輸出的標籤控制項
題目:南台飲料店結帳系統 南台科技大學 機械工程系 車輛一甲 學號:4A
菜单、状态栏和工具栏 菜单 状态栏 工具栏 编写代码 创建用户界面 Debug and Deploy 使用 Visual
FileUpload控制項 建國科技大學 資管系 饒瑞佶 2007年.
程式語言(I)- Visual Basic 6.0 第 8 章 模組化程式設計I-副程式與自定函數.
江西财经大学信息管理学院 《数据库应用》课程组2007
班級:車輛一甲 姓名:邱孝哲 學號:4A 老師:謝慶存
計算機程式及實習 Computer Program Design and Experiment) 期末報告ppt製作 南台科技大學 機械工程系 題目:南台電影城結帳系統 班級 : 車輛一甲 學號 : 4A 授教學生: 阮偉倫 授課老師: 謝慶存.
现代信息技术 微电子技术 计算机技术 传感技术 通信技术 处理、存储信息的技术 传感、采集技术 传递信息的技术
計算機概論與實習期末報告 老師:謝慶存 4a415057賴震製作.
題目:這個我一定告飲料店 計算機程式及實習 期末報告ppt製作 南台科技大學 機械工程系 車輛一甲 學號:4A 姓名:林子健
打地鼠(陣列版).
題目:南台快餐店結帳系統 班級:車輛四乙 姓名:趙昱展 學號:4A 老師:謝慶存
第二章、第三章错题分析.
期末考.
Controls.
計算機程式及實習 Computer Program Design and Experiment) 期末報告ppt製作
函數應用(二)與自定函數.
1位选手参加了歌唱比赛,评委们的评分如下:
Activity的生命週期: 播放音樂與影片 靜宜大學資管系 楊子青
程序调试与错误处理.
打地鼠.
Presentation transcript:

計算機程式及實習 期末報告之口頭報告PPT製作 題目: 記憶遊戲 南台科技大學 自控一甲 學號:49912043 老師:謝慶存

記憶遊戲是幾張紙牌,以掀牌的方式成 對,用最少的時間完成者為佳。 記憶遊戲是幾張紙牌,以掀牌的方式成 對,用最少的時間完成者為佳。

系統程式說明 (一)記憶遊戲規則: 選擇專家級有2秒的時間可以觀看 選擇上手級有5秒的時間可以觀看 選擇初學級有10秒的時間可以觀看 (二)若翻牌無法成對,將會出現如下圖視窗

專家級過關後會出現上圖第一個視窗 上手級過關後會出現上圖第二個視窗 上手級過關後會出現上圖第三個視窗 過關後皆會出現掌聲音效

系統分析 1.設定表單的背景圖為米黃色。 2.將0.jpg~3.jpg和q.jpg(問號圖)、 chimes.wav(風鈴聲)、applause.wav(鼓掌聲)放置目前專案的bin/debug資料夾下。 3.建立名稱為pic1~pic8的圖片方塊控制項,記憶遊戲的8個圖示。 4.建立名稱為btn1專家級、btn2上手級、btn3初手級,用來選擇記憶遊戲的等級。

5.建立名稱為lblshow標籤控制項,用來顯示遊戲開始之前玩家可檢視的秒數。 6.建立名稱為lblTime計時器控制項,用來顯示目前玩遊戲所花費的時間。 7.建立名稱Timer1計時器控制項,用來計算遊戲開始之前玩家可檢視的秒數。 8.建立名稱Timer2計時器控制項,用來計算玩遊戲所花費的時間。

介面介紹 專家級 Btn1 上手級 Btn2 初學級 Btn3 pic1 pic2 pic3 pic4 pic5 pic6 pic7

程式碼介紹 Public Class Form1 '宣告n(0)~n(8)整數陣列,用來表示8個圖片方塊所表示的值 Dim n() As Integer = {0, 1, 2, 4, 3, 3, 1, 4, 2} '宣告p(0)~p(8)圖片方塊控制項陣列,p(0)省略不用,p(1)~p(8)用來代表pic1~pic8 Dim p(8) As PictureBox '宣告hitPic表示第一次翻牌的圖片方塊、hitPic2表示第二次翻牌的圖片方塊 Dim hitPic1, hitPic2 As PictureBox 't1字串存放第一次翻牌圖片所取得的值 't2字串存放第二次翻牌圖片所取得的值 Dim t1, t2 As String Dim isFirst As Boolean = True 'isFirst表示第一次按下圖片的旗標 Dim timer1Tot As Integer '表示timer1計時器執行的次數 Dim timer2Tot As Integer '表示timer2計時器執行的次數 Dim level As Integer '表示等級,2為高級,5為中級,10為初級 Dim tot As Integer '答對的組數,若tot為4表示過關

'Form1表單載入時,即觸發Form1_Load事件處理函式 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink lblShow.Text = "請按 [開始] 鈕進行遊戲" lblTime.Text = "" '指定Timer1每一秒執行Timer1_Tick事件處理程序一次 Timer1.Interval = 1000 '指定Timer2每一秒執行Timer1_Tick事件處理程序一次 Timer2.Interval = 1000 '分別將pic1~pic8指定給p(1)~p(8),表示p(1)~p(8)可以操作pic1~pic8控制項 p(1) = pic1 p(2) = pic2 p(3) = pic3 p(4) = pic4 p(5) = pic5 p(6) = pic6 p(7) = pic7 p(8) = pic8 For i = 1 To n.GetUpperBound(0) p(i).Image = New Bitmap("q.jpg") '使pic1~pic8顯示q.jpg p(i).Tag = n(i) 'pic1~pic8的Tag屬性皆設為n(1)~n(8) '使圖片隨pic1~pic8的大小做縮放 p(i).SizeMode = PictureBoxSizeMode.StretchImage '使pic1~pic8的框線樣式以3D框線顯示 p(i).BorderStyle = BorderStyle.Fixed3D p(i).Enabled = False 'pic1~pic8失效 Next End Sub

'定義pic1_Click事件處理函式,以提供給pic1~pic8的Click事件使用 Private Sub pic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic8.Click, pic7.Click, pic6.Click, pic5.Click, pic4.Click, pic3.Click, pic2.Click, pic1.Click '第一次翻牌 If isFirst Then hitPic1 = CType(sender, PictureBox) '將第一次翻牌的圖片方塊指定給hitPic1 t1 = hitPic1.Tag.ToString '將目前翻牌圖片的值指定給t1 '顯示目前翻牌的圖示 hitPic1.Image = New Bitmap(hitPic1.Tag.ToString & ".jpg") isFirst = False '將isFirst設為False表示目前己結束第二次翻牌 Else '第二次翻牌 hitPic2 = CType(sender, PictureBox) '將第二次翻牌的圖片方塊指定給hitPic t2 = hitPic2.Tag.ToString '將目前翻牌圖片的值指定給t2 hitPic2.Image = New Bitmap(hitPic2.Tag.ToString & ".jpg") isFirst = True '將isFirst設為True表示目前已結束第二次翻牌 '若t1等於t2,表示所翻牌兩個圖片的Tag屬性相同,即兩者的圖示相同 If t1 = t2 Then '使目前翻牌兩個圖片失效 hitPic1.Enabled = False hitPic2.Enabled = False tot += 1 '答對組數加1 My.Computer.Audio.Play("CHIMES.WAV", AudioPlayMode.Background) End If '若t1不等於t2,表示所翻牌兩個圖片的Tag屬性不同,即兩者的圖示不相同

If t1 <> t2 Then MsgBox("答錯了^_|||") '將第一次和第二次翻牌的圖示以q.jpg顯示 hitPic1.Image = New Bitmap("q.jpg") hitPic2.Image = New Bitmap("q.jpg") End If '若答對組數為4,即表示過關 If tot = 4 Then 'btn1. btn2. btn3鈕啟用 btn1.Enabled = True btn2.Enabled = True btn3.Enabled = True Timer1.Enabled = False 'Timer1計時器停止 Timer2.Enabled = False 'Timer2計時器停止 If level = 2 Then MsgBox("過關了...果然是記憶高手") ElseIf level = 5 Then MsgBox("過關了...你的記憶力還不錯") ElseIf level = 10 Then MsgBox("過關了...你的記憶力還馬馬乎乎") '播放股掌聲 My.Computer.Audio.Play("APPLAUSE.WAV", AudioPlayMode.Background) End Sub

'進行遊戲的GameStart()程序 Private Sub GameStart() My.Computer.Audio.Stop() '停止播放聲音 level = timer1Tot btn1.Enabled = False 'btn1鈕失效 btn2.Enabled = False 'btn2鈕失效 btn3.Enabled = False 'btn3鈕失效 Timer1.Enabled = True '啟動Timer1計時器 timer2Tot = 0 'timer2Tot的計時遊戲時間 t1 = "" '將t1第一次翻牌圖片所取得的值設為空白 t2 = "" '將t2第二次翻牌圖片所取得的值設為空白 tot = 0 '將答對的組數設為0,若tot為4表示過關 hitPic1 = Nothing '將hitPic1第一次翻牌的圖片方塊設為Nothing hitPic2 = Nothing '將hitPic2第一次翻牌的圖片方塊設為Nothing lblShow.Text = "你可以檢視的時間還有 " & timer1Tot & "秒" lblTime.Text = "" '使pic1~pic8顯示1~4.jpg四個圖示 For i = 1 To n.GetUpperBound(0) p(i).Image = New Bitmap(n(i) & ".jpg") Next End Sub

Private Sub btn1_Click(ByVal sender As System Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click timer1Tot = 2 '設定timer1Tot的倒數時間為2秒 GameStart() End Sub Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click timer1Tot = 5 '設定timer1Tot的倒數時間為5秒 Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click timer1Tot = 10 '設定timer1Tot的倒數時間為10秒 'Timer1計時器啟動時會觸發Timer1_Tick事件 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick timer1Tot -= 1 'timer1Tot減1即倒數秒數 lblShow.Text = "你可以檢視的時間還有 " & timer1Tot & "秒" If timer1Tot = 0 Then '若timer1Tot倒數秒數為0則執行下面敘述 Timer1.Enabled = False 'Timer1失效 lblShow.Text = "" Timer2.Enabled = True 'Timer2啟動 For i = 1 To n.GetUpperBound(0) p(i).Image = New Bitmap("q.jpg") 'pic1~pic8顯示q.jpg 'pic1~pic8圖片啟用 p(i).Enabled = True Next End If

'Timer2計時器啟動時會觸發Timer2_Tick事件 Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick timer2Tot += 1 'timer2Tot加1即遊戲時間加1 lblTime.Text = "遊戲時間:" & timer2Tot & " 秒" 'timer2Tot遊戲時間到30時,即執行下面敘述馬上停止遊戲 If timer2Tot = 30 Then Timer2.Enabled = False 'Timer2失效 'btn1, btn2, btm3啟用 btn1.Enabled = True btn2.Enabled = True btn3.Enabled = True MsgBox("時間到,闖關失敗") lblShow.Text = "請按 [開始] 鈕進行遊戲" lblTime.Text = "" For i = 1 To n.GetUpperBound(0) p(i).Image = New Bitmap("q.jpg") 'pic1~pic8顯示q.jpg p(i).Enabled = False 'pic1~pic8圖片失效 Next End If End Sub End Class