AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Weiterlernen

Ein Thema von teodorfon · begonnen am 12. Jul 2016 · letzter Beitrag vom 12. Aug 2016
Antwort Antwort
teodorfon

Registriert seit: 12. Jul 2016
Ort: Bosnien und Herzegowina
17 Beiträge
 
#1

AW: Weiterlernen

  Alt 18. Jul 2016, 21:46
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...
  Mit Zitat antworten Zitat
Benutzerbild von milos
milos

Registriert seit: 14. Jul 2008
Ort: Bern (CH)
509 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Weiterlernen

  Alt 18. Jul 2016, 22:41
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
Milos

Geändert von milos (18. Jul 2016 um 23:04 Uhr)
  Mit Zitat antworten Zitat
teodorfon

Registriert seit: 12. Jul 2016
Ort: Bosnien und Herzegowina
17 Beiträge
 
#3

AW: Weiterlernen

  Alt 18. Jul 2016, 23:18
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
  Mit Zitat antworten Zitat
Benutzerbild von milos
milos

Registriert seit: 14. Jul 2008
Ort: Bern (CH)
509 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Weiterlernen

  Alt 18. Jul 2016, 23:35
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?

... 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.

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
Milos
  Mit Zitat antworten Zitat
teodorfon

Registriert seit: 12. Jul 2016
Ort: Bosnien und Herzegowina
17 Beiträge
 
#5

AW: Weiterlernen

  Alt 3. Aug 2016, 14:15
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?

... 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.

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.
  Mit Zitat antworten Zitat
teodorfon

Registriert seit: 12. Jul 2016
Ort: Bosnien und Herzegowina
17 Beiträge
 
#6

AW: Weiterlernen

  Alt 7. Aug 2016, 14:09
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.
  Mit Zitat antworten Zitat
Benutzerbild von BUG
BUG

Registriert seit: 4. Dez 2003
Ort: Cottbus
2.094 Beiträge
 
#7

AW: Weiterlernen

  Alt 7. Aug 2016, 17:23
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.
Intellekt ist das Verstehen von Wissen. Verstehen ist der wahre Pfad zu Einsicht. Einsicht ist der Schlüssel zu allem.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:26 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz