JAAAAA, es funktioniert!!! DANKE, DANKE, DANKE!
Hier meine fertige Lösung:
If varPosYrel = 0 And varPosXrel > 0 Then
varWinkelTempA = 0
Else
If varPosYrel <= 0 Then
varWinkelTempA = 180
Else
varWinkelTempA = 0
End If
End If
If varPosXrel = 0 Then
varWinkelTempB = 90
Else
varWinkelTempB = ((Atn(varPosYrel / varPosXrel) * 180 / PI) + 180) Mod 180
End If
varWinkel = varWinkelTempA + varWinkelTempB
lg
manuel
|