Page 1 sur 1
visual designer
Publié : ven. 12/févr./2010 12:49
par 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
Re: visual designer
Publié : ven. 12/févr./2010 13:46
par Backup
luciendorali a écrit :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 ??
Re: visual designer
Publié : ven. 12/févr./2010 14:21
par 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
Re: visual designer
Publié : ven. 12/févr./2010 17:57
par 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.
Re: visual designer
Publié : ven. 12/févr./2010 18:04
par Backup
la boucle d'event peut etre generé par le visual designer
Re: visual designer
Publié : ven. 12/févr./2010 18:12
par 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