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