adfadf
Lesson A: Contestant Solution
Contestant Solution’s Codes: Public Class frmMain
Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub
Private Sub btnWrite_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnWrite.Click ' 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("Contestant.txt") ' write the name on a separate line in the file outfile.WriteLine(txtName.Text) ' close the file outfile.Close() ' clear the list box and then set the focus lstContestants.Items.Clear() txtName.Focus() End Sub
Private Sub btnRead_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRead.Click ' reads names from a sequential access file ' and displays them in the interface
' declare variables Dim infiles As IO.StreamReader Dim strname As String
' clear previous names from the list box lstContestants.Items.Clear()
' determine whether the file exists If IO.File.Exists("Contestant.txt") Then 'open the file for input infiles = IO.File.OpenText("Contestant.txt") 'process loop instructions until end of file Do Until infiles.peek = -1 'read a name strname = infiles.ReadLine 'add name to a listbox lstContestants.Items.Add(strname) Loop infiles.Close() Else MessageBox.Show("Can't find the file", "Game show contestants", MessageBoxButtons.OK, MessageBoxIcon.Information) End If
End Sub
Private Sub txtName_Enter(ByVal sender As Object, ByVal e
Contestant Solution’s Codes: Public Class frmMain
Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub
Private Sub btnWrite_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnWrite.Click ' 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("Contestant.txt") ' write the name on a separate line in the file outfile.WriteLine(txtName.Text) ' close the file outfile.Close() ' clear the list box and then set the focus lstContestants.Items.Clear() txtName.Focus() End Sub
Private Sub btnRead_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRead.Click ' reads names from a sequential access file ' and displays them in the interface
' declare variables Dim infiles As IO.StreamReader Dim strname As String
' clear previous names from the list box lstContestants.Items.Clear()
' determine whether the file exists If IO.File.Exists("Contestant.txt") Then 'open the file for input infiles = IO.File.OpenText("Contestant.txt") 'process loop instructions until end of file Do Until infiles.peek = -1 'read a name strname = infiles.ReadLine 'add name to a listbox lstContestants.Items.Add(strname) Loop infiles.Close() Else MessageBox.Show("Can't find the file", "Game show contestants", MessageBoxButtons.OK, MessageBoxIcon.Information) End If
End Sub
Private Sub txtName_Enter(ByVal sender As Object, ByVal e