matefunzioni

esci con testvbax.htm

variabili e funzioni matematiche

matefunzioni.ppt
sintassi funzioni matematiche e diverso uso di variabili numeriche
(integer,single, currency, double, variant e funzioni CSng, CDbl)

Option Explicit

Private Sub CommandButton1_Click()
'(variabili numeriche e funzioni )
Dim x As Integer
Dim gradi As Integer
Dim radianti As Single
x = 100

Lista.AddItem ("(ABS(numero) (Abs(-10))fornisce assoluto del numero")
Lista.AddItem (Abs(-10))
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("sgn(numero) (Sgn(-5)fornisce segno del numero +1,0,-1")
Lista.AddItem (Sgn(-5))
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("sqr(numero) (Sqr(100)fornisce radice quadrata numero")
Lista.AddItem (Sqr(100))
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("Log(numero) Csng((Log(100))) fornisce logaritmo naturale del numero")
Lista.AddItem (CSng(Log(100)))
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("Log(numero)/Log(10) (Log(100) / Log(10))fornisce logaritmo decimale del numero")
Lista.AddItem (Log(100) / Log(10))
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("Exp(numero) CSng((Exp(5))) fornisce esponenziale del numero")
Lista.AddItem (CSng(Exp(5)))
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("x^2 (10 ^ 2) (10 ^ 3) (2 ^ 4) (12.5 ^ 2) fornisce quadrato del numero o altra potenza")
Lista.AddItem (10 ^ 2)
Lista.AddItem (10 ^ 3)
Lista.AddItem (2 ^ 4)
Lista.AddItem (12.5 ^ 2)
Lista.AddItem ("-*********************************************************************")
Lista.AddItem ("x+y = (100 + 50) somma numeri x-y = (100 - 50 differenza numeri")
Lista.AddItem (100 + 50)
Lista.AddItem (100 - 50)
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("x*y = (100 * 2)prodotto numeri x/y = (100 / 5)quoziente numeri")
Lista.AddItem (100 * 2)
Lista.AddItem (100 / 5)
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem (" mod y (12 Mod 5)fornisce resto divisione")
Lista.AddItem (12 Mod 5)
Lista.AddItem ("-***********************************************************************")
Lista.AddItem ("(int(numero) (Int(35.46))fornisce parte intera del numero")
Lista.AddItem (Int(35.46))
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("(Cint(numero) (CInt(35.66))arrotonda a intero successivo")
Lista.AddItem (CInt(35.66))
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("(Fix(numero) (Fix(35.46))fornisce parte intera del numero")
Lista.AddItem (Fix(35.46))
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("(CSng(numero) (CSng(123.45678945))arrotonda con precisione singola")
Lista.AddItem (CSng(123.45678945))
Rem Lista.AddItem ("(CDbl(numero) (CDbl(123.45678945))arrotonda con precisione doppia")
Rem Lista.AddItem (CDbl(123.4567845))
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("(numero-int(numero)) Csng(123.567895678 - int(123.567895678))) parte decimale del numero")
Lista.AddItem (CSng(123.567895678 - Int(123.567895678)))
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("(Hex$(numero) Hex(220)fornisce valore esadecimale del numero")
Lista.AddItem (Hex$(220))
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("(Oct$(numero) (Oct$(172))cambia da decimale a ottale")
Lista.AddItem (Oct$(172))
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("(Rnd()) )fornisce numero casuale inferiore a 1")
Lista.AddItem (Rnd())
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("(int(Rnd()*100+1 intero casuale tra 1 e 100")
Lista.AddItem (Int(Rnd() * 100 + 1))
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("(int(Rnd()*6+1 intero casuale tra 1 e 6")
Lista.AddItem (Int(Rnd() * 6 + 1))
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("funzioni trigonometriche di angoli in radianti")
'(sin(radianti) cos(radianti) tan(radianti) atn(radianti))
'(fornisce seno,coseno,tangente,arcot angolo fornito in radianti)
gradi = 30
radianti = gradi * 3.14 / 180
Lista.AddItem (gradi & " angolo in gradi ")
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem (radianti & " angolo in radianti gradi*3.14/180")
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem (" seno = CSng(sin(radianti)) " & CSng(Sin(radianti)))
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("coseno = CSng(cos(radianti)) " & CSng(Cos(radianti)))
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("tangente = CSng(tan(radianti)) " & CSng(Tan(radianti)))
Lista.AddItem ("----------------------------------------------------------------------")
Lista.AddItem ("arcotangente = CSng(atn(radianfi)) " & CSng(Atn(radianti)))
Lista.AddItem ("----------------------------------------------------------------------")

End Sub


Private Sub CommandButton2_Click()
Rem gestione decimali
'usando single , currency, double, CSng, CDbl
lista2.AddItem ("confrontare effetto su numero decimali")
lista2.AddItem ("dovuto a Single, Currency , CSng")
lista2.AddItem ("dovuto a Double, CDbl, variant")
lista2.AddItem ("+++++++++++++++++++++++++++++++++")
Dim a As Single
Dim b As Currency
Dim c As Double
Dim d As Double
Dim g As Single
Dim k As Currency
Dim h As Double
Dim x, y As Integer
a = 123.123456789
b = 123.123456789
c = 123.123456789
lista2.AddItem (123.123456789 & " variant ")
lista2.AddItem (a & " single ")
lista2.AddItem (b & " currency ")
lista2.AddItem (c & " double")
lista2.AddItem ("................")
d = 123.123456789
lista2.AddItem (CSng(d) & " CSng ")
lista2.AddItem (CDbl(d) & " CDbl ")
lista2.AddItem ("................")
x = 123
y = 7
lista2.AddItem (x / y & " variant ")
lista2.AddItem (CSng(x / y) & " CSng")
lista2.AddItem (CDbl(x / y) & " CDbl")
lista2.AddItem ("................")
g = x / y
k = x / y
h = x / y
lista2.AddItem (g & " single")
lista2.AddItem (k & " currency")
lista2.AddItem (h & " double")
lista2.AddItem ("................")
End Sub

Private Sub UserForm_Click()

End Sub