Subscript out Of Range??
Posted: Tue Oct 02, 2012 10:32 pm
What does it mean if you get an error stating "Subscript out Of Range"?
How would I fix it on this code:
' Initialize variables
Pieces = -1
Pay# = 0
TotPieces = 0
TotPay = 0
T1$ = "PIECEWORK WEEKLY REPORT"
H1$ = "NAME" + SPC$(16) + "Pieces" + SPC$(6) + "Pay"
D1$ = ""
TL$ = ""
Name$ = ""
'Get first worker name
INPUT "PLEASE ENTER YOUR NAME OR TYPE 'END' TO QUIT"; Name$
DO
'Get worker pieces
INPUT "PLEASE ENTER THE NUMBER OF PIECES OR TYPE 'END' TO QUIT"; Pieces
'Calculate rate
IF Pieces >= 600 THEN
Rate = 65
ELSEIF Pieces >= 400 AND Pieces <599>= 200 AND Pieces <399>= 1 AND Pieces <= 199 THEN
Rate = 5
ELSE Rate = 0
END IF
'Calculate pay
IF Rate > 0 THEN Pay = Pieces * Rate ELSE Pay = 0
'Running Totals
TotPieces = TotPieces + Pieces
TotPay = TotPay + Pay
PayF$ = " "
RSET PayF$ = STR$(Pay)
D1$ = D1$ + Name$ + SPC$(20 - LEN(Name$)) + STR$(Pieces) + SPC$(10 - LEN(STR$(Pieces))) + PayF$ + CHR$(13)
'Get next worker or END to quit
INPUT "PLEASE ENTER YOUR NAME"; Name$
LOOP UNTIL UCASE$(Name$) = "END"
'Clear screen
CLS
' Write headings
PRINT TAB(10); T1$
PRINT H1$
'Print report detail
PRINT D1$
ToTPayF$ = " "
RSET ToTPayF$ = STR$(TotPay)
PRINT " TOTALS" + SPC$(12) + STR$(TotPieces) + SPC$(10 - LEN(STR$(TotPieces))) + ToTPayF$
END
'**********************************************************************
its happening at the "H1$ = "NAME" + SPC$(16) + "Pieces" + SPC$(6) + "Pay" line
How would I fix it on this code:
' Initialize variables
Pieces = -1
Pay# = 0
TotPieces = 0
TotPay = 0
T1$ = "PIECEWORK WEEKLY REPORT"
H1$ = "NAME" + SPC$(16) + "Pieces" + SPC$(6) + "Pay"
D1$ = ""
TL$ = ""
Name$ = ""
'Get first worker name
INPUT "PLEASE ENTER YOUR NAME OR TYPE 'END' TO QUIT"; Name$
DO
'Get worker pieces
INPUT "PLEASE ENTER THE NUMBER OF PIECES OR TYPE 'END' TO QUIT"; Pieces
'Calculate rate
IF Pieces >= 600 THEN
Rate = 65
ELSEIF Pieces >= 400 AND Pieces <599>= 200 AND Pieces <399>= 1 AND Pieces <= 199 THEN
Rate = 5
ELSE Rate = 0
END IF
'Calculate pay
IF Rate > 0 THEN Pay = Pieces * Rate ELSE Pay = 0
'Running Totals
TotPieces = TotPieces + Pieces
TotPay = TotPay + Pay
PayF$ = " "
RSET PayF$ = STR$(Pay)
D1$ = D1$ + Name$ + SPC$(20 - LEN(Name$)) + STR$(Pieces) + SPC$(10 - LEN(STR$(Pieces))) + PayF$ + CHR$(13)
'Get next worker or END to quit
INPUT "PLEASE ENTER YOUR NAME"; Name$
LOOP UNTIL UCASE$(Name$) = "END"
'Clear screen
CLS
' Write headings
PRINT TAB(10); T1$
PRINT H1$
'Print report detail
PRINT D1$
ToTPayF$ = " "
RSET ToTPayF$ = STR$(TotPay)
PRINT " TOTALS" + SPC$(12) + STR$(TotPieces) + SPC$(10 - LEN(STR$(TotPieces))) + ToTPayF$
END
'**********************************************************************
its happening at the "H1$ = "NAME" + SPC$(16) + "Pieces" + SPC$(6) + "Pay" line