%TOC% The easy Gambas Doku
 Contents   Index 
---+CCar.class ---++The Program This is just a clas which is used in different prjects. ---++The Code:

PRIVATE brand AS String
PRIVATE ps_power AS Integer
PRIVATE kw_power AS Float
PRIVATE price AS Float

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

'setKW_Power is private because 'it is only for internal use
PRIVATE FUNCTION setKW_Power() AS Float
  RETURN ps_power * 0.736
END
PUBLIC FUNCTION getKW_Power() AS Float
  RETURN setKW_Power()
END


 Contents   Index 
%INCLUDE{"ReferenceBy"}%