Mon p'tit chrono...

dim Tps%,mn%,s%,cs%,etat%

label On,Standby,Zero,Exit


caption 0,"Chrono":width 0,195:height 0,105:color 0,0,0,0
alpha 6 :top 6,10 :left 6,30  :caption 6,"00" :font_name 6,"times new roman" :font_size 6,18
font_color 6,250,250,1
alpha 7 :top 7,10 :left 7,58  :caption 7,":"  :font_name 7,"times new roman" :font_size 7,18
font_color 7,250,250,1
alpha 8 :top 8,10 :left 8,70  :caption 8,"00" :font_name 8,"times new roman" :font_size 8,18
font_color 8,250,250,1
alpha 9 :top 9,10 :left 9,98 :caption 9,":" :font_name 9,"times new roman" :font_size 9,18
font_color 9,250,250,1
alpha 10:top 10,10:left 10,110:caption 10,"00":font_name 10,"times new roman":font_size 10,18
font_color 10,250,250,1

button 11:top 11,40:left 11,40:width 11,20:height 11,20:on_click 11,Standby
font_name 11,"Webdings":font_size 11,10:caption 11,";":cursor_point 11
hint 11,"Pause/Continuer"
button 12:top 12,40:left 12,65:width 12,20:height 12,20:on_click 12,Exit:inactive 12
font_name 12,"Webdings":font_size 12,8:caption 12,"g":cursor_point 12
hint 12,"Quitter"
button 13:top 13,40:left 13,90:width 13,20:height 13,20:on_click 13,Zero:inactive 13
font_size 13,8:font_bold 13:caption 13,"0":cursor_point 13
hint 13,"Remise à Zéro"
timer 1:timer_interval 1,10:on_timer 1,On

end

On:
  Tps%=Tps%+1
  mn%=int(Tps%/3600)
  s%=int(Tps%/60)-(mn%*60)
  cs%=Tps% -((mn%*3600)+(s%*60))
  if len(str$(mn%))<2
    caption 6,"0"+str$(mn%)
  else
    caption 6,str$(mn%)
  end_if
  if len(str$(s%))<2
    caption 8,"0"+str$(s%)
  else
    caption 8,str$(s%)
  end_if
  if len(str$(cs%))<2
    caption 10,"0"+str$(cs%)
  else
    caption 10,str$(cs%)
  end_if
return
' ------------------------------------------------------------------------------
Standby:
 If etat%=0
    etat%=1
    timer_off 1
    caption 11,"4"
    active 12
    active 13
 else
    etat%=0
    timer_on 1
    caption 11,";"
    inactive 12
    inactive 13
 end_if
return
' ------------------------------------------------------------------------------
Zero:
 Tps%=0
 caption 6,"00":caption 8,"00":caption 10,"00"
return
Exit:
terminate

dim Tps%,mn%,mn$,s%,s$,cs%,cs$
label on,verif,affich,off
hide 0
Timer 1:on_timer 1,on
Timer 2:on_timer 2,verif

end

on:
Tps%=Tps%+1
return
' ------------------------------------------------------------------------------
verif:
if file_exists("C:\Users\Yannick\Desktop\Chrono\chrono.txt")=1
  timer_off 1
  timer_off 2
  gosub affich
end_if
return
' ------------------------------------------------------------------------------
affich:
form 3:caption 3,"Chrono":width 3,195:height 3,105:color 3,0,0,0
command_target_is 3
alpha 6 :top 6,10 :left 6,30  :font_name 6,"times new roman" :font_size 6,18
font_color 6,250,250,1
alpha 7 :top 7,10 :left 7,58  :caption 7,":"  :font_name 7,"times new roman" :font_size 7,18
font_color 7,250,250,1
alpha 8 :top 8,10 :left 8,70  :font_name 8,"times new roman" :font_size 8,18
font_color 8,250,250,1
alpha 9 :top 9,10 :left 9,98 :caption 9,":" :font_name 9,"times new roman" :font_size 9,18
font_color 9,250,250,1
alpha 10:top 10,10:left 10,110:font_name 10,"times new roman":font_size 10,18
font_color 10,250,250,1

button 11:top 11,40:left 11,40:width 11,20:height 11,20:on_click 11,off
font_name 11,"Webdings":font_size 11,10:caption 11,"g":cursor_point 11
hint 11,"Quitter"

  mn%=int(Tps%/3600)
  s%=int(Tps%/60)-(mn%*60)
  cs%=Tps% -((mn%*3600)+(s%*60))
  if len(str$(mn%))<2
    mn$="0"+str$(mn%)
  else
    mn$=str$(mn%)
  end_if
  if len(str$(s%))<2
    s$="0"+str$(s%)
  else
    s$=str$(s%)
  end_if
  if len(str$(cs%))<2
    cs$="0"+str$(cs%)
  else
    cs$=str$(cs%)
  end_if
  caption 6,mn$:caption 8,s$:caption 10,cs$
return

off:
terminate