PureBasic

Deja Bonjour ;je suis nouveau ,j'ai 13 ans ,
et j'aimerais savoir quel est le scipt pour ouvrir une nouvelle fenetre en apuyant sur un bouton de la fenetre principal svp

et pouvez-vous en donc faire une fenetre principal ( avec rien dedant ) dans laquel il yaurait un bouton et losqu'on clique dessus, sa nous envoi à une seconde fenetre avec ecrit dedant " test " ( test car je c'est pas ou on mé le text lol )

Voila ,jespere avoir été clair

Merci à vous

Bah tu peux aller voir dans la rubrique les tutos et là tu trouveras ton bonheur

merci

, je n'y avais point penser

oula ...
j'ai rien compris , svp vous pouvez pas me donnez le script minimum pour ouvrir une seconde fentre en apuyant sur un buton svp

pour que je le colle dans mon prgramme

merci à vous

Code : Tout sélectionner


;- Window Constants
;
Enumeration
    #Window_0
     #Window_1
EndEnumeration

;- Gadget Constants
;
Enumeration
    #Button_0
EndEnumeration


Procedure Open_Window_0()
    If OpenWindow(#Window_0, 284, 145, 600, 300, "1ere fenetre",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
        If CreateGadgetList(WindowID(#Window_0))
            ButtonGadget(#Button_0, 190, 120, 170, 60, "fenetre 2") 
        EndIf
    EndIf
EndProcedure

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 
        OpenWindow(#Window_1, 294, 245, 600, 300, "2eme fenetre",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    EndIf 
  EndIf 
Until Event = #PB_Event_CloseWindow ; End of the event loop
End
;

Mr_Labiloutte , ne serait tu pas un clone fabriqué par les frères doctor ?
le purebasic n'est pas un langage de script , mais un langage comparable largement au c++ , un langage compilé , voici quelques liens qui t'expliquerons la différence entre les deux , et tu ne pourras plus parlé de script ici :

http://fr.wikipedia.org/wiki/Langage_de_script
http://www.commentcamarche.net/langages/langages.php3

Un langage compilé génère directement un exécutable autonome, qui se suffit à lui-même pour fonctionner car il contient du langage machine. (C, VB, Windev)
Avantage : Rapide
Inconvénient : Fermé si on n'a pas le source, besoin de l'outil de développement pour modifier.

Un langage interprété a besoin d'un interpréteur (cqfd).
Par exemple, le qbasic d'il y a une dizaine d'année, se lançait avec la commande : qbasic /run prog.bas
Avantage : le programme prog.bas est un fichier texte, facilement modifiable.
Inconvénient : C'est forcément plus lent que quand c'est compilé.

Cpl.Bator a écrit :Mr_Labiloutte , ne serait tu pas un clone fabriqué par les frères doctor ?

non! j'ai vérifié deja !

nan je suis pas se flooder qui se la pete sur le 15-18 ( jv.com ) avec ses trucs de merde

merci pour le code

sinon comment on fait pour ouvrir une fenetre secondaire et que quand on la ferme sa ferme que la secondiare et non la principal

merci beaucoup

il y a plusieurs façons de faire, ici j'ai utilisé un sous-prg
j'aime bien les sous-prg

Code : Tout sélectionner


;- Window Constants
;
Enumeration
    #Window_0
    #Window_1
EndEnumeration

;- Gadget Constants
;
Enumeration
    #Button_0
EndEnumeration


Procedure Open_Window_0()
    If OpenWindow(#Window_0, 284, 145, 600, 300, "1ere fenetre",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
        If CreateGadgetList(WindowID(#Window_0))
            ButtonGadget(#Button_0, 190, 120, 170, 60, "fenetre 2")
        EndIf
    EndIf
EndProcedure

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
            Gosub fenetre_2
        EndIf
    EndIf
Until Event = #PB_Event_CloseWindow ; End of the event loop
End
;



; 2em fenetre
fenetre_2:
OpenWindow(#Window_1, 294, 245, 600, 300, "2eme fenetre",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
Repeat
    Event2 = WaitWindowEvent() ; This line waits until an event is received from Windows
    WindowID2 = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
    GadgetID2 = EventGadget() ; Is it a gadget event?
    EventType2 = EventType() ; The event type 
Until Event2=#PB_Event_CloseWindow 
CloseWindow(#Window_1)

Return

oua merci mec , sa marche , impec apres 10 bug j'ai trouver

un derneir petit truc ,

sais quoi le code pour aficher une page web dans la fenetre ???
svp merci

Ah l'Dobro... avec ses codes "à l'ancienne".

Des Goto. Des GoSub. Des Return.....

bonjour,

sais quoi le code pour aficher une page web dans la fenetre

c'est avec la fonction webgadget()
mais oublie pas de faire F1 quand même de temps en temps

tien on viens d'en parler il n'y a pas longtemps ici:

http://www.purebasic.fr/french/viewtopic.php?t=6605

@++

Chris a écrit :Ah l'Dobro... avec ses codes "à l'ancienne".

Des Goto. Des GoSub. Des Return.....

bah ça a son charme non ?

Dobro a écrit :
Chris a écrit :Ah l'Dobro... avec ses codes "à l'ancienne".

Des Goto. Des GoSub. Des Return.....
bah ça a son charme non ?

Ouais, bien sûr! ... La préhistoire aussi...

PureBasic

Script fenetre svp

Script fenetre svp