XProfan

Italia

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
OOP-Demo (1)
-Begin-----------------------------------------------------------------
-Class---------------------------------------------------------------
Class Hund = Name$(10),
Geburtsdatum$(10),
Rasse$(32),
Groesse%,
bellen@

Proc Hund.bellen

    Parameters text$
    Print text$

EndProc

-Main----------------------------------------------------------------
Declare Waldi#, Bello#
Dim Waldi#,Hund
Dim Bello#,Hund
Cls
Waldi#.Name$ = Waldi
Waldi#.Geburtsdatum$ = 10.01.1997
Waldi#.Rasse$ = Dackel
Waldi#.Groesse% = 35

With Bello#

    .Name$ = Bello
    .Geburtsdatum$ = 23.09.1985
    .Rasse$ = Bernhardiner
    .Groesse% = 65

EndWith

With Waldi#

    Print .Name$
    Print .Geburtsdatum$
    Print .Rasse$
    Print Str$(.Groesse%) +  cm
    .bellen(WauWau!)

EndWith

Print

With Bello#

    Print .Name$
    Print .Geburtsdatum$
    Print .Rasse$
    Print Str$(.Groesse%) +  cm
    .bellen(Knurr Kläff!)

EndWith

WaitInput
Dispose Waldi#
Dispose Bello#
-End-------------------------------------------------------------------
 href='./../../function-references/xprofan/end/'>End