Ciao a tutti,scusatemi se non mi sono presentato,sono marco da pordenone,mi sto avvicinando alla programmazione basic pian piano e con pazienza visto che il discorso e molto ampio e impegnativo...sto cercando di creare un piccolo programmino(con visual basic 2008 express ED)che mi permette di fare dei semplici calcoli trigonometrici.il problema in sostanza è quello di convertire il valori da radianti a gradi(indicati così sulla normale calcolatrice scientifica RAD-DEG),cul calcolo Tangente,Tangente-1.Tutto và bene se uso la funzione ATan,ma se provo con la funzione Tan mi da valori sbagliati.Vi spiego con le righe di codice che ho scritto(esempi con valore numerico 10):
'SOMMARE 2 TEXTBOX E CALCOLARE LA TANGENTE -1
Dim somma As Double
Dim radianti As Double
Dim tangente As Double
somma = Val(TextBox1.Text) + Val(TextBox2.Text)
radianti = Math.Atan(somma)
tangente = (radianti * (180 / 3.14159265358979)) 'TRASFORMAZIONE DA RAD A DEG
TextBox3.Text = (tangente)
il risultato della TANGENTE in DEG è 84,2894068625005 e fin quà tutto bene.
------------------------------------------------------------------------------
'SOMMARE 2 TEXTBOX E CALCOLARE LA TANGENTE (ESEMPIO SU VALORE 10)
Dim somma As Double
Dim radianti As Double
Dim tangente As Double
somma = Val(TextBox1.Text) + Val(TextBox2.Text)
radianti = Math.Tan(somma)
tangente = (radianti * (180 / 3.14159265358979))
TextBox3.Text = (tangente)
il risultato dovrebbe essere 0.1763269...(sempre parlando in deg,su un valore di 10) invece mi esce 37,1483390150155...
spero di essere stato chiaro nella spiegazione,RINGRAZIO ANTICIPATAMENTE X UN'EVENTUALE RISPOSTA.
|