VB6 - Basics 2 - You are iffy!

[Jacob]

If then, what?

If .. Then statements are very important.

Code:

If [Logic] Then
[Statements]
End If

Examples:

Code:

Dim i As Long
    
    If i > 0 Then
        Debug.Print "The answer is true"
    End If

An example of If .. Else

Code:

Dim b As Boolean
    b = False
    
    If b = True Then
        Debug.Print "The answer is true"
    Else
        Debug.Print "The answer is false"
    End If

An example of If .. ElseIf ..

Code:

Dim i As Long
    
    If i > 0 Then
        Debug.Print "The answer is true"
    ElseIf i < 0 Then
        Debug.Print "The answer is false"
    End If

There are some short hand with VB6. If you are testing a boolean value you do not need to have "IF value = true Then". you just need to have "If value Then". For false values you use "If Not b Then" instead of "If b = false then".

Code:

Dim b As Boolean
    b = False
    
    If b Then
        Debug.Print "The answer is true"
    ElseIf Not b Then
        Debug.Print "The answer is false"
    End If

Project
Use multiple versions of the If .. then statement to evaluate a number that the user inputs. Check if the number is above 0, above 100, and above 1000. Display the results.

Overview

• Declare variables.
  
• Use an If ... then statement to check the number the user inputs.

Notes

• Make sure to comment your code.

[Pbcrazy]

Cheers. Sorry they already did the first one and well, it seemed a bit boring. This one required a few more lines of code

[ATTACHMENT NOT FOUND]

[Jacob]

Cheers. Sorry they already did the first one and well, it seemed a bit boring. This one required a few more lines of code

[ATTACHMENT NOT FOUND]

Looks good. If you wanted, you should check to make sure the user actually entered a number so you don't get any errors.

[Pbcrazy]

Ya... bout that... Wasn't exactly sure how? Use keycodes to determine if it is between 0-9 or, is there some other type of syntax that i could use? Sorry, one of my newb moments.

[Jacob]

VB6 has a built in function:

Code:

IsNumeric(Expression)

You can do something like

Code:

If IsNumeric(Input.Text) Then
i = Clng(Input.text)
End If

[Pbcrazy]

Ahh, see i thought there was something like that.

Gah VB6 has so many freaking built in functions. Wish there was an easy way to like look them up. (Watch, i bet someone will post with a way, just wait...)

[Joost]

Ya... bout that... Wasn't exactly sure how? Use keycodes to determine if it is between 0-9 or, is there some other type of syntax that i could use? Sorry, one of my newb moments.

If Len(La) = 1 and IsNumeric(La) = True Then MyPenisRocks

[Jacob]

That's not an If.. Then statement. That is for another lesson.