From bb6492c6085f10570ae5087b667aaaa1e8fa3d01 Mon Sep 17 00:00:00 2001 From: Jamie Mansfield Date: Sat, 7 Mar 2015 19:10:16 +0000 Subject: Make .gitignore work. Fixes #15 Thanks to @kenzierocks and http://stackoverflow.com/questions/19663093/apply-gitignore-on-an-existing-repository-already-tracking-large-number-of-files --- Backup/windows 95/Guess The Number app.vb | 124 ------------------------------ 1 file changed, 124 deletions(-) delete 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 deleted file mode 100755 index 15695cc..0000000 --- a/Backup/windows 95/Guess The Number app.vb +++ /dev/null @@ -1,124 +0,0 @@ -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