Meine selbstgeschriebenen Programme

Hier ist ein Programm, dass ich letze Woche programmiert habe. Es zeigt eine Ampel, die sich je nach Buttonklick farblich verändert. Ihr könnt mir verbesserungstipps, Erweiterungen oder veränderungen gerne berichten!

unit Ampel1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls;

type
TAmpel = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
gruen: TImage;
gelb: TImage;
rotgelb: TImage;
rot: TImage;
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Ampel: TAmpel;

implementation

{$R *.dfm}

procedure TAmpel.Button1Click(Sender: TObject); //grüne Ampel
begin
gruen.Visible := true;
gelb.Visible := false;
rotgelb.Visible := false;
rot.Visible := false;
Ampel.Caption := 'Ampel ist grün'
end;

procedure TAmpel.Button2Click(Sender: TObject); //gelbe Ampel
begin
gruen.Visible := false;
gelb.Visible := true;
rotgelb.Visible := false;
rot.Visible := false;
Ampel.Caption := 'Ampel ist gelb'
end;

procedure TAmpel.Button3Click(Sender: TObject); //rotgelbe Ampel
begin
gruen.Visible := false;
gelb.Visible := false;
rotgelb.Visible := true;
rot.Visible := false;
Ampel.Caption := 'Ampel ist rotgelb'
end;

procedure TAmpel.Button4Click(Sender: TObject); //rote Ampel
begin
gruen.Visible := false;
gelb.Visible := false;
rotgelb.Visible := false;
rot.Visible := true;
Ampel.Caption := 'Ampel ist rot'
end;

end.

hab leider noch nie progammiert außer an der alten schule aber das sah dann ein bisschen anders aus

Miggi lade doch mal die .exe hoch dann könne wir uns das mal ansehen.

Ich kann gucken, was sich tun lässt. Ich stelle mein Projekt gerne für euch zum Download zur Verfügung!

*edit*

Hier ist mein neustes Projekt bereitgestellt als Download. Einfach entpacken und anschauen. Ich würde mich über ein Feedback freuen!
Zu dem Projekt ist zusagen, dass dies eine ummodellierte Ampel ist, die mit nur einem Button umschaltet. Hierbei habe ich das "If/then/else" Verfahren verwendet.

Download Ampelprogramm Version 1.1

*edit²*

Hier ist die neue Version meines Programms!

Hinzugefügt wurde ein Timer, d.h die Ampel läuft jetzt automatisch. Sie beinhaltet einen Ausschalt/Einschalt Button und ein Button, der die Geschwindigkeit bei aktiver Ampel verändert. Have fun!

Download Ampelprogramm Version 1.3