funzione logica IMP 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/implogica.htm
http://digilander.libero.it/francescovise/visualpre/implogica.ppt
http://digilander.libero.it/francescovise/visualpre/implogica.GIF
esercitazione a livello didattico
elementare con visual basic su powerpoint
sintassi con variabili tipo logico
IMP sempre vero , falso se primo vero e secondo falso

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

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...