Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

so gehts
Autor: SpacePot
Datum: 27.02.02 10:27
moin moin ihr beiden, vielen lieben dank für die hilfe.... ich saß da schon 3 tage dran und kam einfach nicht drauf. ich habe eine kollegin gefragt die architektin ist.....die hatte keine idee. dann allerdings ist mir mein chef eingefallen, der ist dr. der physik und der wusste es dann auch. das problem dabei ist nur, daß er erwartet man hätte sein verständnis. d. h. alles was er so schnell und hecktisch erklärt, soll man verstehen........no, da brauch ich doch 3 ansätze....... trotzdem habe ich es mit seiner hilfe hinbekommen und so sieht mein code aus: Dim radius, strecke Private Sub Form_Load() Line1.X1 = 0 Line1.Y1 = 0 radius = 3000 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _ X As Single, Y As Single) strecke = (X * X) + (Y * Y) strecke = Sqr(strecke) X1 = radius * (X / strecke) Y1 = radius * (Y / strecke) Line1.X2 = X1 Line1.Y2 = Y1 End Sub funzt gut, den anfangspunkt habe ich für dieses beispiel mal auf 0, 0 gesetzt. das ich den woanders setzten will ist noch ein kleines problem, aber ich denke darauf komm ich dann noch selbst. also vielen dank noch mal für die hilfe gruß daniel A.

line zeichnen mit fester länger, unmöglich?	83	SpacePot	26.02.02 10:57
nur ein bißchen mathe	44	ronny	26.02.02 22:13
Re: nur ein bißchen mathe	263	unbekannt	26.02.02 22:47
so gehts	34	SpacePot	27.02.02 10:27

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