1 / 16

計算機程式及實習 期末報告之口頭報告 ppt 製作

計算機程式及實習 期末報告之口頭報告 ppt 製作. 題目 : 眼明手快 機械工程系 班級 : 車輛一甲 學號 :4A115106 姓名 : 宋承禹 指導老師 : 謝慶存 老師. 眼明手快. 題目為自己所想，遊戲本身是翻翻樂，藉由所規定的時間，記住其相對應的排組，隨後覆蓋起來，並且找出相對應的排組 時間越快表示頭腦發達、靈活，越慢則表示范應時間過久，可以從遊戲中練習其反應速度. 遊玩方式.

ora
Télécharger la présentation

計算機程式及實習 期末報告之口頭報告 ppt 製作

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. 計算機程式及實習期末報告之口頭報告ppt製作 題目:眼明手快 機械工程系 班級:車輛一甲 學號:4A115106 姓名:宋承禹 指導老師:謝慶存老師

  2. 眼明手快 • 題目為自己所想，遊戲本身是翻翻樂，藉由所規定的時間，記住其相對應的排組，隨後覆蓋起來，並且找出相對應的排組 • 時間越快表示頭腦發達、靈活，越慢則表示范應時間過久，可以從遊戲中練習其反應速度

  3. 遊玩方式 • 其實相當簡單，首先，可以依照你所想要玩的遊戲模式，選其上面任一模式遊玩，由左至右，分別為觀察時間１秒、４秒及８秒，隨後將覆蓋的卡片一一翻開直到翻到相對應的圖片，完成４組，以經過時間，計算反應速度 選擇其中任一模式，並開始由游

  4. 觀察時間及遊戲中

  5. 遊戲時間有限(30秒/S)

  6. 這為超連結(給老師的驚喜)

  7. 程式設計 • 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

  8. 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

  9. 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)

  10. 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

  11. 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

  12. 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

  13. 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

  14. 超連結 • 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

  15. 心得 • 這次的VB作業，難度有點高，回想老師的上課內容，問問同學，看一下軟體設計丙級，拼拼湊湊，好不容易湊出來有點樣子，但偵錯的時候，真的會崩潰，還好問同學之後有得到解答，當昨完的那一剎那，成就感真得很特別，很感謝幽默風趣老師的指導，希望對以後使用電腦有相當的幫助 最後，那個超連結希望老師可以按下去，我要學系老師的幽默風趣　　　謝謝︿︿

  16. 參考資料 • 1.Visual Basic 2010 • 2.老師的範例作業 • 3.軟體設計丙級 • 4.同學討論 • 5. 7.Visual Basic 2005程式設計許華菁 普林斯頓2008 8.Visual Basic 2010基礎必修課

More Related