Weiterlernen

[milos]

Hi,

Was funktioniert da genau nicht? Falls die prozedur gar nicht aufgerufen wird, versuche mal die KeyPreview Eigenschaft von deinem Formular auf True zu setzen.

Edit:
Ok, beim 2. Blick ist es nicht zu übersehen.
Du solltest dir unbedingt angewöhnen deinen Code richtig einzurücken, denn so kann (bzw. will ) das doch keiner lesen.
Das hilft dir wirklich weiter wenn du später lange und komplexe Algorithmen schreibst, denn du siehst "automatisch" wo du gerade im Code bist und kannst ganz klare Abschnitte/Trennungen schaffen. Ausserdem hättest du so das Problem dann ganz einfach selbst bemerkt

Und zwar fehlt da sehr wahrscheinlich das begin der Prozedur. So sollte der Code kompilierbar sein: (nicht getestet - aber lesbar formatiert ist er! )
Nachtrag: Du hast noch einen Fehler drin und zwar bei dir auf der 3. Zeile (IF timer1.enabled:=true then ) versuchst du eine Abfrage mit dem "Zuweisungszeichen" (:=) zu machen. Bei abfragen fragst du aber nur mit dem Gleich-Zeichen (=) ab. Im unteren Code ist es korrigiert.

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  IF timer1.enabled=true then // Du könntest auch ganz einfach "if timer1.enabled then" abfragen für TRUE.
  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;

Auch wäre es sehr empfehlenswert uns den Fehler mitzuteilen der dir der Compiler ausspuckt - auch ein sehr guter Hinweis was der Fehler sein könnte.
Find ich sehr gut das du aus eigenem Antrieb weiter lernst. Weiter so!

Freundliche Grüsse

[teodorfon]

Zitat von milos:

Hi,

Was funktioniert da genau nicht? Falls die prozedur gar nicht aufgerufen wird, versuche mal die KeyPreview Eigenschaft von deinem Formular auf True zu setzen.

Edit:
Ok, beim 2. Blick ist es nicht zu übersehen.
Du solltest dir unbedingt angewöhnen deinen Code richtig einzurücken, denn so kann (bzw. will ) das doch keiner lesen.
Das hilft dir wirklich weiter wenn du später lange und komplexe Algorithmen schreibst, denn du siehst "automatisch" wo du gerade im Code bist und kannst ganz klare Abschnitte/Trennungen schaffen. Ausserdem hättest du so das Problem dann ganz einfach selbst bemerkt

Und zwar fehlt da sehr wahrscheinlich das begin der Prozedur. So sollte der Code kompilierbar sein: (nicht getestet - aber lesbar formatiert ist er! )
Nachtrag: Du hast noch einen Fehler drin und zwar bei dir auf der 3. Zeile (IF timer1.enabled:=true then ) versuchst du eine Abfrage mit dem "Zuweisungszeichen" (:=) zu machen. Bei abfragen fragst du aber nur mit dem Gleich-Zeichen (=) ab. Im unteren Code ist es korrigiert.

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  IF timer1.enabled=true then // Du könntest auch ganz einfach "if timer1.enabled then" abfragen für TRUE.
  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;

Auch wäre es sehr empfehlenswert uns den Fehler mitzuteilen der dir der Compiler ausspuckt - auch ein sehr guter Hinweis was der Fehler sein könnte.
Find ich sehr gut das du aus eigenem Antrieb weiter lernst. Weiter so!

Freundliche Grüsse

Ich hab ganz vergessen zu sagen was mit dem programm nicht stimmt...
Ich bekomme keine fehlermeldung aber der Shape 2 bewegt sich leider nicht wenn ich meine pfeiltasten benutze.
PS:Ich wollte gar nicht eine IF schleife haben,wo kommt denn hier,bin halt ein profi programmierer

[milos]

Zitat von teodorfon:

Ich hab ganz vergessen zu sagen was mit dem programm nicht stimmt...
Ich bekomme keine fehlermeldung ...

Das kann nicht sein, der Code den du gepostet hast ist so nicht kompillierbar. Bist du sicher das du uns den richtigen Code geschickt hast?
Wenn du dein Shape mit den Pfeiltasten bewegen willst brauchst du doch nicht die 2 Timer die da dazwischen funken und dein Shape selbst auch bewegen oder?

Zitat von teodorfon:

... aber der Shape 2 bewegt sich leider nicht wenn ich meine pfeiltasten benutze.

Im Code bewegst du ja auch Shape1, sowohl in den Timern als auch mit den Pfeiltasten.
Ich würde erstmal nachsehen ob OnKeyDown überhaupt getriggert wird indem du dort einen Haltepunkt setzt und mit F9 den Debugger startest, dann kannst du auch sehen ob sich da überhaupt was tut.

Zitat von teodorfon:

PS:Ich wollte gar nicht eine IF schleife haben,wo kommt denn hier,bin halt ein profi programmierer

Steht bei dir auf der 3. Zeile im Code, ich denke mal das du uns einen anderen Code gegeben hast.
Versuchs mal so:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  IF key = VK_Down THEN shape2.Top := shape2.Top +5;
  IF key = VK_UP THEN shape2.Top := shape2.Top -5;
  IF key = VK_RIGHT THEN shape2.Left := shape2.Left +5;
  IF key = VK_LEFT THEN shape2.Left := shape2.Left -5;
end;

Hier ist die if-abfrage die du ja nicht willst draussen und es wird auch shape2 (Falls es denn auch wirklich shape2 heisst!) bewegt.

Freundliche Grüsse

[teodorfon]

Zitat von milos:

Zitat von teodorfon:

Ich hab ganz vergessen zu sagen was mit dem programm nicht stimmt...
Ich bekomme keine fehlermeldung ...

Das kann nicht sein, der Code den du gepostet hast ist so nicht kompillierbar. Bist du sicher das du uns den richtigen Code geschickt hast?
Wenn du dein Shape mit den Pfeiltasten bewegen willst brauchst du doch nicht die 2 Timer die da dazwischen funken und dein Shape selbst auch bewegen oder?

Zitat von teodorfon:

... aber der Shape 2 bewegt sich leider nicht wenn ich meine pfeiltasten benutze.

Im Code bewegst du ja auch Shape1, sowohl in den Timern als auch mit den Pfeiltasten.
Ich würde erstmal nachsehen ob OnKeyDown überhaupt getriggert wird indem du dort einen Haltepunkt setzt und mit F9 den Debugger startest, dann kannst du auch sehen ob sich da überhaupt was tut.

Zitat von teodorfon:

PS:Ich wollte gar nicht eine IF schleife haben,wo kommt denn hier,bin halt ein profi programmierer

Steht bei dir auf der 3. Zeile im Code, ich denke mal das du uns einen anderen Code gegeben hast.
Versuchs mal so:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  IF key = VK_Down THEN shape2.Top := shape2.Top +5;
  IF key = VK_UP THEN shape2.Top := shape2.Top -5;
  IF key = VK_RIGHT THEN shape2.Left := shape2.Left +5;
  IF key = VK_LEFT THEN shape2.Left := shape2.Left -5;
end;

Hier ist die if-abfrage die du ja nicht willst draussen und es wird auch shape2 (Falls es denn auch wirklich shape2 heisst!) bewegt.

Freundliche Grüsse

Erstens,entschuldigung für die späte antwort ich war im Urlaub...
Denn code kann ich kompallieren weil ich den ersten teil des codes nicht beutzt habe.
Jetzt das ich wieder da bin will fleissig weiterlernen,und ich wollte wissen was ich alles brauche um ein einfaches 2D-Jump'n'Run zu machen,ich glaub es sollte als mein erstes projekt mehr realistisch sein alls ein MMORPG.

[teodorfon]

Wollte einen einfachen Countdown programmieren,den Code kann man kompilieren,es kommt keine Fehler meldung.
Will wirklich keine zeit von euch verschwenden.

Delphi-Quellcode:

var
  Form1: TForm1;
  TotalTime:TTime;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin

totaltime:=1000;
timer1.Interval:=1000;
label1.Caption:=Timetostr(totaltime-1);

end;

end.

[BUG]

Zitat von teodorfon:

Will wirklich keine zeit von euch verschwenden.

Überlege wann Timer1Timer aufgerufen wird, und was in jeder der 3 Zeilen passiert. Am besten du schreibst das einfach hier als Antwort ... entweder springt dich beim Schreiben das Problem an oder wir können dir sagen, wo du eine falsche Annahme getroffen hast.

[teodorfon]

Zitat:

Überlege wann Timer1Timer aufgerufen wird

Der intervall ist ja auf 1000 was eine sekunde ist,also sollte sich die procedure jede sekunde wierholen,wenn nicht hab ich es nicht richtig verstanden.

Zitat:

und was in jeder der 3 Zeilen passiert

totaltime:=1000 Also das sollte eig. der anfangswert des CountDowns sein.
timer1.Interval:=1000;Wie oft sich die procedure wiederholt (Glaub das wird das einzige richtig sein )
aber immer nur label1.Caption:=Timetostr(totaltime-1); Hier sollte sich der CountDown anzeigen,da der wert in der labele sich wohl nicht verändert und auf 999 bleiben sollte.Zeigt aber immer nur 00:00:00 an,sollte es wohl anders machen?Zbs. x:=totaltime-1;