Petit problème de traduction VB > pseudo code
Résolu
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
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
Configuration: Windows XP Firefox 2.0.0.12
1 réponse
-
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.
