PureBasic Forums - English

Code: Select all

; Code créer par Dieppedalle David avec l'aide de l'IA, le 21/02/2025.
; Code created by Dieppedalle David with the help of AI, on 02/21/2025.

; ======================================================
; Structure des propriétés de l'Objet.
; Structure of the Object's properties.
; ======================================================
Structure ObjectProperties
  ID.i    ; L'ID de l'Objet              |   The ID of the Object.
  Name.s  ; Le nom de l'Objet.           |   The Name of the Object.
  X.i     ; La coordonnée ou valeur X.   |   The X coordinate or value.
  Y.i     ; La coordonnée ou valeur Y.   |   The Y coordinate or value.
EndStructure

; ======================================================
; Prototypes pour les méthodes.
; Prototypes for methods.
; ======================================================
Prototype.i ProtoIntFunc()                             ; Méthode sans paramètre qui retourne un entier.                      |   Method without parameters that returns an integer.
Prototype.s ProtoStrFunc()                             ; Méthode sans paramètre qui retourne une chaîne.                     |   Method without parameters that returns a string.
Prototype.s ProtoStrFuncWithParams(Title.s, Message.s) ; Méthode avec paramètres (Title, Message) qui retourne une chaîne.   |   Method with parameters (Title, Message) that returns a string.

; ======================================================
; Une structure où chaque champ contient l'adresse 
; de la procédure qui porte le nom du champ.
;
; A structure where each field contains the address 
; of the procedure with the same name as the field.
; ======================================================
Structure ObjectMethods
  *Abc123.ProtoIntFunc           ; *Abc123 est un Pointeur de Type ProtoIntFunc qui est un Prototype.             |   *Abc123 is a Pointer of Type ProtoIntFunc which is a Prototype.
  *Abc246.ProtoIntFunc           ; *Abc246 est un Pointeur de Type ProtoIntFunc qui est un Prototype.             |   *Abc246 is a Pointer of Type ProtoIntFunc which is a Prototype.
  *AbcXY.ProtoIntFunc            ; *AbcXY est un Pointeur de Type ProtoIntFunc qui est un Prototype.              |   *AbcXY is a Pointer of Type ProtoIntFunc which is a Prototype.
  *AbcStr.ProtoStrFunc           ; *AbcStr est un Pointeur de Type ProtoStrFunc qui est un Prototype.             |   *AbcStr is a Pointer of Type ProtoStrFunc which is a Prototype.
  *AbcBox.ProtoStrFuncWithParams ; *AbcBox est un Pointeur de Type ProtoStrFuncWithParams qui est un Prototype.   |   *AbcBox is a Pointer of Type ProtoStrFuncWithParams which is a Prototype.
EndStructure

; ======================================================
; Structure principale de l'Objet.
; Main Object structure.
; ======================================================
Structure StructureObject
  *Properties.ObjectProperties  ; Pointeur (*Properties) de type ObjectProperties qui pointe vers les propriétés (état).   |   Pointer (*Properties) of type ObjectProperties that points to properties (state).
  *Methods.ObjectMethods        ; Pointeur (*Methods) de type ObjectMethods qui pointe vers les méthodes (comportement).   |   Pointer (*Methods) of type ObjectMethods that points to methods (behavior).
EndStructure

Global NextObjectID.i = 1
Global *CurrentObject.StructureObject  ; Variable globale pour stocker l'Objet courant.   |   Global variable to store the current Object.

; ======================================================
; Des procédures quelconque.
; Any procedures.
; ======================================================
Procedure.i Abc123()
  ProcedureReturn 123  ; Retourne la valeur entière 123.   |   Returns the integer value 123.
EndProcedure

Procedure.i Abc246()
  ProcedureReturn 246  ; Retourne la valeur entière 246.   |   Returns the integer value 246.
EndProcedure

Procedure.i AbcXY()
  ; Utilise le contexte global pour accéder aux propriétés de l'Objet courant. 
  ; Uses the global context to access the properties of the current Object.
  If *CurrentObject And *CurrentObject\Properties
    ProcedureReturn *CurrentObject\Properties\X + *CurrentObject\Properties\Y
  Else
    Debug "Error: Object Or properties Not initialized."
    ProcedureReturn 0
  EndIf
EndProcedure

Procedure.s AbcStr()
  ; Utilise le contexte global pour accéder aux propriétés de l'Objet courant et retourne une chaîne formatée. 
  ; Uses the global context to access the properties of the current Object and returns a formatted string.
  If *CurrentObject And *CurrentObject\Properties
    ProcedureReturn "X + Y = " + Str(*CurrentObject\Properties\X + *CurrentObject\Properties\Y)
  Else
    Debug "Error: Object Or properties Not initialized."
    ProcedureReturn ""
  EndIf
EndProcedure

Procedure.s AbcBox(Title.s, Message.s)
  ; Affiche une boîte de message avec un titre et un message, puis retourne une chaîne de confirmation.
  ; Displays a message box with a title and message, then returns a confirmation string.
  MessageRequester(Title, Message)
  ProcedureReturn "Message displayed !"
EndProcedure

; ======================================================
; Création d'un nouvel Objet.
; Creating a new Object.
; ======================================================
Procedure.i NewObject()
  
  ; Déclare un Pointeur (*Object) protégé de type StructureObject, qui prend comme valeur l'adresse de la structure "StructureObject".
  ; Ensuite, alloue un nouvel Objet de type Structure dynamique.
  ; 
  ; Declares a protected Pointer (*Object) of type StructureObject, which takes as a value the address of the "StructureObject" structure.
  ; Then, allocates a new Object of dynamic Structure type.
  Protected *Object.StructureObject = AllocateStructure(StructureObject)
  
  ; Si l'Objet *Object est bien initialisé.
  ; If the Object *Object is properly initialized.
  If *Object.StructureObject
    
    ; Alloue un nouvel Objet "Properties" de type Structure dynamique qui prend comme valeur l'adresse de la structure "ObjectProperties".
    ; Allocates a new "Properties" Object of dynamic Structure type which takes as a value the address of the "ObjectProperties" structure.
    *Object\Properties = AllocateStructure(ObjectProperties)
    
    ; Si l'Objet "Properties" n'est pas initialisé.
    ; If the "Properties" Object is not initialized.
    If Not *Object\Properties
      Debug "Error: Unable To allocate Object properties."
      FreeStructure(*Object) ; Supprime l'Objet car il a pu être créé.   |   Remove the Object as it has been created.
      ProcedureReturn 0
    EndIf
    
    ; Alloue un nouvel Objet "Methods" de type Structure dynamique qui prend comme valeur l'adresse de la structure "ObjectMethods".
    ; Allocates a new "Methods" Object of dynamic Structure type which takes as a value the address of the "ObjectMethods" structure.
    *Object\Methods = AllocateStructure(ObjectMethods)
    
    ; Si l'Objet "Methods" n'est pas initialisé.
    ; If the "Methods" Object is not initialized.
    If Not *Object\Methods
      Debug "Error: Unable To allocate Object methods."
      FreeStructure(*Object\Properties) ; Supprime les propriétés de l'Objet car elles ont pu être créées.   |   Remove the properties of the Object as they have been created.
      FreeStructure(*Object)            ; Supprime l'Objet car il a pu être créé.   |   Remove the Object as it has been created.
      ProcedureReturn 0
    EndIf
    
    ; Affecte un Numéro d'identification à l'Objets en fonction de la variable NextObjectID.i.
    ; Assigns an identification number to the object according to the NextObjectID.i variable.
    *Object\Properties\ID = NextObjectID.i
    NextObjectID.i + 1
    
    ; Associe les méthodes aux champs correspondants, chaque champ contient l'adresse mémoire de la procédure qui porte le nom du champ.
    ; Associates methods with the corresponding fields, each field contains the memory address of the procedure that has the same name as the field.
    *Object\Methods\Abc123 = @Abc123()
    *Object\Methods\Abc246 = @Abc246()
    *Object\Methods\AbcXY = @AbcXY()
    *Object\Methods\AbcStr = @AbcStr()
    *Object\Methods\AbcBox = @AbcBox()
    
    ; Retourne un pointeur qui est l'adresse mémoire de la structure "StructureObject".
    ; Returns a pointer which is the memory address of the "StructureObject" structure.
    ProcedureReturn *Object
    
  Else
    ProcedureReturn 0
    
  EndIf

EndProcedure

; ======================================================
; Détruit un objet et libère toute sa mémoire allouée.
; Destroys an Object and releases all its allocated memory.
; ======================================================
Procedure.b DestroyObject(*Object.StructureObject)
  
  ; Vérifie si l'objet est valide (non-nul)   |   Checks if Object is valid (non-null).
  If *Object
    
    If *Object\Properties 
      FreeStructure(*Object\Properties) ; Libère les propriétés   |   Frees properties.
    EndIf
    
    If *Object\Methods 
      FreeStructure(*Object\Methods) ; Libère les méthodes   |   Frees methods.
    EndIf
    
    FreeStructure(*Object) ; Libère l'objet principal   |   Frees main Object.
    
    ProcedureReturn 1
    
  Else
    Debug "Error: Object Not initialized: " + Str(*Object)
    ProcedureReturn 0
    
  EndIf
    
EndProcedure




; --------------------------------

; Exemple d'utilisation:
; Example of use:

; ======================================================
; Création d'instance.
; Instance creation.
; ======================================================
*MyObject.StructureObject = NewObject() ; Crée un nouvel Objet.   |   Creates a new Object.

; Si l'Objet existe.   |   If the Object exists.
If *MyObject
  
; *CurrentObject est un Pointeur globale définie plus haut dans le code qui sert à savoir l'Objet courant actuel.
; *CurrentObject is a Global Pointer defined earlier in the code, used to identify the current Object.
*CurrentObject = *MyObject ; Enregistre l'Objet courant (*MyObject) dans le pointeur *CurrentObject, sert à ne pas passer l'Objet *MyObject en paramètre des méthodes.
                           ; Saves the current Object (*MyObject) in the *CurrentObject pointer, so as not to pass the *MyObject as a methods parameter.

Debug "Adress Object: " + Str(*MyObject)                       ; Affiche l'adresse mémoire de l'instance de l'Objet.         |   Displays the memory address of the Object instance.
Debug "Adress Object Properties: " + Str(*MyObject\Properties) ; Affiche l'adresse mémoire de la structure des propriétés.   |   Displays the memory address of the properties structure.
Debug "Adress Object Methods: " + Str(*MyObject\Methods)       ; Affiche l'adresse mémoire de la structure des méthodes.     |   Displays the memory address of the methods structure.
Debug "-----------------------------------"

; ======================================================
; Modification des propriétés.
; Modification of properties.
; ======================================================
*MyObject\Properties\Name = "Object #1"    ; Définit la propriété Name à "Object #1".    |   Sets Name property to "Object #1".
*MyObject\Properties\X = 15                ; Définit la propriété X à la valeur de 15.   |   Sets X property to 15.
*MyObject\Properties\Y = 25                ; Définit la propriété Y à la valeur de 25.   |   Sets Y property to 25.

Debug "Object ID: " + Str(*MyObject\Properties\ID)  ; Affiche la valeur de la propriété ID.                          |   Displays ID property value.
Debug "Object X: " + Str(*MyObject\Properties\X)    ; Affiche la valeur de la propriété X.                           |   Displays X property value.
Debug "Object Y: " + Str(*MyObject\Properties\Y)    ; Affiche la valeur de la propriété Y.                           |   Displays Y property value.
Debug "Object Name: " + *MyObject\Properties\Name   ; Affiche la valeur de la propriété Name sous forme de chaîne.   |   Displays Name property value as a string.
Debug "-----------------------------------"

; ======================================================
; Appel des fonctions sans passer explicitement les propriétés dans les paramètres. 
; Calling functions without explicitly passing properties in parameters. 
; ======================================================
Debug "Adress Object Methode Abc123:" + Str(*MyObject\Methods\Abc123)    ; Affiche l'adresse mémoire de la méthode Abc123().   |    Displays memory address of Abc123 method().
Debug "Adress Object Methode Abc246:" + Str(*MyObject\Methods\Abc246)    ; Affiche l'adresse mémoire de la méthode Abc246().   |    Displays memory address of Abc246 method().
Debug "Adress Object Methode AbcXY:" + Str(*MyObject\Methods\AbcXY)      ; Affiche l'adresse mémoire de la méthode AbcXY().    |    Displays memory address of AbcXY method().
Debug "Adress Object Methode AbcStr:" + Str(*MyObject\Methods\AbcStr)    ; Affiche l'adresse mémoire de la méthode AbcStr().   |    Displays memory address of AbcStr method().
Debug "Adress Object Methode AbcBox:" + Str(*MyObject\Methods\AbcBox)    ; Affiche l'adresse mémoire de la méthode AbcBox().   |    Displays memory address of AbcBox method().
Debug "-----------------------------------"

Debug "Object Fonction Abc123: " + Str(*MyObject\Methods\Abc123())       ; Appelle et affiche le résultat de la méthode Abc123().   |    Calls and displays result from Abc123 method().
Debug "Object Fonction Abc246: " + Str(*MyObject\Methods\Abc246())       ; Appelle et affiche le résultat de la méthode Abc246().   |    Calls and displays result from Abc246 method().
Debug "Object Fonction AbcXY: " + Str(*MyObject\Methods\AbcXY())         ; Appelle et affiche le résultat de la méthode AbcXY().    |    Calls and displays result from AbcXY method().
Debug "Object Fonction AbcStr: " + *MyObject\Methods\AbcStr()            ; Appelle et affiche le résultat de la méthode AbcStr().   |    Calls and displays result from AbcStr method().

; Appel de la méthode avec paramètres:   -   Calling a method with parameters:
Debug "Result of AbcBox: " + *MyObject\Methods\AbcBox("Information", "Hello, world!")

Else
  Debug "Erreur: Objet non initialisés: " + Str(*MyObject)
  
EndIf

Code: Select all

EnableExplicit

;Template: Object + Dynamic VTable
;Project: Objects and Interfaces
;Author: Mijikai

;----------------------------------------- OBJECT STRUCT

Structure OBJECT
  *vtable
  Array *methods(0);<- if methods should be dynamic (otherwise use for ex. datasection or a buffer...)
EndStructure

;----------------------------------------- BALL OBJECT STRUCT

Interface METHODS_BALL
  Add.i(Value.i)
  Sub.i(Value.i)
  Rename.i(Name.s)
  Release.i();<- could be in a seperate interface (usually objects also allocate stuff so this is more practical)
EndInterface

Structure OBJECT_BALL Extends OBJECT
  *method.METHODS_BALL
  name.s
  x.i
  y.i
EndStructure

;----------------------------------------- BALL FUNCTIONS/METHODS

Procedure.i ballAdd(*Object.OBJECT_BALL,Value.i)
  With *Object
    \x + Value
    \y + Value
    ProcedureReturn #Null
  EndWith
EndProcedure

Procedure.i ballSub(*Object.OBJECT_BALL,Value.i)
  With *Object
    \x - Value
    \y - Value
    ProcedureReturn #Null
  EndWith
EndProcedure

Procedure.i ballRename(*Object.OBJECT_BALL,Name.s)
  With *Object
    \name = Name
    ProcedureReturn #Null
  EndWith
EndProcedure

Procedure.i ballRelease(*Object.OBJECT_BALL)
  ProcedureReturn FreeStructure(*Object)
EndProcedure

Procedure.i ballObject();<- create the object
  Protected.OBJECT_BALL *object
  Protected.i count
  With *object
    *object = AllocateStructure(OBJECT_BALL)
    If *object
      count = 3;<- we have 4 (0 - 3) methods (more methods could be added/removed later at any time)
      ReDim \methods(count)
      If ArraySize(\methods(),1) = count
        \methods(0) = @ballAdd()
        \methods(1) = @ballSub()
        \methods(2) = @ballRename()
        \methods(3) = @ballRelease()
        \vtable = \methods()
        \method = *object
        ProcedureReturn *object
      EndIf
      FreeStructure(*object)
    EndIf
    ProcedureReturn #Null
  EndWith
EndProcedure

;----------------------------------------- EXAMPLE

Procedure.i Main()
  Protected.OBJECT_BALL *ball
  *ball = ballObject()
  Debug *ball
  *ball\method\Add(100)
  Debug *ball\x
  Debug *ball\y
  *ball\method\Sub(50)
  Debug *ball\x
  Debug *ball\y
  *ball\method\Rename("Hello World!")
  Debug *ball\name
  *ball\method\Release()
  ProcedureReturn #Null
EndProcedure

End Main()

Code: Select all

Structure ObjThis
 *vTable
 ; Object Variables
EndStructure

Procedure New()
 Protected *obj
 *obj = AllocateStructure(ObjThis)
 ProcedureReturn *obj
EndProcedure

Procedure MoveObj(*This.ObjThis, dX, dY)
EndProcedure

Procedure DrawObj(*This.ObjThis)
EndProcedure

; Now you can call the Methodes directly with the Procedurename

define *ObjBall.ObjThis
*ObjBall = New()
MoveObj(*ObjBall, 10, 10)
Draw(*ObjBall)


; the other way is to call functions over the Interface
; for this youe have to create a pointer of the Inteface, not directly the ObjThis Structure

Define *ObjBall.IfcMyObj
*ObjBall = New()
*ObjBall\Move(10,20)
*ObjBall\Draw()

; A call over the Interface do not need the Pointer *This.
The compiler adds the *This as first parameter automatically!
For this the Pointer to the virtual Address Table must be the first variable in the This-Structure

The Interface Function name can be different from the real Procedure Name.

If you want to change the real Draw() Procedure later (maybe during runtime), you can overwrite the Procedure-Pointer in the vTable
with an other Procedure. Maybe Procedure Draw2(*This.ObjThis).

Code: Select all

; Code créer par Dieppedalle David avec l'aide de l'IA, le 22/02/2025.
; Code created by Dieppedalle David with the help of AI, on 22/02/2025.

; ======================================================
; Structure des propriétés de l'Objet.
; Structure of the Object's properties.
; ======================================================
Structure ObjectProperties
  ID.i    ; L'ID de l'Objet              |   The ID of the Object.
  Name.s  ; Le nom de l'Objet.           |   The Name of the Object.
  X.i     ; La coordonnée ou valeur X.   |   The X coordinate or value.
  Y.i     ; La coordonnée ou valeur Y.   |   The Y coordinate or value.
EndStructure

; ======================================================
; Interface pour les méthodes de l'Objet.
; Interface for Object methods.
; ======================================================
Interface ObjectMethods ; Les Noms des procédures doivent être identiques à ceux du code, avec les mêmes types et les mêmes paramètres.
                        ; The names of the procedures must be identical to those in the code, with the same types and the same parameters.
  Abc123.i()
  Abc246.i()
  AbcXY.i()
  AbcStr.s()
  AbcBox.s(Title.s, Message.s)
  DeleteObject.b()
  
EndInterface

; ======================================================
; Structure principale de l'Objet.
; Main Object structure.
; ======================================================
Structure StructureObject
  *VirtualTableObject           ; Pointeur (*VirtualTableObject) sans type, qui pointe vers l'adresse des procedures.      |   Pointer (*VirtualTableObject) without type, which points to the address of the procedures.
  *Properties.ObjectProperties  ; Pointeur (*Properties) de type ObjectProperties qui pointe vers les propriétés (état).   |   Pointer (*Properties) of type ObjectProperties that points to properties (state).
  *Methods.ObjectMethods        ; Pointeur (*Methods) de type ObjectMethods qui pointe vers les méthodes (comportement).   |   Pointer (*Methods) of type ObjectMethods that points to methods (behavior).
EndStructure

Global NextObjectID.i = 1

; ======================================================
; Des procédures quelconque.
; Any procedures.
; ======================================================
Procedure.i Abc123(*Object.StructureObject)
  ProcedureReturn 123  ; Retourne la valeur entière 123.   |   Returns the integer value 123.
EndProcedure

Procedure.i Abc246(*Object.StructureObject)
  ProcedureReturn 246  ; Retourne la valeur entière 246.   |   Returns the integer value 246.
EndProcedure

Procedure.i AbcXY(*Object.StructureObject)
  ; Si l'Objet est valide.   |    If the Object is valid.
  If *Object
    ProcedureReturn *Object\Properties\X + *Object\Properties\Y
  Else
    Debug "Error: Object Or properties Not initialized."
    ProcedureReturn 0
  EndIf
EndProcedure

Procedure.s AbcStr(*Object.StructureObject)
  ; Si l'Objet est valide.   |    If the Object is valid.
  If *Object
    ProcedureReturn "X + Y = " + Str(*Object\Properties\X + *Object\Properties\Y)
  Else
    Debug "Error: Object Or properties Not initialized."
    ProcedureReturn ""
  EndIf
EndProcedure

Procedure.s AbcBox(*Object.StructureObject, Title.s, Message.s)
  ; Affiche une boîte de message avec un titre et un message, puis retourne une chaîne de confirmation.
  ; Displays a message box with a title and message, then returns a confirmation string.
  MessageRequester(Title, Message)
  ProcedureReturn "Message displayed !"
EndProcedure

; ======================================================
; Détruit un objet et libère toute sa mémoire allouée.
; Destroys an Object and releases all its allocated memory.
; ======================================================
Procedure.b DeleteObject(*Object.StructureObject)
  
  ; Vérifie si l'objet est valide (non-nul)   |   Checks if Object is valid (non-null).
  If *Object
    
    If *Object\Properties 
      FreeStructure(*Object\Properties) ; Libère les propriétés   |   Frees properties.
    EndIf
    
    If *Object\Methods 
      FreeStructure(*Object\Methods) ; Libère les méthodes   |   Frees methods.
    EndIf
    
    FreeStructure(*Object) ; Libère l'objet principal   |   Frees main Object.
    
    ProcedureReturn 1
    
  Else
    Debug "Error: Object Not initialized: " + Str(*Object)
    ProcedureReturn 0
    
  EndIf
    
EndProcedure

; Création de la table virtuel, elle sert à stocker les adresses des procédures (Médhodes).
; Create virtual table, It is used to store procedure addresses (Medhodes).
DataSection
  VirtualTableObject:
  Data.i @Abc123()
  Data.i @Abc246()
  Data.i @AbcXY()
  Data.i @AbcStr()
  Data.i @AbcBox()
  Data.i @DeleteObject()
EndDataSection

; ======================================================
; Création d'un nouvel Objet.
; Creating a new Object.
; ======================================================
Procedure.i NewObject()
  
  ; Déclare un Pointeur (*Object) protégé de type StructureObject, qui prend comme valeur l'adresse de la structure "StructureObject".
  ; Ensuite, alloue un nouvel Objet de type Structure dynamique.
  ; 
  ; Declares a protected Pointer (*Object) of type StructureObject, which takes as a value the address of the "StructureObject" structure.
  ; Then, allocates a new Object of dynamic Structure type.
  Protected *Object.StructureObject = AllocateStructure(StructureObject)
  
  ; Si l'Objet *Object est bien initialisé.
  ; If the Object *Object is properly initialized.
  If *Object.StructureObject
    
    *Object\VirtualTableObject = ?VirtualTableObject
    
    ; Alloue un nouvel Objet "Properties" de type Structure dynamique qui prend comme valeur l'adresse de la structure "ObjectProperties".
    ; Allocates a new "Properties" Object of dynamic Structure type which takes as a value the address of the "ObjectProperties" structure.
    *Object\Properties = AllocateStructure(ObjectProperties)
    
    ; Si l'Objet "Properties" n'est pas initialisé.
    ; If the "Properties" Object is not initialized.
    If Not *Object\Properties
      Debug "Error: Unable To allocate Object properties."
      FreeStructure(*Object) ; Supprime l'Objet car il a pu être créé.   |   Remove the Object as it has been created.
      ProcedureReturn 0
    EndIf
    
    ; Affecte un Numéro d'identification à l'Objets en fonction de la variable NextObjectID.i.
    ; Assigns an identification number to the object according to the NextObjectID.i variable.
    *Object\Properties\ID = NextObjectID.i
    NextObjectID.i + 1
    
    ; Alloue un nouvel Objet "Methods" de type Structure dynamique qui prend comme valeur l'adresse de la structure "ObjectMethods".
    ; Allocates a new "Methods" Object of dynamic Structure type which takes as a value the address of the "ObjectMethods" structure.
    *Object\Methods = AllocateStructure(ObjectMethods)
    
    ; Si l'Objet "Methods" n'est pas initialisé.
    ; If the "Methods" Object is not initialized.
    If Not *Object\Methods
      Debug "Error: Unable To allocate Object methods."
      FreeStructure(*Object\Properties) ; Supprime les propriétés de l'Objet car elles ont pu être créées.   |   Remove the properties of the Object as they have been created.
      FreeStructure(*Object)            ; Supprime l'Objet car il a pu être créé.   |   Remove the Object as it has been created.
      ProcedureReturn 0
    EndIf
    
    ; Methods reçois la structure de l'Objet ou la Table Virtuel est stocké pour réfférencer les Procédures.
    ; Methods receives the structure of the Object where the Virtual Table is stored to refferentiate the Procedures.
    *Object\Methods = *Object ; Error Here !
    
    ; Retourne un pointeur qui est l'adresse mémoire de la structure "StructureObject".
    ; Returns a pointer which is the memory address of the "StructureObject" structure.
    ProcedureReturn *Object
    
  Else
    ProcedureReturn 0
    
  EndIf

EndProcedure


; --------------------------------

; Exemple d'utilisation:
; Example of use:

; ======================================================
; Création d'instance.
; Instance creation.
; ======================================================
*MyObject.StructureObject = NewObject() ; Crée un nouvel Objet.   |   Creates a new Object.

; Si l'Objet existe.   |   If the Object exists.
If *MyObject
  
Debug "Adress Object: " + Str(*MyObject)                       ; Affiche l'adresse mémoire de l'instance de l'Objet.         |   Displays the memory address of the Object instance.
Debug "Adress Object Properties: " + Str(*MyObject\Properties) ; Affiche l'adresse mémoire de la structure des propriétés.   |   Displays the memory address of the properties structure.
Debug "Adress Object Methods: " + Str(*MyObject\Methods)       ; Affiche l'adresse mémoire de la structure des méthodes.     |   Displays the memory address of the methods structure.
Debug "-----------------------------------"

; ======================================================
; Modification des propriétés.
; Modification of properties.
; ======================================================
*MyObject\Properties\Name = "Object #1"    ; Définit la propriété Name à "Object #1".    |   Sets Name property to "Object #1".
*MyObject\Properties\X = 15                ; Définit la propriété X à la valeur de 15.   |   Sets X property to 15.
*MyObject\Properties\Y = 25                ; Définit la propriété Y à la valeur de 25.   |   Sets Y property to 25.

Debug "Object ID: " + Str(*MyObject\Properties\ID)  ; Affiche la valeur de la propriété ID.                          |   Displays ID property value.
Debug "Object X: " + Str(*MyObject\Properties\X)    ; Affiche la valeur de la propriété X.                           |   Displays X property value.
Debug "Object Y: " + Str(*MyObject\Properties\Y)    ; Affiche la valeur de la propriété Y.                           |   Displays Y property value.
Debug "Object Name: " + *MyObject\Properties\Name   ; Affiche la valeur de la propriété Name sous forme de chaîne.   |   Displays Name property value as a string.
Debug "-----------------------------------"

Debug "Object Fonction Abc123: " + Str(*MyObject\Methods\Abc123())       ; Appelle et affiche le résultat de la méthode Abc123().   |    Calls and displays result from Abc123 method().
Debug "Object Fonction Abc246: " + Str(*MyObject\Methods\Abc246())       ; Appelle et affiche le résultat de la méthode Abc246().   |    Calls and displays result from Abc246 method().
Debug "Object Fonction AbcXY: " + Str(*MyObject\Methods\AbcXY())         ; Appelle et affiche le résultat de la méthode AbcXY().    |    Calls and displays result from AbcXY method().
Debug "Object Fonction AbcStr: " + *MyObject\Methods\AbcStr()            ; Appelle et affiche le résultat de la méthode AbcStr().   |    Calls and displays result from AbcStr method().

; Appel de la méthode avec paramètres:   -   Calling a method with parameters:
Debug "Result of AbcBox: " + *MyObject\Methods\AbcBox("Information", "Hello, world!")

*MyObject\Methods\DeleteObject() ; Non référencer mais est accepté ! - ; Not referenced but is accepted!

Else
  Debug "Erreur: Objet non initialisés: " + Str(*MyObject)
  
EndIf

Code: Select all

Debug *MyObject
Debug *MyObject\Properties
Debug *MyObject\Methods

Code: Select all

*MyObject\Properties\Name = "Object #1" ; Sets Name property to "Object #1".
*MyObject\Properties\X = 15 ; Sets X property to 15.
*MyObject\Properties\Y = 25 ; Sets Y property to 25.

Code: Select all

; Code créer par Dieppedalle David avec l'aide de l'IA, le 22/02/2025.
; Code created by Dieppedalle David with the help of AI, on 22/02/2025.

; ======================================================
; Structure des propriétés de l'Objet.
; Structure of the Object's properties.
; ======================================================
Structure ObjectProperties
  ID.i    ; L'ID de l'Objet              |   The ID of the Object.
  Name.s  ; Le nom de l'Objet.           |   The Name of the Object.
  X.i     ; La coordonnée ou valeur X.   |   The X coordinate or value.
  Y.i     ; La coordonnée ou valeur Y.   |   The Y coordinate or value.
EndStructure

; ======================================================
; Interface pour les méthodes de l'Objet.
; Interface for Object methods.
; ======================================================
Interface ObjectMethods ; Les Noms des procédures doivent être identiques à ceux du code, avec les mêmes types et les mêmes paramètres.
                        ; The names of the procedures must be identical to those in the code, with the same types and the same parameters.
  Abc123.i()
  Abc246.i()
  AbcXY.i()
  AbcStr.s()
  AbcBox.s(Title.s, Message.s)
  
EndInterface

; ======================================================
; Structure principale de l'Objet.
; Main Object structure.
; ======================================================
Structure StructureObject
  *VirtualTableObject           ; Pointeur (*VirtualTableObject) sans type, qui pointe vers l'adresse des procedures.      |   Pointer (*VirtualTableObject) without type, which points to the address of the procedures.
  *Properties.ObjectProperties  ; Pointeur (*Properties) de type ObjectProperties qui pointe vers les propriétés (état).   |   Pointer (*Properties) of type ObjectProperties that points to properties (state).
  *Methods.ObjectMethods        ; Pointeur (*Methods) de type ObjectMethods qui pointe vers les méthodes (comportement).   |   Pointer (*Methods) of type ObjectMethods that points to methods (behavior).
EndStructure

Global NextObjectID.i = 1

; ======================================================
; Des procédures quelconque.
; Any procedures.
; ======================================================
Procedure.i Abc123(*Object.StructureObject)
  ProcedureReturn 123  ; Retourne la valeur entière 123.   |   Returns the integer value 123.
EndProcedure

Procedure.i Abc246(*Object.StructureObject)
  ProcedureReturn 246  ; Retourne la valeur entière 246.   |   Returns the integer value 246.
EndProcedure

Procedure.i AbcXY(*Object.StructureObject)
  ; Si l'Objet est valide.   |    If the Object is valid.
  If *Object
    ProcedureReturn *Object\Properties\X + *Object\Properties\Y
  Else
    Debug "Error: Object Or properties Not initialized."
    ProcedureReturn 0
  EndIf
EndProcedure

Procedure.s AbcStr(*Object.StructureObject)
  ; Si l'Objet est valide.   |    If the Object is valid.
  If *Object
    ProcedureReturn "X + Y = " + Str(*Object\Properties\X + *Object\Properties\Y)
  Else
    Debug "Error: Object Or properties Not initialized."
    ProcedureReturn ""
  EndIf
EndProcedure

Procedure.s AbcBox(*Object.StructureObject, Title.s, Message.s)
  ; Affiche une boîte de message avec un titre et un message, puis retourne une chaîne de confirmation.
  ; Displays a message box with a title and message, then returns a confirmation string.
  MessageRequester(Title, Message)
  ProcedureReturn "Message displayed !"
EndProcedure

; Création de la table virtuel, elle sert à stocker les adresses des procédures (Médhodes).
; Create virtual table, It is used to store procedure addresses (Medhodes).
DataSection
  VirtualTableObject:
  Data.i @Abc123()
  Data.i @Abc246()
  Data.i @AbcXY()
  Data.i @AbcStr()
  Data.i @AbcBox()
EndDataSection

; ======================================================
; Création d'un nouvel Objet.
; Creating a new Object.
; ======================================================
Procedure.i NewObject()
  
  ; Déclare un Pointeur (*Object) protégé de type StructureObject, qui prend comme valeur l'adresse de la structure "StructureObject".
  ; Ensuite, alloue un nouvel Objet de type Structure dynamique.
  ; 
  ; Declares a protected Pointer (*Object) of type StructureObject, which takes as a value the address of the "StructureObject" structure.
  ; Then, allocates a new Object of dynamic Structure type.
  Protected *Object.StructureObject = AllocateStructure(StructureObject)
  
  ; Si l'Objet *Object est bien initialisé.
  ; If the Object *Object is properly initialized.
  If *Object.StructureObject
    
    *Object\VirtualTableObject = ?VirtualTableObject
    
    ; Alloue un nouvel Objet "Properties" de type Structure dynamique qui prend comme valeur l'adresse de la structure "ObjectProperties".
    ; Allocates a new "Properties" Object of dynamic Structure type which takes as a value the address of the "ObjectProperties" structure.
    *Object\Properties = AllocateStructure(ObjectProperties)
    
    ; Si l'Objet "Properties" n'est pas initialisé.
    ; If the "Properties" Object is not initialized.
    If Not *Object\Properties
      Debug "Error: Unable To allocate Object properties."
      FreeStructure(*Object) ; Supprime l'Objet car il a pu être créé.   |   Remove the Object as it has been created.
      ProcedureReturn 0
    EndIf
    
    ; Affecte un Numéro d'identification à l'Objets en fonction de la variable NextObjectID.i.
    ; Assigns an identification number to the object according to the NextObjectID.i variable.
    *Object\Properties\ID = NextObjectID.i
    NextObjectID.i + 1
    
    ; Alloue un nouvel Objet "Methods" de type Structure dynamique qui prend comme valeur l'adresse de la structure "ObjectMethods".
    ; Allocates a new "Methods" Object of dynamic Structure type which takes as a value the address of the "ObjectMethods" structure.
    *Object\Methods = AllocateStructure(ObjectMethods)
    
    ; Si l'Objet "Methods" n'est pas initialisé.
    ; If the "Methods" Object is not initialized.
    If Not *Object\Methods
      Debug "Error: Unable To allocate Object methods."
      FreeStructure(*Object\Properties) ; Supprime les propriétés de l'Objet car elles ont pu être créées.   |   Remove the properties of the Object as they have been created.
      FreeStructure(*Object)            ; Supprime l'Objet car il a pu être créé.   |   Remove the Object as it has been created.
      ProcedureReturn 0
    EndIf
    
    ; Methods reçois la structure de l'Objet ou la Table Virtuel est stocké pour réfférencer les Procédures.
    ; Methods receives the structure of the Object where the Virtual Table is stored to refferentiate the Procedures.
    *Object\Methods = *Object 
    
    ; Retourne un pointeur qui est l'adresse mémoire de la structure "StructureObject".
    ; Returns a pointer which is the memory address of the "StructureObject" structure.
    ProcedureReturn *Object
    
  Else
    ProcedureReturn 0
    
  EndIf
  
EndProcedure


; ======================================================
; Détruit un objet et libère toute sa mémoire allouée.
; Destroys an Object and releases all its allocated memory.
; ======================================================
Procedure.b DeleteObject(*Object.StructureObject)
  
  ; Vérifie si l'objet est valide (non-nul)   |   Checks if Object is valid (non-null).
  If *Object.StructureObject
    
    If *Object\Properties 
      
      FreeStructure(*Object\Properties) ; Libère les propriétés   |   Frees properties.
      *Object\Properties = 0
      
      If *Object\Methods 
        
        FreeStructure(*Object\Methods) ; Libère les méthodes   |   Frees methods.
        *Object\Methods = 0
        
        *Object.StructureObject = 0
        ProcedureReturn 1
        
      EndIf
      
    EndIf
    
    ProcedureReturn 0
    
  Else
    Debug "Error: Object Not initialized: " + Str(*Object)
    ProcedureReturn 0
    
  EndIf
  
EndProcedure

; --------------------------------

; Exemple d'utilisation:
; Example of use:

; ======================================================
; Création d'instance.
; Instance creation.
; ======================================================
*MyObject.StructureObject = NewObject() ; Crée un nouvel Objet.   |   Creates a new Object.

; Si l'Objet existe.   |   If the Object exists.
If *MyObject
  
  Debug "Adress Object: " + Str(*MyObject)                       ; Affiche l'adresse mémoire de l'instance de l'Objet.         |   Displays the memory address of the Object instance.
  Debug "Adress Object Properties: " + Str(*MyObject\Properties) ; Affiche l'adresse mémoire de la structure des propriétés.   |   Displays the memory address of the properties structure.
  Debug "Adress Object Methods: " + Str(*MyObject\Methods)       ; Affiche l'adresse mémoire de la structure des méthodes.     |   Displays the memory address of the methods structure.
  Debug "-----------------------------------"
  
  ; ======================================================
  ; Modification des propriétés.
  ; Modification of properties.
  ; ======================================================
  *MyObject\Properties\Name = "Object #1"    ; Définit la propriété Name à "Object #1".    |   Sets Name property to "Object #1".
  *MyObject\Properties\X = 15                ; Définit la propriété X à la valeur de 15.   |   Sets X property to 15.
  *MyObject\Properties\Y = 25                ; Définit la propriété Y à la valeur de 25.   |   Sets Y property to 25.
  
  Debug "Object ID: " + Str(*MyObject\Properties\ID)  ; Affiche la valeur de la propriété ID.                          |   Displays ID property value.
  Debug "Object X: " + Str(*MyObject\Properties\X)    ; Affiche la valeur de la propriété X.                           |   Displays X property value.
  Debug "Object Y: " + Str(*MyObject\Properties\Y)    ; Affiche la valeur de la propriété Y.                           |   Displays Y property value.
  Debug "Object Name: " + *MyObject\Properties\Name   ; Affiche la valeur de la propriété Name sous forme de chaîne.   |   Displays Name property value as a string.
  Debug "-----------------------------------"
  
  Debug "Object Fonction Abc123: " + Str(*MyObject\Methods\Abc123())       ; Appelle et affiche le résultat de la méthode Abc123().   |    Calls and displays result from Abc123 method().
  Debug "Object Fonction Abc246: " + Str(*MyObject\Methods\Abc246())       ; Appelle et affiche le résultat de la méthode Abc246().   |    Calls and displays result from Abc246 method().
  Debug "Object Fonction AbcXY: " + Str(*MyObject\Methods\AbcXY())         ; Appelle et affiche le résultat de la méthode AbcXY().    |    Calls and displays result from AbcXY method().
  Debug "Object Fonction AbcStr: " + *MyObject\Methods\AbcStr()            ; Appelle et affiche le résultat de la méthode AbcStr().   |    Calls and displays result from AbcStr method().
  
  ; Appel de la méthode avec paramètres:   -   Calling a method with parameters:
  Debug "Result of AbcBox: " + *MyObject\Methods\AbcBox("Information", "Hello, world!")
  
  ; Pour supprimer un objet, suivez scrupuleusement cette méthode !
  ; To delete an object, follow this method carefully !
  If DeleteObject(*MyObject)
    *MyObject = #NUL
    Debug "Object deleted !" 
  EndIf
  
Else
  Debug "Error: Uninitialized objects: " + Str(*MyObject)
  
EndIf