Ampelschaltung

[p80286]

Ich würde das ungefähr so lösen:

Delphi-Quellcode:

Farbarray [0..3] of farben = (grün,gelb,rot,gelb);

....
 Anzeigefarbe:=Farben[Klickzaehler and 3];

Gruß
K-H

[Luckie]

Ich glaube, es geht dem Lehrer um die if-Verzweigung.

[NewDelphiBenutzer]

jaa also ich habe eigentlichn noch kaum was geschafft
bei mir stande bis jetzt nur das mit
if button.color=clgreen;
then button.color:=yellow;
else button.color;=green;
und dann konnte man schon mal von nix auf grün und dann auf gelb schalten
und danach wusste ich nicht wie es weiter geht das man auf rot macht danach weil bei mir wurde es dann beim ersten klick rot :S

[NewDelphiBenutzer]

ups sorry ich meinte
if formular.color=clgreen;
then formular.color:=yellow;
else formular.color;=green;
und dann konnte man schon mal von nix auf grün und dann auf gelb schalten
und danach wusste ich nicht wie es weiter geht das man auf rot macht danach weil bei mir wurde es dann beim ersten klick rot :S





ICh weiß nicht, wie man das mitm Quelltext einfügt. :S
auf jeden fall soll ich ein Programm machen das mit nur einem button funktioniert
er soll die farbe bei jedem klick ändern wie eine Ampel

[Luckie]

Du kannst deine Beiträge innerhalb von 24 Stunden editieren. Du musst also nicht jedes mal einen neuen Beitrag erstellen. Und bitte benutze Delphi-Tags für deinen Delphi-Code.

Versuch doch erst mal das ganze auf Papier aufzuschreiben oder in einem Flussdiagramm darzustellen.

[p80286]

Na dann vielleicht so:

Code:

wenn Farbe=Grün dann Farbe=gelb
wenn Farbe=Gelb dann
  wenn Vorgängerfarbe=grün dann Farbe=rot
  wenn Vorgängerfarbe=rot dann Farbe=grün
wenn Farbe=rot dann Farbe=grün

Gruß
K-H

[NewDelphiBenutzer]

ja wie soll ich das denn schreiben
es wird dann immer sofort rot und nicht erst grün und gelb

[rollstuhlfahrer]

Wie war das mit Flussdiagramm? Rot - Gelb - Grün - Gelb (sind 4 Zustände)

So, wie kommt man jetzt von dem ersten Zustand auf den nächsten? Ganz einfach. Zuerst definiert man, dass man sich beim 1. Zustand befindet. Die Ampel ist also rot.

Delphi-Quellcode:

AmpelFeld.Color := clRed;
Zustand := 1;

So, jetzt wird der Button gedrückt. Dadurch änderst du zuerst den Zustand.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Zustand := Zustand + 1; // Zustand ist eine globale Variable (var Zustand: Integer)
  if Zustand > 4 then
    Zustand := 1;

So, jetzt gehst du immer wieder alle Zustände durch. Visuell passiert jetzt noch nichts. Das kommt jetzt erst:

Delphi-Quellcode:

  if (Zustand = 1) then // Ampel wird ROT
    AmpelFeld.Color := clRed;

  if (Zustand = 2) then // Ampel wird das erste mal Gelb (oder Rot/Gelb)
    AmpelFeld.Color := clYellow;

  if (Zustand = 3) then // Ampel wird grün
    AmpelFeld.Color := clGreen;

  if (Zustand = 4) then // Ampel wird das 2. Mal Gelb
    AmpelFeld.Color := clYellow;
end;

So, jetzt musst du das erst einmal verstehen. Dazu erklärst DU mir mal, was der obrige Code macht.

Bernhard

[xZise]

Ganz einfach in dem du seinen Code in Delphi schreibst

Du musst zuerst die Farbe auf deinen gewünschten Startwert setzen (rot wäre wohl das "sicherste"). Das kannst du im FormCreate machen (doppelklick auf das Formular).

Dann übersetzt du den Code in Delphi (das sind nur ifs und elses ) und lässt den ausführen, wenn man auf den Button klickt. Das sollte dann funktionieren. Ansonsten brauchen wir mehr Code.

Besonders dein zweiter Code sieht sehr interessant aus:

Delphi-Quellcode:

if formular.color=clgreen;
then formular.color:=yellow;
else formular.color;=green;

Heißt: Wenn das Formular Grün ist, dann mache es Gelb, ansonsten mache es Grün. D.h. wenn es gelb oder rot ist, wird es sofort Grün.

MfG
Fabian

[NewDelphiBenutzer]

das ist mein quelltext keine ahnugn wie man den anders einfügt


procedure TForm1.AmpelBtnClick(Sender: TObject);
begin
if form1.color=clgreen
then form1.color:=clyellow
else form1.color:=clgreen;
if form1.color=clyellow
then form1.color:=clred;



end;




aber das geht auch nicht es wird einfach grün dann rot dann wieder grün und ich weiß nichjt wie man das ändert