'-- simple type example
type thor
one as byte
two as byte
three as byte
four as byte
five as string
end type
thor hammer
hammer.one=20 : hammer.two=40 : hammer.three=60 : hammer.four=80 : hammer.five="heroe"
print hammer.one
print hammer.two
print hammer.three
print hammer.four
print hammer.five
'-- class example two times
'
'---------------------- //
class myZooClass
pApe as long
method ABC(value as long)
pApe = value
end method
method ABC() as long
method = pApe
end method
end class
'test it
dim zoo as myZooClass
zoo.ABC = 6
print zoo.ABC ' 6
'---------------------- //
class AnimalClass
tiger as long
method paw(claws as long)
tiger= claws
end method
method paw() as long
method = tiger
end method
end class
'test it
dim cat as AnimalClass
cat.paw = 5
print "catpaw " +cat.paw ' 5
Page created in 0.124 seconds with 16 queries.