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

題目 : 眼明手快機械工程系班級 : 車輛一甲學號 :4A115106

姓名 : 宋承禹指導老師 : 謝慶存老師

眼明手快 題目為自己所想，遊

戲本身是翻翻樂，藉由所規定的時間，記住其相對應的排組，隨後覆蓋起來，並且找出相對應的排組

時間越快表示頭腦發達、靈活，越慢則表示范應時間過久，可以從遊戲中練習其反應速度

遊玩方式 其實相當簡單，首先，

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

選擇其中任一模式，並開始由游

觀察時間及遊戲中

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

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

程式設計 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基礎必修課