Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Winkel mit ArcSin
Autor: Manfred44
Datum: 07.08.18 13:28
Hallo Statt 36.87 Grad kommt bei mir 0.6435 heraus. Was ist falsch? Bitte um Code. Vielen Dank im Voraus. Private Sub cmdBerechnen_Click() A = txtGegenKathete C = txtHypotenuse Berechnen = A / C txtErgebnis = ArcSin(Berechnen) End Sub Public Function ArcSin (ByVal X As Double) As Double ArcSin = Atn(X / Sqr(-X * X + 1)) End Function 'Gegenkathete A = 3 cm 'Hypothenuse C = 5 cm

Re: Winkel mit ArcSin
Autor: Zardoz
Datum: 07.08.18 13:40
Hallo Manfred44, VB rechnet in Radiant. Du möchtest deine Ergebnisse in Grad. Also musst du sie umrechnen. Probier' mal dies: Public Function ArcSin(ByVal X As Double) As Double   Const Pi As Double = 3.14159265358979   ArcSin = Atn(X / Sqr(-X * X + 1)) * 180 / Pi   End Function Gruss, Zardoz

Re: Winkel mit ArcSin
Autor: Manfred44
Datum: 09.08.18 12:56
Vielen Dank Zerdos

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen