Un petit minuteur

' Minuteur, alarme visuelle après une heure ou une durée donnée
DIM i%,a$,h,m,s,ds,dl,t$,tf$,ff
LABEL Fin,Go
BORDER_SMALL 0: FONT_SIZE 0,10: COLOR 0,255,255,200: LEFT 0,SCREEN_X-190
WIDTH 0,190: HEIGHT 0,120: CAPTION 0,"          -  MINUTEUR  -": ON_CLOSE 0,Fin
CONTAINER_OPTION 1: TOP 1,-10: WIDTH 1,110: HEIGHT 1,41
OPTION 2: PARENT 2,1: TOP 2,10: WIDTH 2,105: CAPTION 2,"Heure de réveil" : MARK_ON 2
OPTION 3: PARENT 3,1: TOP 3,TOP(2)+15: CAPTION 3,"ou Durée (h/m)"
ALPHA 4: TOP 4,TOP(1)+HEIGHT(1)+10: LEFT 4,10: CAPTION 4,"H:          M:"
SPIN 5: TOP 5,TOP(4)-3: LEFT 5,LEFT(4)+15: WIDTH 5,40
  MIN 5,0: MAX 5,23
SPIN 6: TOP 6,TOP(5): LEFT 6,LEFT(5)+55: WIDTH 6,WIDTH(5)
  MIN 6,0: MAX 6,59
ALPHA 8: TOP 8,0: LEFT 8,WIDTH(1)+10
ALPHA 9: TOP 9,TOP(8)+15: LEFT 9,LEFT(8)
  FOR i% = 8 TO 9: FONT_BOLD_OFF i%: HIDE i%: NEXT i% 
BUTTON 12: TOP 12,4: LEFT 12,WIDTH(1)+2: WIDTH 12,50: CAPTION 12,"Go !": ON_CLICK 12,Go
PICTURE 20: HIDE 20: TOP 20,TOP(5)-6: LEFT 20,0: WIDTH 20,WIDTH_CLIENT(0): HEIGHT 20,50
  COLOR 20,0,0,0
  PRINT_TARGET_IS 20: FONT_NAME 20,"Digital-7 Mono": FONT_COLOR 20,255,80,80
  FONT_SIZE 20,32: 2D_TARGET_IS 20: 2D_FILL_OFF
END
' ==============================================================================
Fin:
  ff = 1
  TERMINATE
' ==============================================================================
Go:
  HIDE 5: HIDE 6: HIDE 12
  h = POSITION(5): m = POSITION(6): ' heure ou durée
  a$ = RIGHT$("0"+STR$(h),2)+":"+RIGHT$("0"+STR$(m),2)
  IF CHECKED(2) = 1
      CAPTION 8,a$: SHOW 8
  ELSE
      CAPTION 9,a$: SHOW 9
      ds = h*60+m: ' durée en minutes
      dl = ds+60*VAL(LEFT$(TIME$,2))+VAL(MID$(TIME$,4,2))
      h = INT(dl/60): m = dl-60*h
      a$ = RIGHT$("0"+STR$(h),2)+":"+RIGHT$("0"+STR$(m),2)
      CAPTION 8,a$: SHOW 8     
  END_IF
  tf$ = a$
  ff = 0: SHOW 20: t$ = ""
  2D_FILL_OFF
  WHILE ff = 0
      IF TIME$ <> t$ THEN 2D_FILL_COLOR 0,0,0: PRINT_LOCATE 2,4: PRINT TIME$+" "
      IF LEFT$(TIME$,5) = tf$ THEN EXIT_WHILE
      PAUSE 500
  END_WHILE
  WHILE ff = 0
      COLOR 20,255,0,0: PAUSE 500: COLOR 20,255,255,255: PAUSE 500
  END_WHILE
RETURN
' ==============================================================================