XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
OOP-Demo (3)
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

-------------------------------------------
Class hundekarte = hund,
#besitzer$(60),
setBesitzer@,
getBesitzer@

Proc hundekarte.setBesitzer

    Parameters name$
    .besitzer$ = name$

EndProc

Proc hundekarte.getBesitzer

    Return .besitzer$

EndProc

-Begin-----------------------------------------------------------------
Declare Waldi#, Bello#
Dim Waldi#,Hundekarte
Dim Bello#,Hundekarte

With Waldi#

    .setGeburtsdatum(10.01.1997)
    .setRasse(Dackel)
    .setGroesse(35)
    .setBesitzer(Klaus)

EndWith

With Bello#

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

EndWith

With Waldi#

    Print .getGeburtsdatum()
    Print .getRasse()
    Print Str$(.getGroesse()) +  cm
    Print .getBesitzer()

EndWith

Print

With Bello#

    Print .getGeburtsdatum()
    Print .getRasse()
    Print Str$(.getGroesse()) +  cm
    Print .getBesitzer()

EndWith

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