logicaxor

sintassi per funzioni logiche con visual basic su power point

XOR

Rem funzioni logiche
Rem controllo con funzione
Rem XOR rende TRUE se valori diversi, FALSE se uguali
Rem in questo esempio si richiede che x e y siano positivi
Rem come risultato per TRUE si esegue il prodotto dei due numeri
Rem come risultato per FALSE si esegue la somma dei due numeri

Private Sub CommandButton1_Click()
Dim x As Integer
Dim y As Integer
Dim q As String
q = "...."
x = 10
y = 20
Lista.AddItem (x & q & y)
If verifica(x, y) Then
Lista.AddItem ("vero se uno vero e uno falso " & x * y)
Else
Lista.AddItem ("falso se valori uguali" & x + y)
End If
End Sub

Private Sub CommandButton2_Click()
Dim x As Integer
Dim y As Integer
Dim q As String
q = "...."
x = -10
y = -20
Lista.AddItem (x & q & y)
If verifica(x, y) Then
Lista.AddItem ("vero se uno vero e uno falso" & x * y)
Else
Lista.AddItem ("falso se valori uguali " & x + y)
End If

End Sub
Private Sub CommandButton3_Click()
Dim x As Integer
Dim y As Integer
Dim q As String
q = "...."
x = -10
y = 20
Lista.AddItem (x & q & y)
If verifica(x, y) Then
Lista.AddItem ("vero :valori diversi" & x * y)
Else
Lista.AddItem ("falso se valori uguali " & x + y)
End If
End Sub

Private Sub CommandButton4_Click()
Dim x As Integer
Dim y As Integer
Dim q As String
q = "...."
x = 10
y = -20
Lista.AddItem (x & q & y)
If verifica(x, y) Then
Lista.AddItem ("vero se valori diversi" & x * y)
Else
Lista.AddItem ("falso se valoiri uguali " & x + y)
End If
End Sub

Public Function verifica(x As Integer, y As Integer)
If x > 0 Xor y > 0 Then
verifica = True
Else
verifica = False
End If
End Function

logicaxor.ppt