gestione grandi potenze negative con VBA

esercitazione con visual basic su powerpoint
per sintassi e visualizzazione
con cifre grandi, decimali,
potenze del 10 positive e negative
esempio con dati codificati
e dati da inserire con tastiera

Rem esempio senza dichiarazione di variabili(automatico Variant)
Rem notazione numerica come potenza del 10
Rem esponente positivo e negativo
Rem notare equivalenza 1e3 ...10e2
Rem notare diversa notazione nella visualizzazione
Rem 0.000018......oppure (per cifre molto grandi)con 1,8E-15..
rem notare # per numeri inseriti usando
notazione potenziale positiva, non negativa

http://digilander.libero.it/francescovise/visualpre/visapre.htm
http://digilander.libero.it/francescovise/visualpre/decimali.htm
http://digilander.libero.it/francescovise/visualpre/decimali.ppt
http://digilander.libero.it/francescovise/visualpre/decimali1.GIF
http://digilander.libero.it/francescovise/visualpre/decimali2.GIF
http://digilander.libero.it/francescovise/visualpre/decimali3.GIF
http://digilander.libero.it/francescovise/visualpre/decimali4.GIF

funzione AND

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/andlogica.htm
http://digilander.libero.it/francescovise/visualpre/andlogica.ppt
http://digilander.libero.it/francescovise/visualpre/andlogica.GIF
esercitazione a livello didattico elementare
con visual basic su powerpoint
sintassi con variabili tipo logico
AND vero se entrambe condizioni sono verificate

esercitazione a livello didattico elementare con visual basic su powerpoint
sintassi con variabili tipo logico
AND vero se entrambe condizioni sono verificate

Rem funzioni logiche
Rem controllo con funzione
Rem vero And vero TRUE entrambe condizioni vere
Rem in questo esempio se x e y sono positivi

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 " & 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 " & x * y)
Else
Lista.AddItem ("falso non entrambi positivi " & x + y)
End If

End Sub


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