Produit : 4D 2003 & 4D 2004 · Plateforme : Windows & Mac
Sélectionnez
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
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