PureBasic

Code : Tout sélectionner

;
; ------------------------------------------------------------
;
;   PureBasic - Window example file
;
;    (c) 2001 - Fantaisie Software
;
; ------------------------------------------------------------
;

;
; Open a window, and do some stuff with it...
;

If OpenWindow(0, 100, 200, 195, 260, "Programme Vincent", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)

  ; This is the 'event loop'. All the user actions are processed here.
  ; It's very easy to understand: when an action occurs, the EventID
  ; isn't 0 and we just have to see what have happened...
ButtonGadget(1,10,10,50,50,"chercher")

  Repeat
    Event = WaitWindowEvent()

    If Event = #PB_Event_CloseWindow  ; If the user has pressed on the close button
      Quit = 1
    EndIf
 If Event = #PB_Event_Gadget  ; If the user has pressed on the button
      If EventGadget() = 1
        OpenConsole()
        InitNetwork()
        ExamineIPAddresses()
        Repeat
        ip=NextIPAddress() 
        If IPString(ip)<>"0.0.0.0"
        CloseConsole()
        TextGadget(2,70,2,100,50, IPString(ip) )
 
        EndIf
        Until ip=0
        
      EndIf
 EndIf

  Until Quit = 1
  
EndIf

End   ; All the opened windows are closed automatically by PureBasic

Code : Tout sélectionner

;
InitNetwork()
If OpenWindow(0, 100, 200, 195, 260, "Programme Vincent", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)

	; This is the 'event loop'. All the user actions are processed here.
	; It's very easy to understand: when an action occurs, the EventID
	; isn't 0 and we just have to see what have happened...
ButtonGadget(1,10,10,50,50,"chercher")

	Repeat
		Event = WaitWindowEvent()

		If Event = #PB_Event_CloseWindow  ; If the user has pressed on the close button
			Quit = 1
		EndIf
If Event = #PB_Event_Gadget  ; If the user has pressed on the button
			If EventGadget() = 1
				OpenConsole()
				
				ExamineIPAddresses()
				Repeat
				ip=NextIPAddress() 
				If IPString(ip)<>"0.0.0.0"
				CloseConsole()
				TextGadget(2,70,2,100,50, IPString(ip) )

				EndIf
				Until ip=0
				
			EndIf
EndIf

	Until Quit = 1
	
EndIf

End   ; All the opened windows are closed automatically by PureBasic

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #IPAddress_0
  #Button_0
EndEnumeration
InitNetwork()

  If OpenWindow(#Window_0, 216, 0, 150, 70, "",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
      StringGadget(#IPAddress_0, 10, 10, 125, 20, "")
      ButtonGadget(#Button_0, 10, 35, 125, 20, "Afficher l'ip")

  EndIf

  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget
      Select EventGadget()
        
       Case #Button_0
        ip=ExamineIPAddresses()
         ip=NextIPAddress()
          SetGadgetText(#IPAddress_0, IPString(ip))
           
        
      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow