The code was taken from the FreeBasic manual, as published on the Internet
Could someone please bail me out?
Code: Select all
Type departmentType
id as integer
managerId as integer
floor as integer
end Type
Type emplyeeType
fname as string*10
lname as string*10
empId as integer
dept as integer
end Type
function initDept(deptId as integer) as departmentType
dim tmpDpt as departmentType
select case deptId
case 24
with tmpDpt
.id = deptId
.managerId = 1012
.floor = 13
end with
end select
return tmpDpt
end function
dim employee as emplyeeType
with employee
.fname = "Suzan"
.lname = "Jones"
.empId = 1001
.dept = initDept(24)''error 181 here invalid assignment/conversion
end with
end function
sleep