PureBasic

Code : Tout sélectionner

If OpenWindow(0, 100, 200, 300, 200, "2D Drawing Test")
  
; ce qui nous intéresse -------------

  If CreateImage(0, 300, 200)
    If StartDrawing(ImageOutput(0))
        Color = 255  
        For i = 0 To 200 Step 20
          Box(i,180-i,20,i, RGB(0,Color,0)) 
          Color - 20
        Next
        
      StopDrawing()
    EndIf
  EndIf
 
; -----------------------------------



  ImageGadget(0, 0, 0, 0, 0, ImageID(0))

  Repeat
    EventID = WaitWindowEvent() 
  Until EventID = #PB_Event_CloseWindow 
  
EndIf

End   

Code : Tout sélectionner

Enumeration
  #Mainform
  #Grid
EndEnumeration


Define.l Event

Global WindowStyle.i=#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget

Procedure Open_MainForm()
  OpenWindow(#Mainform, 0, 0, 500, 400, "New Form", WindowStyle)
  CanvasGadget(#Grid, 0, 0, 500, 400)
  
  StartDrawing(CanvasOutput(#Grid))
  
  ;L'axe dex X (Horizontal)
  DrawingMode(#PB_2DDrawing_Default)
  LineXY(30, 350, 450, 350, RGB(255, 69, 0))
  
  DrawingMode(#PB_2DDrawing_Transparent)
  DrawText(450, 360, "(x)", RGB(255, 69, 0))
  
  
  ;L'axe des Y (Vertical)
  DrawingMode(#PB_2DDrawing_Default)
  LineXY(30, 350, 30, 20, RGB(255, 69, 0))
  
  DrawingMode(#PB_2DDrawing_Transparent)
  DrawText(5, 10, "(y)", RGB(255, 69, 0))
  
  ;Quelques points
  Circle(30,30, 2, RGB(0, 0, 0)) ;Point A
  Circle(150,80, 2, RGB(0, 0, 0)) ;Point B
  LineXY(30,30, 150,80, RGB(0, 0, 0)) ;[AB]
    
  Circle(300,300, 2, RGB(0, 0, 0)) ;Point C 
  LineXY(150,80, 300,300, RGB(0, 0, 0)) ;[BC]
  
  Circle(450,280, 2, RGB(0, 0, 0)) ;Point D 
  LineXY(300,300, 450,280, RGB(0, 0, 0)) ;[CD]
  
  StopDrawing()
EndProcedure

Open_MainForm()

Repeat
  Event  = WaitWindowEvent(10)
  Select Event
    Case #PB_Event_Gadget
      Select GEvent
      EndSelect
        
    Case #PB_Event_CloseWindow
      End
  EndSelect
ForEver

Code : Tout sélectionner

#dobro =1
#Police =1
#Sprite =1

InitKeyboard () : ; j'espere qu'il y a un clavier au moins !!
; ***********************************
Resultat = InitSprite ()
fontid = LoadFont ( #Police , "arial" , 18, #PB_Font_Bold )
EcranX = GetSystemMetrics_ ( #SM_CXSCREEN ): ;=largeur de l'ecran
EcranY = GetSystemMetrics_ ( #SM_CYSCREEN ): ;=hauteur de l'ecran
windowid = OpenWindow (1, 0, 0,800, 600, "hello" , #PB_Window_SystemMenu|#PB_Window_BorderLess | #PB_Window_ScreenCentered )

windowid = WindowID (1)
Result = OpenWindowedScreen ( windowid ,0,0, 800,600, 1, 0,0)

Y=300 ;Position en y du dessin
X=50 ;Position en x du dessin
amplitude.f=100 ;amplitude du dessin
pas.f=0.01

Repeat
	Event= WindowEvent ()
	ExamineKeyboard ()
	
	If event = 517
		; le clic bouto droit fera quitter !
		End
	EndIf
	
	StartDrawing ( ScreenOutput ())
	
	For Angle=0 To 700
		
		If amplitude>100
			
			amplitude=99
			pas=-pas
			Beep_ (200,50)
		EndIf
		
		If amplitude<-100
			amplitude=-99
			pas=-pas
			Beep_ (50,50)
		EndIf
		amplitude=amplitude+pas
		
		Plot (angle+x, Y + amplitude* Sin (angle* #PI/180 ), RGB (255,255,255)) ; une Sinuzoidale
		;        Plot (x + amplitude * Cos(angle*#PI/180) , Y + amplitude* Sin(angle*#PI/180),RGB(255,255,255)) ; un cercle
		; FlipBuffers():; affiche l'ecran
		
	Next angle
	StopDrawing ()
	
	
	FlipBuffers (): ; affiche l'ecran
	ClearScreen ( RGB (0, 0, 0)) : ;efface l'ecran
	
Until Event = #PB_Event_CloseWindow Or KeyboardPushed ( #PB_Key_Escape ) ; press touche droit