logicaimp

sintassi per funzioni logiche con visual basic su power point
IMP

Rem funzioni logiche
Rem controllo con funzione
Rem IMP rende sempre TRUE ; rende FALSE se primo = vero e secondo=falso
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 veri " & 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 :entrambi falsi" & 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 :primo falso e secondo 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
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 :primo vero e secondo falso " & x + y)
End If
End Sub

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

logicaimp.ppt