南台科技大學機械工程系奈米四乙學號 :49814109 學生 : 蕭維鈞老師 : 謝慶存

計算機程式及實習 課堂作業之口頭報告ppt製作撲克牌比大小南台科技大學機械工程系奈米四乙學號:49814109 學生:蕭維鈞老師:謝慶存

目錄程式說明表單設計程式碼心得

程式說明 先按洗牌鈕，電腦即亂數洗牌，接著在撲克牌按一下選取，電腦會自動比較所選的牌是否比未選的牌大?假設撲克牌大小依序: A<2<3<…<Q<K: 若所選的牌大，會顯示” 你贏了 ! 按洗牌鈕重玩 ….” 若所選的牌大小相同，會顯示” 平手 ! 按洗牌鈕重玩 ….” 若所選的牌小，會顯示” 你輸了 ! 按洗牌鈕重玩 ….”

表單設計 Label PictureBox1 PictureBox2 lblMsg Button2 Button1

圖檔

程式碼 Form1 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("bk.jpg") pic2.Image = New Bitmap("bk.jpg") lblMsg.Text = "按發牌鈕遊戲開始.." End Sub

PictureBox1 Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic1.Click pic1.Image = New Bitmap(“poto” & num1 & “.jpg”) pic2.Image = New Bitmap(“poto" & 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 Button1.Enabled = True End Sub

PictureBox2 Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic2.Click pic1.Image = New Bitmap(“poto" & num1 & ".jpg") pic2.Image = New Bitmap(“poto" & 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 Button1.Enabled = True End Sub

Button1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click pic1.Enabled = True pic2.Enabled = True Button1.Enabled = False pic1.Image = New Bitmap("bk.jpg") pic2.Image = New Bitmap("bk.jpg") Randomize() num1 = Int(Rnd() * 13) + 1 num2 = Int(Rnd() * 13) + 1 lblMsg.Text = "請在撲克牌上按一下選取 .." End Sub

遊戲畫面執行 點選牌面點選發牌

心得這門課對於大四的我根本是重頭開始，還記得第一天上課連個表單都叫不出來的窘境,真是太可怕了。落後學弟們一個學期加上大一時不用心上課這門課無疑難度頗高，但沒有退路。這個作業做過程中遇到了許多困難，光是匯入圖片就上網查詢了許久，雖然說有參考的程式但對於只上不到半學期又沒有課本的我來說也是一個頭兩個大。程式寫入也一直碰壁，最後靠大家一起研究完成這份作業。機械科念了這麼久，我想了解這門課對於機械的用途在哪。因為再高職時候也學過這個軟體，但是都不得學習的要領。以我現在的狀態是真心不想學這門課，感受不到絲毫的樂趣可言或成就感。一件事要有始有終做好作業準時繳交是學生的本分。

南台科技大學 機械工程系 奈米四 乙 學號 :49814109 學生 : 蕭維鈞 老師 : 謝慶存