Object soll Kreisbewegung vollführen

Karlson · Beiträge: 2088

Moin,

Ist es möglich mit einem Objekt eine Kreisbewegung zu vollführen? Also ganz "primitiv" mit Timer und nem Panel?

.Chef · Beiträge: 1112

Karlson hat folgendes geschrieben:

Ist es möglich mit einem Objekt eine Kreisbewegung zu vollführen? Also ganz "primitiv" mit Timer und nem Panel?

Klar.

Für y lässt du den Sinus, für x den Cosinus laufen, jeweils multipliziert mitd em Radius. Dann noch den Mittelpunkt addieren, fertig.

Gruß,
Jörg

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

Karlson · Beiträge: 2088

Jop genausowas hab ich gesucht

Nur war ich zu faul (und dumm :lol:

) mir sowas selbst zu überlegen.

dank dir!

ScorpionKing · Beiträge: 1150 Win XP

hier ein bsp:

markieren

Quelltext

1:
2:

y := y + sin(y);
x := x + cos(x);

mfg, scorpionking

_________________
Aus dem Urlaub zurück!

.Chef · Beiträge: 1112

Also nimms mir nicht übel, aber _das_ ist gequirlter Unsinn!

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

ScorpionKing · Beiträge: 1150 Win XP

wieso ist das gequirlt?
lästern aber ohne begründung! toll!

_________________
Aus dem Urlaub zurück!

Maweki · Beiträge: 197 Ubuntu Linux Lazarus

weil x und y Winkel zu sein haben...

.Chef · Beiträge: 1112

Weil:

markieren

Delphi-Quelltext

1:
2:

Objekt.Left:=Round(Cos(Winkel)*Radius)+Mittelpunkt.X;
Objekt.Top:=Round(Sin(Winkel)*Radius)+Mittelpunkt.Y;

Die Typen:

markieren

Delphi-Quelltext

1:
2:
3:

Winkel, Radius : Real;
Mittelpunkt : TPoint;
Objekt : TControl;

Winkel ist eine globale Variable und wird z.B. im OnTimer jeweils erhöht, z.B. um pi/20.

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

Maweki · Beiträge: 197 Ubuntu Linux Lazarus

das hier koennte (imho) so in einen Timer:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

// Die Varible Winkel sollte Global deklariert sein
// die Konstanten WinkelIncrement und Radius koennen auch lokal sein
Winkel := Winkel + WinkelIncrement;
Panel.left := Panel.Left + cos(Winkel) * Radius;
Panel.Top := Panel.Top + sin(Winkel) * Radius;

wenn du eine Drehung in die andere Richtung vollfuehrt haben moechtest, dann das + durch ein - ersetzen...

sollte so gehen, oder?

Edit: da war einer schneller...
hmmmm, und das Round hab ich auch vergessen. naja...

ScorpionKing · Beiträge: 1150 Win XP

ich dachte x und y währen die koordinaten des pictures!

_________________
Aus dem Urlaub zurück!

.Chef · Beiträge: 1112

ScorpionKing hat folgendes geschrieben:

ich dachte x und y währen die koordinaten des pictures!

Naja, deswegen können es ja keine Winkel sein. Den Winkel brauchst du aber, weil er es ist, der "wandert".

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

Karlson · Beiträge: 2088

Jop, hab das jetzt so gemacht wie chef es oben gesagt hat.

Für die Nachwelt wollte ich noch was anfügen: Dat klappt so nicht

Auf meinem Sys (p3,1000mhz,256sdram) erkennt man ausser flimmer nichts mehr, doublebuffered natürlich drin

Maweki · Beiträge: 197 Ubuntu Linux Lazarus

hast du es in einen Timer getan? Das soll nicht in eine Schleife...

Karlson · Beiträge: 2088

Ja klar ist in nem Timer.
Das man gar nichts erkennt ist übertrieben, aber es reicht dass es extrem unschön wirkt.

Maweki · Beiträge: 197 Ubuntu Linux Lazarus

wie gross is der Intervall und der Winkelschritt?

Karlson · Beiträge: 2088

Es geht nicht darum dass es zu schnell ist

ganz blöd bin ich auch nicht.
Es gibt einfach dieses Problem das dass canvas immer wiedr neu gezeichnet wird und deswegen flimmert.
Das Problem ist doch nichts neues! Hau mal ein grosses Image auf einen Timer, der immer left := left + 15 macht, genau das ist der effekt.

.Chef · Beiträge: 1112

Im Zuge der obigen Diskussion hatte ich es mit einem Button ausprobiert. Und da ging es wunderbar, so wie ich mir in etwa vorgestellt hatte.

Ich habe vorher noch nie das Bedürfnis gehabt, eine Komponente im Kreis zu bewegen. :nixweiss:

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

ScorpionKing · Beiträge: 1150 Win XP

Also ihr könnt mir sagen was ihr wollt, aber folgender code funktioniert bei mir einwandfrei (bisschen abgeändert, hab ich aus Kopf getippt, weil ich projekt nicht jetzt laden will):

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var x,y: integer;

procedure TForm1.FromCreate;
begin
x := Button1.Width;
y := Button1.Height;
end;

procedure Timer1.OnTimer;
begin
x := x + sin(x);
y := y + cos(y);
Button1.Widht := x;
Button1.Height := y;
end;

ScorpionKing

_________________
Aus dem Urlaub zurück!

.Chef · Beiträge: 1112

Komm, erzähl koane Gschichtn!

Es gibt mindestens hier Fehler, weil sin und cos Real-Werte zurückliefern:

markieren

Delphi-Quelltext

1:
2:

x := x + sin(x);
y := y + cos(y);

Außerdem entbehrt das jeder mathematischen Grundlage. Du darfst mich aber gern über dieses Verfahren zur Kreisberechnung aufklären.

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

Maweki · Beiträge: 197 Ubuntu Linux Lazarus

selbst mit

markieren

Delphi-Quelltext

1:
2:

x := Round(x + sin(x));  
y := Round(y + cos(y));

oder

markieren

Delphi-Quelltext

1:
2:

x := x + Round(sin(x));  
y := y + Round(cos(y));

wuerde sich die groesse des Buttons (die Position wird ja garnich veraendert) einfach nur nicht veraendern.
Denn Wenn Man mal Sinus und Cosinus Rundet kommt immer 0, 1 oder -1 bei raus. Und das immer gleichmaessig. Also wuerde der seine groesse maximal um 1 Pixel vergroessern und dann wieder verkleinern, wenn ich das richtig sehe. Aber ich teste deinen Code dachm Fruehstueck gerne mal aus...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme