//sensei/
ToSensei's Chaosblubb
Logo
von ToSensei
Seitenauswahl
Linux Shell
Visual Basic 6
Chatlogs
Senseis Saftladen
Senseis Giftküche
Nachos und Salsa
Top Secret

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