vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2018
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
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
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Winkel mit ArcSin110Manfred4407.08.18 13:28
Re: Winkel mit ArcSin62Zardoz07.08.18 13:40
Re: Winkel mit ArcSin41Manfred4409.08.18 12:56

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2018 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel