pour AND:
Code : Tout sélectionner
Il faut réagir en tant que multiplication
C'est à dire que 0 AND 1 donne 0 car :
0 x 0 = 0
1 x 0 = 0
0 x 1 = 0
1 x 1 = 1
Code : Tout sélectionner
Ici on va faire une addition, mais attention
1 OR 1 = 1, on travaille sur des bits (0 ou 1) donc il y aura
toujours un résultat égal à 0 ou 1 :
0 + 0 = 0
1 + 0 = 1
0 + 1 = 1
1 + 1 = 1 (et non, pas 2 ;)
Code : Tout sélectionner
C'est une soustraction qui est appliquée:
0 - 0 = 0
0 - 1 = 1
1 - 0 = 1
1 - 1 = 0
Code : Tout sélectionner
For nombre = 0 To 18
If nombre & 1 ;verification du bit 0
;Nombre impair
Debug Str(nombre) + " est impair"
Else
;Nombre pair
Debug Str(nombre) + " est pair"
EndIf
Next