Transcript 下載/瀏覽

計算機程式及實習
題目：數字比大小
南台科技大學
機械工程系
奈米一乙
學號:49914008
姓名:涂智清
老師:謝慶存
使用說明
•
•
•
•
•
打開檔案之後按下
之後即可開始遊戲
小涂請按
即可出現數字
Pk者請按
即可出現數字
接下來看比數，數字大者獲勝，小者則輸。
按下
按鍵即可退出遊戲。
輸出介面
程式碼設計
•
•
Public Class Form1
Dim a, b As Integer
•
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim btn(2) As Button
btn(1) = Button1 : btn(2) = Button2
•
•
•
•
•
•
•
•
•
If sender.Equals(Button1) Then
Randomize()
a = Int(Rnd() * 99 + 1)
TextBox1.Text = "你得到數字 " & vbCrLf & vbCrLf & a
TextBox1.Font = New Font("新細明體", 16, FontStyle.Bold)
End If
End Sub
•
•
•
•
•
•
•
•
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
Dim btn(2) As Button
btn(1) = Button1 : btn(2) = Button2
If sender.Equals(Button2) Then
Randomize()
b = Int(Rnd() * 99 + 1)
TextBox2.Text = "你得到數字 " & vbCrLf & vbCrLf & b
TextBox2.Font = New Font("新細明體", 16, FontStyle.Bold)
•
End If
•
End Sub
•
•
•
•
•
•
•
•
•
•
•
Private Sub btnstart_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnstart.Click
Dim btn(2) As Button
btn(1) = Button1 : btn(2) = Button2
Dim txt(2) As TextBox
txt(1) = TextBox1 : txt(2) = TextBox2
btnstart.Text = "再比一次"
For i = 1 To btn.GetUpperBound(0)
btn(i).Enabled = True
For j = 1 To txt.GetUpperBound(0)
txt(j).Text = ""
Next
•
Next
•
End Sub
•
•
•
•
•
•
•
•
•
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim btn(2) As Button
btn(1) = Button1 : btn(2) = Button2
For i = 1 To btn.GetUpperBound(0)
btn(i).Enabled = False
btn(i).Tag = i
Next
For j = 2 To btn.GetUpperBound(0)
AddHandler btn(j).Click, AddressOf btnEvent
•
Next
•
End Sub
•
•
•
•
•
•
Sub Buttonfail()
Dim btn(2) As Button
btn(1) = Button1 : btn(2) = Button2
For i As Integer = 1 To btn.GetUpperBound(0)
btn(i).Enabled = False
•
Next
•
End Sub
•
Private Sub btnend_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles btnend.Click
•
MsgBox("遊戲結束")
•
Console.ReadLine()
•
End
•
End Sub
•
Private Sub btnEvent(ByVal sender As System.Object, ByVal e As System.EventArgs)
•
•
Dim btnHit As Button
btnHit = CType(sender, Button)
•
If a > b Then
•
•
•
•
Buttonfail()
MsgBox(" 小 涂
Return
End If
•
•
•
•
•
If a < b Then
Buttonfail()
MsgBox(" P K 者
Return
End If
•
•
•
If a = b Then
MsgBox("
End If
•
End Sub
獲 勝
平 手 喔
獲
")
勝 ")
")
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
End Class
參考文獻
• Visual Basic 2008 程式設計作者： 葉倍宏
全華2008
• Visual Basic 2008教學範本古頤榛 編著 碁
峰資訊2009
心得
• 這次報告真的花了我不少
的時間,也讓我學習到了很
多.
學會做一個小遊戲真開心