Transcript 下載/瀏覽

計算機程式及實習
課堂作業報告ppt製作
題目:西八豆子
期末報告
機械工程系
車輛一甲
學號:4A315078
姓名:邱冠瀚
西巴豆子遊戲說明
1.擲骰子即為遊戲開始
2.會隨機骰出骰子以數字的方式
呈現
3.跟電腦比大小
4.會自動算出積分
程式碼撰寫
Public Class Form1
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Button1.Click
Dim X1, X2, X3, X4, N1, N2, D, Z As Integer
Randomize()
Z = Val(TextBox3.Text)
X1 = Int(Rnd() * 6 + 1)
X2 = Int(Rnd() * 6 + 1)
N1 = X1 + X2
X3 = Int(Rnd() * 6 + 1)
X4 = Int(Rnd() * 6 + 1)
N2 = X3 + X4
D = Math.Abs(N2 - N1)
TextBox1.Text = Str(N1)
TextBox2.Text = Str(N2)
程式碼撰寫
Select Case N2
Case Is < N1
Label4.Text = "哈哈!~~你輸了!" + "扣" + Str(D) + "分"
Z=Z-D
Case Is = N1
Label4.Text = "嘻嘻!~~平手啦!不加分"
Case Is > N1
Label4.Text = "不錯唷!~~算你贏" + "加" + Str(D) + "分"
Z=Z+D
End Select
TextBox3.Text = Str(Z)
End Sub
程式碼撰寫
Private Sub Button2_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Button2.Click
For dblLoop As System.Double = 1 To 0.01 Step -0.01
Opacity = dblLoop
Application.DoEvents()
Threading.Thread.Sleep(20)
Next
End
End Sub
程式碼撰寫
Private Sub Form1_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
FormBorderStyle = FormBorderStyle.FixedDialog
Opacity = 0
For dblLoop As System.Double = 0.01 To 1 Step 0.01
Opacity = dblLoop
Application.DoEvents()
Threading.Thread.Sleep(20)
Next
End Sub
End Class
心得
一開始覺得VB很難根本不想要去碰、去了解，但是
經過了帥氣的謝老師細心的教導以及無微不至的照顧，
讓我漸漸地對VB有好感，也增加了我對它的興趣。所以
我會利用課餘時間去圖圖書館查有關VB的書籍，讓自己
更熟悉這個程式語言
謝謝老師這學期的程式教導讓我受益良多，讓我對程式
感到興趣，也讓我知道這是多麼重要的一項技能