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
n i need to figure out where to put an end if statement to stop the program when employee 999 is entered
There are quite a few things to note.
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.
The code you provided seems to contain some errors. Let's go through them one by one.
1. In the code snippet, there is a mix of data types in your variable declarations. For example, you initially declare `HourRate` and `Hours` as `Integer` data type, but then you use `$` with them like `HourRate$` and `Hours$`. To fix this, remove the `$` from these variable names.
```basic
Dim HourRate As Integer
Dim Hours As Integer
```
2. In the lines where you assign values to `HourRate`, `Hours`, `Tools`, and `Total`, you are using the `LET` keyword which is not required in Visual Basic. Simply assign the values without the `LET` keyword.
```basic
HourRate = 0
Hours = 0
Tools = 0
Total = 0
```
3. The variable declarations for `Netpay`, `Taxes`, `fedTax`, and `Stax` are missing data type.
```basic
Dim Netpay As Integer
Dim Taxes As Integer
Dim fedTax As Integer
Dim Stax As Integer
```
4. The input statements for `HourRate`, `fedTax`, `Stax`, `Hours`, and `Tools` are using `$` with the variable names. Remove the `$` from these variables to match their declared data types.
```basic
INPUT "put hours rate", HourRate
INPUT "put fedTax", fedTax
INPUT "put Stax", Stax
INPUT "put hours", Hours
INPUT "put Tools", Tools
```
5. In the calculation for `Total`, use the `*` operator instead of `$` to multiply values.
```basic
Total = HourRate * Hours
```
6. The `IF` statement at the end of the code snippet doesn't have a proper condition. It should be something like `IF I = 1 to N THEN`.
```basic
IF I = 1 to N THEN
```
7. Finally, make sure you have assigned values to `Firstname`, `Lastname`, and `N` (assuming `N` is the loop counter). Otherwise, you will encounter errors when trying to print them.
```basic
Firstname = "John"
Lastname = "Doe"
N = 10 ' or any desired value
```
After making these corrections and assigning values to the required variables, your code should run without errors.