南台科技大學機械工程系自控一甲學號 :4A212018 學生 : 羅俊鱗老師 : 謝慶存

計算機程式及實習 課堂作業之口頭報告ppt製作題目:對對碰南台科技大學機械工程系自控一甲學號:4A212018 學生:羅俊鱗老師:謝慶存

題目說明:主題說明與背景 先按開始鈕電腦即亂數洗牌若所選的牌不同會顯示“加油" 若所選的牌相同會顯示“好運氣”

Label1 Btn1 pic2 pic1 Btn2 Lblmsg 實際程式撰寫-2- 表單(form)設計:建立輸出入介面

程式碼撰寫:語言程式之實作方法-1 Public Class Form1 '定義Form1提供公用類別 Dim num1, num2 As Integer '宣告整數變數 num1, num2 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

Private Sub btnShuffle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShuffle.Click '使用者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() * 14) + 1 ‘產生亂數1-14 num2 = Int(Rnd() * 14) + 1 ‘產生亂數1-14 lblMsg.Text = "請在撲克牌上按一下選取 ..“ '設定標籤標題文字 End Sub

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 '若 num1 > num2 則 lblMsg.Text = “加油" '設定標籤標題文字 Else '否則 If num1 = num2 Then '若 num1 = num2 則 lblMsg.Text = “ 好運氣" '設定標籤標題文字 My.Computer.Audio.Play(My.Resources.kick, AudioPlayMode.Background) Else '否則 lblMsg.Text = “加油" '設定標籤標題文字 End If '結束 If 區塊 End If '結束 If 區塊 pic1.Enabled = False ‘設定圖片方塊屬性.執行為非 pic2.Enabled = False ‘設定圖片方塊屬性.執行為非 btnShuffle.Enabled = True '設定按鈕屬性.執行為是 End Sub '結束副程式

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 = “好運氣“ My.Computer.Audio.Play(My.Resources.kick, AudioPlayMode.Background) Else lblMsg.Text = “ 加油" End If End If pic1.Enabled = False pic2.Enabled = False btnShuffle.Enabled = True End Sub

使用者btnQuit_Click離開按鈕事件私用副程式 Private Sub (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuit.Click End End Sub End Class ‘結束 Form1公用類別程式

實際執行程式 若所選的牌不同會顯示“ 加油" 若所選的牌相同會顯示“ 好運氣"

心得感言 當初在做這個成品時，充滿了許多難處與無法理解，尤其是在程式碼方面更讓我痛苦難受與非常多的不了解，但經過同學的指教與老師上課的教材與書籍使我覺得其實沒很難，真的只要用點心與花一點時間，就可以做出很神奇的成品VB就讓我有這種感覺。

資料來源 1.Visual Basic 2010課本碁峰 2010 2. https://www.google.com.tw/search?q=%E6%B3%95%E5%9C%8B%E5%B7%B4%E9%BB%8E&tbm=isch&source=lnt&tbs=isz:lt,islt:2mp&sa=X&ei=mxeRU4L-HM7s8AXZ44JY&ved=0CBQQpwU&dpr=1&biw=1333&bih=609#facrc=_&imgdii=_&imgrc=PzyNMbfyNRUx6M%253A%3B6AqlKh25R6UWPM%3Bhttp%253A%252F%252Fm.yiqifei.com%252FUploadFiles%252Fimage%252F704137%252F20130927163932_1350_1101.jpg%3Bhttp%253A%252F%252Fm.yiqifei.com%252Farticle%252F87796.html%3B1920%3B1080

南台科技大學 機械工程系 自控一甲 學號 :4A212018 學生 : 羅俊鱗 老師 : 謝慶存