PureBasic

svp tres facile mais bon, je debute et bidouillant depuis deaj longtemps je souhaiterais un petit coup de main... le debut de prog fait apparaitre des boutons. je souhaite qu'il attendre que je clique sur un des boutons pour faire l'action demandé....

;- Window Constants
;
Enumeration
#Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
#Button_1
#Button_2
#Button_3
#Button_4
#Button_5
#Button_6
#String_0
EndEnumeration

Procedure Open_Window_0()
If OpenWindow(#Window_0, 216, 0, 212, 111, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Pg")

If CreateGadgetList(WindowID())
ButtonGadget(#Button_1, 10, 10, 40, 40, "1")
ButtonGadget(#Button_2, 60, 10, 40, 40, "2")
ButtonGadget(#Button_3, 110, 10, 40, 40, "3")
ButtonGadget(#Button_4, 160, 10, 40, 40, "4")
ButtonGadget(#Button_5, 60, 60, 40, 40, "<-")
ButtonGadget(#Button_6, 110, 60, 90, 40, "remise Zero")
StringGadget(#String_0, 10, 60, 40, 40, "")

EndIf

EndIf
EndProcedure

C'est trés simple

Code : Tout sélectionner

Repeat
  Event=WindowEvent()
  
  Select Event 
  Case #PB_Event_Gadget
    Select EventGadgetID()
    Case #Button_1
      ;code bouton_1
    Case #Button_2
      ;code bouton_2
    Case #Button_3
      ;code bouton_3
    Case #Button_4
      ;code bouton_4
    Case #Button_5
      ;code bouton_5
    Case #Button_6
      ;code bouton_6
    EndSelect
  EndSelect

Until Event=#PB_Event_CloseWindow

merci super sympa!
je savais que c'etaitr facile... (pour les autres!)

PureBasic

FAIRE UNE BOUCLE urgent svp tres facile

FAIRE UNE BOUCLE urgent svp tres facile

re:merci