Aide sur Visual designer

MetalOS · Message par **MetalOS** » sam. 22/juil./2006 13:07

Salut le forum,

Voila toujour aussi debutant qu'à mon premier post, je cherche un tuto sur visual designer, a savoir ou placer mon code une fois le code generer dans PB.

Exemple:

Sur visual designer je créé une fenetre avec un boutton quitter, j'inclue la boucle d'évenement dans les option de mon projet et je génère les deux fichier source dans PB, a savoir test1(le nom de ma fenetre) et common que je laisse par default. Une fois généré je voudrais que quand je clique sur mon boutton quitter ma fenetre ce ferme, mais ou mettre mon code dans les deux fichier généré pour que ca fonctionne?

Un grand merci pour vos réponses.

MetalOS · Message par **MetalOS** » sam. 22/juil./2006 13:15

Voici la source de mon fichier "test1".

Code : Tout sélectionner

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)

IncludeFile "Common.pb"

Open_Window_0()

Repeat ; Start of the event loop
  
  Event = WaitWindowEvent() ; This line waits until an event is received from Windows
  
  WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
  
  GadgetID = EventGadget() ; Is it a gadget event?
  
  EventType = EventType() ; The event type
  
  ;You can place code here, and use the result as parameters for the procedures
  
  If Event = #PB_Event_Gadget
    
    If GadgetID = #Button_0
      
    EndIf
    
  EndIf
  
Until Event = #PB_Event_CloseWindow ; End of the event loop

End
;

et voici la source de mon fichier " common".

Code : Tout sélectionner

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)


;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Button_0
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 104, 55, "Test1:",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      ButtonGadget(#Button_0, 15, 10, 70, 30, "Quitter")
      
    EndIf
  EndIf
EndProcedure

wolfjeremy · Message par **wolfjeremy** » sam. 22/juil./2006 13:16

Salut,

Déjà je ne te conseil pas de commencer avec visual designer, le mieu est de commencer "manuelement"

Pour savoir comment utiliser les evenement sur les gadget va voir là : http://purebasic.forum-gratuit.com/viewtopic.php?t=185

Voila @+

MetalOS · Message par **MetalOS** » sam. 22/juil./2006 13:33

Merci pour ta reponse, je vient de tester la premiere source du lien que tu ma fournie et j'ais un message d'erreur a la compilation sur la ligne la :

Code : Tout sélectionner

 If OpenWindow(#fenetre_principale, 0, 0, 200, 100, #PB_Window_SystemMenu | #PB_Window_WindowCentered, "fenêtre principale")

Le message d'erreur est : Ligne 30: Bad parameter type, number expected instead of string.

wolfjeremy · Message par **wolfjeremy** » sam. 22/juil./2006 13:54

C'est parce qu'il sont fait pour l'ancienne version, les flags on été déplacé pour les window, sa donne sa maintenant :

OpenWindow(#fenetre_principale, 0, 0, 200, 100, "fenêtre principale", #PB_Window_SystemMenu | #PB_Window_WindowCentered)

Les flags après le titre de la fenetre.

MetalOS · Message par **MetalOS** » sam. 22/juil./2006 14:03

Merci mais je v peut etre debuter par de la console pour bien apprendre avant de bruler les etapes, Merci a toi.

venom · Message par **venom** » sam. 22/juil./2006 14:26

bonjour,

je ne sait pas si c'est sa que tu veut sinon moi je fais comme sa

Code : Tout sélectionner

;- Window Constants 
Enumeration 
  #Window_0 
EndEnumeration 

;- Gadget Constants 
Enumeration 
  #Button_0 
EndEnumeration 

;on ouvre la fenetre
  If OpenWindow(#Window_0, 216, 0, 104, 55, "Test1:",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar ) 
    If CreateGadgetList(WindowID(#Window_0)) 
      ButtonGadget(#Button_0, 15, 10, 70, 30, "Quitter") 
      
    EndIf 
  EndIf
  
; on cree les evenements 
    Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget 
      Select EventGadget()
    
       Case #Button_0 ; c'est le boutton quitter qui a pour fonction...
        End ;... de fermer la fenetre
      
     EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow ; la c'est pour fermer avec le croix

@++

MetalOS · Message par **MetalOS** » sam. 22/juil./2006 15:05

Salut venom merci pour ta réponse, oui c ca que je cherchais mais je brule un peut trop vite les etape et je v commencer avec de la console au lieu de window pour bien debuter, mais encore merci à toi.

A si defois quelqu'un pouvait me dir comment faire une fausse progresse bar en mode console ou un pourcentage qui augmente qui donne l'ilusion d'une progression.