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

Loading in 2 Seconds...

play fullscreen
1 / 14

計算機程式及實習 期末報告 PPT 製作 - PowerPoint PPT Presentation


  • 150 Views
  • Uploaded on

計算機程式及實習 期末報告 PPT 製作. 十二生肖比大小 南 台科技大學 機械工程學系 車輛一乙 學號 :4A 1150 44 姓名 : 陳厚宇 教師 : 謝慶存. 十二生肖比大小 : 主題說明與背景. 先按下 電腦會隨機亂數發放二張卡牌,之後由右邊那張是玩家的卡片,電腦會由卡牌大小來判定玩家是贏還輸。 若所選的 生肖 大,會顯示 “ 你贏了 ! 按 發牌 鈕 重玩 ...." 若所選的 生肖 大小相同,會顯示 “ 平手 ! 按 發牌 鈕 重玩 ...."

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about '計算機程式及實習 期末報告 PPT 製作' - erica-dale


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.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


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

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

十二生肖比大小

南台科技大學

機械工程學系

車輛一乙

學號:4A115044

姓名:陳厚宇

教師:謝慶存

slide2
十二生肖比大小:主題說明與背景
  • 先按下 電腦會隨機亂數發放二張卡牌,之後由右邊那張是玩家的卡片,電腦會由卡牌大小來判定玩家是贏還輸。
  • 若所選的生肖大,會顯示“ 你贏了 ! 按發牌鈕 重玩 ...."
  • 若所選的生肖大小相同,會顯示“ 平手 ! 按發牌鈕 重玩 ...."
  • 若所選的生肖小,會顯示“ 你輸了 ! 按發牌鈕 重玩 ...."
  • 鼠牌最小,圖騰牌最大。
slide5
程式碼撰寫部分~語言操作實作
  • Public Class Form1
  • Dim num1, num2 As Integer
  • Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  • pic1.Enabled = False
  • pic2.Enabled = False
  • pic1.SizeMode = PictureBoxSizeMode.AutoSize
  • pic2.SizeMode = PictureBoxSizeMode.AutoSize
  • pic1.Image = New Bitmap("Pokerbk.jpg")
  • pic2.Image = New Bitmap("Pokerbk.jpg")
  • lblMsg.Text = "十二生肖比大小 發牌鈕遊戲開始.."
  • End Sub
slide6

Private Sub btnShuffle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShuffle.Click

  • pic1.Enabled = True
  • pic2.Enabled = True
  • btnShuffle.Enabled = False
  • pic1.Image = New Bitmap("Pokerbk.jpg")
  • pic2.Image = New Bitmap("Pokerbk.jpg")
  • Randomize()
  • num1 = Int(Rnd() * 13) + 1
  • num2 = Int(Rnd() * 13) + 1
  • lblMsg.Text = "請在撲克牌上按一下選取 .."
  • End Sub
slide7

Private Sub pic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic1.Click

  • pic1.Image = New Bitmap("Poker" & num1 & ".jpg")
  • pic2.Image = New Bitmap("Poker" & num2 & ".jpg")
  • If num1 > num2 Then
  • lblMsg.Text = " 你贏了 ! 按發牌鈕 重玩 ...."
  • Else
  • If num1 = num2 Then
  • lblMsg.Text = " 平 手 ! 按發牌鈕 重玩 ...."
  • Else
  • lblMsg.Text = " 你輸了 ! 按發牌鈕 重玩 ...."
  • End If
  • End If
  • pic1.Enabled = False
  • pic2.Enabled = False
  • btnShuffle.Enabled = True
  • End Sub
slide8

Private Sub pic2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic2.Click

  • pic1.Image = New Bitmap("Poker" & num1 & ".jpg")
  • pic2.Image = New Bitmap("Poker" & num2 & ".jpg")
  • If num2 > num1 Then
  • lblMsg.Text = " 你贏了 ! 按發牌鈕 重玩 ...."
  • Else
  • If num2 = num1 Then
  • lblMsg.Text = " 平 手 ! 按發牌鈕 重玩 ...."
  • Else
  • lblMsg.Text = " 你輸了 ! 按發牌鈕 重玩 ...."
  • End If
  • End If
  • pic1.Enabled = False
  • pic2.Enabled = False
  • btnShuffle.Enabled = True
  • End Sub
slide9

Private Sub btnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuit.Click

  • End
  • End Sub
  • End Class
slide10
實際執行程式
  • 先點選發牌鈕 再點選上隨一圖片
slide11

如果你的牌生肖較大,會顯示:你贏了!請按發牌鈕 重玩!

如果你的牌生肖較小,會顯示:你輸了!請按發牌鈕 重玩!

slide13
心得感言

這一學期的VB課程比上學期的困難不少,除了課本的內容之外老師還額外跟我們補充了程式設計丙級檢定的內容,雖然遇到了許多難題但是經過老師的講解之後讓我清楚了不少,經過老師認真地指導,我相信我將會擁有通過檢定的能力。

slide14
參考文獻

1.Visual Basic 2010基礎必修課

2.上課教材PTT