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

1. 計算機程式及實習期末報告PPT製作 十二生肖比大小 南台科技大學 機械工程學系 車輛一乙 學號:4A115044 姓名:陳厚宇 教師:謝慶存

2. 十二生肖比大小:主題說明與背景 • 先按下 電腦會隨機亂數發放二張卡牌，之後由右邊那張是玩家的卡片，電腦會由卡牌大小來判定玩家是贏還輸。 • 若所選的生肖大，會顯示“ 你贏了 ! 按發牌鈕 重玩 ...." • 若所選的生肖大小相同，會顯示“ 平手 ! 按發牌鈕 重玩 ...." • 若所選的生肖小，會顯示“ 你輸了 ! 按發牌鈕 重玩 ...." • 鼠牌最小，圖騰牌最大。

3. 表單設計~建立介面

4. 程式使用之圖片

5. 程式碼撰寫部分~語言操作實作 • 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

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

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

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

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

10. 實際執行程式 • 先點選發牌鈕 再點選上隨一圖片

11. 如果你的牌生肖較大，會顯示:你贏了!請按發牌鈕 重玩! 如果你的牌生肖較小，會顯示:你輸了!請按發牌鈕 重玩!

12. 如果你的生肖和電腦相同，將顯示:平手!請按發牌鈕 重玩!

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

14. 參考文獻 1.Visual Basic 2010基礎必修課 2.上課教材PTT