[R] IF OR AND...

[DimVar]

Bonjour,

Question basique :

Je cherche à faire un test sur une variable qui pourrait contenir que 2 valeurs.

Je pense donc à ce script :

Code : Tout sélectionner

$toto = inputbox ("","entrez 10 ou 14")
If $toto <> "10" OR $toto <> "14" then
Msgbox (0,"","erreur de saisie)
EndIf

Ce script m'affiche toujours la msgbox... Comprends pas Chef...

[timmalos]

Dans ton script, tu demande à ta variable $toto d'être
Egal à 10
ET
Egal à 20

Elle va avoir du mal à remplir ces conditions
Non sérieusement,
Ton petit probleme vient du fait que tu n'a pas pensé qu'un "ou" équivaut à un "et"au negatif:

il suffit de mettre:

Code : Tout sélectionner

$toto = inputbox ("","entrez 10 ou 14")
If $toto <> "10"   AND  $toto   <> "20" then
Msgbox (0,"","erreur de saisie)
EndIf

Ce qui equivaut au positif à:

Code : Tout sélectionner

$toto = inputbox ("","entrez 10 ou 14")
If $toto = "10"  Or $toto   = "20" then
... blabla...
Else
Msgbox (0,"","erreur de saisie)
EndIf

Et là jen'ai pas testé mais ca devrait marcher chef !!!

[DimVar]

Oui, ca marche. Quel boulet, j'ai même pas essayé le "AND"...
Pourtant en français (grammaticalement), je traduirais ça en disant :
"Si ma variable n'est pas egale à 10 OU 20 alors...blablabla..."
Troublant...

Merci M'sieur

PS : Si je veux renvoyer l'utilisateur à l'inputbox en cas de mauvaise saisie, une idée ?
Je penserais bien à un "GOTO Inputbox" mais autoit le permet pas...

[timmalos]

plusieurs méthodes, sois tu fais une boucle

Code : Tout sélectionner

WHile 1
$toto = inputbox ("","entrez 10 ou 14")
If $toto = "10"  Or $toto   = "20" then
... blabla...
Else
Msgbox (0,"","erreur de saisie)
EndIf

WEnd

Dans ce cas, soit tu rentre la bonne valeur et tu fais le blabla, sois tu ne rentre pas la bonne valeur, tu as le msgbox et tu retourne à l'inputbox.
Si ton programme est complexe, je te conseille plutot ca:

Code : Tout sélectionner

$ok = 0
WHile $ok <> 1
$toto = inputbox ("","entrez 10 ou 14")

If $toto = "10"  Or $toto   = "20" then
$ok = 1
Else
Msgbox (0,"","erreur de saisie)
EndIf

WEnd
...Blabla...

Si tu teste comme ca, ils vont donner les memes resultats, mais la 2eme est beaucoup mieux car on sort de la boucle au plus vite, c'et toujours source d'erreur surtout si tu as deja une boule principale en "While 1"

[DimVar]

Grand merci, pour la 1ere methode, comment sort tu de la boucle

[timmalos]

La première methode n'est pas la meilleure ...
Si tu veux vriament l'utiliser , tu sors de la boucle avec un

Hotkeyset("{ENTER}","sortir")


func sortir()
Exit
EndFunc

[jbnh]

j'aurais plus dit exitloop, la méthode de timmalos est pour quitter le script

[timmalos]

Sry j'ai lu trop rapidement:)

[DimVar]

Ok, merci à tous.