windows forms Application using Visual Basic

Question

use visual basic 2012

Part 1: Programming – Income Tax Application

1.1 Problem Statement

Due to upcoming end of financial year, you are being called in to write a program which will read in a file and produce reports as outlined.

Inputs:

The input file called IncomeRecord.txt contains a list of Annual income records of employees in a firm. Each record is on a single line and the fields are separated by spaces. The names of the fields are:



Employee ID number - Integer 

Employee Last name - String 

Employee First Name - String 

Annual Income - Double

An example record may have the following form:

10001 Smith Will 30000

10002 Sivo Maika 100000

10003 Deo Amit 25000

Note: This is just sample data, there will be more records for the other employees.

1.2 Program Specifications:

Your program should be able to process the following commands. i.e. Program should provide user with the following menu

. I. Read employee data. (from file IncomeRecord.txt)

II. Print all employees’ data. (on a new Window/Form)

III. Calculate the income tax for all and store it in an array.

IV. Display the employee data including the income tax. (on a new Window/Form)

V. Exit program.

1.2.1 Explanation of each menu item.

1. Read employee data You must create and use appropriate arrays to retrieve all the information about employees from the file IncomeRecord.txt

2. Print all employees’ data. This menu item should open a new window/form and simply print the contents of the arrays created in suitable format on the screen. You must display all fields and records.

3. Calculate the income tax for all and store it in an array. For this assignment, to calculate income tax, a 5% tax rate applies across the board to all income amount. A message should be displayed at the end to indicate that the calculation was completed successfully.

4. Display employee data including Income Tax. Display the ID, last name, first name, annual income, and the income tax calculated for all employees. This information should be displayed in a new window/form.

Sample output based on the data provided above:

10001 Smith Will 30000 1500

10002 Sivo Maika 100000 5000

10003 Deo Amit 25000 1250

5. Exit program This is when program should end.

Answer 1

Here are some snippets of code.

Please email me so we can get you all of the project file involved.

I am using the MS Flex grid control, so you may need to download

a copy of MSFLXGRD.ocx, add it to the toolbox, and drag it on the form.

=======================================================================

Module Module1

Structure DataRec

Public EmployeeId As String

Public LastName As String

Public FirstName As String

Public AnnualIncome As Double

Public IncomeTax As Double

End Structure

Public DataRecCount As Integer

Public A(5000) As DataRec

Public Sub Parse(inbuff As String, ByRef dataRec As DataRec)

Dim tokens() As String

tokens = inbuff.Split(" ")

dataRec.EmployeeId = tokens(0)

dataRec.LastName = tokens(1)

dataRec.FirstName = tokens(2)

dataRec.AnnualIncome = Val(tokens(3))

dataRec.IncomeTax = dataRec.AnnualIncome * 0.05

End Sub

Public Sub ReadFile()

Dim fileReader As System.IO.StreamReader

fileReader = My.Computer.FileSystem.OpenTextFileReader("E:\\IncomeRecord.txt")

Dim inbuff As String

inbuff = "?"

DataRecCount = 0

While Not fileReader.EndOfStream

inbuff = fileReader.ReadLine()

MsgBox(inbuff)

Parse(inbuff, A(DataRecCount))

DataRecCount = DataRecCount + 1

End While

fileReader.Close()

End Sub

End Module

'********************************************************************************

Option Explicit On

Public Class FormMain

Sub Data2Grid()

Dim iRow As Integer

myGrid.Row = 0

myGrid.Col = 0 : myGrid.Text = "Employee Id#"

myGrid.Col = 1 : myGrid.Text = "Last Name"

myGrid.Col = 2 : myGrid.Text = "First Name"

myGrid.Col = 3 : myGrid.Text = "Annual Income"

myGrid.Col = 4 : myGrid.Text = "Income Tax"

myGrid.Rows = DataRecCount + 1

For iRow = 0 To DataRecCount - 1

myGrid.Row = iRow + 1

myGrid.Col = 0 : myGrid.Text = A(iRow).EmployeeId

myGrid.Col = 1 : myGrid.Text = A(iRow).LastName

myGrid.Col = 2 : myGrid.Text = A(iRow).FirstName

myGrid.Col = 3 : myGrid.Text = A(iRow).AnnualIncome

myGrid.Col = 4 : myGrid.Text = A(iRow).IncomeTax

Next

End Sub

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

ReadFile()

Data2Grid()

End Sub

End Class