Hi also entweder is bin zublöd oder...


function winkel(diffx,diffy)
if (diffy = 0)
if (diffx > 0) return 90
else if (diffx < 0) return 270
else return "was weiß ich" (wir sind schon da)
winkel = arctan(diffx/diffy)
if (diffy < 0) winkel = winkel + 180
winkel = winkel mod 360
return winkel

also so kann ich die Funtion nicht in VB6 verwenden

if (diffy = 0) ; sagt mir nix
if (diffx > 0 ) return 90 ; ist diffx > 0 = winkel 90
else if (diffx < 0) return 270 ; oder ist diffix <0 = winkel 270
else return ; gib den wert zurück???
winkel = arctan(diffx/diffy) ; winkel ausrechnen
if (diffy < 0) winkel = winkel +180 ; ist diffyy <0 dann winkel + 180
winkel = winkel mod 360; gib den rest zurück + winkel
return winkel ; gib winkel zurück????


Versteh ich das richtig?????

Muss des jetzt mal umbasteln

Also deins sieht aus wie C++, oder?

Aber vielen Dank für deine Unterstützung

By Ulli