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
 
|
