matematiche

esercitazione a livello didattico elementare con visual basic su powerpoint
sintassi per principali funzioni matematiche

Private Sub CommandButton1_Click()
'(variabili numeriche e funzioni )
Dim x As Integer
Dim gradi As Integer
Dim radianti As Double
x = 100
'(ABS(numero) fornisce assoluto del numero)
Lista.AddItem (Abs(-10))
'(sgn(numero) fornisce segno del numero +1,0,-1)
Lista.AddItem (Sgn(-5))
'(int(numero) fornisce parte intera del numero)
Lista.AddItem (Int(35.46))
'(Cint(numero) arrotonda a intero successivo)
Lista.AddItem (CInt(45.67))
'(Csng(numero) arrotonda con precisione singola)
Lista.AddItem (CSng(123.4567))
'(Cdbl(numero) fornisce numero i doppia precisione)
Lista.AddItem (CDbl(454.67))
'(Fix(numero) fornisce parte intera del numero)
Lista.AddItem (Fix(58.75))
'(Hex$(numero) fornisce valore esadecimale del numero)
Lista.AddItem (Hex$(32))
'(Oct$(numero) cambia da decimale a ottale)
Lista.AddItem (Oct$(18))
'(RND() fornisce numero casuale inferiore a 1)
Lista.AddItem (Rnd())
Lista.AddItem (Int(Rnd() * 100 + 1)) '(intero casuale tra 1 e 100)
Lista.AddItem (Int(Rnd() * 6 + 1)) '(intero casuale tra 1 e 6)
Lista.AddItem (Int(Rnd() * 101)) '(intero casuale tra 0 e 100)
'(sqr(numero) fornisce radice quadrata numero)
Lista.AddItem (Sqr(100))
'(Log(numero) fornisce logaritmo naturale del numero)
Lista.AddItem (Log(100))
'(Log(numero)/Log(10) fornisce logaritmo decimale del numero)
Lista.AddItem (Log(100) / Log(10))
'(Exp(numero) fornisce esponenziale del numero)
Lista.AddItem (Exp(5))
'(x^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)
'(x+y = somma numeri x-y = differenza numeri)
Lista.AddItem (100 + 50)
Lista.AddItem (100 - 50)
'(x*y = prodotto numeri x/y = quoziente numeri)
Lista.AddItem (100 * 2)
Lista.AddItem (100 / 5)
'(x mod y fornisce resto divisione)
Lista.AddItem (12 Mod 5)
'(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 (Sin(radianti))
Lista.AddItem (Cos(radianti))
Lista.AddItem (Tan(radianti))
Lista.AddItem (Atn(radianti))

End Sub

vedi matematiche.ppt