Petit problème de traduction VB > pseudo code

Résolu
spoucboss -  
 spoucboss -
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   Statut Membre Dernière intervention   7
 
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
spoucboss
 
merci merci
0