Editable code

Program

Public Class Form1

    Dim dem18, rep18, ind18 As Integer

    Dim dem36, rep36, ind36 As Integer

    Dim dem54, rep54, ind54 As Integer

    Dim demtotal, reptotal, indtotal As Integer

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        lstParty.Items.Add("Democrates")

        lstParty.Items.Add("Republicants")

        lstParty.Items.Add("Independence")

        dem18 = 0

        dem36 = 0

        dem54 = 0

        demtotal = 0

        ind18 = 0

        ind36 = 0

        ind54 = 0

        indtotal = 0

        rep18 = 0

        rep36 = 0

        rep54 = 0

        reptotal = 0

    End Sub

    Private Sub exit_btn_Click(sender As Object, e As EventArgs) Handles exit_btn.Click

        Me.Close()

    End Sub

    Private Sub write_file_Click(sender As Object, e As EventArgs) Handles write_file.Click

        Dim OutFileName As String = "D:\PAO.txt"

        'Condition to check whether file exists or not.

        If System.IO.File.Exists(OutFileName) = True Then

            Using OutFileWriter As New System.IO.StreamWriter(OutFileName, True)

                OutFileWriter.Flush()

                If (Convert.ToInt16(TextBox1.Text) >= 18) Then

                    If (lstParty.SelectedIndex = 0) Then

                        'Write Democrats count.

                        OutFileWriter.WriteLine("Democrats:" + TextBox1.Text)

                        OutFileWriter.Close()

                        'Display message.

                        MsgBox("Saved in text file")

                    ElseIf (lstParty.SelectedIndex = 1) Then

                        'Write Republicans count.

                        OutFileWriter.WriteLine("Republicans:" + TextBox1.Text)

                        OutFileWriter.Close()

                        'Display message.

                        MsgBox("Saved in text file")

                    ElseIf (lstParty.SelectedIndex = 2) Then

                        'Write Independents count.

                        OutFileWriter.WriteLine("Independents:" + TextBox1.Text)

                        OutFileWriter.Close()

                        'Display message.

                        MsgBox("Saved in text file")

                    End If

                Else

                    MsgBox("Age not valid")

                End If

            End Using

            'Otherwise.

        Else

            'Display message.

            MsgBox("File not Exist")

      End If

        'End of button one click.

    End Sub

    Private Sub display_Click(sender As Object, e As EventArgs) Handles display.Click

        Dim TextLine As String

        ' Open file.

        FileOpen(1, "D:\PAO.txt", OpenMode.Input)

       ' Loop until end of file.

        Do Until EOF(1)

            ' Read the line into a variable.

            TextLine = LineInput(1)

            Dim delimiter As Char = ":"

            Dim substrings() As String = TextLine.Split(delimiter)

            If (substrings(0) = "Democrats") Then

                If (substrings(1) >= 18 And substrings(1) <= 35) Then

                    dem18 = dem18 + 1

                    demtotal = demtotal + dem18

                ElseIf (substrings(1) >= 36 And substrings(1) <= 54) Then

                    dem36 = dem36 + 1

                    demtotal = demtotal + dem18

                ElseIf (substrings(1) >= 54) Then

                    dem54 = dem54 + 1

                    demtotal = demtotal + dem18

                End If

            ElseIf (substrings(0) = "Republicans") Then

                If (substrings(1) >= 18 And substrings(1) <= 35) Then

                    rep18 = rep18 + 1

                    reptotal = reptotal + rep18

                ElseIf (substrings(1) >= 36 And substrings(1) <= 54) Then

                    rep36 = rep36 + 1

                    reptotal = reptotal + rep18

                ElseIf (substrings(1) >= 54) Then

                    rep54 = rep54 + 1

                    reptotal = reptotal + rep18

                End If

            ElseIf (substrings(0) = "Independents") Then

                If (substrings(1) >= 18 And substrings(1) <= 35) Then

                    ind18 = ind18 + 1

                    indtotal = indtotal + ind18

                ElseIf (substrings(1) >= 36 And substrings(1) <= 54) Then

                    ind36 = ind36 + 1

                    indtotal = indtotal + ind18

                ElseIf (substrings(1) >= 54) Then

                    ind54 = ind54 + 1

                    indtotal = indtotal + ind18

                End If

            End If

        Loop

        FileClose(1)

        Label10.Text = dem18.ToString()

        Label11.Text = rep18.ToString()

        Label12.Text = ind18.ToString()

        Label13.Text = dem36.ToString()

        Label14.Text = rep36.ToString()

        Label15.Text = ind36.ToString()

        Label16.Text = dem54.ToString()

        Label17.Text = rep54.ToString()

        Label18.Text = ind54.ToString()

        Label19.Text = demtotal.ToString()

        Label20.Text = reptotal.ToString()

        Label21.Text = indtotal.ToString()

    End Sub

End Class