Petit test (no-stress c'est pas pour vous)

[mars073]

Shalut all,
Comme je l'avais dis dans un tuto précédent je vais vous expliquer comment faire des tests et c'est super simple

Il y a juste plein de façon de le faire! xD
Pour faire un test simple, on fait comme ceci:

If [valeur à tester] [Symbôle du test (voir le bas)] [La valeur à la quelle elle est comparée] then
[Le code à exécuter si le test se révèle positif]
End If

exemple:

If check = True then
Process.start("W:\tourbilol.exe")
End If

Imaginons que nous programmons un jeu et que vous voulons tester la position_X soit 3 et que le position_Y soit 5 on va faire comme cela:

If (position_X=3) and (position_Y=5) then
[Le code à exécuter si le test se révèle positif]
End If

Il suffit juste de mettre les 2valeurs entre parenthèse et de mettre un "And"(et) entre les deux.^^

Toujours facile.. alors on va compliquer les choses x)
Imaginons toujours notre petit jeux, cette fois je veux que la position_X soit 3 ou 5 et que que la position_Y soit 5 :o
toujours simple mais bon :

If ((position_X=3) Or (position_X=5)) and (position_Y=5) then
[Le code à exécuter si le test se révèle positif]
End If

on ajoute encore des parenthèses et on met un "Or"(ou) même principe que le "And"

On monte encore un peu dans la difficulté :p
Cette fois la position_X doit être compris entre 3 et 5 et la position_Y doit doit être 5. è_é

If ((position_X>3) And (position_X<5)) and (position_Y=5) then
[Le code à exécuter si le test se révèle positif]
End If

Cette fois le test demande si le nombre est supérieur et si il est inférieur ^^

Maintenant on va demander que si number est 1 il envoie un message "c'est 1!"; si c'est 2 un message "c'est deux" et si ce n'est pas un des deux, le programme envoie un message "chiffre inconnu", et pour cela on va mettre un "Else If":

If number=1 then
Msgbox("c'est 1!")
Else If number=2 then
Msgbox("c'est 2!")
Else
Msgbox("chiffre inconnu")
End If

Edit: j'ai oublié de mettre comment faire pour faire directement un test pour tester si quelque chose n'est pas, un genre d'"Else If" mais direct dans le "If":

If Not (number=0) then [je ne pense pas que les parenthèses sont obligatoire mais je les mets toujours]
MsgBox("Le chiffre n'est pas zéro!")
End If

<!-- Fin de l'edit :p -->


Il existe aussi la méthode du "Case Of" :

Select Case number
Case 1
Msgbox("c'est 1!")
Case 2
msgbox("c'est deux!")
Case Else
Msgbox("chiffre inconnu")
End Select

dans un case of on peu directement tester si la valeur et entre 2 nombre avec un to, exmple: si number est entre 3 et 5, il envoie un message "boum !":

Select Case number
Case 1
Msgbox("c'est 1!")
Case 2
msgbox("c'est deux!")
Case 3 to 5
msgbox("boum !")
Case Else
Msgbox("chiffre inconnu")
End Select

EDIT: j'ai oublié de vous dire les symboles :x

=  : égale à ...
>  : supérieur à ...
<  : inférieur à ...
>= : supérieur ou égale à...
<= : inférieur ou égale à...
<> : inférieur ou supérieur à...

Voilà, je pense avoir tout dis, j'ai même colorié mon code :D

Bonne programmation a tous!
Cordialement,
Mars073