Visual Basic

Public Class frmPay

    Private Sub btnPay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPay.Click
        Dim sr As IO.StreamReader = IO.File.OpenText("6-PP-1.txt")
        Dim dates, name, rate, hour As String
        Dim gp As Double
        dates = sr.ReadLine
        lstOutput.Items.Clear()
        lstOutput.Items.Add("Payroll Report for week ending " & dates)
        lstOutput.Items.Add(" ")
        Dim headerStr1 As String = "{0,-10}{1,15}{2,15}{3,15}"
        Dim headerStr2 As String = "{0,-10}{1,15:C}{2,15}{3,15:C}"
        lstOutput.Items.Add(String.Format(headerStr1, "Employee", "Hourly Rate", "Hours Worked", "Gross Pay"))
        lstOutput.Items.Add(" ")



        Do While sr.Peek <> -1
            name = sr.ReadLine
            rate = CDbl(sr.ReadLine)
            hour = CDbl(sr.ReadLine)
            gp = CDbl(rate * hour)
            lstOutput.Items.Add(String.Format(headerStr2, name, rate, CStr(hour), gp))
        Loop



        lstOutput.Items.Add(" ")
        lstOutput.Items.Add(String.Format(headerStr1, "Final Total", " ", " ", gp))
        sr.Close()
    End Sub
End Class