I was going to make a separate FB++ project for OOP support, but since you look pretty ambitious and I'm feeling pretty lazy heres some inspiration.
This is a template for partial OOP for FreeBasic, written in FreeBasic ofcourse.
ex.1
Code: Select all
type className_VARS
objIndex as integer 'for the some future function not yet defined
objName as string 'for the getID function
memberName as string
end type
dim shared className_COUNT as integer 'a count should exist for class defined
className_COUNT = 0
redim shared className_VARRAY(1) as className_VARS
enum classes
className
end enum
enum publicMethods
className_methodName
end enum
enum publicMembers
className_memberName
end enum
function getID(fName as string, objectType as classes) as integer
'maps friendly name to [object states] index of given class
dim i as integer
select case objectType
'code must be repeated for every unique class type
case className
for i = 1 to className_COUNT
if (className_VARRAY(i).objName = fName) then
function = i
exit function
else
function = -1
end if
next
end select
end function
sub className_Constructor(objectName as string)
'empty constructor
end sub
sub className_METHOD_methodName(objectName as string)
'empty method
end sub
sub className_CREATE(objectName as string)
'make new record
className_COUNT = className_COUNT + 1
className_VARRAY(className_COUNT).objIndex = className_COUNT
className_VARRAY(className_COUNT).objName = objectName
className_Constructor(objectName)
end sub
sub createInstance(objectType as classes,objectName as string)
SELECT CASE objectType
case className
className_CREATE(objectName)
className_Constructor(objectName)
end select
end sub
sub runObjectMethod(objectType as classes, objectName as string, methodName as publicMethods)
select case objectType
case className
'chain through methods, yet another enum
'notice this is why functions/subs are declared twice
select case methodName
case className_methodName
className_METHOD_methodName(objectName)
end select
end select
end sub
sub changeObjectVarStr(objectType as classes,objectName as string,varName as publicMembers,value as string)
select case objectType
case className
select case varName
case className_methodName
className_VARRAY(getID(objectName,className)).memberName = value
end select
end select
end sub
Heres another OOP attempt in FreeBasic, this time with some meat
ex.2
Code: Select all
type personVars
objIndex as integer
objName as string
firstName as string
lastName as string
end type
dim shared person_COUNT as integer
person_COUNT = 0
redim shared personVarArray(1) as personVars
enum classes
person
end enum
enum publicMethods
person_printFirstName
end enum
enum publicMembers
person_firstName
end enum
function getID(fName as string, objectType as classes) as integer
'maps friendly name to [object states] index of given class
'redim preserve personVarArray(person_COUNT) as personVars
dim i as integer
select case objectType
case person
for i = 1 to person_COUNT
if (personVarArray(i).ObjName = fName) then
function = i
exit function
else
function = -1
end if
next
end select
end function
sub person_Constructor(objID as integer)
'empty constructor
end sub
sub person_METHOD_printFirstName(byval objectName as string)
print personVarArray(getId(objectName,person)).firstName
end sub
sub personExpandArray(objectName as string)
'make new record
' print "Instance of person created: " + objectName
person_COUNT = person_COUNT + 1
' redim preserve personVarArray(1 to person_COUNT)
' print "Instance count now at: " + str(person_COUNT)
personVarArray(person_COUNT).objIndex = person_COUNT
personVarArray(person_COUNT).objName = objectName
person_Constructor(person_COUNT)
end sub
sub printPersons()
dim i as integer
for i = 1 to person_COUNT
print personVarArray(i).objName
next
end sub
sub createInstance(objectType as classes,objectName as string)
SELECT CASE objectType
case person
personExpandArray(objectName)
end select
end sub
sub runObjectMethod(objectType as classes, objectName as string, methodName as publicMethods)
select case objectType
case person
'chain through methods, yet another enum
'notice this is why functions/subs are declared twice
select case methodName
case person_printFirstName
person_METHOD_printFirstName(objectName)
end select
end select
end sub
sub changeObjectVarStr(objectType as classes,objectName as string,varName as publicMembers,value as string)
redim personVarArray(person_COUNT) as personVars
select case objectType
case person
select case varName
case person_firstName
personVarArray(getID(objectName,person)).firstName = value
end select
end select
end sub
createInstance(person,"Joe")
createInstance(person,"Bob")
print person_COUNT
dim tmp as string
tmp = "Joe Bob"
changeObjectVarStr(person,"Joe",person_firstName,tmp)
runObjectMethod(person,"Joe",person_printFirstName)
And heres what that code would look like if FreeBasic had oop
ex. 3
Code: Select all
class person
public name as string
public sub printFN()
print firstName
end
public sub person()
'empty constructor
end sub
end class
dim a as new person
dim ab as new person
a.name = "Joe Bob"
a.printFN
So basically(<-ha ha), you have the fun task of converting example 3 into something more like example 2. Something freebasic can understand.
Visual Basic 6.0 doesn't have full OOP, so atleast implementation is that much easier.
btw, when I wrote ex.2 I was unaware FBC had support for name spaces.
Something to keep in mind, should you want to implement inheritance.
