Rechenkette? / Winkelberechnung mit Cosinus?

[Bammel]

Hallo,
ich hab schonwieder ein problem! man, dabei bin ich eigentlich recht gut in mathe.

ertsmal danke an ikarus, rad2deg() funzt bestens.

also ich habs nochmal im angehangen bild dargestellt Suche diese beiden winkel um den Servos dort auchnoch stellen zu können. aber iwie funktioniert das nicht. habs mit dem selben verfahren versucht wie den obersten winkel. nur halt die dementsprechende formal genommen. aber da hab ihc jeweils 180° bekommen dies kann ja nicht sein. dann dachte ich okay versuchst es mal von vorne formeln gelöscht und nochmal hab dann aber ist mir eingefallen da ich ja im grünen dreieck nen rechten winkel hab kann ich ja den einfachen kosinus verwenden.

cos(beta) = a / c

da bekomme ich aber 51° dachte okay ist ja richtig. aber nein! das ist ja das falsche dreieck?! zufall???

code sieht so aus:

Dim Hufta_zw_a As Single
Dim Hufta_zw_b As Single
Dim Hufta_wi As Byte

...

Hufta_zw_a = Hoehe / Dis
Hufta_zw_b = Cos(hufta_zw_a)

Hufta_wi = Rad2deg(hufta_zw_b)

mfg bammel