Ampelfunktion in nur in while schleife programmieren?

[Die Muhkuh]

Und wie schon gesagt, werden wir dir nicht diese Funktion schreiben, dass es deine (Haus-)Aufgabe ist und diese auch von dir gemacht werden muss.
Wir helfen dir, wenn wir sehen, dass du dich darum bemühst (sprich Eigeninitiative zeigst). Wenn du dir ein paar Überlegungen machst (wohin mit der Schleife, wie muss die Schleife aussehen, usw.) und du ein paar konkrete Fragen hast, dann lässt sich viel besser helfen.

Kurze Frage: Haben sie euch in der Schule keine Satzzeichen begebracht? :roll:

[JWeis]

Oder einfach alles nacheinander in der schleife abbarbeiten
quasi

Delphi-Quellcode:

 while {was weiß ich} do
begin 
  delay(2500);
  ampel := Rot ;
  delay (2500);
  ampel := gelb
  delay(2500);
  ampel:= grün 
end;

[freak4fun]

Zitat:

Zitat von Spider

Und wie schon gesagt, werden wir dir nicht diese Funktion schreiben, dass es deine (Haus-)Aufgabe ist und diese auch von dir gemacht werden muss.
Wir helfen dir, wenn wir sehen, dass du dich darum bemühst (sprich Eigeninitiative zeigst). Wenn du dir ein paar Überlegungen machst (wohin mit der Schleife, wie muss die Schleife aussehen, usw.) und du ein paar konkrete Fragen hast, dann lässt sich viel besser helfen.

Kurze Frage: Haben sie euch in der Schule keine Satzzeichen begebracht? :roll:

Jetzt bist in deinem Element. :stupid: Aber mach ruhig, ich ignorier dich einfach. :zwinker: Wenn ich das so sehen würde wie du, würde ich ihn einfach ignorieren.

@Magier: Ok, Lehrer sagt schon alles. :mrgreen: Hast du denn überhapt ne Vorstellung von dem Problem?

MfG
freak

[sakura]

@Magier1: In Zukunft, wenn Du zusätzliche Informationen hast, bevor jemand antwortet, nutze bitte den http://www.delphipraxis.net/template.../icon_edit.gif Button am ersten Post. Das liest sich für alle leichter und ist hier auch so üblich.

Danke,
...:cat:...

[marabu]

Hallo Magier1,

zuerst solltest du dein Problem genau analysieren. Welche Zustände kann jede Ampel einnehmen?

Code:

KfzAmpelZustaende = (kfzAus, kfzGruen, kfzGelb, kfzRot, kfzRotGelb);
FussgaengerAmpelZustaende = (fussAus, fussGruen, fussRot);

Acht Phasen kann ich nicht erkennen, sondern eher sechs:

Code:

Phase 1: 5s, kfzGruen, fussRot
Phase 2: 2s, kfzGelb, fussRot
Phase 3: 5s, kfzRot, fussRot
Phase 4: 10s, kfzRot, fussGruen
Phase 5: 2s, kfzRot, fussRot
Phase 6: 2s, kfzRotGelb, fussRot

Der Rest ist dann nur noch Einschalten, Ausschalten und eine Schleife:

Code:

Solange Eingeschaltet() do
begin
  Phase := NächstePhase(Phase);
  SchalteFahrzeugAmpel(Phase);
  SchalteFussgaengerAmpel(Phase);
  Warte(Dauer(Phase));
end;

Jetzt aber ran an die Hausaufgaben.

Grüße vom marabu

[Magier1]

mom ich hab hier etwas erstellt


Ampelleute Fussgängerampel Autoampel Dauer der Ampelleute

rot grün leer rot gelb grün

Phase 0 1 2 3 4 5 6 7

0 X unendlich $01
1 X X 5 sek $81
2 X X 2 sek $41
3 X X 5 sek $21
4 X X 10 sek
$22
5 X X 2 sek $21
6 X X 2 sek $21
7 X X 30 sek $01