Discussion :

[Crazy_Gun]

Bonjour a tous !!
Voila, je suis confronté à un probléme, le voici :
dans mon programme Visual Basic, je doit tester à un moment si les variables a, b, c, d, e, f, g, h, et i (9 variables au total) ne sont pas égales deux à deux, si l'une d'entre elles est égales a n'importe qu'elle autre des variable (sauf elle même bien sur), alors, OK = 1 sinon, OK = 0
J'avai pensé à ceci :

if a <> b <> c <> d <> e <> g <> h <> i then OK=1 else OK = 0

mais ca ne marche pas, quelqu'un aurai une idée ??
Merci d'avance !

[méphistopheles]

deux solution:
où bien tu écris tes 36 possibilités, c'est pas trop long.
où bien tu stocke tes 9 variables dans une liste (que j'apelle malist) et tu met:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
public function isegal2a2 (liste() as integer, optional prov as integer) as boolean 
'revoie true si vrai, sinon false
dim i as integer
for i=0 to Ubound(liste,1)
   if i<>prov and liste(prov)=liste(i) then
     isegal2a2=true
     exit function
   end if
next i
if isegal2a2(liste,prov+1)=true then 
    isegal2a2=true
    exit function
end if
isegal2a2=false
end function

voilà une petite récursive pour n'importe quel nombre de chiffres

pour l'appeler:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
dim malist(8) as integer
malist(0)=a
malist(1)=b
.
.
.
malist(8)=i
 
if isegal2a2(malist)=true then msgbox "OK=1" else msgbox "ok=0"

(tu te débrouillera pour incrémenter ok tout seul ^^)

je crois que c'est complet.

salut

[AASI]

salut
si les valeurs attendues sont prévisible, comme par example a=1 b=2 c=3 d=4 e=5, tu pourrais en faire la somme, comme dans ce cas ci, si le total n'est pas 15, il y a problème.
sinon je crois que tu n'a guère de choix que de faire une longue ligne de comparaison en incluant toutes les combinaisons possible...
ce qui ressemblerais à..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If a<>b And a<>c And a<>d...

en continuant ensuite avec b<>c,d,e...
c<>d,e,f..
d<>e,f,g..
jusqu'à avoir couvert toutes les combinaisons.

il n'y en aura pas de facile

[méphistopheles]

Non, la preuve
sinon, c'est vrai que 36 possibilité, c'est pas la mort


enfin vu que je t'ai livré une fonction toute prète^^, autemps l'utiliser (embalé, c'est pesé)

salut

[AASI]

en effet c'est une jolie fonction méphistopheles
que je vais de ce pas te 'volé' par un copier coller pour usage future si le besoin se présente

ne m'en veux pas trop je vole pas souvent

[méphistopheles]

-"Non non, pas de problème."
//me Sort mon fusil
-"Attention à ce qu'on ne te coupe pas les aile, tu pourrais tomber!!"

salut

[ar_men]

je me ferais bien un "select case" sur les n variables
si égal à 1 c que la valeur est unique,
sinon, elle des des doublons

[ar_men]

j'ai plus de licence donc je fais dans le word pad ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
a = valeur a
b = valeur b
c = valeur c
....
 
trouvé = 0
trouvé$ = ""
 
i ma valeur de test
 
select case i
 
	case a = i
		trouvé = trouvé + 1
		trouvé$ = trouvé$ + " a "
	case b = i
		trouvé = trouvé + 1
		trouvé$ = trouvé$ + " b "
	case c = i
		trouvé = trouvé + 1
		trouvé$ = trouvé$ + " c "
 
...
 
	case i = i
		trouvé = trouvé + 1
		trouvé$ = trouvé$ + " i "
 
end select
 
si trouvé > 1 
print "j'ai trouvé chez :" trouvé$

si ça peut t'aider ...

[random]

une autre solution et qui resterait applicable avec un grand nombre
de variables est de placer les valeurs dans un vecteur
array(n)
de trier le vecteur
de le parcourir en testant
monvect(n)=mnvecteur(n+1)
on peut aussi le faire avec une liste en y ajoutant les valeurs au fur et à mesure de la lecture à leur place
en placant les valeurs dans un recordset en sgbd en grupant un group by et un count la réponse est immédiate count>=2

[méphistopheles]

Helo crasygun, t'est là?
3 solutions t'onts été proposées, ça te va?

(je vais signer la pétition de ouskel anti-non-répondeur moi).


salut