Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Presentiamoci - Problema con conversione da RAD a DEG in visual basic
Forum - Presentiamoci - Problema con conversione da RAD a DEG in visual basic

Avatar
marco82 (Normal User)
Newbie


Messaggi: 1
Iscritto: 06/12/2010

Segnala al moderatore
Postato alle 21:48
Lunedì, 06/12/2010
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.


DBM82
PM