|
|
|
|
|
|
|
|
|
|
|
|
Spaltentext ... |
|
procedure TForm1.AmpelTimer(Sender: TObject); (*TIMER*)
begin
(*Beginn der procedure unter dem Timer "Ampel"*)
if rot.visible = true
then begin
rot.visible := false;
rotgelb.visible := true;
ampel.interval := 1000; (*Hier wird die rotgelbe Ampel 1 Sekunde lang erscheinen*)
end
else
if rotgelb.Visible = true
then begin
rotgelb.visible := false;
gruen.visible := true;
Ampel.Interval := 3000;(*Hier wird die grüne Ampel 3 Sekunden lang erscheinen*)
end
else
if gruen.visible = True
then begin
gruen.Visible := false;
gelb.visible := true;
Ampel.interval := 1000;(*Hier wird die gelbe Ampel 1 Sekunde lang erscheinen*)
end
else
if gelb.Visible = true
then begin
gelb.visible := false;
rot.visible := true;
Ampel.interval :=3000;(*Hier wird die rote Ampel 3 Sekunden lang erscheinen*)
end
end;
end.
|
|
|
|
|
|
|
|
|
Letzte Änderung: 09.02.2007
© Pädagogisches Institut für die deutsche Sprachgruppe
- Bozen. 2000 -
|
|
|
|
 |
|
|
|
|
