Download
slide1 n.
Skip this Video
Loading SlideShow in 5 Seconds..
計算機程式及實習 期末報告之口頭報告 ppt 製作 PowerPoint Presentation
Download Presentation
計算機程式及實習 期末報告之口頭報告 ppt 製作

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

312 Views Download Presentation
Download Presentation

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

- - - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript

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

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

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

  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基礎必修課