Timer

[Ersan90]

Zitat von Luckie:

Aber noch mal zur Erklärung:

Wenn die Ampel rot ist (das ist der Startwert), dann wird rot angezeigt und für den nächsten Aufruf der Timer-Prozedur der Wert der Variablen AktuelleaP auf rot-gelb gesetzt, weil das die Phase ist, die nach rot kommt. Da die Variable beim nächtsen mal rot-gelb ist, springt er in den rot-gelb Zweig. Dort wird dan der Wert auf die nächste Ampelpahe gesetzt, die folgen soll.

Ich hoffe, dass kanst du auch morgen deinem Lehrer erklären.

Ok deinen Quelltext verstehe ich soweit, aber wie kann man diese vorgänge in verschiedenen Zeitsprüngen ablaufen lassen? Also von rot auf rot/gelb in 1 sec und von rot/gelb auf grün in 0,5 sec.

In der Schule lernen wir es grad mit dem Button was mir zu einfach war..
Hat mich jez interessiert wie das ganze mit einem Timer aussieht war dann aber doch komplizierter als gedacht.

[Tiuri]

Delphi-Quellcode:

type 
  TAmpelPhase = ( 
    apRot = 0, 
    apRot2 = 1, 
    apGelb = 2, 
    apGruen = 3
    apGruen2 = 4); 

type 
  TForm1 = class(TForm) 
    Timer1: TTimer; 
    procedure FormCreate(Sender: TObject); 
    procedure Timer1Timer(Sender: TObject); 
  private 
    { Private declarations } 
    AktuelleAP: TAmpelPhase; 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  AktuelleAP := apRot; 
end; 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  case AktuelleAP of 
    apRot, apRot2: 
    begin 
      Caption := 'Rot'; 
      AktuelleAP := apRotGelb; 
    end; 
    apGelb: 
    begin 
      Caption := 'Gelb'; 
      AktuelleAP := apRot; 
    end; 
    apGruen, apGruen2: 
    begin 
      Caption := 'Grün'; 
      AktuelleAP := apGelb; 
    end; 
  end; 
end;

So sind Grün und Rot jeweils doppelt so lang wie Gelb. Das kannst du natürlich noch beliebig erweitern.

[Jelly]

Statt 2 Rot-Phasen zu simululieren würd ich den TimerInterval im TimerEreignis entsprechend neu setzen.

[Tiuri]

das sähe dann so aus:

Delphi-Quellcode:

type 
  TAmpelPhase = ( 
    apRot = 0, 
    apGelb = 1, 
    apGruen = 2 ); 

type 
  TForm1 = class(TForm) 
    Timer1: TTimer; 
    procedure FormCreate(Sender: TObject); 
    procedure Timer1Timer(Sender: TObject); 
  private 
    { Private declarations } 
    AktuelleAP: TAmpelPhase; 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  AktuelleAP := apRot; 
end; 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  case AktuelleAP of 
    apRot: 
    begin 
      Caption := 'Rot'; 
      AktuelleAP := apGelb; 
      Timer1.Interval := 500;
    end; 
    apGelb: 
    begin 
      Caption := 'Gelb'; 
      AktuelleAP := apRot;
      Timer1.Interval := 1000; 
    end; 
    apGruen: 
    begin 
      Caption := 'Grün'; 
      AktuelleAP := apGelb;
      Timer1.Interval := 500; 
    end; 
  end; 
end;

[Ersan90]

ah ok vielen dank jez isses perfekt