GRATUIT

Vos offres d'emploi informatique

Développeurs, chefs de projets, ingénieurs, informaticiens
Postez gratuitement vos offres d'emploi ici visibles par 4 000 000 de visiteurs uniques par mois

emploi.developpez.com

Developpez.com - 4D
X

Choisissez d'abord la catégorieensuite la rubrique :


Gérer une saisie multiple de valeurs (numériques)

Date de publication : 18/08/2006 , Date de mise à jour : 12/09/2006

Par Thomas Schlumberger (Responsable Support International)
 

Voici un exemple de saisie consécutive de valeurs numériques (testées), avec possibilité d'annuler (refuser) la poursuite de l'exécution à chaque saisie.


Produit : 4D 2003 & 4D 2004  ·  Plateforme : Windows & Mac


   C_TEXTE($vt_choix)
   C_BOOLEEN($vb_Confirmation)
   C_ENTIER LONG($vl_Valeur1;$vl_Valeur2)

   Si (($vl_Valeur1=0) & ($vl_Valeur2=0))   ` non initialisées ?
      $vl_Valeur1:=20   ` fixer une valeur par défaut pour $vl_Valeur1
      $vl_Valeur2:=100   ` fixer une valeur par défaut pour $vl_Valeur2
   Fin de si

   $vb_Confirmation:=Faux
   CONFIRMER("première valeur : "+Chaine($vl_Valeur1)+", deuxième valeur :"+Chaine($vl_Valeur2))
   Si (OK=1)
      $vb_Confirmation:=Vrai

   Sinon   ` demander à l'utilisateur de saisir ou confirmer les deux valeurs
         ` Si l'utilisateur annule un des dialogues, on sort de cette répétition.
         ` Si l'utilisateur ne saisit pas un chiffre, les dialogues seront rappelés.

      Repeter
         $vt_choix:=Demander("première valeur : ";Chaine($vl_Valeur1))
         Si (OK=1)
            Si ((Num($vt_choix)#0) | ($vt_choix="0"))   ` valeur numérique saisie
               $vl_Valeur1:=Num($vt_choix)
               $vt_choix:=Demander("deuxième valeur : ";Chaine($vl_Valeur2))
               Si (OK=1)
                  Si ((Num($vt_choix)#0) | ($vt_choix="0"))   ` valeur numérique saisie
                     $vl_Valeur2:=Num($vt_choix)
                     $vb_Confirmation:=Vrai
                  Fin de si
               Fin de si
            Fin de si
         Fin de si
      Jusque (($vb_Confirmation) | (OK=0))

      ALERTE("première valeur : "+Chaine($vl_Valeur1)+", deuxième valeur :"+Chaine($vl_Valeur2))

   Fin de si

   Si ($vb_Confirmation)
         ` Les deux valeurs numériques ont été validées par l'utilisateur
   Sinon
         ` Les valeurs par défaut n'ont pas été validées.
   Fin de si



Valid XHTML 1.1!Valid CSS!

Copyright © 2006 4D s.a.. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Contacter le responsable de la rubrique 4D