Delphi-PRAXiS - Brauche Hilfe bei Delphi 5 Ampelsystem

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Brauche Hilfe bei Delphi 5 Ampelsystem (https://www.delphipraxis.net/131192-brauche-hilfe-bei-delphi-5-ampelsystem.html)

Brauche Hilfe bei Delphi 5 Ampelsystem

Hallo zusammen,
Es handelt sich um Delphi 5!!!
ich habe hier eine Ampelkreuzung mit 4 Ampeln dies klappt soweit.
Ich bitte um eure hilfe, dass ihr mir sagt wie ich autos hinbekomme und die rote und grüne ampelzeit länger hält. :wiejetzt:
Bitte beachtet das ich anfänger bin!!
Unten mein Quelltext:

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls;

type

  TForm1 = class(TForm)

    Shape1: TShape;

    Shape2: TShape;

    shpRed1: TShape;

    shpYellow1: TShape;

    shpGreen1: TShape;

    shpYellow2: TShape;

    shpRed2: TShape;

    shpGreen2: TShape;

    Shape9: TShape;

    Shape10: TShape;

    Shape11: TShape;

    Shape12: TShape;

    Shape13: TShape;

    Shape14: TShape;

    Shape15: TShape;

    Shape16: TShape;

    Shape17: TShape;

    Shape18: TShape;

    Shape19: TShape;

    Shape20: TShape;

    Shape21: TShape;

    Shape22: TShape;

    Shape23: TShape;

    Shape24: TShape;

    Shape25: TShape;

    Shape26: TShape;

    Shape27: TShape;

    Shape28: TShape;

    Shape29: TShape;

    Shape30: TShape;

    Shape32: TShape;

    Shape33: TShape;

    Shape34: TShape;

    Shape35: TShape;

    Shape36: TShape;

    Shape37: TShape;

    Shape38: TShape;

    Shape39: TShape;

    Shape31: TShape;

    Shape40: TShape;

    Shape41: TShape;

    Shape42: TShape;

    Shape43: TShape;

    Shape44: TShape;

    Shape45: TShape;

    Shape46: TShape;

    Shape47: TShape;

    Shape48: TShape;

    Shape49: TShape;

    Shape50: TShape;

    Shape51: TShape;

    Shape52: TShape;

    Shape53: TShape;

    Shape54: TShape;

    Shape55: TShape;

    Shape56: TShape;

    Shape57: TShape;

    Shape59: TShape;

    Shape60: TShape;

    Shape61: TShape;

    Shape62: TShape;

    Shape63: TShape;

    Shape64: TShape;

    Shape65: TShape;

    Shape66: TShape;

    Shape67: TShape;

    Shape68: TShape;

    Button1: TButton;

    Timer1: TTimer;

    shpRed4: TShape;

    shpYellow4: TShape;

    shpGreen4: TShape;

    shpRed3: TShape;

    shpYellow3: TShape;

    shpGreen3: TShape;

    Timer2: TTimer;

    Button2: TButton;

    procedure shpRed2MouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure Timer1Timer(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.shpRed2MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  Close;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

   if shpGreen2.Brush.Color = clblack then

   begin

   Timer1.interval       := 2000;

   shpRed2.Brush.Color    := clred;

   shpYellow2.Brush.Color := clblack;

   shpGreen2.Brush.Color  := clnone;

   shpRed1.Brush.Color    := clred;

   shpYellow1.Brush.Color := clblack;

   shpGreen1.Brush.Color  := clnone;

    end

   else if shpYellow2.Brush.Color = clblack then

   begin

   Timer1.interval       := 2000;

   shpRed2.Brush.Color    := clred;

   shpYellow2.Brush.Color := clyellow;

   shpGreen2.Brush.Color  := clnone;

   shpRed1.Brush.Color    := clred;

   shpYellow1.Brush.Color := clyellow;

   shpGreen1.Brush.Color  := clnone;

    end

   else if shpRed2.Brush.Color = clred then

   begin

   Timer1.interval       := 2000;

   shpRed2.Brush.Color    := clnone;

   shpYellow2.Brush.Color := clnone;

   shpGreen2.Brush.Color  := cllime;

   shpRed1.Brush.Color    := clnone;

   shpYellow1.Brush.Color := clnone;

   shpGreen1.Brush.Color  := cllime;

   end

   else if shpGreen2.Brush.Color = cllime then

      begin

      Timer1.interval       := 2000;

      shpRed2.Brush.Color    := clblack;

      shpYellow2.Brush.Color := clyellow;

      shpGreen2.Brush.Color  := clblack;

      shpRed1.Brush.Color    := clblack;

      shpYellow1.Brush.Color := clyellow;

      shpGreen1.Brush.Color  := clblack;

      end

    end;

    procedure TForm1.Timer2Timer(Sender: TObject);

   begin

   if shpGreen4.Brush.Color = clblack then

   begin

   Timer2.interval       := 2000;

   shpRed4.Brush.Color    := clred;

   shpYellow4.Brush.Color := clblack;

   shpGreen4.Brush.Color  := clnone;

   shpRed3.Brush.Color    := clred;

   shpYellow3.Brush.Color := clblack;

   shpGreen3.Brush.Color  := clnone;

    end

   else if shpYellow4.Brush.Color = clblack then

   begin

   Timer2.interval       := 2000;

   shpRed4.Brush.Color    := clred;

   shpYellow4.Brush.Color := clyellow;

   shpGreen4.Brush.Color  := clnone;

   shpRed3.Brush.Color    := clred;

   shpYellow3.Brush.Color := clyellow;

   shpGreen3.Brush.Color  := clnone;

    end

   else if shpRed4.Brush.Color = clred then

   begin

   Timer2.interval       := 2000;

   shpRed4.Brush.Color    := clnone;

   shpYellow4.Brush.Color := clnone;

   shpGreen4.Brush.Color  := cllime;

   shpRed3.Brush.Color    := clnone;

   shpYellow3.Brush.Color := clnone;

   shpGreen3.Brush.Color  := cllime;

   end

   else if shpGreen4.Brush.Color = cllime then

      begin

      Timer2.interval       := 2000;

      shpRed4.Brush.Color    := clblack;

      shpYellow4.Brush.Color := clyellow;

      shpGreen4.Brush.Color  := clblack;

      shpRed3.Brush.Color    := clblack;

      shpYellow3.Brush.Color := clyellow;

      shpGreen3.Brush.Color  := clblack;

      end

    end;

procedure TForm1.Button2Click(Sender: TObject);

begin

end;

end.

Re: Brauche Hilfe bei Delphi 5 Ampelsystem

Zitat:

Zitat von Homer S.

ich habe hier eine Ampelkreuzung mit 4 Ampeln dies klappt soweit.

Was klappt soweit? Wie ich sehe hast du nur jede Menge Shapes auf die Form geklatscht und änderst mit 2 Timern im 2 Sekundentakt die Farbe einiger Shapes.
Sind die Timer von anfang an Enabled?
Was hast du mit dem leeren Button vor?

Zitat:

Zitat von Homer S.

Ich bitte um eure hilfe, dass ihr mir sagt wie ich autos hinbekomme und die rote und grüne ampelzeit länger hält.

Autos wirst du wohl zeichnen müssen. Ein Rechteck sollte da bestimmt schon reichen. Gehe ich richtig in der annahme, dass sich jene Autos auch bewegen sollen?

Da die Shapes, also die Ampelphasen über die Timer gesteuert werden, einfach den Timer Intervall erhöhen für längere Phasen.

Aber dieses Modell findest du mehrfach hier im Forum. Hast du die Suche benutzt? Wenn nicht, warum nicht?

Gruß

Re: Brauche Hilfe bei Delphi 5 Ampelsystem

Hi
Auch auf die Gefahr hin, das ich hier wiederhole... dies ist kein Forum : "Wer macht meine Hausaufgaben".
Zuerst Hilfe bei Google - Delphi Ampel sollte einige brauchbare Tipps liefern
Auch hier in der DP gibt es die Suchen-Funktion für Ampel. Da bin ich mir sicher, da ist genug Material vorhanden, da du nicht der erste mit dieser Hausaufgabe bist.
Und letztlich....
Das was du an "Programmcode" bezeichnest, ist nichts ! Da solltest du vielleicht doch mal ein paar Minuten opfern und eigen Gedanken einfließen lassen.
Und wenn's dann ein bestimmtes Problem zu beheben gibt, dann wirst du hier sicher auch Hilfe bekommen.
Gruß oldmax

Re: Brauche Hilfe bei Delphi 5 Ampelsystem

Zitat:

Aber dieses Modell findest du mehrfach hier im Forum. Hast du die Suche benutzt? Wenn nicht, warum nicht?

Ja habeich geguckt und finde nicht das passende und nein dies ist kein schulprojekt und keine Hausaufgabe da ich dies so mache aber komme nicht weiter also könntest du mir den quelltext so ändern das dies dann passt also meinen so ändern mit längeren Zeiten und Autos?

Super NEtt!!!
Tausen DANK!!!

Homer!

Re: Brauche Hilfe bei Delphi 5 Ampelsystem

Zitat:

Zitat von Homer S.

also könntest du mir den quelltext so ändern das dies dann passt

Nein, das wird hier keiner machen. Hast Du Dir mal den Kodex der DP durchgelesen?

1.) Ein Thread - eine Frage.
Das erste wäre also die Verlängerung der Phasen. Das machst Du, in dem Du das Timerintervall erhöhst. Diese wäre beantwortet.

2.) Für die zweite Frage: überlege Dir vorher was Du genau machen willst, fange an das zu Programmieren. Wenn etwas überhaupt nicht klappt benutze die Suche um Hilfe zu bekommen. Erst wenn das alles nicht klappt, dann frage hier erneut nach - mit einem konkreten Problem und Dir wird mit Tipps in die Richtung (nicht mit Code!) geholfen. Genau so funktioniert die DP, und daran hat sich hier jeder zu halten.

Re: Brauche Hilfe bei Delphi 5 Ampelsystem

Hallo,

ich würde dir empfehlen, lass doch die blanks weg in deinem Text dann wird er noch unleserlicher.

Zitat:

Jahabeichgegucktundindenichtdaspassendeundneindies istkeinschulprojektundkeineHausaufgabedaichdiessom acheaberkommenichtweiter also könntestdumirdenquelltextsoänderndasdiesdannpassta lsomeinensoändernmitlängerenZeitenundAutos?

Menschenskind gib dir wenigstens etwas Mühe mit der Rechtschreibung!
Dies ist doch eine Zumutung was du so zusammenschreibst!

Viele Grüsse!

Re: Brauche Hilfe bei Delphi 5 Ampelsystem

Bitte nicht offtopic werden. Danke.

Re: Brauche Hilfe bei Delphi 5 Ampelsystem

in Konsole cl_flame 0 plz