Fichu procédure
Publié : mar. 26/févr./2008 11:59
Salut tous le monde, j'ai un petit soucis avec une procédure, d'habitude je fait des procédure simple mes à présent j'aimerai créer mais propre procédures 
(je c'est pas si ce que je dit est clair mais je pense que vous comprendrait en voyant ma procédure) ...
J'ai repris un exemple et j'ai essayé de comprendre, ensuite j'ai fait un test pour voir si j'avais bien compris, le soucis c'est que ce que j'ai codé ne marche pas. Voila si quelqu'un pouvais m'aider à comprendre ce qui cloche dans mon code ça serait sympa, le but de ce code est de simplement afficher un mot, c'est juste un test pour que par la suite je puisse réalisé des procédures beaucoup plus complexe
(je c'est pas si ce que je dit est clair mais je pense que vous comprendrait en voyant ma procédure) ... J'ai repris un exemple et j'ai essayé de comprendre, ensuite j'ai fait un test pour voir si j'avais bien compris, le soucis c'est que ce que j'ai codé ne marche pas. Voila si quelqu'un pouvais m'aider à comprendre ce qui cloche dans mon code ça serait sympa, le but de ce code est de simplement afficher un mot, c'est juste un test pour que par la suite je puisse réalisé des procédures beaucoup plus complexe
Structure id
x.l
y.l
Largeur.l
Hauteur.l
text.s
Couleur.s
EndStructure
Declare Init(*gadget.id)
Declare Panel_perso(*gadget.id,x.l, y.l, Largeur.l, Hauteur.l)
;==========================================================
OpenWindow(0,20,20,800,600,"test",#PB_Window_ScreenCentered|#PB_Window_MaximizeGadget)
gadget.id
If Panel_perso(@gadget,20,20,200,20)=0
MessageRequester("","")
EndIf
Repeat
evenement = WaitWindowEvent()
Until evenement = #PB_Event_CloseWindow
;==========================================================
Procedure Init(*gadget.id)
*gadget\x=0
*gadget\y=0
*gadget\Largeur=0
*gadget\Hauteur=0
EndProcedure
Procedure Panel_perso(*gadget.id,x.l, y.l, Largeur.l, Hauteur.l)
Init(*gadget)
TextGadget(1,x,y,Largeur,Hauteur,"cool")
EndProcedure
