Image bewegen

[Jonski]

Ich glaub das liegt am Laptop.

[DeddyH]

Pack einmal die *.dpr, *.pas und *.dfm Deines Projektes in ein Zip-Archiv und hänge das an Deinen Beitrag an. Dass das am Laptop liegen soll, wage ich zu bezweifeln.

[Namenloser]

Zitat:

Zitat von Jonski

Ich glaub das liegt am Laptop.

Solang nicht deine Tastatur kaputt ist (und das scheint ja nicht der Fall zu sein, weil du ja hier noch Beiträge schreiben kannst), wage ich einfach mal, zu widersprechen, auch ohne die genauen Umstände zu kennen. Nach meinen ca. 7 Jahren Erfahrung, kann ich sagen, dass, wenn etwas nicht funktioniert, es in mindestens 99% aller Fälle die eigene Schuld ist.
Solange du uns aber den Code vorenthälst, kann dir niemand helfen. Noch besser wäre es natürlich, wenn du das Problem selbst lösen würdest, denn dabei lernst du viel mehr.

[Jonski]

Hier is die Scheiße

[Jonski]

ich habe bestimmt den einfachsten Fehler der Welt gemacht.

[DeddyH]

Das OnKeyDown ist nicht zugewiesen. Klick einfach auf eine leere Stelle auf Deinem Formular, wechsel im Objektinspektor auf den Reiter "Ereignisse", dort auf "OnKeyDown" und wähle "FormKeyDown" aus. Dann nochmal versuchen.

[Jonski]

Helft mir mal bitte.

Diese Bitmap wird nur als weißer Balken angezeigt:

Delphi-Quellcode:

//Bitmap3
  Bitmap3:=TBitmap.Create;
  try
    Bitmap3.Width:=Image3.Width;
    Bitmap3.Height:=Image3.Height;
    Bitmap3.Canvas.pen.color:=clBlue;
    Bitmap3.Canvas.pen.width:=10;
    Bitmap3.Canvas.Rectangle(0,0,5,1000);
    Image3.Picture.Assign(Bitmap3);
  finally
    Bitmap3.Free;
  end;

  with Image3 do
    begin
    transparent:=true;
    end;

[DeddyH]

Schau Dir die Parameter von Canvas.Rectangle einmal an. Ist die Bitmap wirklich 1000 Pixel hoch?

[Jonski]

Nein aber mit -1000 geht es auch nicht und wie kann ich eigentlich die Pixel zählen lassen?

[DeddyH]

Nimm doch einfach Höhe und Breite der Bitmap.

[himitsu]

Zitat:

ransparent:=true;

das Pixel links unten wird standardmäßig als Transparentfarbe genommen, dieses Pixel ist bei dir wohl Blau, weswegen alles Blaue transparent/durchsichtig wird und nur noch der Rest sichtbar ist ... wo nix gezeichnet wurde, ist ein Bitmap standardmäßig weiß ... ergo ist nur was Weißes sichtbar. :angel:

[Jonski]

Jetzt wo ihr mir so toll geholfen habt dürft ihr auch sehen was ich gemacht habe.

Guckt es euch bitte an und bewertet es, danke.

[Jonski]

Ich hab wieder eine Frage!

Wie kriege ich es hin, dass sich dieses Image1 solange bewegt bis es Image 2 oder 5 berührt?

Denn ich will jetzt einen Ball der darum hüpft! Bei mir springt er immer nur zu einer Wand und man sieht keine Bewegung.

[DeddyH]

Versuch es mal mit einem Timer.

[Jonski]

Genau das ist mein Problem wie baue ich einen Timer ein?

Ich weiß man kann in millisekunden angeben, wielange das Programm nichts machen soll, aber wie schreibe ich das?

[DeddyH]

Die Bewegung samt Prüfung schreibst Du ins Ereignis OnTimer des Timers.

[Jonski]

Hab ich, aber jetzt wird nurnoch der Timer verwendet und nicht der Button, und der Punkt springt immernoch von einem zum anderen Ort!

[DeddyH]

Dann überprüfe einfach mal Deine Programmlogik. Es nützt Dir ja nichts, wenn wir Dir hier das Denken abnehmen.

[Jonski]

Ich müsste nur mal wissen wie ich 2 Proceduren miteinander verknüpfe(habe ich schon mal gelesen aber wieder vergessen).

Und wie kann ich die Zeit, die angehalten wird, regeln?

[DeddyH]

Die Zeit wird in der Interval-Eigenschaft des Timers angegeben. Und was meinst Du mit Verknüpfen?

[Jonski]

Jaja das habe ich auch bemerkt, aber der Punkt bewegt sich nicht langsam sondern hüpft von A nach B, man soll aber die Bewegung sehen!

Und ich will mit Button1.Click den Vorgang starten ,dass er sich so wie bei einem Pong-spiel nur ohne "Schläger" bewegt.

Also ,dass der Timer dann gestartet wird,wenn ich auf den Button kilcke.

[Namenloser]

Wenn der Punkt sich langsam von A nach B bewegen soll, musst du eben genau das programmieren. Als Programmierer ist es deine Aufgabe, dir zu überlegen, wie du das anstellen kannst. Wenn du Hilfe zu den Komponenten brauchst, guck dir halt die interne Delphi-Hilfe an, oder nutze die Referenz hier im Forum.

Bitte hör auf, bei jeder Kleinigkeit nachzufragen.

[Jonski]

Ja, aber wie erreiche ich das denn, welcher Befehl fehlt mir denn?

[Namenloser]

Zitat:

Zitat von Jonski

Ja, aber wie erreiche ich das denn, welcher Befehl fehlt mir denn?

Dir fehlt kein Befehl. TTimer und TTimer.Interval wurden schon genannt. Das - verbunden mit etwas Eigeninitiative - reicht völlig aus, um dein Ziel zu erreichen.

[Jonski]

Bitte guck es dir an, ich komme weder vor noch zurück!

Das mit dem Timer ist nicht das Problem der geht, aber der Ball geht durch Wände!

[DeddyH]

Ich hab nicht reingeschaut, aber vermutlich fehlt die Kollisionskontrolle. Hatten wir doch alles schon.

[Jonski]

Nein ich hab diese Kollisionskontrolle:

Delphi-Quellcode:

Punkt_HochRunter:=x;
Punkt_LinksRechts:=y;

if Image1.Left = Image2.Left +30 then
  begin
  Punkt_LinksRechts:=1;
  end;

if Image1.Left = Image3.Left -50 then
  begin
  Punkt_LinksRechts:=2;
  end;

if Image1.Top = Image4.Top +30 then
  begin
  Punkt_HochRunter:=1;
  end;

if Image1.Top = Image5.Top -50 then
  begin
  Punkt_HochRunter:=2;
  end;

x:=Punkt_HochRunter;
y:=Punkt_LinksRechts;

if Punkt_LinksRechts = 1 then
  begin
  Image1.Left:= Image1.Left +10;
  end;

if Punkt_LinksRechts = 2 then
  begin
  Image1.Left:= Image1.Left -10;
  end;

if Punkt_HochRunter = 1 then
  begin
  Image1.Top:= Image1.Top +10;
  end;

if Punkt_HochRunter = 2 then
  begin
  Image1.Top:= Image1.Top -10
  end;

[DeddyH]

Dann setz einmal einen Haltepunkt und schau Dir die Inhalte Deiner Variablen an.

[hugo1990]

Eine Kollisionsabfrage nur mit "=" zu machen ist in den meisten Fällen kritisch, man sollte lieber ">=" oder "<=" benutzten, je nach dem was man gerade benötigt. Denn wenn bei "=" der gesuchte Wert übersprungen wird, dann läuft alles normal weiter.

[Jonski]

Also ich seh das so:

1.Punkt_LinksRechts und Punkt_HochRunter werden die Werte aus x und y zugewiesen.
2.Es wird getestet ob die Koordinaten von Image1 auf denen von Image? liegen.
3.Ggf. werden den Var. Punkt_LinksRechts und Punkt_HochRunter andere Werte zugeordnet.
4.x und y werden die neuen Werte zugewiesen.(Irgendwie überflüssig oder?).
5.Das Objekt wird bewegt.

Ich versteh meinen Fehler nicht :gruebel:

[Jonski]

Ihr seid so gut zu mir es klappt!

So und jetzt wie kriege ich es hin das es erst bei Button1.click losgeht?

[hugo1990]

Du testest aber mit "=" und DeddyH hat gesagt du sollst mal Haltepunkte setzten und den Inhalt der Variablen anschauen. Wenn du das getan hättest, wüsstest du wo dein Fehler liegt.
Dein Image1 startet bei 432, 272 und diese Werte werden immer mit 10 inkementiert bzw. dekrementiert.
Deine anderen Images haben aber bei den Positionen als letzte Ziffer nie eine 2, deshalb habe ich ja gesagt, du sollst ">=" oder "<=" verwenden.

[DeddyH]

Timer.Enabled initial auf false und im ButtonClick auf true stellen.

[Namenloser]

Zitat:

Zitat von Jonski

Ihr seid so gut zu mir es klappt!

So und jetzt wie kriege ich es hin das es erst bei Button1.click losgeht?

TTimer.Enabled

[Jonski]

Ich bin gerade dabei Pong zu Programmieren :-D

[Wolfgang Mix]

Setze den Timer im Objektinstektor auf disabled und im Button1-Event
auf Enabled. Müßte doch funktionieren!

[Medium]

Zitat:

Zitat von Jonski

Ich bin gerade dabei Pong zu Programmieren :-D

Nein, die Antworter hier programmieren Pong. Du schreibst es nur hin.

[Jonski]

Toll danke das motiviert mich!

Ich weiß, aber ich habe das gestern erst gelernt und ich find meine Fehler nicht.

So wie hier:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

begin

case Key of
  VK_Left:
  if Image6.Left > Image2.Left +43 then
    begin
    Image6.Left:= Image6.Left -10;
    end;
  VK_Right:
  if Image6.Left < Image3.Left -100 then
    begin
    Image6.Left:= Image6.Left +10;
    end;
end;
end;

Gebt mir nur einen Tipp

[Jonski]

Ich komme nicht weiter :wall:

[Luckie]

Würdest du es bitte unterlassen deine beitrage zu pushen bevor 24 Stunden um sind:

Des Weiteren:

Zitat:

find meine Fehler nicht

Das hilft uns relativ wenig. Was passiert bzw. passiert nicht und was soll passieren? Fehlermeldungen der des Compilers? Fehlermeldungen zur Laufzeit? Was hast du beim Debuggen rausgefunden?

Du kannst nicht von uns erwarten, dass wir wissen was passiert und wenn du uns essentielle Informationen vorenthältst, können wir kaum helfen außer raten.