Timer

[Mephisto Thijs]

Kann mir jemand sagen wie man den stinknormalen Timer programmiert!
Übrigens, ich bin ein blutiger Programmier -Anfänger (Also wäre es cool wenn man mir die benötigten Programmzeilen zeigen kann)
Ich möchte die ablaufende Zeit sehen können (z.B.in einem Edit)

Ich dürste nach Wissen

P.S.Ich programmiere mit Delphi6 Personal

[Sunlight7]

1. Wäre mal ein Hallo angebracht, wenn man in ein Forum kommt.
2. Ein Bitte und Danke wäre auch net schlecht...
3. Benutze die Suchfunktion: Timer
4. Sprach ist Deine Programmiersprache... Die weißt Du schon
5. Pack Dir nen TTimer auf die Form
6. Stell das Interval ein (in MS)
7. Setz das Ereignis OnTimer
8.

[Mephisto Thijs]

1.Hallo
2.Danke
...
8.Ich denk dran

Gruss Mephisto

[Sunlight7]

Schon etwas besser

Also nachträglich, willkommen in der DP

[Mephisto Thijs]

Hallo

Erstmal Danke für die schon eingegangene Hilfe.Ich bin jedoch noch nicht wissend genug um sie zu verstehen und mit meiner englischen Freundin, der Delphi-Hilfe!,kann ich auch (zumindestens in diesem Fall) nichts anfangen.
Könnte mir vielleicht jemand die (wahrsch. sehr einfach zu programmierenden) Programmzeilen von einem Timer zeigen, bei dem ich in einem Edit sehen kann wie er die Sekunden z.B von 50 auf 0 herunterzählt oder anders herum. Es sollten außerdem zwei Buttons zu sehen sein mit welchen ich den Timer starten und stoppen kann . Danke schon einmal von vornherein für eure Hilfe!

Mephisto

[Blackheart]

Falls Du Buttons und Edits sehen möchtest, musst Du Sie aus der Komponentenpalette auf die Form ziehen.
Mit einem Doppelklick auf den Button erzeugt Dir Delphi folgenden Code

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
// Hier kommen deine Befehle rein TuEtwas;
end;

Dann schmeiß Ich mal noch folgende Schnipsl rein

Time
Inc
Dec
StrToInt
IntToStr

[xZise]

Pseudocode

Code:

Prozedur KlickAufButton1
Anfang

  Starte Timer (Eigenschaft .Enabled des Timer angucken)

Ende

Prozedur KlickAufButton2
Anfang
  Stope Timer (Wie Starte Timer)
Ende

Prozedur WennDasIntervallDesTimersZuEndeIst
Anfang
  Erniedrige(Edit.Zahl)
  Wenn Edit.Zahl 0 ist, dann
    Meldung(Fertisch :D)
Ende

Setze zusätzlich das Intervall, wann er runterzählen soll. (Also die Zeit zwischen den einzelnen Schritten Nicht Gesamtzeit)

[Mephisto Thijs]

Hey Leute, Danke für alles
Hat mir sehr weitergeholfen!

Greetings Mephisto