logaritmo
esci con testvba.htm
funzione logaritmo ed
esponenziale
logaritmo.ppt
Private Sub CommandButton1_Click()
Rem logaritmo
ListBox1.Visible = True
ListBox1.AddItem ("logaritmo naturale : log(x) ")
ListBox1.AddItem ("logaritmo decimale : log(x)/log(10)
")
ListBox1.AddItem
("----------------------------------------")
ListBox1.AddItem ("x = 100 ")
x = 100
naturale = Log(x)
decimale = Log(x) / Log(10)
ListBox1.AddItem ("logaritmo naturale di " & x
& " = " & naturale)
ListBox1.AddItem ("logaritmo decimale di " & x
& " = " & decimale)
ListBox1.AddItem
("---------------------------------------------")
ListBox1.AddItem ("x = 1000 ")
x = 1000
naturale = Log(x)
decimale = Log(x) / Log(10)
ListBox1.AddItem ("logaritmo naturale di " & x
& " = " & naturale)
ListBox1.AddItem ("logaritmo decimale di " & x
& " = " & decimale)
ListBox1.AddItem
("---------------------------------------------")
ListBox1.AddItem ("x = 500 ")
x = 500
naturale = Log(x)
decimale = Log(x) / Log(10)
ListBox1.AddItem ("logaritmo naturale di " & x
& " = " & naturale)
ListBox1.AddItem ("logaritmo decimale di " & x
& " = " & decimale)
ListBox1.AddItem
("---------------------------------------------")
ListBox1.AddItem ("x = 10^4 ")
x = 10 ^ 4
naturale = Log(x)
decimale = Log(x) / Log(10)
ListBox1.AddItem ("logaritmo naturale di " & x
& " = " & naturale)
ListBox1.AddItem ("logaritmo decimale di " & x
& " = " & decimale)
ListBox1.AddItem
("---------------------------------------------")
ListBox1.AddItem ("x = 10^(-2) ")
x = 10 ^ (-2)
naturale = Log(x)
decimale = Log(x) / Log(10)
ListBox1.AddItem ("logaritmo naturale di " & x
& " = " & naturale)
ListBox1.AddItem ("logaritmo decimale di " & x
& " = " & decimale)
ListBox1.AddItem
("---------------------------------------------")
ListBox1.AddItem ("x = -100) ")
x = -100
If x <= 0 Then
ListBox1.AddItem ("il numero deve essere positivo, <>
0 ")
End If
End Sub
Private Sub CommandButton10_Click()
ListBox1.Visible = False
End Sub
Private Sub CommandButton11_Click()
Rem tabella trigonometrica neperiana
ListBox3.Visible = True
For x = 1 To 100
neperiano = Left((Log(x)), 5)
ListBox3.AddItem ("numero = " & x & "
logaritmo neperiano= " & neperiano)
Next x
End Sub
Private Sub CommandButton12_Click()
Rem tabella logaritmica decimale
ListBox2.Visible = True
For x = 1 To 100
decimale = Left((Log(x) / Log(10)), 5)
ListBox2.AddItem ("numero = " & x & "
logaritmo decimale= " & decimale)
Next x
End Sub
Private Sub CommandButton13_Click()
ListBox2.Visible = False
ListBox3.Visible = False
End Sub
Private Sub CommandButton14_Click()
logaritmi4.Visible = True
End Sub
Private Sub CommandButton15_Click()
Rem tabelle naturali e decimali insieme
ListBox1.Visible = True
ListBox1.AddItem ("N log(e) log(10) log(6) exp(x) 10^x
6^x")
ListBox1.AddItem
("------------------------------------------")
For x = 1 To 100
naturale = Left(Log(x), 6)
decimale = Left((Log(x) / Log(10)), 6)
base6 = Left((Log(x) / Log(6)), 6)
nexp = Exp(x)
dexp = 10 ^ x
bexp = 6 ^ x
ListBox1.AddItem (x & "***" & naturale &
"***" & decimale & "***" & base6
& "*******" & nexp & "***" &
dexp & "***" & bexp)
Next x
End Sub
Private Sub CommandButton2_Click()
Rem antilogaritmo
ListBox1.Visible = True
ListBox1.AddItem (" noto il logaritmo naturale si ricava il
numero")
ListBox1.AddItem (" numero = exp(naturale) exp(4.6) ")
ListBox1.AddItem
("******************************************")
x = 100
naturale = Log(x)
numero = Exp(naturale)
ListBox1.AddItem ("numero = " & x & "
logaritmo naturale = " & naturale)
ListBox1.AddItem ("numero = exp(naturale) :" &
Exp(naturale))
ListBox1.AddItem
("--------------------------------------------------")
ListBox1.AddItem (" noto il logaritmo decimale si ricava il
numero")
ListBox1.AddItem (" numero = 10^(naturale) 10^2
round(10^(2)) ")
ListBox1.AddItem
("******************************************")
x = 100
decimale = Log(x) / Log(10)
numero = 10 ^ (decimale)
numero1 = Round(numero)
ListBox1.AddItem ("numero = " & x & "
logaritmo decimale = " & decimale)
ListBox1.AddItem ("numero = 10^(decimale) :" & 10 ^
(decimale) & " arrotondato= " & numero1)
ListBox1.AddItem
("--------------------------------------------------")
End Sub
Private Sub CommandButton3_Click()
ListBox1.Clear
ListBox2.Clear
End Sub
Private Sub CommandButton4_Click()
Rem base diversa da exp
ListBox1.Visible = True
ListBox1.AddItem (" 2^3 = 8 >>> 3 = log(2) 8
")
base2 = Log(8) / Log(2)
ListBox1.AddItem ("log(2) 8 = " & base2)
ListBox1.AddItem ("--------------------------")
ListBox1.AddItem (" 7^2 = 49 >>> 2 = log(7) 49
")
base7 = Log(49) / Log(7)
ListBox1.AddItem ("log(7) 49 = " & base7)
ListBox1.AddItem ("--------------------------")
ListBox1.AddItem (" 8^(1/3) = 2 >>> 1/3 (0.3333) =
log(8) 2 ")
base8 = Log(2) / Log(8)
ListBox1.AddItem ("log(8) 2 = " & base8)
ListBox1.AddItem ("--------------------------")
ListBox1.AddItem (" 3^(-4) = 1/3^4 >>> -4 = log(3)
1/3^4 ")
base8 = Log(1 / 3 ^ 4) / Log(3)
ListBox1.AddItem ("log(3) 1/3^4 = " & base8)
ListBox1.AddItem ("--------------------------")
ListBox1.AddItem (" (1/6)^(-2) = 36 >>> -2 =
log(1/6) 36 ")
base6 = Log(36) / Log(1 / 6)
ListBox1.AddItem ("log(1/6) 36 = " & base6)
ListBox1.AddItem ("--------------------------")
ListBox1.AddItem (" 9^0 = 1 >>> 0 = log(9)1 ")
base0 = Log(1) / Log(9)
ListBox1.AddItem ("log(9) 9 = " & base0)
ListBox1.AddItem ("--------------------------")
ListBox1.AddItem (" 10^0 = 1 >>> 0 = log(10)1
")
base0 = Log(1) / Log(10)
ListBox1.AddItem ("log(10) 1 = " & base0)
ListBox1.AddItem ("--------------------------")
ListBox1.AddItem (" 10^1 = 10 >>> 1 = log(10)10
")
base10 = Log(10) / Log(10)
ListBox1.AddItem ("log(10) 10 = " & base10)
ListBox1.AddItem ("--------------------------")
ListBox1.AddItem (" 2^1 = 2 >>> 1 = log(2) 2
")
basex = Log(2) / Log(2)
ListBox1.AddItem ("log(2) 2 = " & basex)
ListBox1.AddItem ("--------------------------")
End Sub
Private Sub CommandButton5_Click()
Rem introduzione a logaritmo
ListBox1.Visible = True
ListBox1.AddItem ("10^1 = 10 : la base 10 elevata a
esponente 1 fornisce numero 10 :la base")
ListBox1.AddItem ("10^2 = 100 : la base 10 elevata a
esponente 2 fornisce numero 100")
ListBox1.AddItem ("10^3 = 1000 : la base 10 elevata a
esponente 3 fornisce numero 1000")
ListBox1.AddItem ("10^4 = 10000 : la base 10 elevata a
esponente 4 fornisce numero 10000")
ListBox1.AddItem ("10^5 = 100000 : la base 10 elevata a
esponente 5 fornisce numero 100000")
ListBox1.AddItem ("10^6 = 1000000 : la base 10 elevata a
esponente 6 fornisce numero 100000")
ListBox1.AddItem
("-----------------------------------------------------------------------------")
ListBox1.AddItem ("l'esponente 1,2,3,4,5,6 da assegnare alla
base 10 per ottenere i vari numeri ")
ListBox1.AddItem ("si definisce il logaritmo del numero in
base 10 : k = Log(10)N 2 = Log(10) 100 ")
ListBox1.AddItem ("cioè l'esponente da assegnare alla base
indicata per ottenere un determinato numero ")
ListBox1.AddItem
("--------------------------------------------------------------------------------")
ListBox1.AddItem ("2^1 = 2 : la base 2 elevata a esponente 1
fornisce numero 2 :la base")
ListBox1.AddItem ("2^2 = 4 : la base 2 elevata a esponente 2
fornisce numero 4")
ListBox1.AddItem ("2^3 = 8 : la base 2 elevata a esponente 3
fornisce numero 8")
ListBox1.AddItem ("2^4 = 16 : la base 2 elevata a esponente
4 fornisce numero 16")
ListBox1.AddItem ("2^5 = 32 : la base 2 elevata a esponente
5 fornisce numero 32")
ListBox1.AddItem ("2^6 = 64 : la base 2 elevata a esponente
6 fornisce numero 64")
ListBox1.AddItem
("-----------------------------------------------------------------------------")
ListBox1.AddItem ("l'esponente 1,2,3,4,5,6 da assegnare alla
base 2 per ottenere i vari numeri ")
ListBox1.AddItem ("si definisce il logaritmo del numero in
base 2 : k = Log(2)N 2 = Log(2) 4 ")
ListBox1.AddItem ("cioè l'esponente da assegnare alla base
indicata per ottenere un determinato numero ")
ListBox1.AddItem
("--------------------------------------------------------------------------------")
ListBox1.AddItem ("3^1 = 3 : la base 3 elevata a esponente 1
fornisce numero 3 :la base")
ListBox1.AddItem ("3^2 = 9 : la base 3 elevata a esponente 2
fornisce numero 9")
ListBox1.AddItem ("3^3 = 27 : la base 3 elevata a esponente
3 fornisce numero 27")
ListBox1.AddItem ("3^4 = 81 : la base 3 elevata a esponente
4 fornisce numero 81")
ListBox1.AddItem ("3^5 = 243 : la base 3 elevata a esponente
5 fornisce numero 243")
ListBox1.AddItem ("3^6 = 729 : la base 3 elevata a esponente
6 fornisce numero 729")
ListBox1.AddItem
("-----------------------------------------------------------------------------")
ListBox1.AddItem ("l'esponente 1,2,3,4,5,6 da assegnare alla
base 3 per ottenere i vari numeri ")
ListBox1.AddItem ("si definisce il logaritmo del numero in
base 3 : k = Log(3)N 2 = Log(3) 9 ")
ListBox1.AddItem ("cioè l'esponente da assegnare alla base
indicata per ottenere un determinato numero ")
ListBox1.AddItem
("--------------------------------------------------------------------------------")
ListBox1.AddItem ("quale sarà l'esponente da assegnate alla
base 10 per ottenere 500 ? ")
ListBox1.AddItem ("cioè il logaritmo in base 10 di 500 : x
= Log(10) 500 ? ")
ListBox1.AddItem ("10^2 = 100 : la base 10 elevata a
esponente 2 fornisce numero 100")
ListBox1.AddItem ("10^x = 500 : la base 10 elevata a
esponente x fornisce numero 500")
ListBox1.AddItem ("10^3 = 1000 : la base 10 elevata a
esponente 3 fornisce numero 1000")
ListBox1.AddItem ("sembra dover essere compreso tra 2 e 3
")
ListBox1.AddItem ("la funzione matematica fornita dal
calcolatore (o le tabelle trigonometriche) ")
ListBox1.AddItem ("fornisce il valore richiesto :
2,69897")
ListBox1.AddItem ("verifica :10^(2.69897) = 500 ")
ListBox1.AddItem
("-------------------------------------------------------------------------")
ListBox1.AddItem ("le principali basi usate sono ")
ListBox1.AddItem ("10 (logaritmi decimali o di Briggs) x =
Log(10) N")
ListBox1.AddItem ("e (logaritmi naturali o Neperiani) x =
Log(e) N (e= 2.71828 circa")
ListBox1.AddItem ("nota:oppure con notazioni variabili x =
Log N , x = Ln N o altre")
ListBox1.AddItem
("---------------------------------------------------------------------------")
ListBox1.AddItem ("si cambia sistema con una formula come la
seguente , applicata ai due sistemi")
ListBox1.AddItem ("x = Log(a)N , y = Log(b) N >>>
Log(b) N = Log (a) N / Log (a) b ")
ListBox1.AddItem ("trovare il logaritmo in base 10 del
numero N ,disponendo del logaritmo in base e")
ListBox1.AddItem ("logaritmo = Log(e)N / Log(e) 10 ")
ListBox1.AddItem ("N = 100 ")
ListBox1.AddItem ("Log(e)100 = " & Log(100))
ListBox1.AddItem ("Log(e)10 = " & Log(10))
ListBox1.AddItem ("Log(10) 100 = Log(e)100 / Log(e)10 "
& Log(100) / Log(10))
ListBox1.AddItem
("----------------------------------------------------------------")
neperianoN = Log(100)
neperiano10 = Log(10)
decimale = neperianoN / neperiano10
ListBox1.AddItem (neperianoN)
ListBox1.AddItem (neperiano10)
ListBox1.AddItem (decimale)
ListBox1.AddItem
("-------------------------------------------------------------------")
End Sub
Private Sub CommandButton6_Click()
Rem grafica 1
logaritmi1.Visible = True
End Sub
Private Sub CommandButton7_Click()
logaritmi1.Visible = False
logaritmi2.Visible = False
logaritmi3.Visible = False
logaritmi4.Visible = False
End Sub
Private Sub CommandButton8_Click()
logaritmi2.Visible = True
End Sub
Private Sub CommandButton9_Click()
logaritmi3.Visible = True
End Sub