IF et GRID

Je ne comprends pas pourquoi ce code ne fonctionne pas

Code:

grid 1:width 1,500:grid_column 1,7
dim a$(7),col,n:label afi_E
a$(1)="E2":a$(2)="E4":a$(3)="E6"
gosub afi_E
END
'********************************
afi_E:
for col=1 to 7
  n=n+1
    if col<> 1 or col<>3 or col<>5 or col<>7
      grid_write 1,2,col,a$(n)
    else
      grid_write 1,2,col,"XXX"
    end_if
next col
return

Le but est d'afficher E2,E4,E6 dans les colonnes 2,4 et 6 du grid

Je ne vois pas ce qui cloche dans mon code.

A+

Problème de logique: ta condition est toujours vraie !

Essaye comme ceci:

Code:

grid 1:width 1,500:grid_column 1,7
dim a$(7),col,n:label afi_E
a$(1)="E2":a$(2)="E4":a$(3)="E6"
gosub afi_E
END
'********************************
afi_E:
for col=1 to 7
    if col= 2 or col= 4 or col= 6
      n=n+1
      grid_write 1,2,col,a$(n)
    else
      grid_write 1,2,col,"XXX"
    end_if
next col
return

Merci Klaus, mais j'avoue que j'ai, encore, un peu de mal à comprendre.

quant j'écris "if n<>1 alors fait ci" pour moi c'est pareil que d'écrire "if n=2 alors fait pareil"

Tu me dis que ma condition est toujours vraie, mais dans la boucle (for next) quand col=2 il devait y avoir l'affichage dans le grid, car col est <> de 1 ou 3 etc...

Il y a quelque chose qui m'échappe dans cette logique.

A+

Salut Jean-Claude, c'est un piège classique, le problème est dans le OU...
Tu écris:

Code:

IF col <> 1 OR col <> 3 etc.

Si tu donnes n'importe quelle valeur à col ça répondra toujours oui.
col est forcément TOUJOURS différent de 1 ou différent de 3, s'il est égal à l'un, il est forcément différent des autres
C'est à cause du OU justement
si col = 1, il est différent de 3
si col = 2, il est différent de 1 et différent de 3
si col = 3, il est différent de 1
donc une au moins des conditions OU est toujours remplie ! c'est le principe du OU, ils suffit qu'une seule des conditions soit remplie pour que ça réponde oui.

Salut
Essaie de faire des tests en ne mettant pas de boucle mais en donnant des valeurs directement, une fois avec 1 tu regarde ce que ça fait, puis une fois avec 2 tu regarde ce que ça fait.
Tu teste avec = et aussi avec <>.

Bonsoir,

Je viens de voir ce post et pourquoi ne pas utiliser fonction "even(v)" qui renvoie 1 si v est pair!
Ça donne ça:

Code:

grid 1:width 1,500:grid_column 1,7
dim a$(7),col,n:label afi_E
a$(1)="E2":a$(2)="E4":a$(3)="E6"
gosub afi_E
END
'********************************
afi_E:
for col=1 to 7
    if even(col)=1
      n=n+1
      grid_write 1,2,col,a$(n)
    else
      grid_write 1,2,col,"XXX"
    end_if
next col
return

Merci Bigono, mais JL35 me donne la logique que je ne pigeait pas

Citation :

donc une au moins des conditions OU est toujours remplie ! c'est le principe du OU, ils suffit qu'une seule des conditions soit remplie pour que ça réponde oui.

Maintenant je vois les limites du ou (OR).

Merci à tous

A+