Hallo alle zusammen,
bin absoluter Neueinsteiger in VBA. Hab mir aus der Bücherei ein Einsteigerseminar geholt und durchgearbeitet. Und hab auch schon ganz gute Ergebnisse. Brauche es um für CNC-Programme (Mill Plus) um Koordinaten und Vektoren zu berechnen. Da ich kein Cad-Cam System zur Verfügung habe.
Nun zu meinem Problem. Ich möchte den Sinuswert eines Winkels der sich z.b. durch
atan(a)=Gegenkathete / Ankathete ergibt.
Konkretes beispiel (Ergebnis laut Taschenrechner):
x=10
Atan(a)=2x/x
a=63,4349 °
sin(a)= 0,8944
Meine vorläufige Prozedur schaut so aus:
Sub winkelberechnen()
Dim x As Double, y As Double, t As Double, v As Double
x = 10
y = 2 * x
t = (Atn(y / x)) * (180 / 3.141592654)
v = Sin(t)
Cells(1, 1).Value = "Winkel " & t
Cells(1, 2).Value = "Vektor " & v
Debug.Print "Winkel " & t
Debug.Print "Vektor " & v
End Sub
Ergebnisse laut Prozedur:
t=63,4349 (Stimmt also)
v=0,5671 (Haut überhaupt nicht hin)
Hab ich vielleicht einen falschen Syntax oder lieg ich generell falsch, ich weiss nicht mehr weiter.
Im Voraus schon mal vielen Dank.
MFG
P.S. Benutze Office 2007
|