Une horloge à compteur mécanique!

label horloge
dim p
init()
time()
p=1
timer 99:timer_interval 99,10:on_timer 99,horloge

end

horloge:
timer_off 99
time()
timer_on 99
return

sub time()
  dim_local t$,i,hd,hu,md,mu,sd,su,hd$,hu$,md$,mu$,sd$,su$
  t$=time$
  hd$=left$(t$,1)
  t$=right_pos$(t$,2)
  hu$=left$(t$,1)
  t$=right_pos$(t$,3)
  md$=left$(t$,1)
  t$=right_pos$(t$,2)
  mu$=left$(t$,1)
  t$=right_pos$(t$,3)
  sd$=left$(t$,1)
  t$=right_pos$(t$,2)
  su$=t$
  hd=60+val(hd$)
  while top(hd)<>0
     for i=60 to 62
        top i,top(i)-4
        if top(i)=-36 then top i,72
     next i: if p=1 then wait 10
  end_while
  hu=50+val(hu$)
  while top(hu)<>0
     for i=50 to 59
        top i,top(i)-4
        if top(i)=-36 then top i,324
     next i:if p=1 then wait 10
  end_while
  md=40+val(md$)
  while top(md)<>0
     for i=40 to 45
        top i,top(i)-4
        if top(i)=-36 then top i,180
     next i:if p=1 then wait 10
  end_while
  mu=30+val(mu$)
  while top(mu)<>0
     for i=30 to 39
        top i,top(i)-4
        if top(i)=-36 then top i,324
     next i:if p=1 then wait 10
  end_while
  sd=20+val(sd$)
  while top(sd)<>0
     for i=20 to 25
        top i,top(i)-4
        if top(i)=-36 then top i,180
     next i:if p=1 then wait 10
  end_while
  su=10+val(su$)
  while top(su)<>0
     for i=10 to 19
        top i,top(i)-4
        if top(i)=-36 then top i,324
     next i:if p=1 then wait 10
  end_while
  if clicked(29)=1 or scancode=27 then terminate
end_sub

sub init()
  dim_local i,h,x

  hide 0

  x=screen_x

  for i=1 to 9
     form i
        border_hide i
        color i,0,0,0
        width i,49
        height i,48
        x=x-width(i)-1
        left i,x
  next i

  h=0

  for i=10 to 19
     alpha i
        parent i,2
        top i,h*36
        font_name i,"Arial Black"
        font_color i,255,255,255
        font_bold i
        font_size i,24
        caption i," "+str$(h)
        h=h+1
  next i

  h=0

  for i=20 to 25
     alpha i
        parent i,3
        top i,h*36
        font_name i,"Arial Black"
        font_color i,255,255,255
        font_bold i
        font_size i,24
        caption i," "+str$(h)
        h=h+1
  next i

  h=0

  for i=30 to 39
     alpha i
        parent i,5
        top i,h*36
        font_name i,"Arial Black"
        font_color i,255,255,255
        font_bold i
        font_size i,24
        caption i," "+str$(h)
        h=h+1
  next i

  h=0

  for i=40 to 45
     alpha i
        parent i,6
        top i,h*36
        font_name i,"Arial Black"
        font_color i,255,255,255
        font_bold i
        font_size i,24
        caption i," "+str$(h)
        h=h+1
  next i

  h=0

  for i=50 to 59
     alpha i
        parent i,8
        top i,h*36
        font_name i,"Arial Black"
        font_color i,255,255,255
        font_bold i
        font_size i,24
        caption i," "+str$(h)
        h=h+1
  next i

  h=0

  for i=60 to 62
     alpha i
        parent i,9
        top i,h*36
        font_name i,"Arial Black"
        font_color i,255,255,255
        font_bold i
        font_size i,24
        caption i," "+str$(h)
        h=h+1
  next i

  alpha 26
     parent 26,1
     top 26,0
     font_name 26,"Arial Black"
     font_color 26,255,255,255
     font_bold 26
     font_size 26,18
     caption 26,"sec"

  alpha 27
     parent 27,4
     top 27,0
     font_name 27,"Arial Black"
     font_color 27,255,255,255
     font_bold 27
     font_size 27,18
     caption 27," mn"

  alpha 28
     parent 28,7
     top 28,0
     font_name 28,"Arial Black"
     font_color 28,255,255,255
     font_bold 28
     font_size 28,18
     caption 28,"  h"

     alpha 29
        parent 29,1
        top 29,top(26)+height(26)
        font_name 29,"Wingdings 2"
        font_color 29,255,0,0
        font_bold 29
        font_size 29,12
        caption 29,"  "+chr$(84)

end_sub

Code:

rem ============================================================================
rem      Date/Heure
rem ============================================================================

label clic , afficher
font_name 0,"ds-digital" : font_bold 0  : font_size 0,55 : width 0,800 : height 0,200
font_italic 0 : color 0,20,100,20 :font_color 0,255,255,0 : border_hide 0

alpha 1 : top 1,30 : left 1,10
alpha 2 : top 2,30 : left 2, 440

button 3 : top 3, 120 : left 3,100 : width 3,80 : height 3,40 : font_size 3,14
caption 3,"STOP" : on_click 3,clic

button 4 : top 4, 120 : left 4,280 : width 4,150 : height 4,40 : font_size 4 ,14
caption 4, "CONTINUER" : on_click 4,clic : inactive 4

button 5 : top 5, 120 : left 5,480 : width 5,100 : height 5,40 : font_size 5 ,14
caption 5, "QUITER" : on_click 5,clic

alpha 6 : top 6,10 :left 6,100 : font_size 6,12 : font_color 6,240,200,100
caption 6,"NOUS SOMMES LE :"

alpha 7 : top 7,10 : left 7, 500 : font_size 7,12 : font_color 7,240,200,100
caption 7,"IL EST :"

timer 10 : on_timer 10,Afficher
end
rem ============================================================================

clic:
  if clicked(3) > 0 then Arreter()
  if clicked(4) > 0 then continuer()
  if clicked(5) > 0 then Terminer()
return
rem ============================================================================

Afficher:
  caption 1,date$ : caption 2,time$
return
rem ============================================================================

SUB Arreter()
    timer_off 10 : active 4 : inactive 3
END_SUB
rem ============================================================================

SUB Continuer()
    timer_on 10 : active 3 : inactive 4
END_SUB
rem ============================================================================

SUB Terminer()
    terminate
END_SUB
rem ============================================================================

dim i,y ,a ,h$,mn$,sec$ ,m$,s$
rem créer un monde 3D
scene3d 1
3d_cylinder 10,0.4,0.7,0.7
3D_load_texture 10,"compteur.bmp"
3d_position 10,0.6,0,0
3d_z_rotate 10,90

3d_cylinder 11,0.4,0.7,0.7
3D_load_texture 11,"compteur.bmp"
3d_position 11,0.2,0,0
3d_z_rotate 11,90

3d_cylinder 12,0.4,0.7,0.7
3D_load_texture 12,"compteur.bmp"
3d_position 12,-0.2,0,0
3d_z_rotate 12,90

3d_cylinder 13,0.4,0.7,0.7
3D_load_texture 13,"compteur.bmp"
3d_position 13,-0.6,0,0
3d_z_rotate 13,90


for i=1 to 25
h$=left$(time$,2)
mn$=mid$(time$,4,1)
m$=mid$(time$,5,1)
s$=mid$(time$,7,1)
sec$=right$(time$,1)
pause 1000
3D_y_rotate 10,((val(sec$)-1)*36)
3D_y_rotate 11,((val(s$)-1)*36)
3D_y_rotate 12,((val(m$)-1)*36)
3D_y_rotate 13,((val(mn$)-1)*36)

next i