Uhrzeit - Wie lange ist mein Programm schon offen..

[Michi003]

Hallo,

1. Wie kann ich eine Uhrzeit in mein Programm einprogrammieren?
Also nichts besonderes...
Hatte mir da schon etwas vorgestellt...
Ein Textarea(Text feld) oder eine Schreibzeile
Wo dann ganz einfach die Uhrzeit angegeben wird.
Oder wie kann man dies Grafisch dastellen?
Ich habe mir einfach mal die mühe gemacht
Die Zahlen von 0-9 und : Grafisch etwas gut dazustellen
und meinem Programm passende zu Herzustellen.

2. Das selbe wie Oben nur mit einer Zeit wie lange das Programm schon leuft...

Würde mich über ein paar ein paar weitere Ideen freuen =)

Danke im vorraus..

[IceBube]

Hallo!

Kommen wir mal zur ersten Frage...

Hier mal die wichtigsten Sachen --> zur Uhrzeit

Delphi-Quellcode:

//Aktuelle Uhrzeit auslesen
Time(); {Typ : TTime};

//Variable
StartZeit : TTime; {}

//TTime in String konvertieren
Editfeld1.text := TimeToStr(Time());

//2 verschiedene Zeiten
Zeit1 := Time(); //Hier mal die alte Uhrzeit
Zeit2 := Time(); //Hier die Neue Uhrzeit

//Differenz zwischen den 2 Zeitpunkten berechnen
var Differenz : string
Differenz := TimeToStr(Zeit1 - Zeit2); //Ausgabeformat = '01:00:00';

//Uhrzeit spalten in Stunden, Minuten, Sekunden, Millisekunden
var std,min,sek,ms : word;
DecodeTime(Time(),std,min,sek,ms);

//Andersrum
EncodeTime(std,min,sek,ms);

Zur zweiten Frage....
Grafisch darstellen, kannst du zum Beispiel mit Canvas, bitte benütz jedoch die Forum Suche dafür...

Oder vielleicht mit einem Diagramm (welches in Delphi auch enthalten ist?

Zur dritten und letzten Frage...
Gar nicht so schwer, einfach beim Starten deines Programmes die Zeit abfragen und in eine Variable speichern (z.b.: "FormonCreate"), beim schließen (z.b.: FormonClose) die Zeit widerum auslesen, die Differenz berechnen und schon hast du die Zeit :)

Edit:
Willst schon im Programm die Zeit anzeigen, so nimmst du dir einen Timer her und ziehst immer die aktuelle Uhrzeit von der alten ab....

Hoffe das war dir eine Hilfe...

lg

[Michi003]

entweder mache ich ein fehler beim einabeun des codes von dir oder stimmt etwas daran nicht...
Bei mir kommt eine fehler meldung...

[Larsi]

Welche?

[Michi003]

Siehe oben...

[Larsi]

Wo?

[Michi003]

Zitat:

Zitat von IceBube

Hallo!

Kommen wir mal zur ersten Frage...

Hier mal die wichtigsten Sachen --> zur Uhrzeit

Delphi-Quellcode:

//Aktuelle Uhrzeit auslesen
Time(); {Typ : TTime};

//Variable
StartZeit : TTime; {}

//TTime in String konvertieren
Editfeld1.text := TimeToStr(Time());

//2 verschiedene Zeiten
Zeit1 := Time(); //Hier mal die alte Uhrzeit
Zeit2 := Time(); //Hier die Neue Uhrzeit

//Differenz zwischen den 2 Zeitpunkten berechnen
var Differenz : string
Differenz := TimeToStr(Zeit1 - Zeit2); //Ausgabeformat = '01:00:00';

//Uhrzeit spalten in Stunden, Minuten, Sekunden, Millisekunden
var std,min,sek,ms : word;
DecodeTime(Time(),std,min,sek,ms);

//Andersrum
EncodeTime(std,min,sek,ms);

...
...

[Larsi]

Welche Fehlermeldung gibt Delphi dir? In deinem zitierten Beitrag steht das nicht :)

[Michi003]

Siehe anhang..--> Fehler meldung

[Die Muhkuh]

Du musst halt die verschiedenen Variablen noch deklarieren.

Den Code von IceBube kannst Du nicht direkt übernehmen, dass sind alles nur Ausschnitte, die an die geeignete Stelle gepackt werden müssen.