Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: wand verhalten programmieren
Autor: marvin_94
Datum: 14.10.10 14:46
Ach ja: wenn man an der wand vorbeiziehen will, muss man immer (speed / 1.1) an der stelle, wo es nach aus definiert wird entfernen, und an dem anderen ort durch (speed / 2.1) ersetzten, hier noch mal der perfekte code, noch mal überarbeite, jetzt geht er astrein, soweit jedenfalls meiene test, der speed, darf einfach nicht mehr als halbso gross sein wie die wand breit Public Sub wldefy(mle As Control, wl As Control, lblock As Boolean, rblock As Boolean, _ ublock As Boolean, dblock As Boolean, speed As Integer) 'objekt unten blockieren 'der obereblock schiebt das objekt zurück, sobald es ein gewisse Nähe zur wand hat. If mle.Top + mle.Height > wl.Top - (speed / 1.1) And (mle.Top + mle.Height) < wl.Top + (speed / 1.1) And _ wl.Left < mle.Left + mle.Width And wl.Left + wl.Width > mle.Left Then mle.Top = wl.Top - mle.Height 'Der untere block ' fixiert das objekt dort If mle.Top + mle.Height = wl.Top And _ wl.Left < mle.Left + mle.Width And wl.Left + wl.Width > mle.Left Then dblock = True 'objekt oben blockieren If mle.Top > wl.Top + wl.Height - (speed / 1.1) And (mle.Top) < wl.Top + wl.Height + (speed / 1.1) And _ wl.Left < mle.Left + mle.Width And wl.Left + wl.Width > mle.Left Then mle.Top = wl.Top - (-wl.Height) If mle.Top = wl.Top + wl.Height And _ wl.Left < mle.Left + mle.Width And wl.Left + wl.Width > mle.Left Then ublock = True 'objekt links blockieren If mle.Left > wl.Left + wl.Width - (speed / 1.1) And (mle.Left) < wl.Left + wl.Width + (speed / 1.1) And _ wl.Top < mle.Top + mle.Height And wl.Top + wl.Height > mle.Top Then mle.Left = wl.Left + (wl.Width) If mle.Left = wl.Left + wl.Width And _ wl.Top < mle.Top + mle.Height And wl.Top + wl.Height > mle.Top Then lblock = True 'objekt rechts blockieren If mle.Left + mle.Height > wl.Left - (speed / 1.1) And mle.Left + mle.Height < wl.Left + (speed / 1.1) And _ wl.Top < mle.Top + mle.Height And wl.Top + wl.Height > mle.Top Then mle.Left = wl.Left - mle.Width If mle.Left + mle.Width = wl.Left And _ wl.Top < mle.Top + mle.Height And wl.Top + wl.Height > mle.Top Then rblock = True End Sub

wand verhalten programmieren	1.642	marvin_94	07.09.10 20:09
Re: wand verhalten programmieren	1.195	Zardoz	07.09.10 20:46
Re: wand verhalten programmieren	1.306	marvin_94	07.09.10 20:59
Re: wand verhalten programmieren	1.205	Zardoz	07.09.10 21:10
Re: wand verhalten programmieren	1.134	marvin_94	07.09.10 21:12
Re: wand verhalten programmieren	1.219	bitstash	08.09.10 13:01
Re: wand verhalten programmieren	1.059	marvin_94	13.10.10 16:03
Re: wand verhalten programmieren	1.084	marvin_94	13.10.10 16:39
Re: wand verhalten programmieren	1.053	Dirk	13.10.10 20:19
Re: wand verhalten programmieren	1.108	marvin_94	13.10.10 21:44
[OT] Re: wand verhalten programmieren	1.054	Dirk	14.10.10 07:24
Re: wand verhalten programmieren	1.054	marvin_94	14.10.10 14:46

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