From dfac3489c438f5c54bff088a354815e79675b531 Mon Sep 17 00:00:00 2001
From: Jamie Mansfield <malgm@lapis.blue>
Date: Sun, 1 Mar 2015 10:50:24 +0000
Subject: Initial commit

---
 Backup/windows 95/Guess The Number app.vb | 124 ++++++++++++++++++++++++++++++
 1 file changed, 124 insertions(+)
 create mode 100755 Backup/windows 95/Guess The Number app.vb

(limited to 'Backup/windows 95/Guess The Number app.vb')

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
-- 
cgit v1.2.3