XProfan

Français

Gary12345

Hi,

habe la fois versucht Python Code dans XPROFAN umzuwandeln et là funktioniert wass pas. je versuche une simple super trop erstellen dans XPROFAN, eh bien funktioniert qui malheureusement pas.
Kompilieren Marque Séparation

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)
imprimer argent!

Python Code:
Kompilieren Marque Séparation

class compte en banque:
def __init__(self, argent, kontonummer):
self.argent = argent
self.kontonummer = kontonummer
def retirer(self, betrag, kontonummer):

si kontonummer == self.kontonummer:

    self.argent -= betrag
    def aufnehmen(self, betrag, kontonummer):

    si kontonummer == self.kontonummer:

        self.argent += betrag
        Konto = compte en banque(100, 123456789)
        imprimer Konto.argent
        Konto.retirer(50, 123456789) #erwarteter Wert 50!
        imprimer Konto.argent
        Konto.aufnehmen(100, 123456789) #erwarteter Wert 150!
        imprimer Konto.argent

et si je dans Wikipedia nachsehe (pour XPROFAN vois) wird comme qualité cela angegeben: ansatzweise objektorientiert

comment peux une Discours ansatzweise objektorientiert son? et pourquoi ist cela dans XPROFAN so compliqué?

@Julian Schmidt) exposition la fois dans Google Drive.

MfG
Gary12345

14.04.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

Musst qui Gütigkeitsregeln tenir compte de
dans qui Aider steht en supplément.

Folgende Gültigkeitsmerkmale gibt es: (comme Präfix)

-: qui qualité/Methode ist privat (private). vous ist seulement dedans qui super bekannt et wird chez qui Veerbung aussi pas berücksichtigt.

#: qui qualité/Methode ist geschützt (protected). vous ist seulement dedans qui super et ihrer Nachfahren bekannt. vous wird alors avec vererbt.

dans liaison avec Setter/Getter-Methoden sollte cet qualité bevorzugt volonté.

+: qui qualité/Methode ist öffentlich (public). sur il peut vom Programme, cela Objekte cette super bildet, zugegriffen volonté.
]

ici un Beispiel.
Kompilieren Marque Séparation

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#