diff options
| author | Jamie Mansfield <[email protected]> | 2015-03-01 10:50:24 +0000 |
|---|---|---|
| committer | Jamie Mansfield <[email protected]> | 2015-03-01 10:50:24 +0000 |
| commit | dfac3489c438f5c54bff088a354815e79675b531 (patch) | |
| tree | dafec547b0e8592e34d8aa756c9500407ebc3c1b /Backup/windows 95/Guess The Number app.vb | |
| download | histacom-dfac3489c438f5c54bff088a354815e79675b531.tar.gz histacom-dfac3489c438f5c54bff088a354815e79675b531.tar.bz2 histacom-dfac3489c438f5c54bff088a354815e79675b531.zip | |
Initial commit
Diffstat (limited to 'Backup/windows 95/Guess The Number app.vb')
| -rwxr-xr-x | Backup/windows 95/Guess The Number app.vb | 124 |
1 files changed, 124 insertions, 0 deletions
diff --git a/Backup/windows 95/Guess The Number app.vb b/Backup/windows 95/Guess The Number app.vb new file mode 100755 index 0000000..15695cc --- /dev/null +++ b/Backup/windows 95/Guess The Number app.vb @@ -0,0 +1,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
\ No newline at end of file |