VB6 - Basics 2 - You are iffy!

VB6 - Basics 2 - You are iffy! - Printable Version

+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Programming (https://mirage-engine.uk/forums/forumdisplay.php?fid=24)
+---- Thread: VB6 - Basics 2 - You are iffy! (/showthread.php?tid=2892)

VB6 - Basics 2 - You are iffy! - Jacob - 29-06-2009

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.

Re: VB6 - Basics 2 - You are iffy! - Pbcrazy - 30-06-2009

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

[ATTACHMENT NOT FOUND]

Re: VB6 - Basics 2 - You are iffy! - Jacob - 30-06-2009

Pbcrazy Wrote: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.

Re: VB6 - Basics 2 - You are iffy! - Pbcrazy - 30-06-2009

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.

Re: VB6 - Basics 2 - You are iffy! - Jacob - 30-06-2009

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

Re: VB6 - Basics 2 - You are iffy! - Pbcrazy - 30-06-2009

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...)

Re: VB6 - Basics 2 - You are iffy! - Joost - 30-06-2009

Pbcrazy Wrote: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

Re: VB6 - Basics 2 - You are iffy! - Jacob - 29-07-2009

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