Download
1 / 16
160 likes | 569 Views
計算機程式及實習 期末報告之口頭報告 ppt 製作. 題目 : 眼明手快 機械工程系 班級 : 車輛一甲 學號 :4A115106 姓名 : 宋承禹 指導老師 : 謝慶存 老師. 眼明手快. 題目為自己所想，遊戲本身是翻翻樂，藉由所規定的時間，記住其相對應的排組，隨後覆蓋起來，並且找出相對應的排組 時間越快表示頭腦發達、靈活，越慢則表示范應時間過久，可以從遊戲中練習其反應速度. 遊玩方式.
E N D
計算機程式及實習期末報告之口頭報告ppt製作 題目:眼明手快 機械工程系 班級:車輛一甲 學號:4A115106 姓名:宋承禹 指導老師:謝慶存老師
眼明手快 • 題目為自己所想，遊戲本身是翻翻樂，藉由所規定的時間，記住其相對應的排組，隨後覆蓋起來，並且找出相對應的排組 • 時間越快表示頭腦發達、靈活，越慢則表示范應時間過久，可以從遊戲中練習其反應速度
遊玩方式 • 其實相當簡單，首先，可以依照你所想要玩的遊戲模式，選其上面任一模式遊玩，由左至右，分別為觀察時間１秒、４秒及８秒，隨後將覆蓋的卡片一一翻開直到翻到相對應的圖片，完成４組，以經過時間，計算反應速度 選擇其中任一模式，並開始由游
程式設計 • Dim n() As Integer = {0, 1, 2, 3, 4, 3, 1, 4, 2} • 宣告陣列為整數變數 • Dim p(8) As PictureBox • Dim hitPic1, hitPic2 As PictureBox • Dim t1, t2 As String • Dim isFirst As Boolean = True • Dim timer1Tot As Integer • Dim timer2Tot As Integer • Dim level As Integer • Dim tot As Integer • 宣告一些圖片.JPG為picturebox
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.Interval = 1000 • Timer2.Interval = 1000 • 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") • p(i).Tag = n(i) • p(i).SizeMode = PictureBoxSizeMode.StretchImage • p(i).BorderStyle = BorderStyle.Fixed3D • p(i).Enabled = False • Next • End Sub
Private Sub pic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic1.Click, pic8.Click, pic7.Click, pic6.Click, pic5.Click, pic4.Click, pic3.Click, pic2.Click • If isFirst Then • hitPic1 = CType(sender, PictureBox) • t1 = hitPic1.Tag.ToString • hitPic1.Image = New Bitmap(hitPic1.Tag.ToString & ".jpg") • isFirst = False • Else • hitPic2 = CType(sender, PictureBox) • t2 = hitPic2.Tag.ToString • hitPic2.Image = New Bitmap(hitPic2.Tag.ToString & ".jpg") • isFirst = True • If t1 = t2 Then • hitPic1.Enabled = False • hitPic2.Enabled = False • tot += 1 • My.Computer.Audio.Play("CHIMES.WAV", AudioPlayMode.Background)
End If • If t1 <> t2 Then • MsgBox("請D至U深`山s修×行a") • hitPic1.Image = New Bitmap("q.jpg") • hitPic2.Image = New Bitmap("q.jpg") • End If • If tot = 4 Then • btn1.Enabled = True • btn2.Enabled = True • btn3.Enabled = True • Timer1.Enabled = False • Timer2.Enabled = False • If level = 2 Then • MsgBox("定力不容小覷") • ElseIf level = 5 Then • MsgBox("沒被引響") • ElseIf level = 10 Then • MsgBox("還不錯") • End If • My.Computer.Audio.Play("MUSIC.WAV", AudioPlayMode.Background) • End If • End If • End Sub
Private Sub GameStart() • My.Computer.Audio.Stop() • level = timer1Tot • btn1.Enabled = False • btn2.Enabled = False • btn3.Enabled = False • Timer1.Enabled = True • timer2Tot = 0 • t1 = "" • t2 = "" • tot = 0 • hitPic1 = Nothing • hitPic2 = Nothing • lblShow.Text = "你婢還可以''觀察'' " & timer1Tot & "秒" • lblTime.Text = "" • For i = 1 To n.GetUpperBound(0) • p(i).Image = New Bitmap(n(i) & ".jpg") • Next • End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick • timer1Tot -= 1 • lblShow.Text = "你婢還可以''觀察'' " & timer1Tot & "秒i" • If timer1Tot = 0 Then • Timer1.Enabled = False • lblShow.Text = "" • Timer2.Enabled = True • For i = 1 To n.GetUpperBound(0) • p(i).Image = New Bitmap("q.jpg") • 'pic1~pic8圖片啟粅用 • p(i).Enabled = True • Next • End If • End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick • timer2Tot += 1 • lblTime.Text = "遊C戲﹐時E間!：G" & timer2Tot & " 秒i" • If timer2Tot = 30 Then • Timer2.Enabled = False • 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") • p(i).Enabled = False • Next • End If • End Sub
超連結 • Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked • Process.Start("http://tw.image.search.yahoo.com/images/view;_ylt=A3eg9cG6tbBR1U0AGMdt1gt.;_ylu=X3oDMTBlMTQ4cGxyBHNlYwNzcgRzbGsDaW1n?back=http%3A%2F%2Ftw.image.search.yahoo.com%2Fsearch%2Fimages%3Fp%3D%25E9%25A6%25AC%25E8%258B%25B1%25E4%25B9%259D%26n%3D30%26ei%3Dutf-8%26y%3D%25E6%2590%259C%25E5%25B0%258B%26fr%3Dyfp%26tab%3Dorganic%26ri%3D9&w=450&h=332&imgurl=i3.sinaimg.cn%2Flx%2F2009%2F0720%2F2009720183136.jpg&rurl=http%3A%2F%2Fdailynews.sina.com%2Fbg%2Fnews%2Ffsh%2Fsinacn%2Fqg%2F2009%2F0721%2F0754891258.html&size=28.2KB&name=%3Cb%3E%E9%A6%AC%E8%8B%B1%E4%B9%9D%3C%2Fb%3E%E7%82%BA%E5%95%A5%E8%A8%8E%E5%A5%B3%E4%BA%BA%E6%84%9B%EF%BC%9F%E5%9B%A0%E4%BB%96%E7%9A%AE%E5%B8%B6%E7%B3%BB%E5%9C%A8%E8%82%9A%E8%87%8D%E4%B8%8B+-+%E6%99%82%E5%B0%9A+...&p=%E9%A6%AC%E8%8B%B1%E4%B9%9D&oid=a8368eff11bfab6c9d64faea8563bd5c&fr2=&fr=yfp&tt=%3Cb%3E%E9%A6%AC%E8%8B%B1%E4%B9%9D%3C%2Fb%3E%E7%82%BA%E5%95%A5%E8%A8%8E%E5%A5%B3%E4%BA%BA%E6%84%9B%EF%BC%9F%E5%9B%A0%E4%BB%96%E7%9A%AE%E5%B8%B6%E7%B3%BB%E5%9C%A8%E8%82%9A%E8%87%8D%E4%B8%8B+-+%E6%99%82%E5%B0%9A+...&b=0&ni=128&no=9&ts=&tab=organic&sigr=129eg5sin&sigb=1470uq521&sigi=11cac8d57&.crumb=HNPmTs3TlSu&fr=yfp") • End Sub
心得 • 這次的VB作業，難度有點高，回想老師的上課內容，問問同學，看一下軟體設計丙級，拼拼湊湊，好不容易湊出來有點樣子，但偵錯的時候，真的會崩潰，還好問同學之後有得到解答，當昨完的那一剎那，成就感真得很特別，很感謝幽默風趣老師的指導，希望對以後使用電腦有相當的幫助 最後，那個超連結希望老師可以按下去，我要學系老師的幽默風趣 謝謝︿︿
參考資料 • 1.Visual Basic 2010 • 2.老師的範例作業 • 3.軟體設計丙級 • 4.同學討論 • 5. 7.Visual Basic 2005程式設計許華菁 普林斯頓2008 8.Visual Basic 2010基礎必修課
