PUBLIC brand AS String-- JochenGeorges - 28 Dec 2004
PUBLIC ps_power AS Integer
PUBLIC kw_power AS Float
PUBLIC price AS Float
'they must be public in this case
'otherwise WRITE and READ would cause problems
'-------------------------------
PUBLIC SUB WriteTo(hFile AS File)
' Gambas can not save an object to a file as one thing
' so this class has to have this method, which writes
' every single variable to the file
' WRITE writes in binary mode
' PRINT writes in ascii mode
WRITE #hFile, brand
WRITE #hFile, ps_power
WRITE #hFile, kw_power
WRITE #hFile, price
END
'-------------------------------
PUBLIC SUB ReadFrom(hFile AS File)
READ #hFile, brand
READ #hFile, ps_power
READ #hFile, kw_power
READ #hFile, price
END
PUBLIC SUB _new(OPTIONAL br AS String, OPTIONAL po AS Integer, OPTIONAL pr AS Float)
brand = br
ps_power = po
price = pr
END
'-------------------------------
PUBLIC SUB setBrand(x AS String)
brand = x
END
PUBLIC FUNCTION getBrand() AS String
RETURN Brand
END
'-------------------------------
PUBLIC SUB setPS_Power(x AS Integer)
ps_power = x
END
PUBLIC FUNCTION getPS_Power() AS Integer
RETURN ps_power
END
'-------------------------------
PUBLIC SUB setPrice(x AS Float)
price = x
END
PUBLIC FUNCTION getPrice() AS Float
RETURN price
END
'-------------------------------
PRIVATE FUNCTION setKW_Power() AS Float
' this is private, because it is only used inside this class
RETURN ps_power * 0.736
END
PUBLIC FUNCTION getKW_Power() AS Float
RETURN setKW_Power()
END