Transcript 下載/瀏覽Download

計算機程式及實習
題目：人性對決(比大小)
南台科技大學
機械工程系
奈米一甲
學號:49914023
姓名:林俊諺
老師:謝慶存
使用說明
•
•
•
•
•
打開檔案之後按下
之後即可開始遊戲
玩家1請按
即可出現數字
玩家2請按
即可出現數字
接下來看比數，數字大者獲勝，小者則輸。
按下
按鍵即可退出遊戲。
輸出介面
程式碼設計
• 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(" 畜 牲 獲 勝 ")
Return
End If
•
If a = b Then
•
MsgBox("
•
End If
• End Sub
• End Class
平 手 畜 牲 輸
")
參考文獻
Visual Basic 2008 程式設計作者： 葉倍宏 全華2008
Visual Basic 2008教學範本古頤榛 編著 碁峰資訊2009
心得
• 雖然拖到最後一個禮拜，可是還是
它趕出來了，寫程式的過中遇到很
多瓶頸，不過書一翻一翻就找到如
何解決的方法，可是沒看書就沒辦
法寫出來，所以我還要努力加強!!!