XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
OOP-Demo (2)
Class Hund = #Geburtsdatum$(10),
#Rasse$(32),
#Groesse%,
setGeburtsdatum@,
getGeburtsdatum@,
setRasse@,
getRasse@,
setGroesse@,
getGroesse@,
bellen@

Proc Hund.setGeburtsdatum

    Parameters Datum$
    .Geburtsdatum$ = Datum$

EndProc

Proc Hund.getGeburtsdatum

    Return .Geburtsdatum$

EndProc

Proc Hund.setRasse

    Parameters Rasse$
    .Rasse$ = Rasse$

EndProc

Proc Hund.getRasse

    Return .Rasse$

EndProc

Proc Hund.setGroesse

    Parameters cm%
    .Groesse% = cm%

EndProc

Proc Hund.getGroesse

    Return .Groesse%

EndProc

Proc Hund.bellen

    Parameters text$
    Print text$

EndProc

-Begin-----------------------------------------------------------------
Declare Waldi#
Dim Waldi#,Hund
Declare Bello#
Dim Bello#,Hund
Waldi#.setGeburtsdatum(10.01.1997)
Waldi#.setRasse(Dackel)
Waldi#.setGroesse(35)

With Bello#

    .setGeburtsdatum(23.09.1985)
    .setRasse(Bernhardiner)
    .setGroesse(65)

EndWith

With Waldi#

    Print .getGeburtsdatum()
    Print .getRasse()
    Print Str$(.getGroesse()) +  cm
    .bellen(WauWau!)

EndWith

Print

With Bello#

    Print .getGeburtsdatum()
    Print .getRasse()
    Print Str$(.getGroesse()) +  cm
    .bellen(Knurr Kläff!)

EndWith

WaitInput
-End------------------------------------------------------------------