CoolBasic Forums

Code: Select all

//Here we are in the "main program" scope

//Let's define a variable
Dim someValue As Integer
someValue = 42

//Let's define a variable with custom structured type
Type MY_OWN_TYPE
    Field intVal As Integer
EndType
var.MY_OWN_TYPE = New(MY_OWN_TYPE)
var\intVal = 42

//Here we have two functions which have their own scopes and local variables.
Function doSomeMagic(var As Integer) //The parameter is a value, not a reference.
    Print "Function doSomeMagic() called."
    var = var + 1 //This has NOTHING to do with ANY OTHER variable caller 'var' in this program. It's totally local in this funcion scope.
EndFunction

Function doRealMagic(varID As Integer) //This parameter is also a simple value, though it acts a bit as a real reference
    Print "Function doRealMagic() called."
    var.MY_OWN_TYPE = ConvertToType(varID)	//As the "ID" of the structured type instance is passed to the Function scope, the original value can actually be accessed.
    var\intVal = var\intVal + 1
EndFunction

//First print the variables to see the initial values
Print "Value of someValue is " + someValue + "."
Print "Value of var\intVal is " + var\intVal + "."
Print ""

//Then do some magic ;)
doSomeMagic(someValue)
doRealMagic(ConvertToInteger(var))

//Print the info again
Print ""
Print "Value of someValue is " + someValue + "."
Print "Value of var\intVal is " + var\intVal + "."

WaitKey