Horloge avec afichage LED (DroopyLib)
Publié : mar. 29/nov./2011 16:57
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