Détournement de SPIN . . .

 DIM Heure$
 DIM Minute$
 DIM HeureMinute$

 LABEL Mask
 LABEL Affichage
 
 gosub Mask
 gosub Affichage

 ON_CHANGE 1, Affichage
 ON_CHANGE 3, Affichage

 END

 ' -----------------------------------------------------------------------------
 Affichage:
 
    Heure$ = TEXT$(3)
    Minute$ = TEXT$(1)
      IF VAL(Minute$)=60 then Minute$="0": position 1, 0
      IF VAL(Minute$)=-1 then Minute$="59": position 1, 59
      IF VAL(heure$)=24 then Heure$="0": position 3, 0
      IF VAL(heure$)=-1 then Heure$="23": position 3, 23
      If LEN(heure$) < 2 then Heure$ = "0" + heure$
      If LEN(Minute$)< 2 then Minute$= "0" + Minute$
    HeureMinute$=" " + Heure$ + ":" + Minute$
    TEXT 2, HeureMinute$

 RETURN

 ' -----------------------------------------------------------------------------
 Mask:
 
 spin 1
 TOP 1, 55
 LEFT 1, 174
 width 1,20
 HEIGHT 1, 50
 POSITION 1, 0
 MAX 1, 60
 MIN 1 , -1

 EDIT 2
 FONT_SIZE 2, 32
 TOP 2,55
 LEFT 2,50
 WIDTH 2, 125
 HEIGHT 2, 50

 spin 3
 TOP 3, 55
 LEFT 3, 31
 width 3,20
 HEIGHT 3, 50
 POSITION 3, 0
 MAX 3, 24
 MIN 3, -1
 
 RETURN

 ' Programme utilisant des objes SPIN pour mettre à jour une horloge
 ' (sans modification de l'horloge système)

 DIM Heure$, Minute$   : ' Variables texte permettant de stocker l'heure et les minutes

 LABEL Affichage       : ' Procédure permettant de mettre à jour l'horloge quand on clic sur les flèches des SPIN
 LABEL MinutePassee    : ' Une minute s'est écoulée

 CreeHorloge()   : ' Création de l'horloge
 
 ' Initialisation de l'horloge
 Minute$ = TIME$ :  Heure$ = LEFT$(Minute$, 2) : Minute$ = MID$(Minute$, 4, 2)
 POSITION 1,VAL(Minute$) : POSITION 3,VAL(heure$)
 GOSUB Affichage

' Si modification par les SPIN, mettre à jour l'horloge
 ON_CHANGE 1, Affichage : ON_CHANGE 3, Affichage
 TIMER 4 : TIMER_INTERVAL 4,60000 : ON_TIMER 4,MinutePassee

 END

 ' -----------------------------------------------------------------------------
 Affichage:

      Heure$  = TEXT$(3)
      Minute$ = TEXT$(1)
      IF VAL(Minute$)= 60  THEN   Minute$="0" : POSITION 1, 0
      IF VAL(Minute$)= -1  THEN   Minute$="59": POSITION 1, 59
      IF VAL(heure$) = 24  THEN   Heure$="0"  : POSITION 3, 0
      IF VAL(heure$) = -1  THEN   Heure$="23" : POSITION 3, 23
      IF LEN(heure$)  < 2  THEN   Heure$ = "0" + heure$
      IF LEN(Minute$) < 2  THEN   Minute$= "0" + Minute$
      CAPTION 2, " " + Heure$ + ":" + Minute$

 RETURN

 ' -----------------------------------------------------------------------------
 SUB CreeHorloge()

     SPIN 1 :  TOP 1, 55 :  LEFT 1, 174  : WIDTH 1,20 :  HEIGHT 1, 50
     POSITION 1, 0 :  MAX 1, 60 :  MIN 1 , -1
     ALPHA 2 : FONT_SIZE 2, 32 :  TOP 2,55 : LEFT 2,50 : WIDTH 2, 125 : HEIGHT 2, 50
     SPIN 3 :  TOP 3, 55 :  LEFT 3, 31 : WIDTH 3,20  :  HEIGHT 3, 50
     POSITION 3, 0  :  MAX 3, 24  : MIN 3, -1

 END_SUB
 
 ' -----------------------------------------------------------------------------
 MinutePassee:
 
      Heure$  = TEXT$(3)
      Minute$ = TEXT$(1)
      IF VAL(Minute$) > 58
          Minute$="0" : POSITION 1, 0
          Heure$ = STR$(POSITION(3) + 1)
          IF VAL(Heure$) = 24 THEN Heure$ = 0
          POSITION 3, VAL(Heure$)
      ELSE
          Minute$ = STR$(POSITION(1) + 1)
          POSITION 1, VAL(Minute$)
      END_IF
      IF LEN(heure$)  < 2  THEN   Heure$ = "0" + heure$
      IF LEN(Minute$) < 2  THEN   Minute$= "0" + Minute$
      CAPTION 2, " " + Heure$ + ":" + Minute$

 RETURN

  BUTTON 1 : LEFT 1, 13 : TOP 1, 21 : WIDTH 1, 85 :  HEIGHT 1, 55
  HINT 1, "Entrées Sorties Caractéristiques matières premières"
  CAPTION 1, "Produits" : ON_CLICK 1, Matieres_Premieres