XProfan

English

Gary12345

Hi,

have time attempts Python code in XPROFAN umzuwandeln and there functions wass not. I try a simple class to create in XPROFAN, now functions The unfortunately not.
Compile Mark Separation

class Bankkonto = geld!, kontonummer%, geld_abheben@, geld_aufnehmen@, set_geld@, set_kontonummer@

proc neu.set_geld

    parameters wert!
    .geld! = wert!
    return .geld!

endproc

proc neu.set_kontonummer

    parameters kontonr%
    .kontonummer% = kontonr%
    return .kontonummer!

endproc

proc geld_abheben

    parameters betrag!, kontonr%

    if kontonr% = kontonummer%

        .geld! = .geld! - betrag!

    endif

endproc

proc geld_aufnehmen

    parameters betrag!, kontonr%

    if konotnr% = kontonummer%

        .geld! = .geld! - betrag!

    endif

endproc

dim a#, Bankkonto
geld! = a#.set_geld(1000.0)
kontonummer% = a#.set_kontonummer(123456789)
a#.gelf_abheben(500.0, 123456789)
print money!

Python code:
Compile Mark Separation

class bank account:
def __init__(self, money, kontonummer):
self.money = money
self.kontonummer = kontonummer
def take off(self, amount, kontonummer):

if kontonummer == self.kontonummer:

    self.money -= amount
    def take in(self, amount, kontonummer):

    if kontonummer == self.kontonummer:

        self.money += amount
        account = bank account(100, 123456789)
        print account.money
        account.take off(50, 123456789) #erwarteter worth 50!
        print account.money
        account.take in(100, 123456789) #erwarteter worth 150!
        print account.money

And if I in Wikipedia nachsehe (to XPROFAN see) becomes as quality the indicated: ansatzweise object-oriented

How can a Language ansatzweise object-oriented his? and Why is the in XPROFAN so tricky?

@Julian Schmidt) look time in Date Drive.

MfG
Gary12345

04/14/13 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Julian
Schmidt

must The Gütigkeitsregeln mind
in the Help standing moreover.

following Gültigkeitsmerkmale there: (as prefix)

-: The quality/method is private (private). she's only inside the class famous and becomes with the Veerbung neither berücksichtigt.

#: The quality/method is protected (protected). she's only inside the class and yours go after famous. she'll means with vererbt.

In link with Setter/Getter-modes ought to these quality bevorzugt go.

+: The quality/method is public (public). On tappt im dunkeln can of Program, the Objects this class forms, zugegriffen go.
]

here an example.
Compile Mark Separation

CLASS Ball = #Farbe&, \
Groesse&, \
Gewicht&, \
getFarbe@, \
setFarbe@

Proc Ball.getFarbe

    Parameters col&
    Return .Farbe&

EndProc

Proc Ball.setFarbe

    Parameters col&
    .Farbe& = col&

EndProc

Declare MeinBall#
Dim MeinBall#,Ball
MeinBall#.setFarbe(RGB(255,0,0))
MeinBall#.Groesse& = 20
MeinBall#.Gewicht& = 10

With MeinBall#

    print .getFarbe()
    .setFarbe(RGB(0,0,255))
    print .getFarbe()

Endwith

waitinput
Dispose MeinBall#