Fonction Or ou And avec plusieures valeur

Résolu
stef.roos Messages postés 73 Date d'inscription   Statut Membre Dernière intervention   -  
stef.roos Messages postés 73 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je débute en programmation vb6 et je voudrais écrire si test = jaune ou bleu ou rouge alors ...

J'écris donc d'habitude :

If test = "jaune" or test = "bleu" ou test = "rouge" then

.
.
.

End if

Mais n'est-il pas possible d'écrire plus simple, du genre :

If test = "Jaune" or "bleu" or "rouge" then

.
.
.

End if

Merci

A voir également:

3 réponses

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
bonlour,

je crains bien que non

bonne suite
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
bonjour

pour le "OU" c'est possible mais uniquement justifié si tu as beaucoup d'options (il y a d'autres méthodes...)

Sub sans_Ou() 
liste = Array("bleu", "rouge", "vert", "noir", "blanc", "jaune", "rose", "marron", "indigo", "orange", "papa", "maman") 
test = "grrr!!!" 
Var = Application.Match(test, liste, 0) 
If IsError(Var) Then 
MsgBox "perdu" 
Else 
MsgBox "gagné" 
End If 
End Sub


modif de 17:05: modifié procédure

Michel
0
loupius Messages postés 697 Date d'inscription   Statut Membre Dernière intervention   148
 
Ce peut-être possible si on associe une couleur à un bit.
Je donne un exemple en 'C':
#define BLEU  0x01
#define BLANC 0x02
#define ROUGE 0x04

int main (int argc, char* argv[])
{
  int test;

  scanf("%d", &test);
  if (test & (BLEU | BLANC | ROUGE))
    printf("La couleur 'test = %d' contient et/ou du  bleu
            et/ou du blanc et/ou du rouge\n", test);

  return EXIT_SUCCESS;
}
Ce n'est qu'un exemple.
Bonne continuation.
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
heuuu....Stef.roos demande en Vb6...
:-)
0
loupius Messages postés 697 Date d'inscription   Statut Membre Dernière intervention   148
 
Le temps passe et j'ai oublié ce langage; toutefois l'idée reste la même. A lui ou à d'autres de l'adapter dans son langage de prédilection.
Bonne soirée.
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
avec ça, stef.ros va pouvoir démarrer en trombe en programmation !!!
:-)
0
stef.roos Messages postés 73 Date d'inscription   Statut Membre Dernière intervention   1
 
Merci à tous pour vos réponse, je vais en rester à ma bonne vieille méthode car je n'ai pas beaucoup de valeur possible... mais je note bien vos solution pour plus tard...
0