xor logica

esercitazione a livello didattico elementare con visual basic su powerpoint
sintassi con variabili tipo logico
XOR

Rem funzioni logiche

vero Xor vero TRUE se una vera e una falsa

Private Sub CommandButton1_Click()
Dim x As Integer
Dim y As Integer
x = -10
y = 20
Lista.AddItem ("la funzione restituisce Falso se sono entrambi >0 o <0")
Lista.AddItem ("restituisce Vero se uno >0 e uno <0")
If verificaXOR(x, y) Then
Lista.AddItem ("vero " & x * y)
Else
Lista.AddItem ("falso " & x + y)
End If
End Sub
Private Sub CommandButton2_Click()
Dim x As Integer
Dim y As Integer
x = 10
y = 20
If verificaXOR(x, y) Then
Lista.AddItem ("vero " & x * y)
Else
Lista.AddItem ("falso " & x + y)
End If
End Sub

Private Sub CommandButton3_Click()
Dim x As Integer
Dim y As Integer
x = -10
y = -20
If verificaXOR(x, y) Then
Lista.AddItem ("vero " & x * y)
Else
Lista.AddItem ("falso " & x + y)
End If
End Sub

Private Sub CommandButton4_Click()
Dim x As Integer
Dim y As Integer
x = 10
y = -20
If verificaXOR(x, y) Then
Lista.AddItem ("vero " & x * y)
Else
Lista.AddItem ("falso " & x + y)
End If
End Sub
Public Function verificaXOR(x As Integer, y As Integer)
Lista.AddItem ("--------------------------------")
Lista.AddItem ("x=" & x & " y=" & y)
If x > 0 And y > 0 Then
verificaXOR = False
Else
If x < 0 And y < 0 Then
verificaXOR = False
Else
verificaXOR = True
End If
End If
End Function

vedi xorlogica.ppt