1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
Public Class Guess_The_Number_app
Dim thenumber As Integer
Dim chosencolor As Color
Dim flashnumb As Integer
Dim controlpicked As Integer
Dim controlnumb As New Random
Dim chosencontrol As Control
Dim flashgen As New Random
Dim guessednumb As Integer
Dim randnumb As New Random
Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click
Me.Close()
End Sub
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
Const HTCAPTION As Integer = 2
Dim msg As Message = _
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
End Sub
Private Sub Guess_The_Number_app_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
thenumber = randnumb.Next(1, 101)
look.Start()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
guessednumb = txtGuessedNumber.Text
If guessednumb < thenumber Then
higherorlower.Text = "Higher"
higherorlower.ForeColor = Color.Blue
End If
If guessednumb > thenumber Then
higherorlower.Text = "Lower"
higherorlower.ForeColor = Color.Red
End If
If guessednumb = thenumber Then
higherorlower.Text = "Correct"
higherorlower.ForeColor = Color.Green
selector.Start()
End If
End Sub
Private Sub flasher_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles flasher.Tick
flashnumb = flashgen.Next(1, 10)
If flashnumb = 1 Then
chosencolor = Color.Red
End If
If flashnumb = 2 Then
chosencolor = Color.Green
End If
If flashnumb = 3 Then
chosencolor = Color.Pink
End If
If flashnumb = 4 Then
chosencolor = Color.Orange
End If
If flashnumb = 5 Then
chosencolor = Color.Aqua
End If
If flashnumb = 6 Then
chosencolor = Color.Gold
End If
If flashnumb = 7 Then
chosencolor = Color.YellowGreen
End If
If flashnumb = 8 Then
chosencolor = Color.Yellow
End If
If flashnumb = 9 Then
chosencolor = Color.Black
End If
chosencontrol.BackColor = chosencolor
End Sub
Private Sub selector_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles selector.Tick
controlpicked = controlnumb.Next(1, 10)
If controlpicked = 1 Then
chosencontrol = Label1
End If
If controlpicked = 2 Then
chosencontrol = program
End If
If controlpicked = 3 Then
chosencontrol = txtGuessedNumber
End If
If controlpicked = 4 Then
chosencontrol = Button1
End If
If controlpicked = 5 Then
chosencontrol = Button2
End If
If controlpicked = 6 Then
chosencontrol = programtopbar
End If
If controlpicked = 7 Then
chosencontrol = Label2
End If
If controlpicked = 8 Then
chosencontrol = Label3
End If
If controlpicked = 9 Then
chosencontrol = higherorlower
End If
flasher.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
Dim openguess As New Guess_The_Number_app
openguess.Show()
End Sub
Private Sub look_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles look.Tick
Me.programtopbar.BackColor = Windows95.exampleprogramtopbar.BackColor
Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage
Me.programname.BackColor = Windows95.exampleprogramtext.BackColor
End Sub
End Class
|
