Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Geraden schneiden?
Autor: RiverRaid
Datum: 26.09.03 22:14
HEY, DANKE!!!!!! Funktioniert PERFEKT!!! Vielen Dank!!!! Hier der Code: Dim P1X, P1Y, P2X, P2Y, R1x, R1y, R2x, R2y As Integer Dim PI, A2, Winkel1, Winkel2 As Double P1X = 200 P1Y = 200 P2X = 300 P2Y = 400 Me.DrawWidth = 5 Me.PSet (P1X, P1Y) Me.PSet (P2X, P2Y) Me.DrawWidth = 1 PI = "3,1415926535897932384626433832795" Winkel1 = ((150) * PI / 180) Winkel2 = ((10) * PI / 180) R1x = Sin(Winkel1) R1y = -(Cos(Winkel1)) R2x = Sin(Winkel2) R2y = -(Cos(Winkel2)) If Winkel1 = Winkel2 Then Exit Sub If R1x = 0 And R2x = 0 Then MsgBox "Geraden P od I": Exit Sub If R1x <> 0 And R2y = R2x * R1y / R1x Then MsgBox "Geraden P od I": Exit Sub If R1x = 0 And R2x <> 0 Then Dim tmpP1X, tmpP1Y As Integer tmpP1X = P1X tmpP1Y = P1Y P1X = P2X P1Y = P2Y P2X = tmpP1X P2Y = tmpP1Y End If A2 = ((P2Y - P1Y) + (P1X - P2X) * R1y / R1x) / (R2x * R1y / R1x - R2y) If A2 = 0 Then MsgBox "Punkte gleich": Exit Sub If A2 < 0 Then Exit Sub Me.Line (P1X, P1Y)-(P2X + A2 * R2x, P2Y + A2 * R2y) Me.Line (P2X, P2Y)-(P2X + A2 * R2x, P2Y + A2 * R2y) Herzlichen Dank für Deine Hilfe, ich hätte das *NIE* geschafft! Danke LG, Andi

Geraden schneiden?	713	RiverRaid	24.09.03 17:19
Re: Geraden schneiden?	401	ThAlb	25.09.03 10:00
Re: Geraden schneiden?	345	RiverRaid	25.09.03 21:00
Re: Geraden schneiden?	345	ThAlb	26.09.03 09:07
Re: Geraden schneiden?	382	RiverRaid	26.09.03 22:14

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen