petit problème de traduction VB pseudo code Résolu/Fermé

Question

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

weaponjr · Answer

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.

Petit problème de traduction VB > pseudo code

1 réponse

Discussions similaires