visual designer

[luciendorali]

bonjour
Je débute en pure basic avec l'intention de mettre en meilleure forme d'anciens programmes "qb basic"
J'ai bien étudié le tuto du site zéro qui met l'accent sur la nécessité de commencer la programmation sans l'aide de "visual designer" malgré tout ce dernier me semble bien pratique pour l'utilisation des fenêtres et gadget.
Malheureusement, bien qu'ayant acheté en bonne et due forme le logiciel complet, avec visual designer intégré je n'arrive pas à faire apparaître le code.
Est-ce une erreur de ma part ou dois-je incriminer windows7 ?
merci

[Backup]

bonjour
Je débute en pure basic avec l'intention de mettre en meilleure forme d'anciens programmes "qb basic"
J'ai bien étudié le tuto du site zéro qui met l'accent sur la nécessité de commencer la programmation sans l'aide de "visual designer"

commence par allez dans NOS tutos !!
forum "débutants"

http://www.purebasic.fr/french/viewtopic.php?f=1&t=6664

tuto numero 6

ils sont mieux a jour que le site du Zero....


est ce que pour reparer ta Renault tu va chez Fiat ??

[Ar-S]

Bienvenue luciendorali
Je te conseils aussi d'essayer JaPBe (editeur) et PureForm (designer) fait par Gnozal,
tu les trouveras ici :
http://freenet-homepage.de/gnozal/#PureFORM

[Geo Trouvpatou]

Salut Luciendorali.

C'est parce que l'éditeur te créer une Procedure (une fonction)
Ex :

Code : Tout sélectionner

;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Button_0
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
   
      ButtonGadget(#Button_0, 220, 250, 130, 30, "Valider")
      
  EndIf
EndProcedure

Donc il faut utiliser cette Procedure pour afficher ta fenêtre et pour que celle-ci ne disparaisse pas aussitôt, il faut utiliser une boucle d'évenement.
Ex :

Code : Tout sélectionner

;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Button_0
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )

      ButtonGadget(#Button_0, 220, 250, 130, 30, "Valider")
      
  EndIf
EndProcedure

; Ici j'appelle la procedure
Open_Window_0()

; Et pour que la fenêtre reste à l'écran je met une boucle :
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow

; Cette boucle veut dire que tant que l'on n'a pas appuyé sur la croix rouge, alors continue de boucler.

C'est aussi dans cette boucle que tu mettras ton code lors de l'appuie sur des boutons, des cliques dans le menu etc...


Pour ma part je suis revenu à l'éditeur original depuis que j'ai découvert la gestion des projets que je trouve excellent.

Bye.

[Backup]

la boucle d'event peut etre generé par le visual designer

[Geo Trouvpatou]

Voici un code un chouille plus complet qui gère une action quand on clique sur le bouton "Valider".

Code : Tout sélectionner

;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Button_0
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 300, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )

      ButtonGadget(#Button_0, 220, 250, 130, 30, "Valider")
     
  EndIf
EndProcedure

; Ici j'appelle la procedure
Open_Window_0()

Repeat
    evenement = WaitWindowEvent()
    
    ;>> Evènements Window
    If evenement = #PB_Event_CloseWindow
        Select EventWindow() 
                
             Case #Window_0 ; Quand on clique sur la croix de la fenêtre portant le nom de : #Window_0
             quit = 1
             
        EndSelect 
    EndIf
    
    ;>> Evènements Boutons (Gadget en général)
    If evenement =  #PB_Event_Gadget
        Select EventGadget()
                
            Case #Button_0 ; Quand on clique sur le bouton portant le nom de : #Button_0
                MessageRequester("Resultat", "Vous avez appuyé sur Valider")
                
        EndSelect
    EndIf
Until quit = 1