Hallo Leute,
ich bin Anfänger in Sachen Delphi und habe nun ein kleines Ampelprogramm gebaut, ich glaube jedem ist klar, was dieses machen soll.
Allerdings schaltet es nicht immer selber um, sonder ich muss immer auf Button1 drücken. Ich hatte schon gegoogelt, auch hier im Forum geguckt, aber ich scheitere immer am Timer.

Kann mal jemand schnell rüberschauen?
Danke!
MfG

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);

  private
    Phase: Integer;
    Zeit: Integer;
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.Color := clMaroon;
  Panel2.Color := clOlive;
  Panel3.Color := clGreen;
  Panel1.Caption:='';
  Panel2.Caption:='';
  Panel3.Caption:='';
  Button1.Caption:='Start';
  Phase:=1;
  Zeit:=1;
  Timer1Timer.Enabled:=false;

end;

procedure TForm1.Button1Click(Sender: TObject);
 begin
   case Phase of
      1:
      begin
         Panel1.Color := clRed;
         Panel2.Color := clOlive;
         Panel3.Color := clGreen;
         Phase:= Phase + 1;
        end;
     2:
      begin
         Panel1.Color := clMaroon;
         Panel2.Color := clYellow;
         Panel3.Color := clGreen;
         Phase:= Phase + 1;
       end;
     3:
      begin
         Panel1.Color := clMaroon;
         Panel2.Color := clOlive;
         Panel3.Color := clLime;
         Phase:= Phase + 1;
       end;
     4:
      begin
         Panel1.Color := clMaroon;
         Panel2.Color := clYellow;
         Panel3.Color := clGreen;
         Phase:= 1;
       end;
   end;
 end;

procedure TForm1.Timer1Timer(Sender: TObject);
 begin
 begin
   Zeit:= Zeit + 1;
   case Zeit of
     1..5 : Phase:= 1;
     6 : Phase:= 2;
     7..11: Phase:= 3;
     12 : begin
              Phase:= 4;
              Zeit:= 0;
            end;
   end;

end;
Button1Click(NIL);
end;

end.

wenn er abgeschaltet ist ....

Zitat:

Timer1Timer.Enabled:=false;

versuchs mal mit true statt false...

Wenn ich Timer1Timer.Enabled:=true; schreibe, kommt folgende Fehlermeldung:

Zitat:

[Fehler] Unit1.pas(44): Nicht genügend wirkliche Parameter
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

EDIT:
Geht nun doch, musste nur das timersymbol hinzufügen. -.-

Wo ist überhaupt der Timer? Ich sehe nicht, dass da einer in der Formular-Deklaration auftaucht.

Das war es ja, ich habe nur einen Timercode geschrieben, aber kein Timer aus der Toolbox benutzt. Nun habe ich diesen hinzugefügt und allse läuft.