Freebasic - Shooter Problem

[Teflo]

Hm...

Code:

Rechnung1=(LinieX1(i)-LinieX2(i))/(LinieY1(i)-LinieY2(i))
Rechnung2=(LinieX1(i)-PunktX(a))/(LinieY2(i)-PunktY(a))

If Rechnung1=Rechnung2 And ((LinieX1(i)<=PunktX(a)) AND (PunktX(a)<=LinieX2(i))) Then
Bla

Geht nicht! xO
Ich schau mir auch immer schön die Werte an, aber wenn der Punkt exakt auf der Linie ist, sind die Werte trotzdem völlig verschieden (Rechnung1=1.blubb, Rechnung2=0.1blubb).

[Manni]

Hm...

Code:

Rechnung1=(LinieX1(i)-LinieX2(i))/(LinieY1(i)-LinieY2(i))
Rechnung2=(LinieX1(i)-PunktX(a))/(LinieY2(i)-PunktY(a))

...

Wenn du aus Rechnung2 folgendes machst, sollte es gehen :

Code:

Rechnung2=(LinieX1(i)-PunktX(a))/(LinieY1(i)-PunktY(a))

[Cherry]

Du kannst in FB "_" benutzen, um eine Anweisung über mehrere Zeilen zu strecken, z.B. so:

Code:

If (LinieX1(i)-LinieX2(i))/(LinieY1(i)-LinieY2(i)) = (LinieX1(i)-PunktX(a))/(LinieY1(i)-PunktY(a)) And _
  ((LinieX1(i)<=PunktX(a)) AND (PunktX(a)<=LinieX2(i)) Then
    ' Kollision
EndIf

Bringt mehr Übersichtlichkeit rein.

mfG Cherry