Delphi-Grundkurs Projekt1.2

Auswahlstrukturen
IF THEN ELSE und CASE OF

Lichtlaufleiste

Ein farbiger Lichtfleck soll von links nach rechts bzw. von rechts nach links wandern. Dazu werden alle Flecken mit Hilfe der Shape-Komponente vorbereitet, aber unsichtbar gemacht. Erst wenn die Zeit gekommen ist, soll die Eigenschaft Visible auf true gestellt werden. Dadurch entsteht der Eindruck einer Bewegung.

Für die Bewegung von links nach rechts soll die Auswahlstruktur IF..THEN genutzt werden, der für die Bewegung von rechts nach links die Struktur CASE..OF gegenübergestellt werden soll.

Komponente	Eigenschaft	Wert	Bemerkungen
Form1	Caption	‘Lichtlaufband’	Überschrift in der Kopfleiste des Programmfensters
Button1	Caption	‘Start’	Startbutton
Button2	Caption	‘Stopp’	Stoppbutton
BitButton1	Caption	‘&Ende’	Bezeichnung des Schließen-Schalters
BitButton1	Kind	bkClose	Schalter für Beenden
Shape1	Brush	clBlack	Lichtfleck
Shape2	Brush	clBlue	Lichtfleck
Shape3	Brush	clLime	Lichtfleck
Shape4	Brush	clYellow	Lichtfleck
Shape5	Brush	clWhite	Lichtfleck
Shape6	Brush	clWhite	Lichtfleck
Shape7	Brush	clYellow	Lichtfleck
Shape8	Brush	clLime	Lichtfleck
Shape9	Brush	clBlue	Lichtfleck
Shape10	Brush	clBlack	Lichtfleck
Timer1	Interval	100	gibt jede Zehntelsekunde ein Ereignis

Lösung

AuswahlstrukturenIF THEN ELSE und CASE OF

Lichtlaufleiste

Auswahlstrukturen
IF THEN ELSE und CASE OF