Transcript 下載/瀏覽Download

計算機程式及實習
課堂作業之口頭報告ppt製作
題目:瘋狂猜猜樂
期末報告
南台科技大學
機械工程系
自控一甲
學號:4A212087
學生：陳時斌
老師:謝慶存
題目說明:主題說明與背景
先按開始鈕電腦即亂數洗牌
若所選的牌不同會顯示“加油"
若所選的牌相同會顯示“好運氣
實際程式撰寫-2-
表單(form)設計:建立輸出入介面
Label1
Btn1
pic2
pic1
Btn2
Lblmsg
程式碼撰寫:語言程式之實作方法-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-13
num2 = Int(Rnd() * 14) + 1 ‘產生亂數1-13
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 = “ 好運氣" '設定標籤標題文字
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 = “ 好運氣"
Else
lblMsg.Text = “ 加油"
End If
End If
pic1.Enabled = False
pic2.Enabled = False
btnShuffle.Enabled = True
End Sub
Private Sub (ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles
btnQuit.Click
End
End Sub
End Class ‘結束 Form1公用類別程式
若所選的牌不同會顯示“ 加油"
若所選的牌相同會顯示“ 好運氣"
當一開始接觸VB時，讓我感到陌生，但是經過老師細心的指
導下，讓我對VB有了逐漸的了解還有學習到之前沒有碰過
的領域，讓我學習到許多知識，讓我對大學產生了好奇心
與上進心,希望這大學四年來,不要有所遺憾!
1.Visual Basic 2008實力養成暨評量解題秘笈 桂思強
編 碁峰 2010
2.Visual Basic 2008教學範本古頤榛 編著 碁峰資訊
2009
3.Visual Basic 6中文版教學手冊古頤榛 碁峰 2006
4.學會寫程式Visual Basic 2008( Idea 3小組 碁峰 2010
5.Visual Basic 2008 程式設計作者： 葉倍宏 全華2008
6.Visual Basic程式設計余忠潔 全華2008
7.Visual Basic 2005程式設計許華菁 普林斯頓2008
8.Visual Basic 2008基礎必修課(第二版 )