Sekunden an einen Timer übergeben

[Tavik]

ich habe eine integer-variable "sekunde" und möchte diese an einen Timer im Format dd:hh:mm:ss
übergeben! leider komme ich mit der timerroutine überhaupt nicht klar und auch das übersetzen ins richtige Format bereitet mir Probleme!

Danke im voraus

Sascha

p.s.: wie kann ich das Fenster der Dateneingabe schließen und gleichzeit ein neues Fenster für den Timer aufpoppen lassen?

[Sanchez]

Hallo und willkommen in der DP (ich wollte das immer schon mal schreiben )

Leider verstehe ich deine Frage nicht.
Willst du den Intervall eines Timer setzen? Wenn ja, dann verstehe ich nicht, was du mit dem Format meinst.
Das Datumsformat ist doch nur interessant, wenn du den Wert in einen String umwandelst (oder umgekehrt).

grüße, daniel

[alcaeus]

Hi Tavik!

Zitat von Tavik:

ich habe eine integer-variable "sekunde" und möchte diese an einen Timer im Format dd:hh:mm:ss übergeben! leider komme ich mit der timerroutine überhaupt nicht klar und auch das übersetzen ins richtige Format bereitet mir Probleme!

Die Interval-Eigenschaft des Timers verlangt eine Zeitangabe in Millisekunden. Ist die Enabled-Eigenschaft des Timers auf True, so wird nach dieser Zeitspanne das OnTimer-Ereignis ausgelöst.

Zitat von Tavik:

p.s.: wie kann ich das Fenster der Dateneingabe schließen und gleichzeit ein neues Fenster für den Timer aufpoppen lassen?

Neue Frage, neuer Thread
Und außerdem verstehe ich diese Frage nicht

Greetz
alcaeus

[glkgereon]

ich glaube folgendes:
du meinst du hast eine art edit oder so wo du die zeit drin anzeigen willst....

an dieses editfeld (den "timer") willst du eine integer-uhrzeit (Tdatetime?) übergeben und anzeige lassen...

so, wenn das soweit richtig war machst du dies:

Delphi-Quellcode:

var
zeit:TDateTime;
begin
zeit:=now;
Edit1.Text:=DateTimetostr(zeit);//der Timer

so, dann die zweite frage: da wo du close; sagst sagst du direkt danach Form_Timer.Show/Showmodal...

so, EDIT:

deine variable hat die sekunden drin, daher:

Delphi-Quellcode:

var
sekunden, minuten, stunden, tage:integer;
begin
minuten:=sekunden div 60;
sekunden:=sekunden mod 60;
stunden:=minuten div 60;
minuten:=minuten mod 60;
tage:=stunden div 24;
stunden:=stunden mod 24; 
Edit1.Text:=inttostr(tage)+':'+inttostr(stunden)+':'+inttostr(minuten)+':'+inttostr(sekunden);//der Timer

das mit 01 beim ersten tag und so weiss ich so spontan auch nicht

[Tavik]

hallo! ersteinmal danke für die schnellen hilfeversuche...ich werd mal etwas weiter ausholen!

ich habe auf der integervariable sekunde den Wert (s:= 268457) (nur so als beispiel!)

jetzt möchte ich mehrere Schritte abarbeiten (vielleicht gibts aber auch einen Befehl der das alles auf einmal erledigt!)


1. umrechnung in das Format 3Tage, 2Stunden, 34 Minuten, 17 Sekunden
2. übergabe dieses Ausgangswertes an einen Timer
3. Timer starten
4. wie der Timer angezeigt wird (Editbox oder Label) ist egal!



danke für die hilfe
Tavik

p.s.: bin für jede idiotensichere beschreibung/quelltext dankbar*g*

[Tavik]

@glkbkk


dein vorschlag hilt mir schon sehr weiter...jetzt soll dieses Edit feld nur noch jede Sekunde runtergezählt werden!

daran scheitert es!

gruss
Tavik

[glkgereon]

dazu nimmst du jetzt den richtigen timer...

in der leiste system ist eine kompo timer...
intervall auf 1000 (=1 sek)
die variable sekunde bei jedem timer-ereignis 1 runter und meine procedure wieder machen...

achso, am anfang timer disablen und dann wenn er initialisiert wird enablen

hoffe du kommst damit zurecht

[Nikolas]

nimm einen (anderen) Timer, setze das Intervall auf 1000 (ms). Dann schreib in die onTimer-Procedure

Delphi-Quellcode:

dec(sekunden);
// und die ganzen Befehle von glkbkk

[Tavik]

ahhhhh!

jungs jungs! ich bin blutiger anfänger!
enablen vor und nachher? nich so fix! ich bin ja willig aber ....

kann jemand die 5 minuten für eine ausführliche erklärung erübrigen?


ich bin euch schon jetzt sehr sehr dankbar....


gute nacht
sasch

[Nikolas]

Mit dem Enablen startest du einfach den Timer. Deswegen würde ich vorschlagen, ihn zur Entwicklungszeit auf disabled zu stellen und ihn dann zu starten, sobald was angezeigt werden soll. Das Intervall kannst du auch schon vorher auf 1000 stellen.
So sollte es gehen.