Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: "V" zeichnen
Autor: LesPaul
Datum: 31.03.10 09:49
Hallo Zardoz, danke für die Antwort, im Prinzip schon klar, nur auf die Beiträge bezogen, wird dort nie die Länge der Ausgangslinie berücksichtigt, dort werden die neuen Linien immer über die gesamte Picturebox gezeichnet und das irritiert mich. Hallo Manfred X, auch hier vielen Dank, es funktioniert aber nicht wirklich, wahrscheinlich verstehe ich da was nicht. ----------------------------------------------- Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Dim c As Double Dim d As Double Dim r As Double Dim t As Double Dim x As Double Dim y As Double 'c = Kreismittelpunkt 'd = Kreismittelpunkt 'r = Radius 't = Hälfte des Winkels 'x = Endpunkt 'y = Endpunkt c = Line1.X1 d = Line1.Y1 r = Line1.X2 - Line1.X1 t = Text1.Text / 2 x = c + (r * Cos(t)) y = d + (r * Sin(t)) Line2.X1 = Line1.X1 Line2.Y1 = Line1.Y1 Line2.X2 = x Line2.Y2 = y End If End Sub ----------------------------------------------- es scheint nur bei 45° zu funktionieren (Phythagoras) Was mache ich bei <> 45°? Danke, LesPaul

"V" zeichnen	1.582	LesPaul	30.03.10 15:54
Re: "V" zeichnen	1.109	Zardoz	30.03.10 17:35
Re: "V" zeichnen	1.150	Manfred X	30.03.10 18:06
Re: "V" zeichnen	1.101	LesPaul	31.03.10 09:49
Re: "V" zeichnen	1.088	Manfred X	31.03.10 10:17
Re: "V" zeichnen	1.098	LesPaul	31.03.10 16:28
Re: "V" zeichnen	1.096	Manfred X	31.03.10 17:34
Re: "V" zeichnen	1.062	LesPaul	01.04.10 09:32
Re: "V" zeichnen	1.026	Manfred X	01.04.10 09:59
Re: "V" zeichnen	1.077	LesPaul	01.04.10 12:01
Re: "V" zeichnen	1.021	LesPaul	01.04.10 12:02

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