; Author: da_poller
; Email: bpoller2810[at]aol[dot]com
; Copyright: FFA(Free For All)
; Description: gives you an type stack with the actual binary time
;                   
;                   
;====================================================================

Type bc_wert
   Field bc_binar[4]
   Field bc_dezimal
   Field bc_bin_max
   Field id
End Type
Global bc_w.bc_wert

Local bc_wert$="243434"
For bc_k=0 To 5
   bc_w.bc_wert=New bc_wert
   bc_w\bc_bin_max=Mid(bc_wert$,bc_k+1,1)
   bc_w\id=bc_k+1
Next



Function bc_update()
   Local i
   Local zeit$=CurrentTime()
   zeit$=Replace(zeit$,":","")
   
   For bc_w.bc_wert=Each bc_wert
      bc_i=bc_i+1
      For bc_k=0 To 3
         bc_w\bc_binar[bc_k]=0
      Next
      bc_w\bc_dezimal=Int(Mid(zeit$,bc_i,1))
      
      Local bc_zahl=bc_w\bc_dezimal
      Local bc_count=3
      Local bc_stack=8
      
      While bc_zahl>0
         
         If bc_zahl>=bc_stack
            bc_w\bc_binar[bc_count]=1
            bc_zahl=bc_zahl-bc_stack
         EndIf
         
         bc_stack=bc_stack/2
         bc_count=bc_count-1
      Wend
      
   Next
   
End Function

Include "binar uhr.bb"

Graphics 400,300,0,2
SetBuffer BackBuffer()
timer=CreateTimer(30)
Repeat
   Cls
   bc_update()
   draw_clock(10,200)
   draw_clock2(100,230,30)
   WaitTimer(timer)
   Flip 0
Forever
End

Function draw_clock(x,y)
   Local zz$
   Color 255,255,255
   For bc_k=0 To 3
      For bc_w.bc_wert=Each bc_wert
         If bc_k<bc_w\bc_bin_max
            zz$=zz$+bc_w\bc_binar[k]
         Else
            zz$=zz$+" "
         EndIf
      Next
      zz$=Left(zz$,2)+":"+Mid(zz$,3,2)+":"+Right(zz$,2)
      Text x,y+40-(bc_k*10),zz$
      zz$=""
   Next
End Function


Function draw_clock2(x,y,size)
   Local bc_dx=0
   For bc_w.bc_wert=Each bc_wert
      For bc_k=0 To 3
         If bc_k<bc_w\bc_bin_max
            Select bc_w\bc_binar[bc_k]
               Case 0
                  Color 100,100,100
               Case 1
                  Color 255,255,255
            End Select
            
            Oval x+(bc_dx*(size+5)),y-(bc_k*(size+5)),size,size,1
         EndIf   
      Next
      bc_dx=bc_dx+1
   Next
End Function

Repeat
   Cls
   bc_update()
   draw_clock(10,200)
   draw_clock2(100,230,30)
   WaitTimer(timer)
   Flip 0
Forever

SetBuffer BackBuffer()While 1Cls:For i=1To 8z=4If i=1z=2ElseIf i=4Or i=7z=3
If i Mod 3For j=1To z:Oval 9+9*i,9+9*(4-j),9,9,Mid(Right(Bin(Mid(CurrentTime(),i,1)),4),5-j,1)Next
Next:Flip:Wend