Kreuzungs Ampel Problem

[Sir Rufo]

Zum Thema Ampel gibt es alleine hier im Forum reichlich Beiträge

Ampel (125 Treffer)
und bei Tante google
delphi ampel ... ein ganzes Pfund mehr

Wonach hast du gesucht?

[thejacensolo]

Danke Helmi, ich habe rot auf visible gestell und auf einmal funktionierts.
Aber wenn ich ausführe springt er ganz schnell von Grün über Gelb auf Rot, schneller als er runterschaltet
-------------------------------------------
Edit: Es lag an dem Sleep und an dem Application.processmessages. ich habe dass weg gemacht und dann funkts

[sx2008]

Ein Ampel hat doch verschiedene (Ampel-)Phasen.
Diese Phasen kann man durchnumerieren (0=alles aus, 1=rot, 2=rot+gelb,...)
Dann braucht man doch nur noch im Timer die Ampelphase hochzählen und entsprechend der Phase die Lämpchen an- und ausmachen.
Und natürlich noch aufpassen, dass nachdem die letzte Pase erreicht wurde wieder auf Phase 1 zurückgesetzt wird.

[DeddyH]

Genau dazu gibt es zumindest von mir irgendwo einen Beispielcode, der sollte sich über die Suche finden lassen.

[thejacensolo]

Zitat von sx2008:

Ein Ampel hat doch verschiedene (Ampel-)Phasen.
Diese Phasen kann man durchnumerieren (0=alles aus, 1=rot, 2=rot+gelb,...)
Dann braucht man doch nur noch im Timer die Ampelphase hochzählen und entsprechend der Phase die Lämpchen an- und ausmachen.
Und natürlich noch aufpassen, dass nachdem die letzte Pase erreicht wurde wieder auf Phase 1 zurückgesetzt wird.

Dies habe ich auch versucht und es hat nicht geklappt
ich habe den code gelöscht, aber ich weiß dass er entweder gar nicht oder direkt zur endphase geschaltet hat.
ich habe dass mit in(i) gemacht

[DeddyH]

Ich kann Dich schwer einschätzen, aber das ist Dir vermutlich noch zu hoch. Trotzdem mal eine kleine Klasse:

Delphi-Quellcode:

type
  TAmpel = class;
  TAmpelphase = (apRot, apGelbRot, apGruen, apGelb);
  TOnNextPhase = procedure(Sender: TAmpel; Phase: TAmpelphase) of object;

  TAmpel = class
  private
    FPhase: TAmpelphase;
    FOnNextPhase: TOnNextPhase;
  public
    procedure NextPhase;
    property OnNextPhase: TOnNextPhase read FOnNextPhase write FOnNextPhase;
  end;

...

procedure TAmpel.NextPhase;
begin
  case FPhase of
    apRot:
      FPhase := apGelbRot;
    apGelbRot:
      FPhase := apGruen;
    apGruen:
      FPhase := apGelb;
    apGelb:
      FPhase := apRot;
  end;
  if Assigned(FOnNextPhase) then
    FOnNextPhase(self, FPhase);
end;

Nun musst Du "nur noch" eine Instanz dieser Klasse erzeugen, dem Event eine kompatible Methode zuweisen und in einem Timer NextPhase aufrufen.

[Helmi]

auch wenn beim erzeugen der Instanz die Variablen initialisiert werden, aber du solltest vielleicht
die Variable "FPhase" im Create initialisieren (theoretisch steht sie aber auf apRot)

[zeras]

Zitat von Helmi:

auch wenn beim erzeugen der Instanz die Variablen initialisiert werden, aber du solltest vielleicht
die Variable "FPhase" im Create initialisieren (theoretisch steht sie aber auf apRot)

oder aber einen else Zweig im case einfügen und dann auf Default setzen?

[thejacensolo]

Diese Klassenbestimmung ist definitiv noch ein bisschen zu hoch für mich(info lk E1)
Wie gesagt funktioniert alles super, also wollte ich noch ein Auto reinfügen. gesagt getan, schon will er nicht mehr kompilieren da steht "fertig kompiliert " aber die Form wird nicht gezeig. Ohne den Auto befehl (ausgeklammert) klappt es wider normal.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Rot1.visible := true;
  Rot2.visible := false;
  rot3.visible := true;
  Rot4.visible := false;
  Gelb1.visible := false;
  Gelb2.Visible := false;
  Gelb3.Visible := false;
  Gelb4.Visible := false;
  Gruen1.visible := false;
  Gruen2.visible := true;
  Gruen3.visible := false;
  Gruen4.visible := true;
  Rotgelb1.visible := false;
  Rotgelb2.visible := false;
  Rotgelb3.visible := false;
  Rotgelb4.visible := false;
  timer1.enabled := true;
   repeat
    begin
    Auto.left := Auto.left + 23;
    end;
    until
    gruen2.visible = false;
end;