Einfache Ampelsimulation funktioniert nicht...

[deepdragon]

Vielen Dank an jfheins!

Dank dir, funktioniert die Ampel jetzt^^ Und danke auch für den Hinweis, dass die Ampel von rotgelb gelich auf grün schaltet^^ Ich wusste das nicht mehr so genau und habe es deshalb so gemacht^^

Hier könnt ihr den fertigen Quelltext bewundern und weiter unten dann das fertige Programm noch mal downloaden, um zu testen, ob es bei euch auch funktioniert...^^

Delphi-Quellcode:

procedure TProjekt_Ampelsimulation_Form1.BBeendenClick(Sender: TObject);
begin
  close;
end;

procedure TProjekt_Ampelsimulation_Form1.BStartEinfacheSimulationClick(
  Sender: TObject);
begin
    Timer1.Enabled := true;
    IAmpelAus.Visible:=true;
end;

procedure TProjekt_Ampelsimulation_Form1.BStopEinfacheSimulationClick(
  Sender: TObject);
begin
   Timer1.Enabled := false;
end;

procedure TProjekt_Ampelsimulation_Form1.Timer1Timer(Sender: TObject);
begin
   if IAmpelaus.Visible then
    begin
      IAmpelaus.Visible := false;
      IAmpelrot.Visible := false;
      IAmpelgelb.Visible := false;
      IAmpelrotgelb.Visible := false;
      IAmpelgruen.Visible := true;
      Timer1.Interval := 4000;
    end

   else if IAmpelgruen.Visible then
    begin
      IAmpelaus.Visible := false;
      IAmpelgruen.Visible := false;
      IAmpelrot.Visible := false;
      IAmpelrotgelb.Visible :=false;
      IAmpelgelb.Visible := true;
      Timer1.Interval := 1000;
    end

   else if IAmpelgelb.Visible then
    begin
      IAmpelgelb.Visible := false;
      IAmpelgruen.Visible := false;
      IAmpelaus.Visible := false;
      IAmpelrotgelb.Visible := false;
      IAmpelrot.Visible := true;
      Timer1.Interval := 4000;
    end

   else if IAmpelrot.Visible then
    begin
      IAmpelrot.Visible := false;
      IAmpelaus.Visible := false;
      IAmpelgruen.Visible := false;
      IAmpelgelb.Visible := false;
      IAmpelrotgelb.Visible := true;
      Timer1.Interval := 1000;
    end

   else if IAmpelrotgelb.Visible then
    begin
      IAmpelaus.Visible := false;
      IAmpelrot.Visible := false;
      IAmpelrotgelb.Visible := false;
      IAmpelgruen.Visible := false;
      IAmpelgruen.Visible := true;
      Timer1.Interval := 4000;
    end
end;

end.

Jetzt funktioniert schon mal der erste Teil und wegen diesem Klassen dings da muss ich mich noch mal informieren... Ich habe auch ein Delphi-Buch, wo ich mal nachgucken könnte...

Vielen Dank erstmal, dass ihr mir soweit geholfen habt
Deepdragon