Petit problème de traduction VB > pseudo code

Résolu/Fermé
spoucboss - 20 mars 2008 à 14:26
 spoucboss - 20 mars 2008 à 17:54
Bonjour,

voila j'ai un petit problème avec mon VB
j'aimerai traduire:


Flag_OK = False
Do While Not Flag_OK
N = InputBox("Entrez un effectif (0 pour arrêt)", Z, "effectif", 0, 0)
If N < 0 Then MsgBox "Pas d'effectif négatif"
If N >= 0 Then Flag_OK = True
Loop

en language pseudo code
est ce que vous pouriez m'aider

merci d'avance
A voir également:

1 réponse

weaponjr Messages postés 11 Date d'inscription mercredi 22 août 2007 Statut Membre Dernière intervention 17 mai 2011 7
20 mars 2008 à 14:54
Flag_OK est une variable booléenne qui est à false(faux)

Faire tant que Flag_Ok est faux
Mettre dans N la valeur qui sera saisie. (Inputbox est une fonction qui affiche un formulaire laissant la possibilité à l'utilisateur de saisir quelque chose; Il va afficher le message "Entrez un effectif (0 pour arrêt)"; les autres paramètres sont juste des arguments de la fonction inputbox, cfr Aide sous Access ou Excel)

Si la valeur de N(celle qui a étée saisie) est strictement inférieur à 0 qu'on affiche le message "Pas d'effectif négatif"
si N est supérieur ou égal à 0, que la valeur de Flag_OK soit à True(Vraie)

J'espère que ces explications te permettront d'écrire facilement ton bout de code en pseudo code.
0
merci merci
0