i need help with my code i keep comin up with errors in basic Dim Firstname as string
Dim Lastname as string
Dim Empnum As Integer
Dim HourRate As Integer
Dim Hours As Integer
Dim Tools As Integer
Dim Total As Integer
Dim Netpay As Integer
Dim Taxes As Integer
Dim fedTax as Integer
Dim Stax as Integer
LET HourRate$ = 0
LET Hours$ = 0
LET Tools$ = 0
LET Total$ = 0
LET Netpay$ = 0
LET Taxes$ = 0
INPUT "put hours rate",HourRate$
INPUT "put fedTax ",fedTax$
INPUT "put Stax ",Stax$
INPUT "put hours ",Hours$
INPUT "put Tools",Tools$
Total$ = HourRate$ * Hours$
PRINT Total$
IF Hours$ > 40
HourRate$ = HourRate$*1.5
PRINT HourRate$
fedTax$ = Total$ * .15
PRINT fedTax$
Stax$ = Total$ * .046
PRINT Stax$
Netpay$ = Total$ - (fedTax$ + Stax$)
PRINT Netpay$
IF I = 1 to N
PRINT Firstname$
PRINT Lastname$
PRINT Tools$
PRINT Hours$
END
2 answers
I believe your hour rate is multiplied by 1.5 only for those hours exceeding 40 hours. The way you're doing it, it will never get changed because the hour rate is changed AFTER you calculated the total.
Don't know what you want to do with the
if i=1 to N.
It is usually
for i=1 to N
Rem: do what you want to do, such as printing
next i
If you have compilation errors, post the errors, and where they occur.