funzione logica XOR con vba

esercitazioni a livello didattico elementare per descrivere
e applicare sintassi varia con visual basic su powerpoint
descrizione, immagini, animazione presentazione.ppt
codice da copiare e incollare su form con oggetti creatoda utente
http://digilander.libero.it/francescovise/visualpre/visapre.htm
http://digilander.libero.it/francescovise/visualpre/xorlogica.htm
http://digilander.libero.it/francescovise/visualpre/xorlogica.ppt
http://digilander.libero.it/francescovise/visualpre/xorlogica.GIF
esercitazione a livello didattico
elementare con visual basic su powerpoint
sintassi con variabili tipo logico
XOR falso se entrambi valori sono veri o falsi,vero se uno vero
e uno falso

esercitazione a livello
didattico elementare con visual basic su powerpoint
sintassi con variabili tipo logico
XOR

Rem funzioni logiche

vero Xor vero TRUE se una vera e una falsa

Private Sub CommandButton1_Click()
Dim x As Integer
Dim y As Integer
x = -10
y = 20
Lista.AddItem ("la funzione restituisce Falso se sono
entrambi >0 o <0")
Lista.AddItem ("restituisce Vero se uno >0 e uno
<0")
If verificaXOR(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
x = 10
y = 20
If verificaXOR(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
If verificaXOR(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
If verificaXOR(x, y) Then
Lista.AddItem ("vero " & x * y)
Else
Lista.AddItem ("falso " & x + y)
End If
End Sub
Public Function verificaXOR(x As Integer, y As Integer)
Lista.AddItem ("——————————–")
Lista.AddItem ("x=" & x & " y=" &
y)
If x > 0 And y > 0 Then
verificaXOR = False
Else
If x < 0 And y < 0 Then
verificaXOR = False
Else
verificaXOR = True
End If
End If
End Function

Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. Contrassegna il permalink.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...