Hallo!
ich steh noch ganz am anfang vom programieren und habe die aufgabe eine ampel zu erstellen. Sie soll automatisch laufen, also mit timer,nicht manuell.
bis jetzt habe ich folgendes getan:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
ampelshape: TShape;
rotshape: TShape;
gelbshape: TShape;
gruenshape: TShape;
ampeltimer: TTimer;
procedure ampeltimerTimer(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ampeltimerTimer(Sender: TObject);
begin
IF ampeltimer.Interval = 1000
THEN BEGIN
rotshape.visible := true;
gelbshape.visible := false;
gruenshape.visible := false;
ampeltimer.interval := 500;
END;
IF ampeltimer.interval = 500
THEN BEGIN
rotshape.Visible := true;
gelbshape.visible := true;
gruenshape.Visible := false;
ampeltimer.interval := 1001;
END;
IF ampeltimer.Interval = 1001
THEN BEGIN
rotshape.Visible := false;
gelbshape.Visible := false;
gruenshape.Visible := true;
ampeltimer.interval := 499;
END;
IF ampeltimer.Interval := 499
THEN BEGIN rotshape.Visible := false;
gelbshape.visible := true;
gruenshape.visible := false;
ampeltimer.Interval := 1000;
END;
end;
end. |
so wie ich mir das gedacht habe müsste die jetzt funktionieren, jedoch zeigt er mir beim letzten THEN BEGIN einen fehler an, woran könnte dass liegen?
und bevor ich diesen letzten THEN BEGIN angegeben habe ist sie gelaufen, allerdings ist sie dann direkt von rot auf grün gesprungen.
Ich würde mich sehr freuen wenn ihr mir meinen fehler erklären könntet bzw. wenn ihr mir sagen könntet ob dass so vom prinzip überhaupt geht
mfg und danke schonmal Mr.nka
Moderiert von 
Gausi: Beitragsformatierung überarbeitet.
in der Entwickler-Ecke.
