XOR

Da Gambas-it.org - Wikipedia.

L'operatore Xor dà un risultato vero, se soltanto uno dei termini di contronto è "vero".


Mostriamo un esempio pratico:

Public Sub Main()
 
 Dim a, b As Byte
 
  a = 1
  b = 0
   
  If (a = 0) Xor (b = 1) Then Print "1"
  If (a = 0) Xor (b = 0) Then Print "2"
  If (a = 1) Xor (b = 1) Then Print "3"
  If (a = 1) Xor (b = 0) Then Print "4"
  
End

Come si potrà notare, andrano a buon fine, restituendo il valore logico alto (1), soltanto il 2° ed il 3° test logico, poiché in entrambi i casi solo una variabile è vera.