Jahreszeiten Programm

  • geschlossen
  • Delphi

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Jahreszeiten Programm

    Hi Leute!!

    Brauche ein Programm, das durch die Jahreszeiten durchwecheslt.
    Also zuerst sollte Frühling kommen, mit einer Überschrift und ein Bild/ Bildchen, die was mit Frühling zu tun haben (z.B. Blumen oder so). Dann sollte Sommer kommen usw.

    Dürfte wahrscheinlich keine große Sache sein, so was zu machen. Ich kenn mich nur leider nicht so gut damit aus. Der Quelltext sollte also am Besten nicht so wirklich kompliziert sein, damit ich vllt noch einige Sachen nach eigenen Wünschen ändern kann ^^

    Wäre super, wenn mir das jemand kurz machen könnte und dann hier posten.


    mfg
    lalala22
    [SIZE="1"][COLOR="DeepSkyBlue"][COLOR="Black"]W[/color]ithout
    [COLOR="Black"]A[/color]ny
    [COLOR="Black"]R[/color]easons[/color]
    [/SIZE]
  • Möchtest du jetzt, dass wir dir hier den Quelltext hinschreiben? Ich würde es einfach über eine Variable lösen und einen Druck auf einen Button. Müsstest aber ggf. noch nähere Informationen rausrücken:

    Quellcode

    1. Jahreszeit: Byte // Variable, die einfach durch 4 Zahlen durchgeschaltet wird; sollte am Anfang auf 0 gestellt werden
    2. procedure TForm1.Btn1.click(Sender: TObject);
    3. begin
    4. if Jahreszeit=1 then do //heißt, dass vor dem Knopfdruck "Frühling" war.
    5. begin
    6. Img1.Picture.LoadFromFile([hier kommt der Pfad rein]);
    7. LblUeberschrift.caption:='Sommer';
    8. Jahreszeit:=2; //es ist Sommer
    9. end;
    10. .
    11. . //für die Jahreszeiten Sommer und Herbst (Jahreszeit=2/3)
    12. .
    13. if Jahreszeit=4 then do
    14. begin
    15. Img1.Picture.LoadFromFile([hier kommt der Pfad rein]);
    16. LblUeberschrift.caption:='Frühling';
    17. Jahreszeit:=1;
    18. end;
    19. end;
    Alles anzeigen


    Ich garantiere nicht dafür, dass der Quelltext fehlerfrei ist, habe ihn hier einfach mal frei reingetippt, ich hoffe ich konnte dir weiterhelfen.

    Palad
  • Danke für deine Antwort!!

    Hat sich schon erledigt. Konntest mir zwar nicht helfen, aber trotzdem :danke: :D

    mfg
    lalala22


    @mods: bitte closen!!
    [SIZE="1"][COLOR="DeepSkyBlue"][COLOR="Black"]W[/color]ithout
    [COLOR="Black"]A[/color]ny
    [COLOR="Black"]R[/color]easons[/color]
    [/SIZE]