Code : Tout sélectionner
Interface MonObjet
Deplacer(x,y)
Detruire()
EndInterface
Structure _classe
*proc
x.i
y.i
EndStructure
Procedure CreationObjet()
Protected *this._classe
*this = AllocateMemory(SizeOf(_classe))
*this\x = 0
*this\y = 0
*this\proc = ?data_proc
ProcedureReturn *this
EndProcedure
Procedure Deplacer(*this._classe, x, y)
*this\x = x
*this\y = y
Debug "objet : " + Str(*this) +" -> position : " + x + " : " + y
EndProcedure
Procedure Detruire(*this.MonObjet)
FreeMemory(*this)
EndProcedure
Objet1.MonObjet = CreationObjet() ; un objet
Objet2.MonObjet = CreationObjet() ; un deuxième
Objet1\Deplacer(10, 20)
objet1\Deplacer(45,23)
Objet1\Detruire()
Objet2\Deplacer(20, 30)
Objet2\Detruire()
DataSection
data_proc:
Data.i @Deplacer()
Data.i @Detruire()
EndDataSectionOuiKwai chang caine a écrit :Pour l'adresse des procédures on est obligé de passer par une datasection ?
Code : Tout sélectionner
Protected *this._struct = AllocateStructure(_struct)
Code : Tout sélectionner
AllocateMemory(SizeOf(_classe))
Code : Tout sélectionner
Procedure myProcedure()
Debug "hello"
EndProcedure
Structure _struct
*myProc
EndStructure
myStruct._struct\myProc = @myProcedure()
CallFunctionFast(myStruct\myProc)
En fait j'ai pris la mauvaise habitude de faire unmicrodevweb a écrit :Note il vaut mieux utiliserEt non pasCode : Tout sélectionner
Protected *this._struct = AllocateStructure(_struct)Car avec AllocateMemory la structure ne pourra pas contenir de listCode : Tout sélectionner
AllocateMemory(SizeOf(_classe))
Code : Tout sélectionner
allocatememoryCode : Tout sélectionner
InitializeStructureCode : Tout sélectionner
allocatestructure
Fels a écrit :Bonjour,
Dans une structure et si vous ajoutiez .p pour procedure. Cela ferait un pas de géant à purebasic tout en restant procedural.
Cordialment.
Abdel.
Code : Tout sélectionner
PrototypeC Func()
Structure Foo
Func.Func
EndStructure
Procedure Any()
Debug #PB_Compiler_Procedure
EndProcedure
A.Foo
A\Func = @Any()
A\Func()
???falsam a écrit :OuiKwai chang caine a écrit :Pour l'adresse des procédures on est obligé de passer par une datasection ?
Tuto sur ce théme : https://www.purebasic.fr/french/viewtop ... 21&t=15656
Non : on peut passer par un tableau, voire une zone mémoire.Kwai chang caine a écrit :Pour l'adresse des procédures on est obligé de passer par une datasection ?
N'hésite pas à donner un code validant ce que tu viens de dire !!Ollivier a écrit :Non : on peut passer par un tableau, voire une zone mémoire.
Ollivier a écrit :Non : on peut passer par un tableau, voire une zone mémoire.
Code : Tout sélectionner
Global *Ptr = AllocateMemory(8)
Global Dim Tableau.i(2)
Interface MonObjet
Deplacer(x,y)
Detruire()
EndInterface
Structure _classe
*proc
x.i
y.i
EndStructure
Procedure CreationObjet()
Protected *this._classe
*this = AllocateMemory(SizeOf(_classe))
*this\x = 0
*this\y = 0
;*this\proc = @Tableau()
*this\proc = *Ptr
ProcedureReturn *this
EndProcedure
Procedure Deplacer(*this._classe, x, y)
*this\x = x
*this\y = y
Debug "objet : " + Str(*this) +" -> position : " + x + " : " + y
EndProcedure
Procedure Detruire(*this.MonObjet)
FreeMemory(*this)
EndProcedure
PokeI(*Ptr,@Deplacer())
PokeI(*Ptr+4,@Detruire()) ; +4 en x86 ! +8 en x64 !
Tableau(0) = @Deplacer()
Tableau(1) = @Detruire()
Objet1.MonObjet = CreationObjet() ; un objet
Objet2.MonObjet = CreationObjet() ; un deuxième
Objet1\Deplacer(10, 20)
objet1\Deplacer(45,23)
Objet1\Detruire()
Objet2\Deplacer(20, 30)
Objet2\Detruire()
Bonjour KCC, c'est exactement la même chose que pour importé une lib. j'utilise des prototypes. c'est pas plus compliqué qu'autre chose.Kwai chang caine a écrit :Bonjour GRom
C'est pas simple et pas vraiment plus facile à comprendre
Mais ça a le mérite d’exister, je sais pas si c'est parce que c'est compliqué ou impossible pour FRED à faire, mais un simple retour comme en DataSection dans l'exemple de kwandjeen mais sans la DataSection, ça aurait été cool
Code : Tout sélectionner
; Declaration d'un callback avec parametre
Prototype Callback(Parameter)
; Déclaration de la structure d'un rectangle
Structure NewRectangle
Longueur.i
largeur.i
perimetre.Callback
surface.Callback
EndStructure
; Les procédures uitilisées dans la struture
Procedure Perimetre(*this.NewRectangle)
ProcedureReturn (*this\Longueur + *this\Largeur) * 2
EndProcedure
Procedure Surface(*this.NewRectangle)
ProcedureReturn *this\Longueur * *this\Largeur
EndProcedure
; Et maintenant le test
Define Terrain.NewRectangle
With Terrain
\largeur = 10
\Longueur = 20
\perimetre = @Perimetre()
\surface = @Surface()
EndWith
; Resultat
Debug "Perimetre " + Terrain\perimetre(Terrain)
Debug "Surface " + Terrain\surface(Terrain)