AGB  ·  Datenschutz  ·  Impressum  







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

Timer

Ein Thema von Ersan90 · begonnen am 26. Aug 2007 · letzter Beitrag vom 26. Aug 2007
Antwort Antwort
Seite 1 von 2  1 2      
Ersan90

Registriert seit: 8. Jun 2007
16 Beiträge
 
#1

Timer

  Alt 26. Aug 2007, 11:49
Hey leuts,

Ich will eine Ampel erstellen die z.B. automatisch bei

1 sec auf gelb

1,5 sec auf grün

schaltet..

Also Timer1. ... Wenns geht mit case .. of

Ist wahrscheinlich einfach aber ich komm grad net drauf

Danke im Voraus.
MFG Ersan
  Mit Zitat antworten Zitat
Apollonius

Registriert seit: 16. Apr 2007
2.325 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Timer

  Alt 26. Aug 2007, 12:00
Globale Variable. Intervall des Timers auf 500, dort die Variable hochzählen und mit case-of Farbe bestimmen. Das schaffst du.
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Timer

  Alt 26. Aug 2007, 12:06
Delphi-Quellcode:
type
  TAmpelPhase = (
    apRot = 0,
    apRotGelb = 1,
    apGelb = 2,
    apGruen = 3);

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    AktuelleAP: TAmpelPhase;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  AktuelleAP := apRot;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  case AktuelleAP of
    apRot:
    begin
      Caption := 'Rot';
      AktuelleAP := apRotGelb;
    end;
    apRotGelb:
    begin
      Caption := 'RotGelb';
      AktuelleAP := apGruen;
    end;
    apGelb:
    begin
      Caption := 'Gelb';
      AktuelleAP := apRot;
    end;
    apGruen:
    begin
      Caption := 'Grün';
      AktuelleAP := apGelb;
    end;
  end;
end;
Die Farbe wird in der Titelzeile des Fensters als Zeichenkette angezeigt. Ich habe auch gleich noch die rot-gelb Phase mit eingebaut, wie es in der Wirklichkeit auch ist.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Ersan90

Registriert seit: 8. Jun 2007
16 Beiträge
 
#4

Re: Timer

  Alt 26. Aug 2007, 12:09
thx aber was wäre denn der befehl für zB " bei 10 passiert dies und das"

case timer1.interval of 10 :
...

da passiert bei mir aber nichts, denn bei dem object inspector ist das interval auf 1000 und nur auf 1000 klappt es also

case timer1.interval of 1000 :
...
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#5

Re: Timer

  Alt 26. Aug 2007, 12:14
Was hat denn das Intervall des Timers mit der Ampelphase zu tun? Entscheident ist doch nur, was für eine Phase gerade angezeigt wird, um zu bestimmen, welche als nächstes kommt.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Ersan90

Registriert seit: 8. Jun 2007
16 Beiträge
 
#6

Re: Timer

  Alt 26. Aug 2007, 12:16
Zitat von Luckie:
Delphi-Quellcode:
type
  TAmpelPhase = (
    apRot = 0,
    apRotGelb = 1,
    apGelb = 2,
    apGruen = 3);

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    AktuelleAP: TAmpelPhase;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  AktuelleAP := apRot;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  case AktuelleAP of
    apRot:
    begin
      Caption := 'Rot';
      AktuelleAP := apRotGelb;
    end;
    apRotGelb:
    begin
      Caption := 'RotGelb';
      AktuelleAP := apGruen;
    end;
    apGelb:
    begin
      Caption := 'Gelb';
      AktuelleAP := apRot;
    end;
    apGruen:
    begin
      Caption := 'Grün';
      AktuelleAP := apGelb;
    end;
  end;
end;
Die Farbe wird in der Titelzeile des Fensters als Zeichenkette angezeigt. Ich habe auch gleich noch die rot-gelb Phase mit eingebaut, wie es in der Wirklichkeit auch ist.

ok thx das muss ich jez erstmal verstehen
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#7

Re: Timer

  Alt 26. Aug 2007, 12:18
Da gibt es nichts zu verstehen. Du könntest das ganze auch mit einem einfachen Integer machen. Mache ich eigentlich auch, nur, das sich mir eben die einzelnen Werte "benannt" habe mit einem eigenen Aufzählungsdatentypen, um es etwas übersichtlicher und einfachher zu machen.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Ersan90

Registriert seit: 8. Jun 2007
16 Beiträge
 
#8

Re: Timer

  Alt 26. Aug 2007, 12:18
Zitat von Luckie:
Was hat denn das Intervall des Timers mit der Ampelphase zu tun? Entscheident ist doch nur, was für eine Phase gerade angezeigt wird, um zu bestimmen, welche als nächstes kommt.
Ich wusste es ya net

aber ok also hat nix damit zu tun.
  Mit Zitat antworten Zitat
Ersan90

Registriert seit: 8. Jun 2007
16 Beiträge
 
#9

Re: Timer

  Alt 26. Aug 2007, 12:19
Zitat von Luckie:
Da gibt es nichts zu verstehen. Du könntest das ganze auch mit einem einfachen Integer machen. Mache ich eigentlich auch, nur, das sich mir eben die einzelnen Werte "benannt" habe mit einem eigenen Aufzählungsdatentypen, um es etwas übersichtlicher und einfachher zu machen.
aso okok verstehe
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#10

Re: Timer

  Alt 26. Aug 2007, 12:24
Aber noch mal zur Erklärung:

Wenn die Ampel rot ist (das ist der Startwert), dann wird rot angezeigt und für den nächsten Aufruf der Timer-Prozedur der Wert der Variablen AktuelleaP auf rot-gelb gesetzt, weil das die Phase ist, die nach rot kommt. Da die Variable beim nächtsen mal rot-gelb ist, springt er in den rot-gelb Zweig. Dort wird dan der Wert auf die nächste Ampelpahe gesetzt, die folgen soll.

Ich hoffe, dass kanst du auch morgen deinem Lehrer erklären.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


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 00:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz