OR logica

esercitazione a livello didattico con visual basic su powerpoint
sintassi variabili tipo booleano
OR

Rem funzioni logiche
Rem vero OR vero TRUE se almeno una condizione vera

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)
Lista.AddItem (" vero se almeno una condizione vera")
Lista.AddItem (" se segni discordi vero , se concordi falso")
If verificaOR(x, y) Then
Lista.AddItem ("vero " & 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 verificaOR(x, y) Then
Lista.AddItem ("vero " & x * y)
Else
Lista.AddItem ("falso " & x + y)
End If
End Sub



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

Private Sub UserForm_Click()

End Sub

vedi orlogica.ppt