XProfan

Deutsch

Gary12345

Hi,

habe mal versucht Python Code in XPROFAN umzuwandeln und da funktioniert wass nicht. Ich versuche eine einfache Klasse zu erstellen in XPROFAN, nun funktioniert die leider nicht.
Kompilieren Markieren Separieren

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 geld!

Python Code:
Kompilieren Markieren Separieren

class Bankkonto:
def __init__(self, geld, kontonummer):
self.geld = geld
self.kontonummer = kontonummer
def abheben(self, betrag, kontonummer):

if kontonummer == self.kontonummer:

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

    if kontonummer == self.kontonummer:

        self.geld += betrag
        Konto = Bankkonto(100, 123456789)
        print Konto.geld
        Konto.abheben(50, 123456789) #erwarteter Wert 50!
        print Konto.geld
        Konto.aufnehmen(100, 123456789) #erwarteter Wert 150!
        print Konto.geld

Und wenn ich in Wikipedia nachsehe (nach XPROFAN sehe) wird als Eigenschaft das angegeben: ansatzweise objektorientiert

Wie kann eine Sprache ansatzweise objektorientiert sein? Und warum ist das in XPROFAN so kompliziert?

@Julian Schmidt) Schau mal in Google Drive.

MfG
Gary12345

14.04.2013 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Julian
Schmidt

Musst die Gütigkeitsregeln beachten
In der Hilfe steht dazu.

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

-: Die Eigenschaft/Methode ist privat (private). Sie ist nur innerhalb der Klasse bekannt und wird bei der Veerbung auch nicht berücksichtigt.

#: Die Eigenschaft/Methode ist geschützt (protected). Sie ist nur innerhalb der Klasse und ihrer Nachfahren bekannt. Sie wird also mit vererbt.

In Verbindung mit Setter/Getter-Methoden sollte diese Eigenschaft bevorzugt werden.

+: Die Eigenschaft/Methode ist öffentlich (public). Auf sie kann vom Programm, das Objekte dieser Klasse bildet, zugegriffen werden.
]

Hier ein Beispiel.
Kompilieren Markieren Separieren

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#