PureBoard
https://www.purebasic.fr/german/

Langweilig -> primitives Pseudo-OOP ohne Features...
https://www.purebasic.fr/german/viewtopic.php?f=8&t=14656
Seite 1 von 1

Autor:  gekkonier [ 24.10.2007 16:12 ]
Betreff des Beitrags:  Langweilig -> primitives Pseudo-OOP ohne Features...

Falls euch auch so fad ist wie mir etwas zum spielen:

Code:
; folgendes Makro ist eine Abkürzung, weil faul sein schön macht
Macro Call(obj, method)
   CallFunctionFast(obj\method, @obj)
EndMacro

; die allgemeine Struktur der "Klasse"
Structure Punkt
   *Info ; Methode
   x.l ; Werte
   y.l
EndStructure

; Implementierung der Methode
Procedure Info(*this.Punkt)
   Debug *this\x
   Debug *this\y
   Debug "-"
EndProcedure

; "Konstruktor"
Macro NeuPunkt(name, param_x, param_y)
   name.Punkt
   name\Info = @Info()
   name\x = param_x
   name\y = param_y
EndMacro

; Beispiel zur Benutzung des Punktes

NeuPunkt(foo, 1, 2)
Call(foo, Info)
foo\x = 3
foo\y = 4
Call(foo, Info)


Edit: Das hier ist weit weg von vollständig und superfunktionell, aber vielleicht wills ja jemand als Basis für eigenen Experimente verwenden :D

Seite 1 von 1 Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/