Public Class StartUp


    Private Sub txtName_keydown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtName.KeyDown
        If e.KeyCode = Keys.Enter Then
            Me.Visible = False
            Game.Visible = True
        End If
    End Sub
    Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Private Sub btnPlay_Click(sender As Object, e As System.EventArgs) Handles btnPlay.Click
        Me.Visible = False
        Game.Visible = True

        ' writes a name to a sequential access file

        ' declare a StreamWriter variable
        Dim outFile As IO.StreamWriter

        ' open the file for append
        outFile = IO.File.AppendText("LowScores.txt")

        ' write the name on a separate line in the file
        outFile.WriteLine(txtName.Text)

        ' close the file
        outFile.Close()
        ' clear the Name box, then set the focus
        txtName.Text = String.Empty
        txtName.Focus()
    End Sub

    Private Sub StartUp_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        ' reads names from a sequential access file 
        ' and displays them in the interface

        ' declare variables
        Dim inFile As IO.StreamReader
        Dim strName As String

        ' clear previous names from the Contestants box
        lblLowScores.Text = String.Empty

        ' determine whether the file exists
        If IO.File.Exists("LowScores.txt") = True Then
            'open the file for input
            inFile = IO.File.OpenText("LowScores.txt")
            'process the loopinstructions until the end of the file
            Do Until inFile.Peek = -1
                'read a name
                strName = inFile.ReadLine
                'display the name
                lblLowScores.Text = lblLowScores.Text &
                    strName & ControlChars.NewLine
            Loop
            'close the file
            inFile.Close()
        Else
            MessageBox.Show("Can't find the Low Scores.txt file",
                            "Show lowest scores",
                            MessageBoxButtons.OK,
                            MessageBoxIcon.Information)
        End If
    End Sub
End Class

'High Low - Game


Imports System.Text.RegularExpressions

Public Class Game

    Public Num As New Random
    Public int As Integer
    Public intCount As Integer
    Private Sub main()
        If txtNum.Text <> Nothing Then
            If Convert.ToInt32(txtNum.Text) = int Then
                Me.Size = New Size(350, 300)
                lblInstructions.Hide()
                If MessageBox.Show("Good job.  you got it in " & intCount & " tries.  Would you like to play again??", "you won!!", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = DialogResult.Yes Then
                    Me.Size = New Size(350, 300)
                    lblInstructions.Show()
                    txtNum.Text = Nothing
                    intCount = 1
                    int = Num.Next(1, 10)
                ElseIf DialogResult.No Then
                    StartUp.Visible = True
                    Me.Close()
                    Me.Size = New Size(350, 300)
                    lblInstructions.Show()
                End If
            txtNum.Text = Nothing
                intCount = 1
        ElseIf Convert.ToInt32(txtNum.Text) < int Then
            MessageBox.Show("Higher")
            txtNum.Text = Nothing
                intCount += 1
        ElseIf Convert.ToInt32(txtNum.Text) > int Then
            MessageBox.Show("Lower")
                txtNum.Text = Nothing
                intCount += 1
        End If
        Else
            MessageBox.Show("enter some text")
        End If

    End Sub

    Private Sub Game_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        intCount = 1
        int = Num.Next(1, 10)
    End Sub

    Private Sub txtbox1_keydown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtNum.KeyDown
        If e.KeyCode = Keys.Enter Then
            main()
        End If
    End Sub

    Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStartOver.Click
        txtNum.Text = Nothing
        intCount = 1
        int = Num.Next(1, 10)
    End Sub

    Private Sub txtBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtNum.TextChanged
        txtNum.Text = Regex.Replace(txtNum.Text, "([aA-zZ]|\s|\e|\(|\)|\!|\@|\#|\$|\%|\^|\~|\`|\,|\:|\;|\&|\<|\>|\?|\'|\"")", "")
    End Sub

    Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
        StartUp.Close()
        Me.Close()
    End Sub
End Class