Functions are used to clear up your code, and well - make things run allot easier and more organized. Len(String) is a function. Well, lets get to it!

1. On Visual Basics drop down menus, choose PROJECT>>ADD MODULE 2. Now in the project explorer (image) double click the bas file (module) 3. This is now where you would write your functions!

Function Add2numbers(number1 as Integer, number2 as integer) as Integer Add2numbers = number1 + number2 End Function

So basically, what this does is well, we tell VB that Add2numbers, the function itself is going to be a variable, holding number1+number2. We tell it that by adding the "as integer" command after the function declaration. (Yes, you can have it as String, as Long, as Double, as Currency etc,)

The Breakdown!

1. We tell VB that we are making a function, and that the name of it is Add2numbers, and that it needs 2 arguments "number1" and "number2", then we tell VB that the function itself can hold an integer (as integer) 2. We set our function name "Add2numbers" to the value of number1 + number2. 3. We tell Visual Basic that the Function is over, and were ready to call it and use it in our program. Yes, its that easy.

TheSum = Add2numbers(5,4)

TheSum now holds the value, "9". since we made
it As Integer, we can use it like this.

Call Msgbox(Add2numbers(5,4),vbOkOnly,"Functions")

Now a Message box will appear, with the value "9" in it.

You can also change the value like this:

TheSum = Add2numbers(5,4) + 10

Now, TheSum takes on the value of 9, plus 10, which is "19".

Boolean - A variable type used to hold 4 values . TRUE and FALSE. and 0 and 1

Function TheStatus(TheWord as String) as Boolean If Len(TheWord) < 10 Then TheStatus = True If Len(TheWord) > 10 Then TheStatus = False End Function

This little function is going to take a word in and:
if the word letter count is less than 10, TheWord will be True
if the word letter count is greater then 10, TheWord will be False

If TheStatus("Nautica") = True Then Call Msgbox("Its true!!!!",vbOkOnly,"nauts-crib.com") If TheStatus("Nautica") = False Then Call Msgbox("Its false",vbOkOnly,"nauts-crib.com")

POP QUIZ!

Objective:

A Function that takes in two integer numbers, if the sum of those numbers exceeds 20 then the Function returns as TRUE.

Information:

Function Name: Exceeds First Argument: number1 Second Argument: number2

Write the code:

Finished? Click for correct code, and compare!

1999-2000 © Erik Helgesen All Rights Reserved.
Only permitted Images and Material may be downloaded from this web site.
PhotoShop, Flash, and Microsoft Visual Basic are registered trademarks!