PureBasic

Code : Tout sélectionner

Enumeration
  #Mainform1
  #Field1
  
  #mainform2
  #Field2
EndEnumeration


Define.l Event, WEvent, MEvent, GEvent, TEvent

Global WindowStyle1.i=#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered
Global WindowStyle2.i=#PB_Window_SystemMenu|#PB_Window_Maximize

Procedure Open_MainForm()
  ExamineDesktops()
  
  ;Ouverture de la fenetre sur le premier écran (fenetrée et Centrée)
  OpenWindow(#Mainform1, 0, 0, 500, 400, "New Form 1", WindowStyle1)
  StringGadget(#Field1, 10, 20, 150, 22, "")
  
  ;Ouverture de la fenetre sur le 2eme ecran (Plein écran)
  OpenWindow(#Mainform2, DesktopWidth(1), 0, 500, 400, "New Form 2", WindowStyle2)
  StringGadget(#Field2, 10, 20, 150, 22, "")
  
  ;Mettre une valeur dans Field1
  SetGadgetText(#Field1, "Valeur 1")
  
  ;Mettre une valeur dans Field2
  SetGadgetText(#Field2, "Valeur 2")
    
  ;Je reviens sur la fenetre 1 (pas grand interet dans ce cas)
  SetActiveWindow(#Mainform1)
  
EndProcedure

Procedure Start()
  ;Initialisation application, police, etc .. 
  Open_MainForm()
  
EndProcedure

start()

Repeat
  Event  = WaitWindowEvent(10)
  WEvent = EventWindow() 
  MEvent = EventMenu()
  GEvent = EventGadget()
  TEvent = EventType()
  Select Event
    Case #PB_Event_Gadget
      Select GEvent
          
      EndSelect
        
    Case #PB_Event_CloseWindow
      End
  EndSelect
ForEver

Code : Tout sélectionner

Enumeration
	#ww_Principale
	#ww_plein_ecran
EndEnumeration



If OpenWindow(#ww_Principale, 0, 0, 200, 200, "Test", #PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_MinimizeGadget)
	ButtonGadget(0, 50, 50, 60, 60, "Carré")
EndIf

nb_desktop = ExamineDesktops()
Plein_ecran.b = #False


If nb_desktop > 1
	w0 = DesktopWidth(0)
	h0 = DesktopHeight(0)
	
	w = DesktopWidth(1)
	h = DesktopHeight(1)
	
	
	
	If InitSprite() = 0
		MessageRequester("Erreur", "Message d'erreur")
	EndIf
	
	
	If OpenWindow(#ww_plein_ecran, w0, 0, w , h, "Test - Plein écran", #PB_Window_BorderLess, WindowID(#ww_Principale))
		If OpenWindowedScreen(WindowID(#ww_plein_ecran), 0, 0, w, h, 0, 0, 0)
			
			Plein_ecran.b = #True
			
		Else
			MessageRequester("Erreur", "Message d'erreur")
		EndIf
		
	EndIf
	
	; Pour l'afficher audessus de toutes les autres fenêtres
	StickyWindow(#ww_plein_ecran, #True)
	
EndIf

;{ variable

Carre.b = #False
delay = 100
t = ElapsedMilliseconds()

x = Random(w - 50)
y = Random(h - 50)

r.d = Random(255) / 255
g.d = Random(255) / 255
b.d = Random(255) / 255

vx = Random(20) - 10
vy = Random(20) - 10

;}


Repeat
	event = WaitWindowEvent(100)
	
	If event = #PB_Event_Gadget
		Select EventGadget()
			Case 0
				If Carre
					SetGadgetText(0, "Rond")
					
					carre = #False
				Else
					SetGadgetText(0, "Rond")
					
					carre = #True
				EndIf
				
		EndSelect
	EndIf
	
	;{ Truc graphique inutile pour afficher qq chose
	If Plein_ecran And ElapsedMilliseconds() - t > delay
		t = ElapsedMilliseconds()
		
		r = r + 0.1
		g = g + 0.15
		b = b + 0.13
		
		x + vx
		y + vy
		
		If x > w - 50 Or x < 0 : vx = - Sign(vx) * Random(20) : EndIf
		If y > h - 50 Or y < 0 : vy = - Sign(vy) * Random(20) : EndIf
		
		ClearScreen(#Green)
		
		If StartDrawing(ScreenOutput())
			
			If carre
				Box(x, y, 50, 50, RGB(255 * Sin(r), 255 * Sin(g), 255 * Sin(b)))
			Else
				Circle(x + 25, y + 25, 25, RGB(255 * Sin(r), 255 * Sin(g), 255 * Sin(b)))
			EndIf
			
			StopDrawing()
		EndIf
		
		FlipBuffers()
	EndIf
	;}
	
Until event = #PB_Event_CloseWindow

End