Rem funzioni logiche
Rem vero NOT vero TRUE se entrambe condizioni vere
Private Sub CommandButton1_Click()
Dim x As Integer
Dim y As Integer
Dim q As String
q = "...."
x = 10
y = 20
Lista.AddItem ("risulta vero se entrambe condizioni non false")
Lista.AddItem ("se X > 0 e Y non minore di 0")
Lista.AddItem (x & q & y)
If verificaNOT(x, y) Then
Lista.AddItem ("vero :esegui prodotto:" & x * y)
Else
Lista.AddItem ("falso :esegui somma:" & 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 verificaNOT(x, y) Then
Lista.AddItem ("vero :esegui prodotto:" & x * y)
Else
Lista.AddItem ("falso :esegui somma:" & x + y)
End If
End Sub
Public Function verificaNOT(x As Integer, y As Integer)
If x > 0 And Not y < 0 Then
verificaNOT = True
Else
verificaNOT = False
End If
End Function
