NOTES


sub bAdd click (_,_) <- handles
add the numbers
dim a,b as double
"input: a,b
a= get a()
b= get b()
'PROCESS
c=calcAdd(a,b)






'/// input methods /// function get a () as double ' get 1st number
dim result as double
dim s as string
s=me.ifirst.text
result=val(s)
return result

end function

function ger b () as double ' get 2nd number
dim s=me.textbox2.text
return val(s)

end function

function calc add (a as double , b as double)
add 2 numbers
return a + b
end function







function is odd
 n as double
'//return true if n is odd
dim result as boolean
if(n mod 2>0) then
result = true
else
result = false
end if

return result

or

result=(n mod 2) > 0