Rem controllo con funzione
Rem EQV rende TRUE se valori uguali tra loro
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 :se valori diversi" & 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 negativi" & x * y)
Else
Lista.AddItem ("falso:se valori diversi " & 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 :se valori uguali" & x * y)
Else
Lista.AddItem ("falso:valori non uguali " & 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 :se valori uguali" & x * y)
Else
Lista.AddItem ("falso:se valori diversi " & x + y)
End If
End Sub
Public Function verifica(x As Integer, y As Integer)
If x > 0 Eqv y > 0 Then
verifica = True
Else
verifica = False
End If
End Function
