Bilderschleife

[Bellla]

Hallo, habe ein Problem
Ich möchte ein auge als anfangsbild es gibt mehrere Buttons.
fangen wir mit dem ersten an. drückt man den ersten button sollen fotos kommen.
drückt maneinen anderen button erscheinen andere bilder
ich habe so angefangen

Code:

var
  Form1: TForm1;
  status:integer;
  i:integer;

implementation

{$R *.dfm}

procedure TForm1.B1Click(Sender: TObject);
begin
if status=0 then
            begin
            for i:=0 to 1000 do ;
            image2.visible:=true;
            if image2.Visible  then

            begin;
            image1.visible:=false;
            status:=1;
            exit;
            end;
            end


            else if status=2 then
            begin
            for i:=0 to 1000 do ;
            if image3.Visible  then

            begin;
            image2.visible:=false;
            status:=2;
            end;
            end



            else if status=3then
            begin
            for i:=0 to 1000 do ;
            if image4.Visible  then

            begin;
            image3.visible:=false;



            status:=4;
            exit;
            end;


end;
end;

end.

ich komme nicht weiter :(

[mkinzler]

Was soll des passieren? So funktioniert es jedenfalls nicht!
Und rücke mal deinen Code richtig ein, so dass du siehst welcher Code jeweils einen Block bildet

[Bellla]

hätte ich ne ahnung von sowas...wie geht es dann??

[mkinzler]

Wie geht was?

[Bellla]

das was ich machen will also man hat ein anfangsbild sagen wir image1
ich habe jetzt da 5 buttons drauf.
auf jeden button möchte ich ungefähr 3 bilder unterbringen. wenn ich button1 drücke kommen die ersten 3 bilder, wenn ich jetzt den button2 drücke verschwinden die 3 bilder und es kommen 3 neue.



bitte hilf mir es ist so wichtig. ich kann das nicht

[mkinzler]

Ich würde Case satt der verschachtelten Ifs nehmen.

Delphi-Quellcode:

var
  Form1: TForm1;
  status:integer;
  i:integer;

implementation

{$R *.dfm}

procedure TForm1.B1Click(Sender: TObject);
begin
    case status of
        0:
        begin
            sleep ( 500); //Halbe Sekunde
            image2.visible:=true;
            //if image2.Visible then -> überflüssig, weil du dies ja gerde explizit gemacht hast
            image1.visible:=false;
            status:=1;
        end;
        2:
        begin
            sleep(500);
            image2.visible:=false:
            status:=2;
        end;
        ...
    end;
end;

end.

[Bellla]

ich versuchs mal danke

[Bellla]

ich hab jetzt

Code:

var
  Form1: TForm1;
  status:integer;
  i:integer;

implementation

{$R *.dfm}

procedure TForm1.B1Click(Sender: TObject);
begin
 case status of
        0:
begin
sleep ( 500);
image2.visible:=true;
image1.visible:=false;
status:=1;
end;

2:
begin
sleep(500);
image2.visible:=false;
image3.visible:=true;
status:=2;
end;

3:
begin
sleep(500);
image3.visible:=false;
image4.visible:=true;
status:=3;

end;

end;
end;
end.

aber nach wenn das 2. bild erscheint und man nochmal drückt passiert nichts warum?

[implementation]

Dann passiert doch was. Allerdings das gleiche wie beim ersten Drücken, weil der Status gleich ist.

[Bellla]

nein es bleibt beim 2.bild :( was soll ich machen

[implementation]

Delphi-Quellcode:

status:=1;

Dir diese Zeile anschauen.
Überlege: Was bewirkt sie?
Was passiert bei Status 1?

[Namenloser]

Okay, fangen wir mal vorne an:

Delphi-Quellcode:

for i:=0 to 1000 do ;

Was zur Hölle ist das? Eine Schleife, die 1001x nichts ausführt? Weißt du überhaupt, was du da machst?

Außerdem ist deine Problembeschreibung absolut unpräzise. Beschreibe doch mal klar und deutlich, was du willst, und was stattdessen passiert. Und zwar so, dass jemand, der keine Vorahnung hat, es versteht. Schließlich willst du, dass andere dir helfen -- da ist es ja wohl das mindeste, sich wenigstens bei der Problembeschreibung Mühe zu geben. Vor allem wenn es "so wichtig11!1™" ist.

[implementation]

Zitat:

Zitat von NamenLozer (Beitrag 1068495)

? Eine Schleife, die 1000x nichts ausführt?

1001x :P

Ich vermute mal, das soll eine Verzögerung bewirken. Deshalb hat mkinzler ja Sleep(500) draus gemacht.

[Bellla]

also nochmal. ich brauche ein projekt über mich selbst.
ich habe fotos aus meiner kindheit....
ich habe angefangen indem ich ein bild von einem auge reingemacht habe. das soll der einblick in mein leben sein.
auf diesem auge sieht man 5 buttons.
drücke ich einen dieser buttons sollen 3 neue bilder erscheinen, also muss das auge weg sein.
ich muss auch i-wie zum auge zurückkommen per klick.
wenn ich jetzt ein anderes button drücke kommen 3 neue bilder.
wie diese bilder erschein könnt ihr euch aussuchen.
gruß

[Namenloser]

Wie sollen die 3 Bilder denn erscheinen? Untereinander, nebeneinander, übereinander, hintereinander...?

[implementation]

Zitat:

Zitat von Bellla (Beitrag 1068498)

wie diese bilder erschein könnt ihr euch aussuchen.

Du schreibst das Programm, du solltest es dir aussuchen.
Und wenn du ein Problem hast, erkläre bitte genau, wo es liegt, dann können wir dir helfen.

Wenn du auf unsere Beiträge eingehen würdest, würde es uns auch einfacher fallen.

[mkinzler]

Du änderst den Status auch nicht mehr!

Btw. Ich hatte den Code so schön eingerückt. Aber scjeinbar scheint es dich zu stören, wenn man auf einen Blick sieht, was zusammen gehört.
Auch die Verwendung von passenden Tags (Delphi-Tag) würde die Lesbarkeit verbessern.

[Bellla]

die bilder sollen nebeneinander sein

[Namenloser]

Und was passiert stattdessen?

[implementation]

Zitat:

Zitat von NamenLozer (Beitrag 1068505)

Und was passiert stattdessen?

Zitat:

Zitat von Bellla

aber nach wenn das 2. bild erscheint und man nochmal drückt passiert nichts warum?

Und die Ursache wurde bereits genannt:

Zitat:

Zitat von mkinzler (Beitrag 1068502)

Du änderst den Status auch nicht mehr!

[Bellla]

ok wie soll ich den status ändern

[implementation]

Delphi-Quellcode:

status := <NeuerStatus>;

[mkinzler]

Auf jedenfall sollte er sich ändern, sonst landest du immer im selben Case

[Bummi]

@mkinzler
er hat den Fehler in Deinem Beispiel weiter ausgebaut. :-D

Delphi-Quellcode:

        2:
        begin
            sleep(500);
            image2.visible:=false:
            //status:=2; falsch
            Status:=3;
        end;

[Namenloser]

Zitat:

Zitat von implementation (Beitrag 1068506)

Zitat:

Zitat von NamenLozer (Beitrag 1068505)

Und was passiert stattdessen?

Zitat:

Zitat von Bellla

aber nach wenn das 2. bild erscheint und man nochmal drückt passiert nichts warum?

Gut, hab ich übersehen. Aber wenn ich mir als potentieller Helfer solche wichtigen Informationen mühsam aus der letzten Zeile eines Beitrages heraussuchen muss, die man hier recht leicht übersieht, ist das auch nicht so wie es sein soll.

Eine ordentliche Fehlerbeschreibung ist wie folgt aufgebaut:

1. Was will ich tun
2. Wie habe ich es probiert
3. Was passiert/Welche Fehler treten auf?

Das alles zusammen, schön hintereinander aufgereiht, möglichst in Absätze gegliedert, im Eingangspost. Hier war zwar immerhin der 2. Punkt weitestgehend erfüllt, der auch gerne vernachlässigt wird (also schon mal besser als nichts), aber der 1. und 3. eben nur unzureichend. Das versuche ich dem OP gerade deutlich zu machen.

[mkinzler]

Zitat:

Zitat von Bummi (Beitrag 1068513)

@mkinzler
er hat den Fehler in Deinem Beispiel weiter ausgebaut. :-D

Delphi-Quellcode:

        2:
        begin
            sleep(500);
            image2.visible:=false:
            //status:=2; falsch
            Status:=3;
        end;

Das war sein Beispiel. Ich ahtte das nur übersehen :oops:

[Bellla]

jaaaaaaaaaaaaaaaa es klappppppppppppppppppppt jetzt danke danke.

[Bellla]

juhu

[himitsu]

Delphi-Quellcode:

if status = 0 then
begin
  image2.visible := true;
  if image2.visible then
  begin;
    image1.visible := false;
    status := 1;
  end;
end

else if status = 2 then
begin
  if image3.visible then
  begin;
    image2.visible := false;
    status := 2;
  end;
end

else if status = 3 then
begin
  if image4.visible then
  begin;
    image3.visible := false;
    status := 4;
  end;
end;

hab mal alles Unwichtige weggelassen

und dann nochmal alles gekürzt

Delphi-Quellcode:

if status = 0 then
begin
  image2.visible := true;
  image1.visible := false;
  status := 1;
end

else if (status = 2) and image3.visible then
begin
  image2.visible := false;
  status := 2;
end

else if (status = 3) and image4.visible then
begin
  image3.visible := false;
  status := 4;
end;

Es wurde nicht grundlos auf eine ordentliche Codeformatierung hingewiesen.
Was soll denn bei Status 1 passieren?
Wozu sollen die For-Schleifen gut sein?
Du setzt vieles nur auf False (visible), aber fragst es denoch auf True ab, was ja nie eintritt.

Case oder If, macht hierbei keinen Unterschied, da dieses nur die Befehle, aber nicht die fehlerhafte Logik verändert.

Lösung:
Überleg die nochmal, was du genau machen willst
und vergleiche dieses mit deinem Code.

[edit]
OK, nun gab's zwischendrin doch schon ein paar neue Antworten :?

[Bellla]

also das wa ich grad habe ist das selbe wie deins nur ist deins leichter.


nächstes problem
so jetzt habe ich einen button. wenn ich drücke kommen immer verschiedene bilder.nach dem 4 bild möchte ich wieder das auge also immage1. wo sich dann die anderen buttons befinden. jetzt kann ich das nächste button drücken.
wenn ich jetzt button 2 drücke soll man aber die restlichen 4 buttons nicht sehen.
könnt ihr mir auch hier helfen.

ich hoffe ich habe mich gut ausgedrückt aber ich habe einfach keine ahnung. lerne informatik also delphi erst seit 3 monaten

[implementation]

Zitat:

Zitat von Bellla (Beitrag 1068524)

lerne informatik also delphi erst seit 3 monaten

Aber scheinbar nicht sehr intensiv. Das ist eine Aufgabe, die man nach 3 Monaten eigentlich stellen kann :gruebel:

[Bellla]

wir haben 1 mal in der woche info für 2 stunden. die ferien kannst du auch abziehen.

[Bellla]

wie kann ich nun weiter machen?

[mkinzler]

Komponenten besitzen die Eigenschaft .Visible

[implementation]

... sowie die Methoden Show() und Hide().

[Bellla]

also B1.Visible:=false;
aber wie mache ich das man den letzten click macht und auf das auge kommt also das erste bild.
auf dem ersten bild sieht man die restlichen buttons. die sollen natürlich nicht da sein, wenn man einen der buttons anklickt, nur das wo man angeklickt hat.

[Bellla]

oh :( das hatte ich nicht mit show and hide

[mkinzler]

Überleg dir mal, was du genau sagen willst. Und dann versuche es so zu formulieren, dass wir es auch verstehen.
Ich würde den Startzustand auch einen Status geben.

[Bellla]

das problem ist doch ich weiß gar nicht was die statuse zu bedeuten haben.
ich hatte ein beispiel von einer ampel, die man mit status programmiert hat und habe das auf mein problem angewendet

[Bellla]

kann ich nicht einfach neue procedures reinmachen??