logicaand
sintassi per funzioni logiche con visual basic su power point
AND
Rem funzioni logiche
Rem controllo con funzione
Rem vero And vero TRUE entrambe condizioni vere
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 entrambi positivi " & x * y)
Else
Lista.AddItem ("falso " & 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 " & x * y)
Else
Lista.AddItem ("falso non entrambi positivi " & 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 " & x * y)
Else
Lista.AddItem ("falso non entrambi positivi " & 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 " & x * y)
Else
Lista.AddItem ("falso non entrambi positivi " & x +
y)
End If
End Sub
Public Function verifica(x As Integer, y As Integer)
If x > 0 And y > 0 Then
verifica = True
Else
verifica = False
End If
End Function