Sinus richtig berechnen

Question

Hallo alle zusammen,

in meinem aktuellen Programm muss ich mit Winkelfunktionen rechnen.
Im aktuellen Beispiel sin von 57°. Mein Taschenrechner spuckt dazu  0,838671 aus.

Gebe ich diesen Wert als Sinus wieder in den Taschenrechner gibt er mir 57° als dazugehörigen Winkel aus und da kommt schon mal Freude auf.

Dim ALPHA As Integer = CInt(Me.TB_Winkel_Kurs.Text)         
Dim BETA As Integer = CInt(Me.TB_Winkel_Strom.Text)        
Dim GAMMA As Double = BETA - ALPHA
Label5.Text = CStr(GAMMA) & " Grad"
Dim Sin_Winkel_FüG As Double = Math.Sin(GAMMA)
Label6.Text = CStr(Sin_Winkel_FüG)

Mein relevanter Code sieht wie oben aus. So habe ich als Winkel ALPHA z.B. 33° und BETA = 90°. GAMMA wird korrekt mit 57° berechnet und im Programm angezeigt.

Dim Sin_Winkel_FüG As Double = Math.Sin(GAMMA)

Liefert mir allerdigs 0,4361647

Kann mir jemand sagen, was ich falsch mache?

---

Liebe Grüße Stefan | Cheers Stefan I'm using VB 2008 and VB 2010 Express Be a good forum member - mark posts that contain the answers to your questions or those that are helpful. c# in vb Translator: http://www.developerfusion.com/tools/convert/csharp-to-vb/

Answer 1

Hi,

hast Du die Winkel in Radians umgerechnet? Math.WinkelFunktion erwartet rad. Umrechnung: von deg in rad

DegWinkel * Math.PI / 180.0

Viele Grüße,

  Thorsten

Answer 2

Hallo Thorsten,

nein, das hatte ich nicht.
Jetzt stimmt auch mein Ergnis.

Danke.

---

Liebe Grüße Stefan | Cheers Stefan I'm using VB 2008 and VB 2010 Express Be a good forum member - mark posts that contain the answers to your questions or those that are helpful. c# in vb Translator: http://www.developerfusion.com/tools/convert/csharp-to-vb/