猜數字

猜數字

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label2.Text = Label2.Text - 1
If Label2.Text <= 0 Then
Timer1.Enabled = False
MsgBox("失敗了啦")
Button1.Visible = False
Button2.Visible = False
End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
a1.Tag = Int(Rnd() * 899 + 100)
a2.Tag = Int(Rnd() * 8999 + 1000)
a3.Tag = Int(Rnd() * 89999 + 10000)


End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ListBox1.SelectedItem = "難度一" Then
a.Text = "3"
Else
If ListBox1.SelectedItem = "難度二" Then
a.Text = "4"
End If

End If
If ListBox1.SelectedItem = "難度三" Then
a.Text = "4"
Timer1.Interval = 500
c.Text = "注意！！時間減半喔"
Else
If ListBox1.SelectedItem = "不是給人玩的" Then
a.Text = "5"
Timer1.Interval = 500
c.Text = "注意！！時間減半喔"
End If
End If
Timer1.Enabled = True
Button2.Visible = True
Button1.Visible = False
Button3.Visible = True
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label2.Text = 60
Timer1.Enabled = False
a.Text = "???"
Button2.Visible = True
Timer1.Interval = 1000
a1.Tag = Int(Rnd() * 899 + 100)
a2.Tag = Int(Rnd() * 8999 + 1000)
a3.Tag = Int(Rnd() * 89999 + 10000)
Button1.Visible = True
Button3.Visible = False
MsgBox("注意數字會改變喔")
c.Text = ""
b.Text = ""
q.Text = ""
End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
q.Focus()
If ListBox1.SelectedItem = "難度一" Then
If q.Text = a1.Tag Then
b.Text = "恭喜猜到囉"
Timer1.Enabled = False
Button3.Visible = True
Button2.Visible = False
Else
If q.Text > a1.Tag Then
b.Text = "太大了"
q.Text = ""

Else
If q.Text < a1.Tag Then
b.Text = "太小囉"
q.Text = ""
End If
End If
End If
End If
If ListBox1.SelectedItem = "難度二" Then
If q.Text = a2.Tag Then
b.Text = "恭喜猜到囉"
Timer1.Enabled = False
Button3.Visible = True
Button2.Visible = False
Else
If q.Text > a2.Tag Then
b.Text = "太大了"
q.Text = ""
Else
If q.Text < a2.Tag Then
b.Text = "太小囉"
q.Text = ""
End If
End If
End If
End If
If ListBox1.SelectedItem = "難度三" Then
If q.Text = a2.Tag Then
b.Text = "恭喜猜到囉"
Timer1.Enabled = False
Button3.Visible = True
Button2.Visible = False
Else
If q.Text > a2.Tag Then
b.Text = "太大了"
q.Text = ""
Else
If q.Text < a2.Tag Then
b.Text = "太小囉"
q.Text = ""
End If
End If
End If
End If
If ListBox1.SelectedItem = "不是給人玩的" Then
If q.Text = a5.Tag Then
b.Text = "你確定你是人嗎"
Timer1.Enabled = False
Button3.Visible = True
Button2.Visible = False
Else
If q.Text > a5.Tag Then
b.Text = "太大了"
q.Text = ""
Else
If q.Text < a5.Tag Then
b.Text = "太小囉"
q.Text = ""
End If
End If
End If
End If
End Sub
End Class