Fonction Or ou And avec plusieures valeur

Résolu
stef.roos Messages postés 90 Statut Membre -  
stef.roos Messages postés 90 Statut Membre -
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

3 réponses

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    bonlour,

    je crains bien que non

    bonne suite
    0
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
  3. loupius Messages postés 789 Statut Membre 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
    1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      heuuu....Stef.roos demande en Vb6...
      :-)
      0
    2. loupius Messages postés 789 Statut Membre 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
    3. ccm81 Messages postés 11033 Statut Membre 2 434
       
      avec ça, stef.ros va pouvoir démarrer en trombe en programmation !!!
      :-)
      0
    4. stef.roos Messages postés 90 Statut Membre 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