Hay!
Ich programmiere gerade eine Kreuzung. Auf dieser soll ein Auto ganz simpel fahren und bei Rot anhalten. Eigentlich kein Problem. Ich habe seit längerem nichts mehr programmiert und bin ein wenig aus der Übung. Könnte jemand von euch mir auf die Sprünge helfen und mir meinen Fehler zeigen?
Ich bin momentan wohl ein wenig blind...
Mit freundlichen Grüßen,
Ghost
Delphi-Quellcode:
procedure TForm1.TmAmpelTimer(Sender: TObject);
begin
if Ampel1Ro.Visible = True then
begin
Ampel1Ro.Visible:= False;
Ampel1Ge.Visible:= True;
end;
if Ampel1Ge.Visible = True then
begin
Ampel1Ge.Visible:= False;
Ampel1Gr.Visible:=True;
end;
if Ampel1Gr.Visible = True then
begin
Ampel1Gr.Visible:= False;
Ampel1Ro.Visible:= True;
end;