Horloge Binaire

Vous avez développé un logiciel en PureBasic et vous souhaitez le faire connaitre ?
Répondre
Avatar de l’utilisateur
venom
Messages : 3136
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :
Contacter venom

Horloge Binaire

Message par venom »

Bonsoir,

Voici ce qui ma pris une partie de mon après midi. Je ne comprenez jamais se système d'horloge, alors j'en ai programmer une pour y voir plus clair. :D
Bon par contre je le précise le code doit et j'en suis sur pouvoir s'optimisée un max. La j'ai fait un peut a la barbare via la bibliothèque 2DDrawing sans trop me prendre la tête.

Mais je sais que SPH aime sa l'optimisation :wink: :lol: Donc je vous post ça et après libre a vous oui ou non de l'optimiser. :wink:

Code : Tout sélectionner

Procedure Timers(hwnd.l, uMsg.l, idEvent.l, dwTime.l)
  Select uMsg
    Case #WM_TIMER
      PostMessage_(hwnd, #WM_USER, idEvent, dwTime)
  EndSelect
EndProcedure

If OpenWindow(0, 0, 0, 600, 600, "Binary Clock", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)
  FontID = LoadFont(8, "Arial Black", 95, #PB_Font_Bold)
  SetWindowColor(0, RGB(0, 0, 0))
  If CreateImage(0, 600, 600)
    If StartDrawing(ImageOutput(0))
        ; ++++++++++ dizaine heur bleu +++++++++
        Circle(50, 550, 50, RGB(0, 0, 30))
        Circle(50, 450, 50, RGB(0, 0, 30))
        ; ++++++++++++++++++++++++++++++++++++++
        
        ; ++++++++++ unité heur bleu +++++++++
        Circle(150, 550, 50, RGB(0, 0, 30))
        Circle(150, 450, 50, RGB(0, 0, 30))
        Circle(150, 350, 50, RGB(0, 0, 30))
        Circle(150, 250, 50, RGB(0, 0, 30))
        ; ++++++++++++++++++++++++++++++++++++++
        
        ; ++++++++++ dizaine minute bleu +++++++
        Circle(250, 550, 50, RGB(0, 0, 30))
        Circle(250, 450, 50, RGB(0, 0, 30))
        Circle(250, 350, 50, RGB(0, 0, 30))
        ; ++++++++++++++++++++++++++++++++++++++
        
        ; ++++++++++ unité minute bleu +++++++++
        Circle(350, 550, 50, RGB(0, 0, 30))
        Circle(350, 450, 50, RGB(0, 0, 30))
        Circle(350, 350, 50, RGB(0, 0, 30))
        Circle(350, 250, 50, RGB(0, 0, 30))
        ; ++++++++++++++++++++++++++++++++++++++
        
        ; ++++++++++ dizaine seconde bleu ++++++
        Circle(450, 550, 50, RGB(0, 0, 30))
        Circle(450, 450, 50, RGB(0, 0, 30))
        Circle(450, 350, 50, RGB(0, 0, 30))
        ; ++++++++++++++++++++++++++++++++++++++
        
        ; ++++++++++ unité seconde bleu +++++++++
        Circle(550, 550, 50, RGB(0, 0, 30))
        Circle(550, 450, 50, RGB(0, 0, 30))
        Circle(550, 350, 50, RGB(0, 0, 30))
        Circle(550, 250, 50, RGB(0, 0, 30))
        ; ++++++++++++++++++++++++++++++++++++++
      StopDrawing()
      ImageGadget(0, 0, 0, 0, 0, ImageID(0))
    EndIf
  EndIf
  
  SetTimer_(WindowID(0), 1, 1000, @Timers())
  
  Repeat
    Event = WindowEvent()
    Select Event
        Case#PB_Event_Gadget
        
      Case #WM_USER
        If StartDrawing(ImageOutput(0))
            SetTimer_(WindowID(0), 1, 1000, @Timers())
            DrawingFont(FontID)
            date$ = FormatDate("%hh:%ii:%ss", Date())
            DrawText(0, -30, date$, RGB(150, 0, 0), RGB(0, 0, 0))
            
            DrawingMode(#PB_2DDrawing_Gradient)      
             BackColor(RGB(150, 0, 0))
             FrontColor(RGB(0, 0, 30))
      
            ; ++++++++++ dizaine heur rouge +++++++++
            If Val(Mid(FormatDate("%hh", Date()), 1, 1)) = 0
              Circle(50, 550, 50, RGB(0, 0, 30))
              Circle(50, 450, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%hh", Date()), 1, 1)) = 1
             EllipticalGradient(50, 550, 55, 55)
              Circle(50, 550, 50, RGB(150, 0, 0))
            ElseIf Val(Mid(FormatDate("%hh", Date()), 1, 1)) = 2
             EllipticalGradient(50, 450, 55, 55)
              Circle(50, 450, 50, RGB(150, 0, 0))
              Circle(50, 550, 50, RGB(0, 0, 30))
            EndIf
            ; +++++++++++++++++++++++++++++++++++++
            
            ; ++++++++++ unité heur rouge +++++++++
            If Val(Mid(FormatDate("%hh", Date()), 2, 1)) = 0
              Circle(150, 550, 50, RGB(0, 0, 30))
              Circle(150, 450, 50, RGB(0, 0, 30))
              Circle(150, 350, 50, RGB(0, 0, 30))
              Circle(150, 250, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%hh", Date()), 2, 1)) = 1
             EllipticalGradient(150, 550, 55, 55)
              Circle(150, 550, 50, RGB(150, 0, 0))
            ElseIf Val(Mid(FormatDate("%hh", Date()), 2, 1)) = 2
             EllipticalGradient(150, 450, 55, 55)
              Circle(150, 450, 50, RGB(150, 0, 0))
              Circle(150, 550, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%hh", Date()), 2, 1)) = 3
             EllipticalGradient(150, 550, 55, 55)
              Circle(150, 550, 50, RGB(150, 0, 0))
             EllipticalGradient(150, 450, 55, 55)
              Circle(150, 450, 50, RGB(150, 0, 0))
            ElseIf Val(Mid(FormatDate("%hh", Date()), 2, 1)) = 4
             EllipticalGradient(150, 350, 55, 55)
              Circle(150, 350, 50, RGB(150, 0, 0))
              Circle(150, 550, 50, RGB(0, 0, 30))
              Circle(150, 450, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%hh", Date()), 2, 1)) = 5
             EllipticalGradient(150, 350, 55, 55)
              Circle(150, 350, 50, RGB(150, 0, 0))
             EllipticalGradient(150, 550, 55, 55)
              Circle(150, 550, 50, RGB(150, 0, 0))
            ElseIf Val(Mid(FormatDate("%hh", Date()), 2, 1)) = 6
             EllipticalGradient(150, 350, 55, 55)
              Circle(150, 350, 50, RGB(150, 0, 0))
             EllipticalGradient(150, 450, 55, 55)
              Circle(150, 450, 50, RGB(150, 0, 0))
              Circle(150, 550, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%hh", Date()), 2, 1)) = 7
             EllipticalGradient(150, 350, 55, 55)
              Circle(150, 450, 50, RGB(150, 0, 0))
             EllipticalGradient(150, 550, 55, 55)
              Circle(150, 450, 50, RGB(150, 0, 0))
             EllipticalGradient(150, 550, 55, 55)
              Circle(150, 550, 50, RGB(150, 0, 0))
            ElseIf Val(Mid(FormatDate("%hh", Date()), 2, 1)) = 8
             EllipticalGradient(150, 250, 55, 55)
              Circle(150, 250, 50, RGB(150, 0, 0))
              Circle(150, 550, 50, RGB(0, 0, 30))
              Circle(150, 450, 50, RGB(0, 0, 30))
              Circle(150, 350, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%hh", Date()), 2, 1)) = 9
             EllipticalGradient(150, 250, 55, 55)
              Circle(150, 250, 50, RGB(550, 0, 0))
             EllipticalGradient(150, 550, 55, 55)
              Circle(150, 550, 50, RGB(150, 0, 0))
            EndIf
            ; +++++++++++++++++++++++++++++++++++++
            
            ; +++++++++ dizaine minute rouge +++++++
            If Val(Mid(FormatDate("%ii", Date()), 1, 1)) = 0
              Circle(250, 550, 50, RGB(0, 0, 30))
              Circle(250, 450, 50, RGB(0, 0, 30))
              Circle(250, 350, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%ii", Date()), 1, 1)) = 1
             EllipticalGradient(250, 550, 55, 55)
              Circle(250, 550, 50, RGB(150, 0, 0))
            ElseIf Val(Mid(FormatDate("%ii", Date()), 1, 1)) = 2
             EllipticalGradient(250, 450, 55, 55)
              Circle(250, 450, 50, RGB(150, 0, 0))
              Circle(250, 550, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%ii", Date()), 1, 1)) = 3
             EllipticalGradient(250, 550, 55, 55)
              Circle(250, 550, 50, RGB(150, 0, 0))
             EllipticalGradient(250, 450, 55, 55)
              Circle(250, 450, 50, RGB(150, 0, 0))
            ElseIf Val(Mid(FormatDate("%ii", Date()), 1, 1)) = 4
             EllipticalGradient(250, 350, 55, 55)
              Circle(250, 350, 50, RGB(150, 0, 0))
              Circle(250, 550, 50, RGB(0, 0, 30))
              Circle(250, 450, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%ii", Date()), 1, 1)) = 5
             EllipticalGradient(250, 350, 55, 55)
              Circle(250, 350, 50, RGB(150, 0, 0))
             EllipticalGradient(250, 550, 55, 55)
              Circle(250, 550, 50, RGB(150, 0, 0))
            EndIf
            ; ++++++++++++++++++++++++++++++++++++++
            
            ; +++++++++ unité minute rouge +++++++++
            If Val(Mid(FormatDate("%ii", Date()), 2, 1)) = 0
              Circle(350, 550, 50, RGB(0, 0, 30))
              Circle(350, 450, 50, RGB(0, 0, 30))
              Circle(350, 350, 50, RGB(0, 0, 30))
              Circle(350, 250, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%ii", Date()), 2, 1)) = 1
             EllipticalGradient(350, 550, 55, 55)
              Circle(350, 550, 50, RGB(150, 0, 0))
            ElseIf Val(Mid(FormatDate("%ii", Date()), 2, 1)) = 2
             EllipticalGradient(350, 450, 55, 55)
              Circle(350, 450, 50, RGB(150, 0, 0))
              Circle(350, 550, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%ii", Date()), 2, 1)) = 3
             EllipticalGradient(350, 450, 55, 55)
              Circle(350, 450, 50, RGB(150, 0, 0))
             EllipticalGradient(350, 550, 55, 55)
              Circle(350, 550, 50, RGB(150, 0, 0))
            ElseIf Val(Mid(FormatDate("%ii", Date()), 2, 1)) = 4
             EllipticalGradient(350, 350, 55, 55)
              Circle(350, 350, 50, RGB(150, 0, 0))
              Circle(350, 550, 50, RGB(0, 0, 30))
              Circle(350, 450, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%ii", Date()), 2, 1)) = 5
             EllipticalGradient(350, 350, 55, 55)
              Circle(350, 350, 50, RGB(150, 0, 0))
             EllipticalGradient(350, 550, 55, 55)
              Circle(350, 550, 50, RGB(150, 0, 0))
            ElseIf Val(Mid(FormatDate("%ii", Date()), 2, 1)) = 6
             EllipticalGradient(350, 350, 55, 55)
              Circle(350, 350, 50, RGB(150, 0, 0))
             EllipticalGradient(350, 450, 55, 55)
              Circle(350, 450, 50, RGB(150, 0, 0))
              Circle(350, 550, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%ii", Date()), 2, 1)) = 7
             EllipticalGradient(350, 350, 55, 55)
              Circle(350, 350, 50, RGB(150, 0, 0))
             EllipticalGradient(350, 450, 55, 55)
              Circle(350, 450, 50, RGB(150, 0, 0))
             EllipticalGradient(350, 550, 55, 55)
              Circle(350, 550, 50, RGB(150, 0, 0))
            ElseIf Val(Mid(FormatDate("%ii", Date()), 2, 1)) = 8
             EllipticalGradient(350, 250, 55, 55)
              Circle(350, 250, 50, RGB(150, 0, 0))
              Circle(350, 550, 50, RGB(0, 0, 30))
              Circle(350, 450, 50, RGB(0, 0, 30))
              Circle(350, 350, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%ii", Date()), 2, 1)) = 9
             EllipticalGradient(350, 250, 55, 55)
              Circle(350, 250, 50, RGB(150, 0, 0))
             EllipticalGradient(350, 550, 55, 55)
              Circle(350, 550, 50, RGB(150, 0, 0))
            EndIf
            ; ++++++++++++++++++++++++++++++++++++++
            
            ; +++++++++ dizaine seconde rouge +++++++
            If Val(Mid(FormatDate("%ss", Date()), 1, 1)) = 0
              Circle(450, 550, 50, RGB(0, 0, 30))
              Circle(450, 450, 50, RGB(0, 0, 30))
              Circle(450, 350, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%ss", Date()), 1, 1)) = 1
             EllipticalGradient(450, 550, 55, 55)
              Circle(450, 550, 50, RGB(150, 0, 0))
            ElseIf Val(Mid(FormatDate("%ss", Date()), 1, 1)) = 2
             EllipticalGradient(450, 450, 55, 55)
              Circle(450, 450, 50, RGB(150, 0, 0))
              Circle(450, 550, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%ss", Date()), 1, 1)) = 3
             EllipticalGradient(450, 550, 55, 55)
              Circle(450, 550, 50, RGB(150, 0, 0))
             EllipticalGradient(450, 450, 55, 55)
              Circle(450, 450, 50, RGB(150, 0, 0))
            ElseIf Val(Mid(FormatDate("%ss", Date()), 1, 1)) = 4
             EllipticalGradient(450, 350, 55, 55)
              Circle(450, 350, 50, RGB(150, 0, 0))
              Circle(450, 450, 50, RGB(0, 0, 30))
              Circle(450, 550, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%ss", Date()), 1, 1)) = 5
             EllipticalGradient(450, 350, 55, 55)
              Circle(450, 350, 50, RGB(150, 0, 0))
             EllipticalGradient(450, 550, 55, 55)
              Circle(450, 550, 50, RGB(150, 0, 0))
            EndIf
            ; ++++++++++++++++++++++++++++++++++++++
            
            ; +++++++++ unité seconde rouge +++++++++
            If Val(Mid(FormatDate("%ss", Date()), 2, 1)) = 0
              Circle(550, 550, 50, RGB(0, 0, 30))
              Circle(550, 450, 50, RGB(0, 0, 30))
              Circle(550, 350, 50, RGB(0, 0, 30))
              Circle(550, 250, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%ss", Date()), 2, 1)) = 1
             EllipticalGradient(550, 550, 55, 55)
              Circle(550, 550, 50, RGB(150, 0, 0))
            ElseIf Val(Mid(FormatDate("%ss", Date()), 2, 1)) = 2
             EllipticalGradient(550, 450, 55, 55)
              Circle(550, 450, 50, RGB(150, 0, 0))
              Circle(550, 550, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%ss", Date()), 2, 1)) = 3
             EllipticalGradient(550, 450, 55, 55)
              Circle(550, 450, 50, RGB(150, 0, 0))
             EllipticalGradient(550, 550, 55, 55)
              Circle(550, 550, 50, RGB(150, 0, 0))
            ElseIf Val(Mid(FormatDate("%ss", Date()), 2, 1)) = 4
             EllipticalGradient(550, 350, 55, 55)
              Circle(550, 350, 50, RGB(150, 0, 0))
              Circle(550, 450, 50, RGB(0, 0, 30))
              Circle(550, 550, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%ss", Date()), 2, 1)) = 5
             EllipticalGradient(550, 350, 55, 55)
              Circle(550, 350, 50, RGB(150, 0, 0))
             EllipticalGradient(550, 550, 55, 55)
              Circle(550, 550, 50, RGB(150, 0, 0))
            ElseIf Val(Mid(FormatDate("%ss", Date()), 2, 1)) = 6
             EllipticalGradient(550, 350, 55, 55)
              Circle(550, 350, 50, RGB(150, 0, 0))
             EllipticalGradient(550, 450, 55, 55)
              Circle(550, 450, 50, RGB(150, 0, 0))
              Circle(550, 550, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%ss", Date()), 2, 1)) = 7
             EllipticalGradient(550, 350, 55, 55)
              Circle(550, 350, 50, RGB(150, 0, 0))
             EllipticalGradient(550, 450, 55, 55)
              Circle(550, 450, 50, RGB(150, 0, 0))
             EllipticalGradient(550, 550, 55, 55)
              Circle(550, 550, 50, RGB(150, 0, 0))
            ElseIf Val(Mid(FormatDate("%ss", Date()), 2, 1)) = 8
             EllipticalGradient(550, 250, 55, 55)
              Circle(550, 250, 50, RGB(150, 0, 0))
              Circle(550, 350, 50, RGB(0, 0, 30))
              Circle(550, 450, 50, RGB(0, 0, 30))
              Circle(550, 550, 50, RGB(0, 0, 30))
            ElseIf Val(Mid(FormatDate("%ss", Date()), 2, 1)) = 9
             EllipticalGradient(550, 250, 55, 55)
              Circle(550, 250, 50, RGB(150, 0, 0))
             EllipticalGradient(550, 550, 55, 55)
              Circle(550, 550, 50, RGB(150, 0, 0))
            EndIf
            ; ++++++++++++++++++++++++++++++++++++++
          StopDrawing()
          SetGadgetState(0, ImageID(0))
        EndIf
    EndSelect
    
  Until Event = #PB_Event_CloseWindow
EndIf
Voilà si vous ne saisissez pas le fonctionnement voici un exemple :


Image







@++
Dernière modification par venom le sam. 21/août/2010 13:10, modifié 4 fois.
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
Haut
Avatar de l’utilisateur
djes
Messages : 4252
Inscription : ven. 11/févr./2005 17:34
Localisation : Arras, France

Re: Horloge Binaire

Message par djes »

Très bon! :lol:
Haut
Avatar de l’utilisateur
kernadec
Messages : 1606
Inscription : ven. 25/avr./2008 11:14

Re: Horloge Binaire

Message par kernadec »

bonsoir c'est fun
juste un ptit truc pour evité le scintillement mettre un fond noir peut etre,
dans le code de Venom ligne 9 mettre un setwindowscolor(0,rgb(0,0,0)) :wink:
c'est vrai, je n'avais pas été assez précis . :oops:

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 600, 600, "Binary Clock",#PB_Window_SystemMenu |#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
  SetWindowColor(0, RGB(0,0,0)) 
  FontID = LoadFont(8, "Arial Black", 95, #PB_Font_Bold)
et a la fin enlever la commande imagegadget et mettre un setgadgetstate

Code : Tout sélectionner

ElseIf Val(Mid(FormatDate("%ss", Date()), 2, 1)) = 9
  Circle(550,250,50,RGB(255,0,0))
  Circle(550,550,50,RGB(255,0,0))
EndIf 
;++++++++++++++++++++++++++++++++++++++ 
StopDrawing()
EndIf
SetGadgetState(0,ImageID(0))
EndSelect 

Until Event = #PB_Event_CloseWindow 
EndIf
cordialement
Dernière modification par kernadec le lun. 26/juil./2010 21:26, modifié 2 fois.
Haut
Avatar de l’utilisateur
gildev
Messages : 380
Inscription : mar. 19/juin/2007 10:28
Localisation : Picardie (France)

Re: Horloge Binaire

Message par gildev »

C'est fort. Ce le genre de truc que j'aime apprendre pour ma culture. Merci pour ce code. :D
Haut
Warkering
Messages : 808
Inscription : ven. 08/janv./2010 1:14
Localisation : Québec, Canada

Re: Horloge Binaire

Message par Warkering »

Il est où le 9? 8O
Haut
Avatar de l’utilisateur
venom
Messages : 3136
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :
Contacter venom

Re: Horloge Binaire

Message par venom »

Merci pour vos commentaires :wink: et de rien pour la source c'est fait pour ça :wink:
j'ai mis a jour le code merci kernadec :wink: c'est plus propre ainsi.

quel 9 Warkering ?






@++
Dernière modification par venom le mar. 27/juil./2010 1:19, modifié 1 fois.
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
Haut
Avatar de l’utilisateur
GallyHC
Messages : 1708
Inscription : lun. 17/déc./2007 12:44

Re: Horloge Binaire

Message par GallyHC »

Bonjour,

Je penses que tout simplement 9 c'est 8 + 1 :)

Amitier,
GallyHC
Configuration : Tower: Windows 10 (Processeur: i7 "x64") (Mémoire: 16Go) (GeForce GTX 760 - 2Go) - PureBasic 5.72 (x86 et x64)
Haut
Avatar de l’utilisateur
venom
Messages : 3136
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :
Contacter venom

Re: Horloge Binaire

Message par venom »

GallyHC a écrit :Bonjour,

Je penses que tout simplement 9 c'est 8 + 1 :)

Amitier,
GallyHC
Tout a fait GallyHC tout comme le 5 4+1 :wink:
alala quel difficulté a lire cette horloge c'est drôle :lol:





@++
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
Haut
Warkering
Messages : 808
Inscription : ven. 08/janv./2010 1:14
Localisation : Québec, Canada

Re: Horloge Binaire

Message par Warkering »

Aaaaah! Le boulet! Je viens de comprendre! :mrgreen:
Haut
Avatar de l’utilisateur
flaith
Messages : 1487
Inscription : jeu. 07/avr./2005 1:06
Localisation : Rennes
Contact :
Contacter flaith

Re: Horloge Binaire

Message par flaith »

Sympa le code, merci Venom
D'ailleurs j'ai cette horloge depuis qq années chez moi (led bleues) :mrgreen:
Image
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Re: Horloge Binaire

Message par Ar-S »

Merci venom, cool.
on pourrait presque l'appeler "tetris binary clock" ^^
Dernière modification par Ar-S le mar. 27/juil./2010 12:43, modifié 1 fois.
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Haut
Avatar de l’utilisateur
venom
Messages : 3136
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :
Contacter venom

Re: Horloge Binaire

Message par venom »

Pas mal en effet flaith 8) je suis tomber dessus une foi sur le net sa doit en jeter dans une maison :P

@Ar-S
c'est vrai que sa fait un peut tetris dans le fond :wink:







@++
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
Haut
Warkering
Messages : 808
Inscription : ven. 08/janv./2010 1:14
Localisation : Québec, Canada

Re: Horloge Binaire

Message par Warkering »

T'imagine la tête du gars qui veut savoir l'heure et qui sais pas que t'as ça? :mrgreen:
Haut
Avatar de l’utilisateur
venom
Messages : 3136
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :
Contacter venom

Re: Horloge Binaire

Message par venom »

Mise a jour du code plus haut avec ajout de EllipticalGradient() pour un meilleur rendu :P :D








@++
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
Haut
Frenchy Pilou
Messages : 2194
Inscription : jeu. 27/janv./2005 19:07

Re: Horloge Binaire

Message par Frenchy Pilou »

y a plus qu'à la mettre en montre bracelet, dans un cercle! :lol:
Est beau ce qui plaît sans concept :)
Speedy Galerie
Haut
Répondre

Revenir à « Annonces »