AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Kreuzungs Ampel Problem

Offene Frage von "DeddyH"
Ein Thema von thejacensolo · begonnen am 11. Jun 2013 · letzter Beitrag vom 11. Jun 2013
Antwort Antwort
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

AW: Kreuzungs Ampel Problem

  Alt 11. Jun 2013, 17:39
Zum Thema Ampel gibt es alleine hier im Forum reichlich Beiträge

Hier im Forum suchenAmpel (125 Treffer)
und bei Tante google
Bei Google suchendelphi ampel ... ein ganzes Pfund mehr

Wonach hast du gesucht?
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
thejacensolo

Registriert seit: 11. Jun 2013
Ort: Frankfurt am Main
13 Beiträge
 
FreePascal / Lazarus
 
#2

AW: Kreuzungs Ampel Problem

  Alt 11. Jun 2013, 18:14
Danke Helmi, ich habe rot auf visible gestell und auf einmal funktionierts.
Aber wenn ich ausführe springt er ganz schnell von Grün über Gelb auf Rot, schneller als er runterschaltet
-------------------------------------------
Edit: Es lag an dem Sleep und an dem Application.processmessages. ich habe dass weg gemacht und dann funkts

Geändert von thejacensolo (11. Jun 2013 um 18:17 Uhr) Grund: Sleep vergessen weg zu machen
  Mit Zitat antworten Zitat
Benutzerbild von sx2008
sx2008

Registriert seit: 15. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#3

AW: Kreuzungs Ampel Problem

  Alt 11. Jun 2013, 18:15
Ein Ampel hat doch verschiedene (Ampel-)Phasen.
Diese Phasen kann man durchnumerieren (0=alles aus, 1=rot, 2=rot+gelb,...)
Dann braucht man doch nur noch im Timer die Ampelphase hochzählen und entsprechend der Phase die Lämpchen an- und ausmachen.
Und natürlich noch aufpassen, dass nachdem die letzte Pase erreicht wurde wieder auf Phase 1 zurückgesetzt wird.
fork me on Github
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#4

AW: Kreuzungs Ampel Problem

  Alt 11. Jun 2013, 18:27
Genau dazu gibt es zumindest von mir irgendwo einen Beispielcode, der sollte sich über die Suche finden lassen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
thejacensolo

Registriert seit: 11. Jun 2013
Ort: Frankfurt am Main
13 Beiträge
 
FreePascal / Lazarus
 
#5

AW: Kreuzungs Ampel Problem

  Alt 11. Jun 2013, 18:37
Ein Ampel hat doch verschiedene (Ampel-)Phasen.
Diese Phasen kann man durchnumerieren (0=alles aus, 1=rot, 2=rot+gelb,...)
Dann braucht man doch nur noch im Timer die Ampelphase hochzählen und entsprechend der Phase die Lämpchen an- und ausmachen.
Und natürlich noch aufpassen, dass nachdem die letzte Pase erreicht wurde wieder auf Phase 1 zurückgesetzt wird.
Dies habe ich auch versucht und es hat nicht geklappt
ich habe den code gelöscht, aber ich weiß dass er entweder gar nicht oder direkt zur endphase geschaltet hat.
ich habe dass mit in(i) gemacht
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#6

AW: Kreuzungs Ampel Problem

  Alt 11. Jun 2013, 19:14
Ich kann Dich schwer einschätzen, aber das ist Dir vermutlich noch zu hoch. Trotzdem mal eine kleine Klasse:
Delphi-Quellcode:
type
  TAmpel = class;
  TAmpelphase = (apRot, apGelbRot, apGruen, apGelb);
  TOnNextPhase = procedure(Sender: TAmpel; Phase: TAmpelphase) of object;

  TAmpel = class
  private
    FPhase: TAmpelphase;
    FOnNextPhase: TOnNextPhase;
  public
    procedure NextPhase;
    property OnNextPhase: TOnNextPhase read FOnNextPhase write FOnNextPhase;
  end;

...

procedure TAmpel.NextPhase;
begin
  case FPhase of
    apRot:
      FPhase := apGelbRot;
    apGelbRot:
      FPhase := apGruen;
    apGruen:
      FPhase := apGelb;
    apGelb:
      FPhase := apRot;
  end;
  if Assigned(FOnNextPhase) then
    FOnNextPhase(self, FPhase);
end;
Nun musst Du "nur noch" eine Instanz dieser Klasse erzeugen, dem Event eine kompatible Methode zuweisen und in einem Timer NextPhase aufrufen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.344 Beiträge
 
Delphi XE2 Professional
 
#7

AW: Kreuzungs Ampel Problem

  Alt 11. Jun 2013, 19:19
auch wenn beim erzeugen der Instanz die Variablen initialisiert werden, aber du solltest vielleicht
die Variable "FPhase" im Create initialisieren (theoretisch steht sie aber auf apRot)
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat
zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.654 Beiträge
 
Delphi 12 Athens
 
#8

AW: Kreuzungs Ampel Problem

  Alt 11. Jun 2013, 19:29
auch wenn beim erzeugen der Instanz die Variablen initialisiert werden, aber du solltest vielleicht
die Variable "FPhase" im Create initialisieren (theoretisch steht sie aber auf apRot)
oder aber einen else Zweig im case einfügen und dann auf Default setzen?
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat
thejacensolo

Registriert seit: 11. Jun 2013
Ort: Frankfurt am Main
13 Beiträge
 
FreePascal / Lazarus
 
#9

AW: Kreuzungs Ampel Problem

  Alt 11. Jun 2013, 21:23
Diese Klassenbestimmung ist definitiv noch ein bisschen zu hoch für mich(info lk E1)
Wie gesagt funktioniert alles super, also wollte ich noch ein Auto reinfügen. gesagt getan, schon will er nicht mehr kompilieren da steht "fertig kompiliert " aber die Form wird nicht gezeig. Ohne den Auto befehl (ausgeklammert) klappt es wider normal.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Rot1.visible := true;
  Rot2.visible := false;
  rot3.visible := true;
  Rot4.visible := false;
  Gelb1.visible := false;
  Gelb2.Visible := false;
  Gelb3.Visible := false;
  Gelb4.Visible := false;
  Gruen1.visible := false;
  Gruen2.visible := true;
  Gruen3.visible := false;
  Gruen4.visible := true;
  Rotgelb1.visible := false;
  Rotgelb2.visible := false;
  Rotgelb3.visible := false;
  Rotgelb4.visible := false;
  timer1.enabled := true;
   repeat
    begin
    Auto.left := Auto.left + 23;
    end;
    until
    gruen2.visible = false;
end;
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:58 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz