Weiterlernen

[teodorfon]

Abend alle,wollte jetzt kein thread für mein problem aufmachen,das lernen geht schon ein wenig voran aber leider weiss nicht genau warum mein "loop" (hoff dass der begriff gut gewählt ist) nicht funktioniert.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if shape1.Left>=0 then begin
timer1.Interval:=100;
shape1.Left:=shape1.Left+30;
if shape1.Left=150 then timer1.Enabled:=false;
if timer2.Enabled=false then timer1.Enabled:=true;  //geht nicht .____.
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if timer1.Enabled=false then begin
timer2.Interval:=100;
shape1.left:=shape1.Left-30;
if shape1.Left=0 then timer2.Enabled:=false;
end;
end;
end.

Wollte ein wenig mit den Shapes rumspielen...

[blawen]

- Verwende für Quelltexte im Forum möglichst immer die Delphi-Tags (Helm-Symbol)
- Rücke den Code möglichst sinnvoll ein, dies bringt nicht nur Dir eine bessere Übersicht.
- Direkte Überprüfung auf True oder False ist schlecht, besser Du verwendest folgende Form

Delphi-Quellcode:

if Timer1.Enabled then....
if NOT Timer1.Enabled then...

Zitat:

Delphi-Quellcode:

procedure tform1.timer1timer(sender: Tobject);
begin
  if shape1.left >= 0 
  then begin
    timer1.interval := 100;
    shape1.left     := shape1.left + 30;
    if shape1.left    = 150   then timer1.enabled:=false;
    if timer2.enabled then timer1.enabled := true;  //Macht keinen Sinn -> ev. falscher Timer?
  end;
end;

procedure tform1.timer2timer(sender: Tobject);
begin
  if timer1.enabled
  then begin
    timer2.interval := 100;
    shape1.left     := shape1.left - 30;
    if shape1.left = 0 then timer2.enabled := false;
  end;
end;

end.

Die Procedure tform1.timer1timer wird aufgerufen, wenn der Timer1 aktiv ist und das definierte Intervall abgelaufen ist.
Insofern macht die beanstandete Zeile keinen Sinn - der Timer1 läuft ja bereits. Ich nehme mal an, dass Du eigentlich den Timer2 starten willst?

[teodorfon]

Das problem ist das,das programm sich nicht "wiederholt" nachdem timer1 und timer2 einmal ausgeführt wurden stopt das programm...
if timer2.enabled = false then timer1.enabled:=true; //geht nicht .____. <---Mein versuch den loop zu wiederholen wen er einmal ausgeführt wurde.

[blawen]

Zitat von teodorfon:

Das problem ist das,das programm sich nicht "wiederholt" nachdem timer1 und timer2 einmal ausgeführt wurden stopt das programm...
if timer2.enabled = false then timer1.enabled:=true; //geht nicht .____. <---Mein versuch den loop zu wiederholen wen er einmal ausgeführt wurde.

Die Timer laufen grundsätzlich solange, bis sie gestoppt werden.

Code:

Stopp-Bedingungen
Timer 1: shape1.left = 150
Timer 2: shape1.left = 0

Untersuchen wir mal Timer1.
Annahme Shape.Left ist zu Beginn "0". Somit müsste der Timer1 genau 5x ausgeführt werden und danach stoppen.
In diesem Zusammenhang wäre es besser für die Abbruchbedingung ">= 150" einzusetzen.
Aber wie wird der Timer1 wieder gestartet? (gilt auch für Timer2)

Timer2:
Die Zeile

Delphi-Quellcode:

if timer1.enabled  
  then begin

macht irgendwie keinen Sinn... ebenso timer2.interval := 100;

Delphi-Quellcode:

procedure tform1.timer1timer(sender: Tobject);
begin
  if shape1.left >= 0
  then begin
    timer1.interval := 100;
    shape1.left := shape1.left + 30;

    if shape1.left = 150 
    then begin 
      timer1.enabled := false;
      timer2.enabled := true;
    end;  

  end;
end;

procedure tform1.timer2timer(sender: Tobject);
begin
  if timer1.enabled  
  then begin
    timer2.interval := 100;
    shape1.left := shape1.left - 30;

    if shape1.left <= 0 
    then begin
      timer1.enabled := true;
      timer2.enabled := false;
    end; 

  end;
end;

end.

[Sir Rufo]

Nimm einfach einen Timer, lass den einfach immer durchlaufen und ändere die Schrittweite ab.

Delphi-Quellcode:

TForm1 = class( TForm )
...
private
  FShapeIncrement: Integer;
public
  procedure AfterConstruction; override;
end;

procedure TForm1.AfterConstruction;
begin
  inherited;
  // Startwert festlegen
  FShapeIncrement := 30;
end;

procedure TForm1.Timer1OnTimer( Sender: TObject );
var
  newLeft: Integer;
  maxLeft: Integer;
begin
  newLeft := Shape1.Left + FShapeIncrement;
  maxLeft := Shape1.Parent.ClientWidth - Shape1.Width;

  if newLeft <= 0
  then
    begin
      newLeft := 0;
      FShapeIncrement := - FShapeIncrement;
    end
  else if newLeft >= maxLeft
  then
    begin
      newLeft := maxLeft;
      FShapeIncrement := - FShapeIncrement;
    end;

  Shape1.Left := newLeft;
end;

[blawen]

Folgender Code funktioniert: (Bedingung Shape1.Left ist zu Beginn = 0)

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if shape1.left < 150 then shape1.left := shape1.left + 30;

  if shape1.left >= 150
  then begin
    timer2.enabled := true;
    timer1.enabled := false;
  end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if shape1.left > 0 then shape1.left := shape1.left - 30;

  if shape1.left <= 0
  then begin
    timer1.enabled := true;
    timer2.enabled := false;
  end;
end;

Aber ich gebe Sir Rufo Recht, ein Timer ist besser

[teodorfon]

Vielen dank,euch beiden ^_^ !

[teodorfon]

Ist mir jetzt ein wenig peinlich wieder nach hilfe zu suchen,leider hab ich schon ein paar tage versucht das programm hinzubekommen,ohne erfolg...

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 IF timer1.enabled:=true then
begin

 IF key = VK_Down   THEN shape1.Top  := shape1.Top +5;
 IF key = VK_UP     THEN shape1.Top  := shape1.Top -5;
 IF key = VK_RIGHT  THEN shape1.Left := shape1.Left +5;
 IF key = VK_LEFT   THEN shape1.Left := shape1.Left -5;
end;
  end;
  procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if shape1.left < 150 then shape1.left := shape1.left + 30;

  if shape1.left >= 150
  then begin
    timer2.enabled := true;
    timer1.enabled := false;
  end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if shape1.left > 0 then shape1.left := shape1.left - 30;

  if shape1.left <= 0
  then begin
    timer1.enabled := true;
    timer2.enabled := false;
  end;
end;


end.

Die idee ist es erstmal den Shape 2 auf gleiche höhe wie Shape1 zu setzen,wenn das erst mal möglich ist wollte ich eine collision detection einzubauen.Nur funktioniert die KeyDown procedure nicht.Hoffe dass solch eine frage nicht doppelt gestellt wurde,aber die anderen themen haben mir leider nicht geholfen...