Horloge avec afichage LED (DroopyLib)

[Golfy]

J'ai trouvé ça amusant alors je partage (nécessite la bibliothèque DroopyLib) :

Code : Tout sélectionner

OpenWindow(0,0,0,400,90,"Montre",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)

SLed1=SevenSegmentLed( 40,10,50,65,$000011,$0000FF,0)
SLed2=SevenSegmentLed( 90,10,50,65,$000011,$0000FF,0)
SLed3=SevenSegmentLed(150,10,50,65,$000011,$0000FF,0)
SLed4=SevenSegmentLed(200,10,50,65,$000011,$0000FF,0)
SLed5=SevenSegmentLed(260,10,50,65,$000F11,$0077FF,0)
SLed6=SevenSegmentLed(310,10,50,65,$000F11,$0077FF,0)

AddWindowTimer(0,1,500)
Flag = 0

Repeat
	evt=WaitWindowEvent()
	If evt= #PB_Event_Timer
		Select EventTimer()
		Case 1
			h$=FormatDate("%hh%ii%ss",Date())
			SevenSegmentLedSet(SLed1,Val(Mid(h$,1,1)),0)
			SevenSegmentLedSet(SLed2,Val(Mid(h$,2,1)),0)
			SevenSegmentLedSet(SLed3,Val(Mid(h$,3,1)),0)
			SevenSegmentLedSet(SLed4,Val(Mid(h$,4,1)),Flag)
			SevenSegmentLedSet(SLed5,Val(Mid(h$,5,1)),0)
			SevenSegmentLedSet(SLed6,Val(Mid(h$,6,1)),0)	
			If flag =0
				flag = 1
			Else
				flag = 0
			EndIf
		EndSelect
	EndIf
Until evt=#PB_Event_CloseWindow