IMP logica
esercitazione didattica con visual basic su powerpoint
funzione IMP

Private Sub CommandButton1_Click()
Dim x As Integer
Dim y As Integer
x = 10
y = 20
Lista.AddItem ("verifica con funzione :If (x > 0 Imp y > 0) ")
Lista.AddItem ("sempre vero: falso solo se primo vero e secondo falso")
Lista.AddItem ("vero , vero > vero")
Lista.AddItem ("falso,falso > vero")
Lista.AddItem ("falso,vero > vero")
Lista.AddItem ("vero,falso > falso")
Lista.AddItem ("------------------------")
Lista.AddItem ("vero perchè entrambi veri")
If verificaIMP(x, y) Then
Lista.AddItem ("vero " & x * y)
Else
Lista.AddItem ("falso " & x + y)
End If
Lista.AddItem ("----------------------")
End Sub

Private Sub CommandButton2_Click()
Dim x As Integer
Dim y As Integer
x = -10
y = -20
Lista.AddItem ("vero perchè entrambi falsi")
If verificaIMP(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
Lista.AddItem ("vero perchè primo falso e secondo vero")
If verificaIMP(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
Lista.AddItem ("falso perchè primo vero e secondo falso")
If verificaIMP(x, y) Then
Lista.AddItem ("vero " & x * y)
Else
Lista.AddItem ("falso " & x + y)
End If
End Sub

Public Function verificaIMP(x As Integer, y As Integer)
Lista.AddItem ("----------------------")
Lista.AddItem ("x=" & x & " Y= " & y)
If (x > 0 Imp y > 0) Then
verificaIMP = True
Else
verificaIMP = False
End If
End Function

vedi implogica.ppt