Punkt mit Cursortasten steuern - threadbasierter Ansatz

thepaine91 · Verfasst: Mi 13.05.09 09:23

Moderiert von Narses: Abgetrennt von Einen kleinen Punkt mit den Pfeiltasten steuern. Der chirurgische Eingriff ist notwendig geworden, weil dieser Teil des Threads eine Eigendynamik entwickelt hat.

Hi habe da mal just 4 fun was gemacht da hast du auch keine Verzögerungen etc. Vil hilfts dir hab grad nur das Thema überflogen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:

procedure TForm1.Timer1Timer(Sender: TObject);
var i : integer;  EDIT:// HABE WÄHREND MEINER TESTS DEN TIMER MIT EINEM THREAD ERSETZT AUF ANFRAGE POSTE ICH DAS GERNE
begin
  i := 0;
  while I = 0 do begin
    if Oben = true then  // Oben usw. sind booleans
      if Panel1.Top <= 0 then Oben := false else
      Panel1.Top := Panel1.Top - 1;
    if Rechts = true then
      if Panel1.Left >= Form1.Width - Panel1.Width then Rechts := false else
      Panel1.Left := Panel1.Left +1;
    if Unten = true then
      if Panel1.Top >= Form1.Height - Panel1.Height then Unten := false else
      Panel1.Top := Panel1.Top + 1;
    if Links = true then
      if Panel1.Left <= 0 then Links := false else
      Panel1.Left := Panel1.Left -1;
    Application.ProcessMessages;
    Sleep(25);
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered := true;
  Application.OnMessage := appmessage;
end;



procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if msg.message = wm_keydown then
  begin
    if msg.wParam = vk_up then
    begin
      Oben := true;
      Unten := false;
    end;
    if msg.wParam = vk_right then
    begin
      Rechts := true;
      Links := false;
    end;
    if msg.wParam = vk_down then
    begin
      Unten := true;
      Oben := false;
    end;
    if msg.wParam = vk_left then
    begin
      Links := true;
      Rechts := false;
    end;
  end;
  if msg.message = wm_keyup then
  begin
    if msg.wParam = vk_up then
      Oben := false;
    if msg.wParam = vk_right then
      Rechts := false;
    if msg.wParam = vk_down then
      Unten := false;
    if msg.wParam = vk_left then
      Links := false;
  end;
end;

Rate aber von Copy paste ab habe da nur sachen getestet aber als ansatz villeicht hilfreich.

Narses · Verfasst: Mi 13.05.09 13:54

Moin!

Die Idee mit der Übersetzung der Windows-Messages in eigene Booleans ist nicht schlecht

allerdings ist das hier ein Stück Code, das man nur verschämt in abgedunkelten Räumen ausgewählten Personen nach vorheriger Gabe von Beruhigungsmitteln zeigen sollte: :lol:

thepaine91 hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Timer1Timer(Sender: TObject);
var i : integer;
begin
  i := 0;
  while I = 0 do begin
    if Oben = true then  // Oben usw. sind booleans
      if Panel1.Top <= 0 then Timer1.Enabled := false else
      Panel1.Top := Panel1.Top - 1;
    if Rechts = true then
      if Panel1.Left >= Form1.Width - Panel1.Width then Rechts := false else
      Panel1.Left := Panel1.Left +1;
    if Unten = true then
      if Panel1.Top >= Form1.Height - Panel1.Height then Unten := false else
      Panel1.Top := Panel1.Top + 1;
    if Links = true then
      if Panel1.Left <= 0 then Links := false else
      Panel1.Left := Panel1.Left -1;
    Application.ProcessMessages;
    Sleep(25);
  end;
end;

Fazit: Finger von sowas lassen!

thepaine91 hat folgendes geschrieben :

EDIT:// HABE WÄHREND MEINER TESTS DEN TIMER MIT EINEM THREAD ERSETZT AUF ANFRAGE POSTE ICH DAS GERNE

Nach diesem Stück Code würde ich den Thread-Ansatz gerne mal sehen (der wohl hoffentlich der Tatsache Rechnung trägt, dass die VCL nicht threadsave ist!).

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

thepaine91 · Verfasst: Mi 13.05.09 14:10

Warum müsst ihr mich immer Fertig machen

hab doch extra gesagt ich wollte was testen es kam da nicht drauf an ob es was taugt in dem sinn.

Hab den thread ansatz auf der Arbeit aber kann es dir auch so erklären und zwar:

Ich werde eine usermessage deffinieren und wenn ich diese im hauptthread bekomme führe ich procedure "move" aus. Und das wars auch schon ^^ somit habe ich das gelöst. Somit fungiert der Thread indirekt als Timer.

Moderiert von Narses: Frage entfernt - in diesem Thread gibt´s schon ein Thema, das langt
Moderiert von Narses: Den Teil des Beitrags, der zum ursprünglichen Thread gehörte, abgetrennt und in den alten Thread verschoben

Narses · Verfasst: Mi 13.05.09 15:06

Moin!

thepaine91 hat folgendes geschrieben :

hab doch extra gesagt ich wollte was testen es kam da nicht drauf an ob es was taugt in dem sinn.

Tja, vielleicht solltest du deine öffentlichen Aussagen (im besonderen bzgl. Code) besser auf diejenigen reduzieren, die was taugen... :roll:

thepaine91 hat folgendes geschrieben :

Hab den thread ansatz auf der Arbeit

Schon klar, und dann nicht mal den Code liefern können...

thepaine91 hat folgendes geschrieben :

Ich werde eine usermessage deffinieren und wenn ich diese im hauptthread bekomme führe ich procedure "move" aus. Und das wars auch schon ^^ somit habe ich das gelöst. Somit fungiert der Thread indirekt als Timer.

Das ist Blödsinn, dann kannst du auch gleich den Timer verwenden.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

thepaine91 · Verfasst: Mi 13.05.09 15:40

Narses falsch
es ist nicht wie ein Timer man beachte den schnellsten intervall eines timers.
Denn der Timer schafft nicht mehr als 55,.... ms ob die Zahl stimmt kp hab sie nicht im Kopf ^^
Aber vielleicht fällt mir ja was noch besseres ein. =)

EDIT: Den code kann ich dir gerne morgen zu verfügung stellen.

Narses · Verfasst: Mi 13.05.09 15:55

Moin!

thepaine91 hat folgendes geschrieben :

es ist nicht wie ein Timer man beachte den schnellsten intervall eines timers.
Denn der Timer schafft nicht mehr als 55,.... ms

Was glaubst du wohl, warum der Timer nicht mehr "schafft" (bzw. schaffen können muss)?

Was soll die Anwendung denn mit einem Ereignis-Dauerfeuer in einer derartig hohen Frequenz anfangen?! :nixweiss:

Damit verstopfst du doch nur die MessageQueue (und vervielfachst obendrein noch den Message-Handling-Overhead), sonst bringt das gar nix. Fazit: das ist doch Blödsinn.

Und jetzt ist genug (halb-)OT-Diskussion (ganz OT ist´s ja nun auch wieder nicht, immerhin steht der Ansatz im Raum), der Threadersteller wird´s wohl nicht brauchen.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

thepaine91 · Verfasst: Do 14.05.09 18:41

So jetzt habe ich die Lösung die Hilft auch dem Threadersteller diesmal mit code:

Hauptthread:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Panel1: TPanel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    Meinthread : Threadi;
    Oben, Rechts, Unten, Links: Boolean;
    procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
  public
    procedure Move;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
begin
  Meinthread := Threadi.Create(true);
  DoubleBuffered := true;
  Application.OnMessage := appmessage;
end;



procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean); 
// Steuerung der Booleans um Bewegungen in die jeweiligen Richtungen zu gewährleisten.
begin
  if msg.message = wm_keydown then
  begin
    if msg.wParam = vk_up then
    begin
      Oben := true;
      Unten := false;
      Handled := true; //Handled (Message ist abgearbeitet und fliegt somit raus)
    end;
    if msg.wParam = vk_right then
    begin
      Rechts := true;
      Links := false;
      Handled := true;
    end;
    if msg.wParam = vk_down then
    begin
      Unten := true;
      Oben := false;
      Handled := true;
    end;
    if msg.wParam = vk_left then
    begin
      Links := true;
      Rechts := false;
      Handled := true;
    end;
  end;
  if msg.message = wm_keyup then
  begin
    if msg.wParam = vk_up then
    begin
      Oben := false;
      Handled := true;
    end;
    if msg.wParam = vk_right then
    begin
      Rechts := false;
      Handled := true;
    end;
    if msg.wParam = vk_down then
    begin
      Unten := false;
      Handled := true;
    end;
    if msg.wParam = vk_left then
    begin
      Links := false;
      Handled := true;
    end;
  end;
end;

procedure TForm1.Move; //Bewegungsroutine
begin
  if Oben = true then
    if Panel1.Top <= 0 then Timer1.Enabled := false else
    Panel1.Top := Panel1.Top - 1;
  if Rechts = true then
    if Panel1.Left >= Form1.ClientWidth - Panel1.width then Rechts := false else
    Panel1.Left := Panel1.Left +1;
  if Unten = true then
    if Panel1.Top >= Form1.ClientHeight - Panel1.Height then Unten := false else
    Panel1.Top := Panel1.Top + 1;
  if Links = true then
    if Panel1.Left <= 0 then Links := false else
    Panel1.Left := Panel1.Left -1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Meinthread.Suspended then Meinthread.Resume else Meinthread.Suspend; // Start/Stop -knopf
end;

Thread

markieren

Delphi-Quelltext

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

procedure Threadi.Aufruf;
var i : integer;
begin
  i := 0;
  while i = 0 do
  begin
    Synchronize(form1.Move);  //Aufruf der Bewegungs routine
    Sleep(20) //z.B
  end;
end;

procedure Threadi.Execute;
begin
  Aufruf;
end;

Xentar · Verfasst: Do 14.05.09 19:07

Mal abgesehen davon, dass dein Thread nie mehr beendet wird / werden kann, versteh ich auch nicht, welchen Sinn / Vorteil der bei dieser Verwendung bringen soll...?!

1) Wenn schon Thread, dann doch bitte while not Terminated do ... dann kann man den wenigstens auch abbrechen und das Programm beenden.
2) Welchen Sinn macht ein Thread, dessen einzige Aufgabe darin besteht, mit Synchronize etwas aufzurufen?

_________________
PROGRAMMER: A device for converting coffee into software.

thepaine91 · Verfasst: Do 14.05.09 19:41

Hm der sinn. Das ist ja auch nur um zu zeigen wie wan eine Bewegung im Programm ermöglichen kann. DAHER auch keine beendigung usw. keine haarspalterei bitte ^^

So ist das ganze schneller als im hauptthread und in einem Timer :-)

Boldar · Verfasst: Do 14.05.09 21:40

Nein, es ist nicht schneller als im Hauptthread, da alles in synchronize im Hauptthread abläuft.

thepaine91 · Verfasst: Fr 15.05.09 00:01

Dann habe ich mir also eingebildet das sich der Punkt schneller bewegt. Wenn das so ist sollte ich mal meine Augen überprüfen lassen. :idea:

Moment mal ich hab ja schon eine Brille :roll:

Aber falls ich mich doch irren sollte wüsste ich keine möglichkeit mehr das ganze "sinnvoll" in einen Thread auszulagern, ohne auf die Vcl zuzugreifen.

Wenn es sowohl in der Variante und in der Variante mit eine wm_user... genauso schnell bzw. langsam ist. Obwohl ich das immernoch bezweifel.

Und ich lese gerade das du sagtest es wird im Hauptthread abgearbeitet, RICHTIG! Nur die wiederholungsrate der Procedure ist schneller als sie ein Timer schaffen könnte. Und wenn ich in den Timer eine endlos schleife machen würde weis jeder was passiert.

ansonsten gebe ich dir doch recht.

EDIT:
bei der Provisorischen kollisions abfrage unterlief mir ein kleiner Fehler.
wer das ganze nutzen will bitte abändern: (änder es auch im Ursprungsbeitrag)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

  if Rechts = true then
    if Panel1.Left >= Form1.ClientWidth - Panel1.width then Rechts := false else
    Panel1.Left := Panel1.Left +1;
  if Unten = true then
    if Panel1.Top >= Form1.ClientHeight - Panel1.Height then Unten := false else
    Panel1.Top := Panel1.Top + 1;

Narses · Verfasst: Mo 18.05.09 00:33

Moin!

thepaine91 hat folgendes geschrieben :

[Schleimen] Wenn du Zeit für eine Antwort findest wäre super

Gewöhn dir das Geschmiere besser gleich wieder ab, ein einfaches "Bitte" hätte es auch getan.

thepaine91 hat folgendes geschrieben :

Er ist ohne frage schneller aber hat sicher Nachteile

Auf deinen Code gehe ich mal besser nicht ein, der ist in meinen Augen doch etwas sehr zu unausgegoren, als das sich das lohnen würde...

Bleibt also nur etwas zum Konzept zu sagen (da ich mich zwar gerne, aber begrenzt wiederhole, jetzt aber wirklich zum letzten Mal, ist doch immer das gleiche, falls dir das noch nicht aufgefallen ist): Der Thread-Ansatz für einen hochfrequenten VCL-Timer ist und bleibt Asche, weil du den Hauptthread der Anwendung (VCL-Thread) unnötig verstopfst. Ja, die Ereignisse können schneller als bei einem Windows-Timer ausgelöst werden (so, jetzt hast du es endlich schriftlich, besser so?), aber auf Kosten von hoher Last in der (Main-)MessageLoop der Anwendung. Das hat diverse, teils gravierende Nachteile: die Anwendung wird bei der Ereignisverarbeitung sehr träge, z.B. könntest du mit sowas eine ereignisorientierte Netzwerkdatenanbindung vergessen, das geht in die Hose. :nixweiss:

Deshalb liefert der Windows-Timer auch keine höhere Ereignisfrequenz - weil das keinen Sinn macht! :idea:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

thepaine91 · Verfasst: Mo 18.05.09 09:11

Okay jetzt hab ich es verstanden ^^

Trotzdem danke ^^ und der Satz zwischen [schleimen].... [/schleimen] war Ironisch gemeint ^^ das sollte man nicht ganz so ernst nehmen.

Fazit meine Thread bewegungs mechanismen sind Reif für die Delphicode-schrottpresse.

thepaine91 · Verfasst: Di 19.05.09 12:42

So nun hätte ich doch noch eine Frag.
In der Hilfe steht

Zitat:

Die Methode Synchronize wartet, bis der Haupt-Thread in die Botschaftsschleife eintritt, und führt dann die übergebene Methode aus.

Ich versteh das Systemseitig grad einfach nicht direkt warum sollte der Hauptthread von einem Synchronize im Abstand von 10 ms die Main-Messageloop belasten. bzw. in dem ausmaß. Synchronize wartet doch sowieso darauf bis der Hauptthread seine (Aufgaben abholt) und das sleep verlangsamt es zusätzlich somit kann ich doch garnicht mehr Aufrufen als er von sich aus schafft. Aber vil versteh ich das Thema auch nicht hab es mal versucht zu rechagieren aber noch nichts direktes gefunden das mir wirklich weiterhilft.

Narses · Verfasst: Di 19.05.09 15:49

Moin!

thepaine91 hat folgendes geschrieben :

hab es mal versucht zu rechagieren aber noch nichts direktes gefunden das mir wirklich weiterhilft.

Schonmal was von Satzzeichen gehört? Das sind diese komischen Punkte und Striche, die immer nutzlos zwischen den Buchstaben rumstehen :roll:

haben aber den Vorteil, den Text leserlicher zu machen... :zwinker:

Schau halt in den VCL-Source, dann wird´s dir klar. Das Thema ist aus meiner Sicher hier ausgereizt und für mich damit abgeschlossen.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

thepaine91 · Verfasst: Di 19.05.09 18:09

stupidedia.org/stupi/Satzzeichen

Na gut dann muss ich wohl versuchen das selbst rauszufinden.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme