Ampelschaltung mit Case Anweisungen.

[imp]

nach den ampelphasen hab ich jetzt nicht geschaut, aber aufgefallen ist mir, dass a nicht mehr zurückgesetzt wird.
eventuell wäre a := (a + 1) mod 5 oder so angebracht.

/edit: ach so, die variable sollte man auch irgendwo initialisieren. eventuell im constructor o.ä.