Précédent   Forum des professionnels en informatique > Autres langages > Autres langages
Autres langages Clipper, D, Eiffel, Forth, FoxPro, Kpl, NSDK, R, Rebol, Smalltalk, ... Tutoriels
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 06/04/2011, 12h57   #1
Invité de passage
 
Inscription : juillet 2009
Messages : 15
Détails du profil
Informations forums :
Inscription : juillet 2009
Messages : 15
Points : 1
Points : 1
Par défaut [AUTOIT] Boucle 'DO .. UNTIL'

Bonjour.

Je voudrais savoir si quelqu'un pouvait me préciser le fonctionnement de cette boucle ... Je comprends que cela veut dire "Faire .... Jusqu'à ce que" Donc on doit vérifier une affirmation, si elle est fausse, on fait ce qui est entre "Do et Until". Une fois que c'est vérifié et vrai, on passe à la suite.

Seulement, je n'arrive pas à concrètement la faire fonctionner. Ici, je veux créer une boucle car je voudrais un message d'erreur qui s'affiche tant que l'on entre mal un nom dans une Inputbox. Voici mon code :

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
;Début choix pour suppression
$nom = InputBox("Stop-Run  -  Choix du programme à supprimer au démarrage", "Tapez ici le nom du programme tel qu'il apparaît dans le rapport de recherche : ", "", "", 500, 130)
RegEnumVal("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", $nom)
If @error <> 0 Then
Do	
RegEnumVal("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", $nom)
If @error <> 0 Then
MsgBox(1, "", 'La valeur  "' & $nom &  '"  n' &"existe pas ! Merci de choisir une valeur trouvée dans le rapport de recherche") 
 $nom = InputBox("Stop-Run  -  Choix du programme à supprimer au démarrage", "Tapez ici le nom du programme tel qu'il apparaît dans le rapport de recherche : ", "", "", 500, 130)
		If @error <> 0 Then Exit
Until Not @error	
MsgBox(0, "xxxxx", "c'est vérifié")
Exit
Merci si vous pouvez m'aider
Pierre750 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 07/04/2011, 19h50   #2
Invité de passage
 
Inscription : juillet 2009
Messages : 15
Détails du profil
Informations forums :
Inscription : juillet 2009
Messages : 15
Points : 1
Points : 1
Hello

C'est résolu.

++
Pierre750 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 10/04/2011, 19h25   #3
Responsable Pascal
 
Avatar de Alcatîz
 
Homme Jean-Luc Gofflot
Ressources humaines
Inscription : mars 2003
Messages : 4 891
Détails du profil
Informations personnelles :
Nom : Homme Jean-Luc Gofflot
Âge : 45
Localisation : Belgique

Informations professionnelles :
Activité : Ressources humaines
Secteur : Service public

Informations forums :
Inscription : mars 2003
Messages : 4 891
Points : 13 455
Points : 13 455
Envoyer un message via ICQ à Alcatîz Envoyer un message via MSN à Alcatîz Envoyer un message via Yahoo à Alcatîz Envoyer un message via Skype™ à Alcatîz
Bonjour,

Ce serait sympa de donner la solution sur le forum, elle pourrait servir à d'autres.
__________________
Règles du forum
Tutoriels, exercices, FAQ, sources, compilateurs, outils, livres Pascal
Mes tutoriels et sources Pascal
FAQ Assembleur

Le problème en ce bas monde est que les imbéciles sont sûrs d'eux et fiers comme des coqs de basse cour, alors que les gens intelligents sont emplis de doute. [Bertrand Russell]
Alcatîz est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 02h10.


 
 
 
 
Partenaires

Hébergement Web