Spacing help!

[TKDlover14]

I need help lining up the decimal point for each number. Here is my code:

' Program: P06.vb
' Author: Anna DeAngelis

Imports System.IO
Imports RahimLibrary

Module P05
Const AUTHOR As String = "Anna DeAngelis Assignment 6"
Const HEAD1 As String = "GO-BROKE-AND-LAYOFF MANUFACTURING COMPANY"
Const HEAD2 As String = _
" EMPLOYEE_NAME HOURS PAY_RATE GROSS_PAY PENSION NET_PAY "
Const LINE = "---------------------------------------------------------------------"
Const FMT = "0.00"

Sub Main()
Dim Tokens As StringTokenizer
Dim Delimiter As Char() = {" ", ",", ";", ":"}
Dim Diskfile As String = "P06.DAT"

Console.Clear()
Dim Name As String
Dim hours, payRate, grossPay, pension, netPay, totalHours, totalGrossPay, totalPension, totalNetPay As Decimal




totalHours = 0 : totalGrossPay = 0 : totalPension = 0 : totalNetPay = 0

Console.WriteLine(AUTHOR & vbNewLine)
Console.WriteLine(Space(27) & HEAD1 & vbNewLine & Space(4) & _
HEAD2 & vbNewLine & Space(5) & LINE)

If Not File.Exists(Diskfile) Then
Console.WriteLine("File: " & Diskfile & " does not exist")
Console.WriteLine(vbNewLine & vbNewLine) : Exit Sub : End If

FileOpen(1, Diskfile, OpenMode.Input)
While Not EOF(1)

Tokens = New StringTokenizer(LineInput(1), Delimiter)

Name = Tokens.NextToken() & " " & Tokens.NextToken()
Name = Name.PadRight(15)
hours = Tokens.NextToken()
payRate = Tokens.NextToken()
grossPay = CalculateGrossPay(hours, payRate)
pension = CalculatePension(hours, payRate)
netPay = grossPay - pension

totalHours = totalHours + hours
totalGrossPay = totalGrossPay + grossPay
totalPension = totalPension + pension
totalNetPay = totalNetPay + netPay

Console.Write(Space(6) & Name)
Console.Write(Space(4) & "{0:F2}", hours)
Console.Write(Space(7) & "{0:F2}", payRate)
Console.Write(Space(6) & "{0:F2}", grossPay)
Console.Write(Space(5) & "{0:F2}", pension)
Console.WriteLine(Space(4) & "{0:F2}", netPay)

End While
FileClose(1)

Console.Write(Space(5) & LINE & vbCrLf & Space(6) & "TOTALS:")
Console.Write(Space(12) & "{0:F2}", totalhours)
Console.Write(Space(16) & "{0:F2}", totalGrossPay)
Console.Write(Space(4) & "{0:F2}", totalPension)
Console.WriteLine(Space(3) & "{0:F2}", totalNetPay)
Console.Write(Space (5) & LINE & vbCrLf & vbCrLf)

End Sub 'Main()
'---------------------------Function: CalculateGrossPay---------------------------
Function CalculateGrossPay (ByVal hours As Decimal,
ByVal rate As Decimal) As Decimal

Dim gross as Decimal

If (hours > 40) Then : gross = (40 + (hours - 40) * 1.5) * rate
Else: gross = hours * rate
End If

gross = Utility.Round(gross, 2)
Return Gross
End Function 'CalculateGrossPay

'---------------------------Function: CalculatePension---------------------------
Function CalculatePension (ByVal hours As Decimal,
ByVal payRate As Decimal) As Decimal

Dim pension as Decimal

If (hours > 30) Then : pension = 30 * payRate * 0.061
Else: pension = hours * payRate * 0.061
End If

pension = Utility.Round(pension, 2)

Return Pension
End Function 'CalculatePension

End Module 'P06

Here is my result:


The whole thing needs to be formatted to look like this and to line up like this:

[wes4dbt]

Console.Write(Space(4) & "{0:F2}", hours)

The problem is "hours" can be different lenghts. The way I solve these problems is to space like this "Space(10 - hours.Length)", but this means "hours" would need to be a String. So, you need to know the maximum length of the variable your trying to format. In this case "hours" will never be longer than 6. So, you want to space 4 + 6 = Space(10 - hours.Length).

this would apply to all the variables.

[jmcilhinney]

I've already shown you how to do this and you ignored the advice. If every number has two decimal places then the logical thing to do is simply right-align all the numbers and the decimal points will lineup automatically. The CodeBank link that I provided in a previous thread on this same subject shows how to do that.

[kebo]

I would be using Console.SetCursonPostion for this I think. No on second thought, I would ditch the console app and use a datagridview.
kevin