Das hier könnte dich interessieren: Design PatternsKurzer hat geschrieben:Unabhängig von dieser Antwort würde mich trotzdem interessieren, ob es für jemanden mit meinem Kenntnisstand frei verfügbare Lektüre gibt, die einem das Thema näher bringen. Lektüre, deren Wissen ich auch in SimpleOOP anwenden kann und die nicht nur andere mainstream OOP-Dialekte voraussetzen.
Vielleicht besser erst einmal mit Objektorientierte Programmierung anfangen.NicTheQuick hat geschrieben:Das hier könnte dich interessieren: Design Patterns
Code: Alles auswählen
class PdfDatei extends AusgabeMedium {
void ausgeben(Grafik grafik) {
grafik.ausgebenAlsPdfDatei(this);
}
}
class Bildschirm extends AusgabeMedium {
void ausgeben(Grafik grafik) {
grafik.ausgebenAufBildschirm(this);
}
}
Code: Alles auswählen
Class Test
Public Method Init() ; Wird automatisch bei NewObject aufgerufen
Debug "Init() (NewObject called (This = "+Str(This)+")"
EndMethod
Public Method Starten()
Debug "Starten()"
EndMethod
Public Method Release()
Debug "Release()"
EndMethod
EndClass
*Object.Test = NewObject.Test ; ruft Automatisch Init auf sofern vorhanden
*Object\Starten()
Debug "*Object = "+Str(*Object)
*Object = FreeObject
Debug "*Object = "+Str(*Object)Ein neues ObjeKt wird aber "von außen" erstellt. D.h. eine Funktion (new in C++) von außen ruft das Init auf,Kurzer hat geschrieben:Ich frage mich warum diese Methoden dann im Beispiel Public sind. Durch die automatische Ausführung muss man sie nicht mehr zwingend manuell "von außen" aufrufen.
Code: Alles auswählen
Structure Settings
x.i
y.i
Width.i
Height.i
EndStructure
Class Sudoku
; +-----------------------------------------------------------------
; |Description : Beschreibung der Klasse
; |Init-Args : arg1 : -
; | : arg2 : -
; |Results : -
; |Remarks : -
; +-----------------------------------------------------------------
BeginPrivate
SudokuSettings.Settings
EndPrivate
Public Method Init()
Debug "Init()"
EndMethod
Public Method Release()
Debug "Release()"
EndMethod
EndClass
Global *MySudoku.Sudoku
*MySudoku = NewObject.Sudoku()
*MySudoku = FreeObject
Code: Alles auswählen
Else
CallObjectClass$ = ""
If LastElement(Objects()) ; Klasse zu Object in NewObjects() suchen
Repeat
If Objects()\IsMainFile = IsMainFile ; Object in Liste ist in der selben datei
If Objects()\Line < ListIndex(Quelldatei()) Or (Objects()\Line = ListIndex(Quelldatei()) And Objects()\Row < ListIndex(TokenLine()))
usw...
Code: Alles auswählen
*Object.Test = NewObject.Test
*Object = FreeObject
Code: Alles auswählen
*MySudoku.Sudoku = NewObject.Sudoku
*MySudoku.Sudoku = FreeObject
Code: Alles auswählen
Structure Settings
iGadgetNr.i
iGadgetInitalized.i
x.i
y.i
iWidth.i
iHeight.i
EndStructure
Class Sudoku
BeginPrivate
SudokuSettings.Settings
iLinestep.i
i.i
EndPrivate
Public Method Init()
Debug "Init()"
; Standardwerte setzen
This\SudokuSettings\x = 1
This\SudokuSettings\y = 1
This\SudokuSettings\iWidth = 100
This\SudokuSettings\iHeight = 100
EndMethod
Public Method Release()
Debug "Release()"
If This\SudokuSettings\iGadgetInitalized = 1
FreeGadget(This\SudokuSettings\iGadgetNr)
This\SudokuSettings\iGadgetInitalized = 0
EndIf
EndMethod
Public Method SudokuGadget(iGadgetNr, x.i=1, y.i=1, iWidth.i=100, iHeight.i=100)
Debug "SudokuGadget()"
This\SudokuSettings\iGadgetNr = iGadgetNr
This\SudokuSettings\x = x
This\SudokuSettings\y = y
This\SudokuSettings\iWidth = iWidth
This\SudokuSettings\iHeight = iHeight
CanvasGadget(iGadgetNr, x, y, iWidth, iHeight, #PB_Canvas_Border)
This\SudokuSettings\iGadgetInitalized = 1
This\Draw()
EndMethod
Private Method Draw()
Debug "Draw()"
If This\SudokuSettings\iGadgetInitalized = 1
This\iLinestep = This\SudokuSettings\iWidth / 9
If StartDrawing(CanvasOutput(This\SudokuSettings\iGadgetNr))
For This\i = 1 To 9
Line(This\iLinestep * This\i, 0, This\iLinestep, This\SudokuSettings\iHeight, 0)
Next i
; Der Kreis ist nur nen Test
Circle(This\SudokuSettings\iWidth / 2, This\SudokuSettings\iHeight / 2, This\SudokuSettings\iHeight / 3, RGB(Random(255), Random(255), Random(255)))
StopDrawing()
EndIf
EndIf
EndMethod
EndClass