Ampelschaltung

[shmia]

Direkt auf die Farben zu gehen ist Quark.
Es gibt doch Ampelphasen, siehe hier.
Zusätzlich zur Phase 1 bis 4 kommt noch die Phase 0 hinzu (das bedeutet alles aus; bzw. Farbe Schwarz)

Delphi-Quellcode:

var
   ampelphase : integer;  // 0 bis 4

Bei jedem Klick auf den Button wird die Ampelphase um eins hochgezählt,
aber wenn die aktuelle Ampelphase schon = 4 ist springt man zurück auf 1.
Die Abfolge der Ampelphasen wäre also:
0 - 1 - 2 - 3 - 4 - 1 - 2 - 3 ...

Jetzt muss man nur noch der Ampelphase eine Farbe zuordnen und schon ist man fertig.
Ampelphase 2 wäre übrigens Rot & Geld ==> Orange.

[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

[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

[wicht]

Delphi-Quellcode:

if form1.color=clgreen then
  form1.color:=clyellow
else
  form1.color:=clgreen;

if form1.color=clyellow then
  form1.color:=clred;

Oben setzt du es auf gelb, wenn es grün ist. Direkt da drunter gehst du auf rot, wenn es gelb ist. Du springst also immer von gelb auf rot. Wenn man seinen Code etwas strukturiert wie in diesem Post fällt sowas auch auf. Und nimm dir die Anregungen hier doch bitte etwas zu Herzen, besonders das mit den Delphi-Tags... Dieses Husch-Pfusch-Verhalten und Hauptsache die Aufgabe fertig bekommen wird dich nicht weiter bringen, weder beim lernen von Delphi, noch bei der Hilfsbereitschaft der anderen Helfer hier...

[xZise]

Tipp:

Delphi-Quellcode:

if (A) then
  B
else
  C;

Wenn A wahr ist (z.B. eine Zahl hat einen bestimmten Wert oder dein Formular ist Grün), dann wird der then-Teil abgearbeitet. Das wäre der Befehl B. Der macht bei dir das Formular Gelb. D.h. wenn dein Formular Grün ist, wird deines Gelb. Im Else Teil steht alles, was passiert, wenn die Bedingung A nicht wahr ist. Hier wir der Befehl C ausgeführt, der wäre bei dir, dass das Formular Grün wird.

C kann aber auch mehrere Befehle enthalten:

Delphi-Quellcode:

if (A) then
  B
else
begin
  C1;
  C2;
end;

Möchtest du überprüfen, ob die Ampel Gelb war, und du hast ausgeschlossen, dass sie Grün war kannst du es so machen:

Delphi-Quellcode:

if (A) then
  B
else
begin
  if (D) then
    E;
end;

Jetzt wird geguckt, ob die Ampel grün war. War sie das nicht wird im else Teil gesprungen. Wenn sie dort Gelb war (= D), dann wird die Ampel rot (= E). Natürlich kann du da auch noch ein else-Zweig machen.

Delphi-Quellcode:

if (A) then
  B
else
begin
  if (D) then
    E
  else
    C;
end;

Also, wenn sie weder grün ist, noch gelb, dann wird der Befehl C ausgeführt. Das wäre jetzt der Fall wenn die Ampel zum Beispiel Rot ist (oder aus). Das heißt jetzt wird es Gelb (wir gehen davon aus, dass die Ampel nie aus sein wird).

Das kannst du übrigens weiter vereinfachen:

Delphi-Quellcode:

if (A) then
  B
else if (D) then
  E
else
  C;

Das bedeutet so viel wie:

Code:

Wenn die Bedingung A wahr ist, dann
  Führe den Befehl B aus
Ansonsten (= else) wenn die Bedingung D wahr ist, dann (= if)
  Führe den Befehl E aus
Ansonsten
  Führe den Befehl C aus

Bei dir wäre das:

Delphi-Quellcode:

if form1.color=clgreen then
  form1.color:=clyellow
else if form1.color=clyellow then
  form1.color:=clred
else
  form1.color:=clYellow;

Ich glaube darauf wolltest du mit deiner Konstruktion hinaus.

MfG
Fabian

PS: Lasse das form1. weg, wenn es in einer Methode ist, die procedure/function TForm1.[...] heißt. Das brauchst du nicht, und könnte irgendwann zu Problemen führen (hier nicht, aber es ist besser, wenn man sich das jetzt schon angewöhnt).
PPS: Wegen der Tags: Markiere deinen Quelltext und klicke auf den Delphi Helm () oben in der Reihe!