Einzelnen Beitrag anzeigen

Ghostleader

Registriert seit: 22. Aug 2009
Ort: Hilden
116 Beiträge
 
Delphi 2010 Professional
 
#1

Kreuzung - If, then, else - Problem

  Alt 7. Nov 2009, 17:23
Hey!
Ich mache gerade ein Programm, bei dem ein Auto über eine Kreuzung fahren soll und bei Rot halten soll.
Die Ampel soll so schalten:
Rot // Gelb-Rot // Grün
Grün // Gelb // Rot

Wie eine normale Ampel eben.

Folgendes Problem:
Die Ampel schalltet nicht wie sie soll sondern so:
Rot, Gelb, Gelbrot, Grün

Ich finde meinen Fehler nicht, bitte helft mir:

Delphi-Quellcode:
  if ImAmpel1Ro.Visible = True then
    begin
      ImAmpel1Ro.Visible:= False;
      ImAmpel1Gero.Visible:= True;
    end
  else if ImAmpel1Gero.Visible = True then
    begin
      ImAmpel1Gero.Visible:= False;
      ImAmpel1Gr.Visible:= True;
    end
  else if ImAmpel1Gr.Visible = True then
    begin
      ImAmpel1Gr.Visible:= False;
      ImAmpel1Ge.Visible:= True;
    end
  else if ImAmpel1Ge.Visible = True then
    begin
      ImAmpel1Ge.Visible:= False;
      ImAmpel1Ro.Visible:= True;
    end;
Die Reihenfolge die ich benutze ist doch richtig oder nicht?
Rot, Gelb-Rot, Grün, Gelb, Rot, usw.

Mfg Ghostleader
Michael