GetTickCount

[ontorius]

Ich habe folgendes geschrieben:

Delphi-Quellcode:

procedure TForm1.trash;
var start:longint;
    i:integer;
begin
  repeat
    start:=gettickcount;
    if start+50=gettickcount then image4.picture.LoadFromFile('.\pics\trash_open1.bmp');
    if start+100=gettickcount then image4.Picture.loadfromfile('.\pics\trash_open2.bmp');
    if start+150=gettickcount then image4.Picture.LoadFromFile('.\pics\trash_blum.bmp');
    if start+2150=gettickcount then image4.Picture.loadfromfile('.\pics\trash.bmp');
    inc(i);
  until i=10;
end;

An der Stelle wo das Programm die oben genannte Prozedur aufruft, bleibt es einfach stehen und man kann darin nichts mehr machen. Wie muss man mit "GettickCount" umgehen?

[3_of_8]

Wie wäre es, wenn du statt dem = ein <= nimmst? So wie es jetzt ist, geht das nur, wenn der Computer es exakt in der richtigen Millisekunde schafft.

EDIT: Der Fehler liegt noch wo ganz anders. Du musst es so machen:

Delphi-Quellcode:

procedure TForm1.trash;
var start:longint;
    i:integer;
begin
  repeat
    start:=gettickcount;
    repeat Application.ProcessMessages until GetTickCount>=start+50;
    image4.picture.LoadFromFile('.\pics\trash_open1.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+100;
    image4.Picture.loadfromfile('.\pics\trash_open2.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+150;
    image4.Picture.LoadFromFile('.\pics\trash_blum.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+250;
    image4.Picture.loadfromfile('.\pics\trash.bmp');
    inc(i);
  until i=10;
end;

[ontorius]

Zitat:

Zitat von 3_of_8

Wie wäre es, wenn du statt dem = ein <= nimmst? So wie es jetzt ist, geht das nur, wenn der Computer es exakt in der richtigen Millisekunde schafft.

EDIT: Der Fehler liegt noch wo ganz anders. Du musst es so machen:

Delphi-Quellcode:

procedure TForm1.trash;
var start:longint;
    i:integer;
begin
  repeat
    start:=gettickcount;
    repeat Application.ProcessMessages until GetTickCount>=start+50;
    image4.picture.LoadFromFile('.\pics\trash_open1.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+100;
    image4.Picture.loadfromfile('.\pics\trash_open2.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+150;
    image4.Picture.LoadFromFile('.\pics\trash_blum.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+250;
    image4.Picture.loadfromfile('.\pics\trash.bmp');
    inc(i);
  until i=10;
end;

Was ist "Application.ProcessMessages"? Ich will versuchen, möglichst ohne dass das Programm aussetzt, dass die Bilder nach einer bestimmten zeit angezeigt werden.

[3_of_8]

Application.ProcessMessages ist in diesem Fall nur ein Füller und heißt so viel wie "nichts tun bis 50 ms um sind."

Da ruckelt absolut gar nix. So wie du das gemacht hast, geht er das durch:

start:=GetTickCount; //also ist start der Anfangswert
if start+50=GetTickCount... //Hier ist höchstens eine Millisekunde vergangen, also ist die Bedingung nicht erfüllt und so geht das auch bei den anderen Bedingungen.

Du musst praktisch WARTEN bis die 50 ms um sind, und das passiert bei meinem Code.

[Basilikum]

Zitat:

Zitat von ontorius

Delphi-Quellcode:

procedure TForm1.trash;
var start:longint;
    i:integer;
begin
  repeat
    start:=gettickcount;
    if start+50=gettickcount then image4.picture.LoadFromFile('.\pics\trash_open1.bmp');
    if start+100=gettickcount then image4.Picture.loadfromfile('.\pics\trash_open2.bmp');
    if start+150=gettickcount then image4.Picture.LoadFromFile('.\pics\trash_blum.bmp');
    if start+2150=gettickcount then image4.Picture.loadfromfile('.\pics\trash.bmp');
    inc(i);
  until i=10;
end;

An der Stelle wo das Programm die oben genannte Prozedur aufruft, bleibt es einfach stehen und man kann darin nichts mehr machen. Wie muss man mit "GettickCount" umgehen?

das "Stehenbleiben" hängt vermutlich damit zusammen, dass du i nicht initialisierst.... wenn nun i vor repeat zufälligerweise genau 11 ist, so wird die Schlaufe ca. 4'000'000'000 durchlaufen... und das dauert seine Zeit...
füge mal ein i:=0 vor repeat ein....

[Daniel G]

Zitat:

Zitat von ontorius

Was ist "Application.ProcessMessages"?

Mit dieser Anweisung verarbeitet eine Anwendung die Nachrichten, die an das Fenster geschickt werden. Auf gut deutsch:

Dat inner Schleife und die Anwendung friert für die Dauer der Schleife nicht ein.

//Edit: roter Kasten, ick vermiss dir.. :zwinker:

[ontorius]

Zitat:

Zitat von Daniel G

Zitat:

Zitat von ontorius

Was ist "Application.ProcessMessages"?

Mit dieser Anweisung verarbeitet eine Anwendung die Nachrichten, die an das Fenster geschickt werden. Auf gut deutsch:

Dat inner Schleife und die Anwendung friert für die Dauer der Schleife nicht ein.

//Edit: roter Kasten, ick vermiss dir.. :zwinker:

Und ob. Ich habs vorher mit 4 timern ausprobiert, da hats nichts geruckelt. Aber jetzt mit dem "Application.ProcessMessages" kann man das Ruckeln nich mehr übersehn.

[ontorius]

Zitat:

Zitat von 3_of_8

Application.ProcessMessages ist in diesem Fall nur ein Füller und heißt so viel wie "nichts tun bis 50 ms um sind."

Da ruckelt absolut gar nix. So wie du das gemacht hast, geht er das durch:

start:=GetTickCount; //also ist start der Anfangswert
if start+50=GetTickCount... //Hier ist höchstens eine Millisekunde vergangen, also ist die Bedingung nicht erfüllt und so geht das auch bei den anderen Bedingungen.

Du musst praktisch WARTEN bis die 50 ms um sind, und das passiert bei meinem Code.

Vielleicht sollte ich noch dazo sagen, dass ich nebenbei noch einen timer habe, der auch einige delays beinhaltet. Können diese in verbindung mit dem gettickcount zu übermäßigen ruckeln führen?

[3_of_8]

Jetzt tu mir nen Gefallen und benutze diesen Code. Einfach ausprobieren, bevor du mögliche Fehler kritisierst. Nebenbei würde ich die Bilder eher in eine ImageList laden, die Dinger 16 mal in der Sekunde aus der Datei zu laden ist ineffizient.

EDIT: Was meinst du, wie ein Timer funktioniert? Das ist nichts anderes als GetTickCount schön in ne Klasse verpackt.

Delphi-Quellcode:

procedure TForm1.trash;
var start:longint;
    i:integer;
begin
  i:=0;
  repeat
    start:=gettickcount;
    repeat Application.ProcessMessages until GetTickCount>=start+50;
    image4.picture.LoadFromFile('.\pics\trash_open1.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+100;
    image4.Picture.loadfromfile('.\pics\trash_open2.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+150;
    image4.Picture.LoadFromFile('.\pics\trash_blum.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+250;
    image4.Picture.loadfromfile('.\pics\trash.bmp');
    inc(i);
  until i=10;
end;

[ontorius]

Zitat:

Nebenbei würde ich die Bilder eher in eine ImageList laden

Kannst du mir das mit der ImageList erklären?
Den Code hab ich ausprobiert und es ruckelt, das hats bei den 4 timern für jedes bild nich getan.

[3_of_8]

Pack ne TImageList auf die Form. Doppelklick drauf, Bilder hinzufügen.

Und dann nur noch mit der DrawMethode auf das Bild zeichnen, Codebeispiel dürfte in der OH stehen.

[Daniel G]

Mal ne doofe Frage:

Wozu brauchst du das?

[3_of_8]

Ich glaube, er will zu einem Löschvorgang eine Art Animation eines Mülleimers abspielen.

[ontorius]

Zitat:

Wozu brauchst du das?

Ich programmier ein Jump'n'run game
---jaja, paintbox wäre besser, aber das is mir zu kompliziert---

[3_of_8]

Das meinst du nicht ernst, oder?

Mit mehreren Imageboxen und dann auch noch in einzelnen Prozeduren und die Bilder aus Dateien laden?

Dass das ruckelt, glaube ich gerne.

[Master_RC]

Zitat:

Zitat von ontorius

Zitat:

Wozu brauchst du das?

Ich programmier ein Jump'n'run game
---jaja, paintbox wäre besser, aber das is mir zu kompliziert---

Lol, für sowas reicht selbst eine Paintbox nicht mehr :)

Ich selbst bin auch so eilig gewesen und wollte ein Spiel proggen, aber aus Erfahrung sag ich dir:
DAT WIRD NICHTS ;)

Fang erst mit was Kleinerem an und erst, wenn du dir wirklich sicher bist, dass du dich gut auskennst (wie z. B. mit DelphiX oder dergleichen), dann mach das hier nochmal ;)

[Alexander Roth]

Zitat:

Delphi-Quellcode:

procedure TForm1.trash;
var start:longint;
    i:integer;
begin
  repeat
    start:=gettickcount;
    repeat Application.ProcessMessages until GetTickCount>=start+50;
    image4.picture.LoadFromFile('.\pics\trash_open1.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+100;
    image4.Picture.loadfromfile('.\pics\trash_open2.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+150;
    image4.Picture.LoadFromFile('.\pics\trash_blum.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+250;
    image4.Picture.loadfromfile('.\pics\trash.bmp');
    inc(i);
  until i=10;
end;

Also, wozu die until i=10 ?
Dann macht er die selbe animation ja nicht 10 mal da die Zeit um ist.
Einfach so:

Delphi-Quellcode:

procedure TForm1.trash;
var start:longint;
begin
    start:=gettickcount;
    repeat Application.ProcessMessages until GetTickCount>=start+50;
    image4.picture.LoadFromFile('.\pics\trash_open1.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+100;
    image4.Picture.loadfromfile('.\pics\trash_open2.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+150;
    image4.Picture.LoadFromFile('.\pics\trash_blum.bmp');
    repeat Application.ProcessMessages until GetTickCount>=start+250;
    image4.Picture.loadfromfile('.\pics\trash.bmp');
end;

Für ein spiel ist Paintox nicht ganz so schlecht wie Image aber immer noch grotten schelcht.

nee..
da musst du direkt aufs Canvas Malen mit bitblt

Delphi-Quellcode:

BitBlt(form1.Canvas.Handle,x,y, bild.Width, bild.Height, bild.canvas.Handle,0 ,0,srccopy);

Das ist, so weit ich weis, die schnelltste Möglichkeit fürs 2d malen.

Dann musst du natürlicxh noch bei jedem ONPaint der Form neu Zeichen, damit nix flackert. :wink:

[3_of_8]

Falsch. Am schnellsten gehts mit DirectX oder OpenGL. Allerdings schätze ich mich selbst jetzt mal etwas fortgeschrittener als den Ersteller dieses Threads ein, und OpenGL ist für mich noch "zu hoch".

[ontorius]

So ich habs jetzt gelöst:

Delphi-Quellcode:

procedure TForm1.trash;
begin
  if gettickcount>=start+1000 then start:=gettickcount;
  if (start+50)<=gettickcount then image4.picture.LoadFromFile('.\pics\trash_open1.bmp');
  if (start+100)<=gettickcount then image4.Picture.loadfromfile('.\pics\trash_open2.bmp');
  if (start+150)<=gettickcount then image4.Picture.LoadFromFile('.\pics\trash_blum.bmp');
  if (start+1000)<=gettickcount then image4.Picture.loadfromfile('.\pics\trash.bmp');
end;

start wird dann in der Startprozedur deklariert. Also, es doch. Vielen Danke für eure Beiträge.

[Airblader]

Trotzdem, nochmal:

• Dein Spiel wird auf jedem Rechner anders schnell laufen
• Die Performance ist die schlechteste, die du nur erzielen kannst
• Es gibt absolut 0 Dynamik in dieser Methode (Stichwort OOP)
• Du wirst ziemlich schnell tausende Zeilen Code haben, die sich mit wenigen lösen ließen
• Ein paar dieser Sachen und du kommst selbst auf modernen Rechnern schnell wieder ins Stocken
• Wenn du Delphi noch nicht so gut beherrschst, lern dir lieber kleinere Sachen an - ein Spiel ist einfach zu aufwendig und ich prophezeihe dir mit 100%iger Wahrscheinlichkeit, dass du ohne Kenntnisse und mit dieser Methode sicher kein halbwegs auch nur annähernd mittelwertiges Spiel hinbekommst ;)

=> Lass es sein und lerne Delphi erstmal grundlegend ;)

MfG, air

[Alexander Roth]

Zitat:

Falsch. Am schnellsten gehts mit DirectX oder OpenGL. Allerdings schätze ich mich selbst jetzt mal etwas fortgeschrittener als den Ersteller dieses Threads ein, und OpenGL ist für mich noch "zu hoch".

Deshalb hab ichs nicht empfohlen.

[zer00]

Wenn Du einen wirklich schnellen und genauen Timer willst, versuchst mit QueryPerformanceCounter.

grz zer00