logicanot

sintassi per funzioni logiche con visual basic su power point

NOT

Rem funzioni logiche
Rem controllo con funzione
Rem NOT false rende True...NOT true rende FALSE
Rem in questo esempio si richiede che sia x>0
Rem come risultato per TRUE si esegue quadrato di x
Rem come risultato per FALSE si stampa solo x

Private Sub CommandButton1_Click()
Dim x As Integer
Dim y As Integer
Dim q As String
q = "...."
x = 10
Lista.AddItem (x)
If verificanot(x) Then
Lista.AddItem ("vero " & x * x)
Else
Lista.AddItem ("falso " & x)
End If
End Sub

Private Sub CommandButton2_Click()
Dim x As Integer
Dim y As Integer
Dim q As String
q = "...."
x = -10
Lista.AddItem (x)
If verificanot(x) Then
Lista.AddItem ("vero " & x * x)
Else
Lista.AddItem ("falso " & x)
End If

End Sub



Public Function verificanot(x As Integer)
If Not x < 0 Then
verificanot = True
Else
verificanot = False
End If
End Function

logicanot.ppt