Skip to main content

Engineering Computer Science Programming with Microsoft Visual Basic 2017

Program Plan 1. Variables mentioned below are used: lstInvited − Listbox that holds the contents of file invited.txt lstAccepted − Listbox that holds the contents of file accepted.txt lstRejected − Listbox that holds the contents of file rejected.txt btnAccept − button for adding an item from lstInvited to lstAccepted btnRejected − button for adding an item from lstInvited to lstRejected 2. Below Mentioned functions are used btnAccept.Click()-Called when user clicks Accepted button in Gui and adds the selected item in list box lstInvited to lstAccepted. Also, writes to the files accepted.txt and invited.txt. btnRejected.Click()-Called when user clicks Rejected button in Gui and adds the selected item in list box lstInvited to lstRejected. Also, writes to the files rejected.txt and invited.txt. btnExit_Click()- Called when a user clicks on the Exit button to close the application. Program description: Original Program Imports System.IO Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim allLines As String() = File.ReadAllLines("invited.txt") For Each line As String In allLines lstInvited.Items.Add(line) Next Dim allLines1 As String() = File.ReadAllLines("accepted.txt") For Each line As String In allLines1 lstAccepted.Items.Add(line) Next Dim allLines2 As String() = File.ReadAllLines("rejected.txt") For Each line As String In allLines2 lstRejected.Items.Add(line) Next End Sub Private Sub btnAccept_Click(sender As Object, e As EventArgs) Handles btnAccept.Click Dim item As Object = lstInvited.SelectedItem Dim acceptedName As String = item.ToString() lstAccepted.Items.Add(item) lstInvited.Items.Remove(item) Dim lines As List(Of String) = File.ReadAllLines("invited.txt").ToList For Each line As String In lines.ToList() If line.Equals(item) Then lines.Remove(line) End If Next File.WriteAllLines("invited.txt", lines) Dim outFile As IO.StreamWriter outFile = IO.File.AppendText("accepted.txt") outFile.WriteLine(acceptedName.Trim) outFile.Close() End Sub Private Sub btnRejected_Click(sender As Object, e As EventArgs) Handles btnRejected.Click Dim item As Object = lstInvited.SelectedItem Dim rejectedName As String = item.ToString() lstRejected.Items.Add(item) lstInvited.Items.Remove(item) Dim lines As List(Of String) = File.ReadAllLines("invited.txt").ToList For Each line As String In lines.ToList() If line.Equals(item) Then lines.Remove(line) End If Next File.WriteAllLines("invited.txt", lines) Dim outFile As IO.StreamWriter outFile = IO.File.AppendText("rejected.txt") outFile.WriteLine(rejectedName.Trim) outFile.Close() End Sub Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click Application.Exit() End Sub End Class Form Design: Designed form is shown below: Sample Input invited.txt: Smith, Helena Richards, Kimberly Wheeler, Samuel Stanley, Perry Fletcher, Mark Allen, Marlin Lopez, Jimmy Frances, Diana Simmons, Joe Douglas, Luiz Mcdonald, George Gibson, Maggie Campbell, Rachelle Graham, Noel Brown, Greyson Sanders, Craig Patterson, Lucille Bell, Arthur Hughes, Kayleigh Tucker, Sarah accepted.txt Nitzki, Akanna Jefferson, Josephine rejected.txt Kellog, Zelda Sample output for the original program for the given values: When the program is just started the following form will be loaded. When the user selects an item from lstInvited and clicks on the Accepted button, then the following changes are made. When the user selects an item from lstInvited and clicks on Rejected button, then the following changes are made. When the user presses the Exit button, the application will quit. Explanation: This program is used for reading three text files and adding the contents of files to their respective list boxes in the interface. When the user selects an item from the list box of the invited list, the user can add the name to either the accepted Listbox by clicking on the Accepted button or to the rejected Listbox by clicking on the Rejected button.

Program Plan 1. Variables mentioned below are used: lstInvited − Listbox that holds the contents of file invited.txt lstAccepted − Listbox that holds the contents of file accepted.txt lstRejected − Listbox that holds the contents of file rejected.txt btnAccept − button for adding an item from lstInvited to lstAccepted btnRejected − button for adding an item from lstInvited to lstRejected 2. Below Mentioned functions are used btnAccept.Click()-Called when user clicks Accepted button in Gui and adds the selected item in list box lstInvited to lstAccepted. Also, writes to the files accepted.txt and invited.txt. btnRejected.Click()-Called when user clicks Rejected button in Gui and adds the selected item in list box lstInvited to lstRejected. Also, writes to the files rejected.txt and invited.txt. btnExit_Click()- Called when a user clicks on the Exit button to close the application. Program description: Original Program Imports System.IO Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim allLines As String() = File.ReadAllLines("invited.txt") For Each line As String In allLines lstInvited.Items.Add(line) Next Dim allLines1 As String() = File.ReadAllLines("accepted.txt") For Each line As String In allLines1 lstAccepted.Items.Add(line) Next Dim allLines2 As String() = File.ReadAllLines("rejected.txt") For Each line As String In allLines2 lstRejected.Items.Add(line) Next End Sub Private Sub btnAccept_Click(sender As Object, e As EventArgs) Handles btnAccept.Click Dim item As Object = lstInvited.SelectedItem Dim acceptedName As String = item.ToString() lstAccepted.Items.Add(item) lstInvited.Items.Remove(item) Dim lines As List(Of String) = File.ReadAllLines("invited.txt").ToList For Each line As String In lines.ToList() If line.Equals(item) Then lines.Remove(line) End If Next File.WriteAllLines("invited.txt", lines) Dim outFile As IO.StreamWriter outFile = IO.File.AppendText("accepted.txt") outFile.WriteLine(acceptedName.Trim) outFile.Close() End Sub Private Sub btnRejected_Click(sender As Object, e As EventArgs) Handles btnRejected.Click Dim item As Object = lstInvited.SelectedItem Dim rejectedName As String = item.ToString() lstRejected.Items.Add(item) lstInvited.Items.Remove(item) Dim lines As List(Of String) = File.ReadAllLines("invited.txt").ToList For Each line As String In lines.ToList() If line.Equals(item) Then lines.Remove(line) End If Next File.WriteAllLines("invited.txt", lines) Dim outFile As IO.StreamWriter outFile = IO.File.AppendText("rejected.txt") outFile.WriteLine(rejectedName.Trim) outFile.Close() End Sub Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click Application.Exit() End Sub End Class Form Design: Designed form is shown below: Sample Input invited.txt: Smith, Helena Richards, Kimberly Wheeler, Samuel Stanley, Perry Fletcher, Mark Allen, Marlin Lopez, Jimmy Frances, Diana Simmons, Joe Douglas, Luiz Mcdonald, George Gibson, Maggie Campbell, Rachelle Graham, Noel Brown, Greyson Sanders, Craig Patterson, Lucille Bell, Arthur Hughes, Kayleigh Tucker, Sarah accepted.txt Nitzki, Akanna Jefferson, Josephine rejected.txt Kellog, Zelda Sample output for the original program for the given values: When the program is just started the following form will be loaded. When the user selects an item from lstInvited and clicks on the Accepted button, then the following changes are made. When the user selects an item from lstInvited and clicks on Rejected button, then the following changes are made. When the user presses the Exit button, the application will quit. Explanation: This program is used for reading three text files and adding the contents of files to their respective list boxes in the interface. When the user selects an item from the list box of the invited list, the user can add the name to either the accepted Listbox by clicking on the Accepted button or to the rejected Listbox by clicking on the Rejected button.

Solution Summary: The author describes the functions that are used to import System.IO.

Programming with Microsoft Visual Basic 2017

Programming with Microsoft Visual Basic 2017

8th Edition

ISBN: 9781337102124

Author: Diane Zak

Publisher: Cengage Learning

See similar textbooks

Expert Solution & Answer

Want to see the full answer?

Check out a sample textbook solution

Blurred answer

Chapter 9, Problem 8E

Chapter 9, Problem 10E

Students have asked these similar questions

Find the voltage V0 across the 4K resistor using the mesh method or nodal analysis. Note: I have already simulated it and the value it should give is -1.714V

Resolver por superposicion

Describe three (3) Multiplexing techniques common for fiber optic links

Chapter 9 Solutions

Programming with Microsoft Visual Basic 2017

Ch. 9 - Which of the following opens the employ.txt file...Ch. 9 - If the file to be opened exists, which method...Ch. 9 - Which of the following reads a line of text from a...Ch. 9 - What type of object is created by the OpenText...Ch. 9 - Prob. 7RQ Ch. 9 - The horizontal line in a menu is called _____. a...Ch. 9 - Prob. 9RQ Ch. 9 - Prob. 10RQ Ch. 9 - Prob. 11RQ Ch. 9 - Prob. 3E

Ch. 9 - Prob. 4E Ch. 9 - Prob. 5E Ch. 9 - Prob. 9E

Knowledge Booster

Background pattern image

Similar questions

SEE MORE QUESTIONS

Recommended textbooks for you

Programming with Microsoft Visual Basic 2017
Computer Science
ISBN:9781337102124
Author:Diane Zak
Publisher:Cengage Learning
EBK JAVA PROGRAMMING
Computer Science
ISBN:9781337671385
Author:FARRELL
Publisher:CENGAGE LEARNING - CONSIGNMENT
Microsoft Visual C#
Computer Science
ISBN:9781337102100
Author:Joyce, Farrell.
Publisher:Cengage Learning,
Programming Logic & Design Comprehensive
Computer Science
ISBN:9781337669405
Author:FARRELL
Publisher:Cengage

Text book image

Programming with Microsoft Visual Basic 2017

Computer Science

ISBN:9781337102124

Author:Diane Zak

Publisher:Cengage Learning

Text book image

EBK JAVA PROGRAMMING

Computer Science

ISBN:9781337671385

Author:FARRELL

Publisher:CENGAGE LEARNING - CONSIGNMENT

Text book image

Microsoft Visual C#

Computer Science

ISBN:9781337102100

Author:Joyce, Farrell.

Publisher:Cengage Learning,

Text book image

Programming Logic & Design Comprehensive

Computer Science

ISBN:9781337669405

Author:FARRELL

Publisher:Cengage

SEE MORE TEXTBOOKS