SimplyMe - Mo 14.09.09 21:52
Titel: Wie programmiere ich eine Ampelkreuzung?
Hallo,
ich bin neu hier und versuche erstmal alles richtig zu machen, wenn ich durch irgendwas gegen irgendwas verstoße oder so berichtigt mich bitte.
Also, ich lerne jetzt seit kurzer Zeit Informatik in der Schule und soll eine Ampelkreuzung mit verschiedenen Shapes programmieren, es ist auch kein Problem für mich eine Ampel per Timer automatisch schalten zu lassen, weiter bin ich allerdings nicht gekommen, da ich absolut keine ahnung habe was ich machen muss. Ich bin mir allerdings schon bewusst, dass es acht verschiedene Phasen gibt:
1. oben/unten Grün, links/rechts Rot
2. oben/unten Gelb, links/rechts Rot
3. oben/unten Rot, links/rechts Rot-Gelb
4. oben/unten Rot, links/rechts Gelb
5. oben/unten Rot, links/rechts Rot,
6. oben/unten Rot, links/rechts Grün,
7. oben/unten Rot, links/rechts Rot,
8. oben/unten Rot-Gelb, links/rechts Grün,
Das ist allerdings leider auch schon alles was ich weiß, es wäre super nett wenn ihr mir helfen könntet! Hier ist noch mein aktueller Quellcode:
Delphi-Quelltext
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:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Shausdach8: TShape;
Shausdach2: TShape;
Shausdach6: TShape;
Shausdach4: TShape;
Shausdach7: TShape;
Shausdach3: TShape;
Shausdach5: TShape;
SHausdach1: TShape;
Slinkszurueck: TShape;
Slinksvor: TShape;
Sobenvor: TShape;
Sobenzurueck: TShape;
Srechtsvor: TShape;
Srechtszurueck: TShape;
Suntenzurueck: TShape;
Suntenvor: TShape;
STrennoben: TShape;
STrennrechts: TShape;
Strennlinks: TShape;
Strennunten: TShape;
SKreuzungMitte: TShape;
SAmpeloben: TShape;
SAmpelrechts: TShape;
SAmpelunten: TShape;
SAmpellinks: TShape;
Srotoben: TShape;
Sgelboben: TShape;
Sgruenoben: TShape;
Sgruenrechts: TShape;
Sgelbechts: TShape;
Srotrechts: TShape;
Sgruenlinks: TShape;
Sgelblinks: TShape;
Srotlinks: TShape;
Sgruenunten: TShape;
Sgelbunten: TShape;
Srotunten: TShape;
Timer1: TTimer;
SAmpelFussoben: TShape;
SAmpelFussUnten: TShape;
SRotFussoben: TShape;
SGruenFussoben: TShape;
SgruenFussunten: TShape;
SrotFussunten: TShape;
SUebergang: TShape;
BFuss: TButton;
procedure Timer1Timer(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
IF (srotoben.Brush.color = clred) AND (sgelboben.Brush.color = clwhite) THEN
sgelboben.brush.Color := clyellow
ELSE
IF (Srotoben.Brush.Color = clred) AND (sgelboben.Brush.Color = clyellow) THEN
Begin
Srotoben.brush.color := clwhite;
Sgelboben.Brush.color := clwhite;
Sgruenoben.Brush.color := clgreen;
end
ELSE
IF Sgelboben.Brush.color = clyellow THEN
Begin
Srotoben.Brush.color := clred;
Sgelboben.Brush.color := clwhite;
Sgruenoben.brush.color := clwhite;
End
ELSE
Begin
IF Sgruenoben.Brush.color = clgreen THEN
begin
sgruenoben.Brush.color := clwhite;
sgelboben.Brush.color := clyellow;
end;
end;
end;
end. |
Narses - Mo 14.09.09 22:57
Moin und :welcome: im Forum!
Hast du schon mal in die Suche geschaut? Das Thema
AMPEL hatten wir schon häufiger und die Lösungen, die wir bereits haben, sollten eigentlich fast alles Abdecken. ;)
cu
Narses
jaenicke - Mi 16.09.09 07:31
Ein kleiner Ansatz, vielleicht kommst du damit ja schon weiter:
Deklariere dir unter private einen Integer-Wert. Den kannst du dann im Timer hochzählen und bei 8 wieder auf 0 setzen. Jetzt musst du bei jedem Schritt nur noch überlegen was da umgeschaltet werden muss (und das tun).
Der kürzere Ansatz:
Überlegen bei welchen Phasen ein bestimmtes Shape leuchten muss.
Dann kannst du direkt schreiben:
Delphi-Quelltext
1:
| MyGreenShapeLeft.Visible := CurrentPhase in [1, 4]; |
Dann würde das Shape sichtbar sein, wenn die Phase 1 oder 4 gerade läuft.
Mehr dazu findest du wie schon gesagt wurde über die Suche.