Saisie en temps réel d'un EDIT

LEFT 0,200
  TOP 0,200
  WIDTH 0,700
  HEIGHT 0,320
  COLOR 0, 150,180,150
  FONT_NAME 0, "Arial"
  FONT_SIZE 0, 14

  LABEL Mask
  LABEL Saisie
  LABEL Calcul_Affichage

  DIM Entree$
  DIM valeur
  DIM N
  DIM L
  DIM A$

  Entree$="0"

  GOSUB Mask

  ON_CHANGE 1, Saisie

  END

  ' ----------------------------------------------------------------------------

  Saisie:

    N=NUMBER_CHANGE
     a$=RIGHT$(TEXT$(N),1)
       IF a$="" THEN Entree$="0" : TEXT N, Entree$: GOSUB Calcul_Affichage : RETURN
       L=LEN(TEXT$(N))
       IF A$ = "." OR A$ = "," and INSTR(LEFT$(TEXT$(n),L-1),".")<>0 THEN TEXT N, LEFT$(TEXT$(N),L-1) : CARET_POSITION N, L : RETURN
       IF a$="." or a$="," THEN TEXT N, LEFT$(TEXT$(N),L-1) + "." : CARET_POSITION N, L : Entree$ = text$(n): gosub Calcul_Affichage : RETURN
       IF ASC(a$)<48 or ASC(a$)>57 THEN TEXT N, LEFT$(TEXT$(N),L-1) : CARET_POSITION N, L : RETURN
       IF LEN(TEXT$(N))=2 AND LEFT$(TEXT$(N),1)="0" THEN Entree$ = A$ : TEXT n, Entree$
       Entree$=LEFT$(TEXT$(N),6) : ' ===> le "6" correspond au nombre max de caractères autorisés <=============================================
       TEXT N, Entree$
       L=LEN(TEXT$(N)):CARET_POSITION N, L
    GOSUB Calcul_Affichage

   RETURN

  ' ----------------------------------------------------------------------------
  
   Calcul_Affichage:
    valeur = val(Entree$)
    CAPTION 2, valeur
   RETURN

  ' ---------------------------------------------------------------------------
  
  Mask:

  EDIT 1
  LEFT 1, 100
  TOP 1, 100
  WIDTH 1, 85
  HEIGHT 1, 30
  TEXT 1, Entree$
  
  BUTTON 2
  LEFT 2, 499
  TOP 2, 100
  WIDTH 2, 87
  HEIGHT 2, 32

  ALPHA 3
  LEFT 3, 100
  TOP 3, 70
  CAPTION 3, "Saisie"
  
  ALPHA 4
  LEFT 4, 499
  TOP 4, 70
  CAPTION 4, "Contrôle"

  return