PureBasic

..................

Ça clignote par contre

L'utilisation d'un Canvasgadget peut surement arranger l'affaire.

Sinon, il faut tous dessiner dans une image temporaire pour dessiner l'image sur la fenêtre.

Et pour limiter l'utilisation du processeur, une petite modif comme ceci ?

Code : Tout sélectionner

Repeat ; boucle principale  
		; 
		; ************************* 
		
		Event=WaitWindowEvent(100) ; on regarde si quelqu'un a cliqué sur la croix pour quitter
		
		Date = Date() 
		Heure=Hour(Date)
		Minute = Minute(Date)
		Seconde=Second(Date) 
		
		Select Event

Le Soldat Inconnu a écrit :Ça clignote par contre

oui c'est dut au

Code : Tout sélectionner

  ; ******** dessin du rond d'effacement *************
      StartDrawing(WindowOutput(#fenetre))
         Circle(xa, ya, 100 ,RGB(0,0,0)) 
      StopDrawing()   
      ; **********************************************

j'utilisai un Rond noir pour effacer le speudo ecran

a l’époque le canvas n'existait pas

Code : Tout sélectionner

Event=WaitWindowEvent(100)

oui c'est vrais

PureBasic

une Horloge Tectonic

une Horloge Tectonic

Re: une Horloge Tectonic

Re: une Horloge Tectonic