Visual Basic

Auch wenn ich nicht gerade ein Freund von Microsoft bin, mit Visual Basic haben sie doch ganz ordentlich was geleistet. (VB.Net ausgenommen.) Es lassen sich damit recht leicht kleinere Programme und Spielchen programmieren.

Winkel bestimmen

Du hast zwei Punkte, und würdest gerne den Winkel zwischen diesen Punkten bestimmen? Kein Problem.
Als erstes untersucht man die Sonderfälle der möglichen Winkel (0°/360°;90°,180°,270°).
Falls die übergebenen Punkte keinen dieser Sonderfälle einnehmen, kommt dann die allgemeine Berechnung.

Für den Fall, dass beide Punkte gleich sind, ist hier noch keine Abfangroutine eingebaut.

Public Function GetAngle(x1, y1, x2, y2)
    Dim a As Single
    Dim x As Single
    Dim y As Single
    x = x2 - x1
    y = y2 - y1
    If y = 0 Then
        If x > 0 Then
            a = 0
        ElseIf x < 0 Then
            a = Pi
        End If
    ElseIf x = 0 Then
        If y > 0 Then
            a = Pi / 2
        ElseIf y < 0 Then
            a = Pi * 3 / 2
        End If
    Else
        a = Pi / 2 * Sgn(y) - Atn(x / y)
    End If
    GetAngle = a
End Function