XProfan

Español

Gary12345

Hi,

habe veces intenta Python Code en XPROFAN umzuwandeln y como funktioniert wass no. Yo versuche una einfache Klasse a redactar en XPROFAN, nun funktioniert el por desgracia, no.
Kompilieren Marca Separación

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

Python Code:
Kompilieren Marca Separación

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)
        imprimir Konto.geld
        Konto.abheben(50, 123456789) #erwarteter Valor 50!
        imprimir Konto.geld
        Konto.aufnehmen(100, 123456789) #erwarteter Valor 150!
        imprimir Konto.geld

Und si yo en Wikipedia nachsehe (después de XPROFAN sehe) se como Eigenschaft el angegeben: ansatzweise objektorientiert

¿Cómo se puede una Lingua ansatzweise objektorientiert ser? Und por qué es el en XPROFAN así kompliziert?

@Julian Schmidt) Schau veces en Google Drive.

MfG
Gary12345

14.04.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Musst el Gütigkeitsregeln beachten
In el Ayuda es dazu.

Folgende Gültigkeitsmerkmale hay: (como Präfix)

-: El Eigenschaft/Método es privat (private). Sie es sólo innerhalb el Klasse bekannt y se en Veerbung auch no berücksichtigt.

#: El Eigenschaft/Método es geschützt (protected). Sie es sólo innerhalb el Klasse y ihrer Nachfahren bekannt. Sie se also con vererbt.

In Verbindung con Setter/Getter-Métodos debería esta Eigenschaft bevorzugt voluntad.

+: El Eigenschaft/Método es öffentlich (public). Auf ellos kann vom Programa, el Objetos dieser Klasse bildet, zugegriffen voluntad.
]

Hier una Ejemplo.
Kompilieren Marca Separación

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
Disponer MeinBall#