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

Thomas Schlumberger

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. ♪

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

- Auteur : Thomas Schlumberger

- Parution : 18 août 2006

- Mise à jour : 12 septembre 2006

- Licence : 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.

Sommaire

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

1. C_TEXTE($vt_choix)

2. C_BOOLEEN($vb_Confirmation)

3. C_ENTIER LONG($vl_Valeur1;$vl_Valeur2)

5. Si (($vl_Valeur1=0) & ($vl_Valeur2=0))   ` non initialisées ?

6. $vl_Valeur1:=20   ` fixer une valeur par défaut pour $vl_Valeur1

7. $vl_Valeur2:=100   ` fixer une valeur par défaut pour $vl_Valeur2

8. Fin de si

10. $vb_Confirmation:=Faux

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

12. Si (OK=1)

13. $vb_Confirmation:=Vrai

15. Sinon   ` demander à l'utilisateur de saisir ou confirmer les deux valeurs

16. ` Si l'utilisateur annule un des dialogues, on sort de cette répétition.

17. ` Si l'utilisateur ne saisit pas un chiffre, les dialogues seront rappelés.

18. Repeter

19. $vt_choix:=Demander("première valeur : ";Chaine($vl_Valeur1))

20. Si (OK=1)

21. Si ((Num($vt_choix)#0) | ($vt_choix="0"))   ` valeur numérique saisie

22. $vl_Valeur1:=Num($vt_choix)

23. $vt_choix:=Demander("deuxième valeur : ";Chaine($vl_Valeur2))

24. Si (OK=1)

25. Si ((Num($vt_choix)#0) | ($vt_choix="0"))   ` valeur numérique saisie

26. $vl_Valeur2:=Num($vt_choix)

27. $vb_Confirmation:=Vrai

28. Fin de si

29. Fin de si

30. Fin de si

31. Fin de si

32. Jusque (($vb_Confirmation) | (OK=0))

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

36. Fin de si

38. Si ($vb_Confirmation)

39. ` Les deux valeurs numériques ont été validées par l'utilisateur

40. Sinon

41. ` Les valeurs par défaut n'ont pas été validées.

42. Fin de si