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.

[Michi003]

auch wenn ich es in einem Neuen Projet auf mache und das Edit feld rein mache geht es nicht...

[inherited]

Das ist kein kompletter Code der Dir da gegeben wurde, sondern Hinweise, wie du das realisieren kannst!

[Michi003]

Ja das weiß ich auch, aber ganz ehrlich habe ich keinen schimmer wie oder wo ich diese schnipssel in mein Puzzel einbauen soll..
ich habe noch nicht wirklich erfahrung mit Delphi gemacht...
Ich habe mir ein paar Grundlagen bis her angesehen und ausprobiert alles schön und gut klappte auch alles soweit aber ich will für das eine Projekt wo ich in der schule gemacht habe auch etwas weiter machen und will nicht immer im Unterricht mich langweilen weil ich das, was die jetzt erst lernen schon kann...

[Luckie]

Zitat:

Zitat von Die Muhkuh

Du musst halt die verschiedenen Variablen noch deklarieren.

[Michi003]

Und das ganze auf Deutsch!?:wall:

[Luckie]

Ich glaube, du solltest dir erstmal das http://www.christian-stelzmann.de/artikel/crashkurs.htm durchlesen und dann können wir hier weiter machen.

[Neutral General]

Variable deklarieren =

Delphi-Quellcode:

var
  Variable: Integer;

[BullsEye]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
VAR
    startzeit : TTime;
    endzeit   : TTime;
    diverenz  : String;
begin
  Label1.Caption := TimeToStr(time);
  startzeit := StrToTime(edit1.text);
  endzeit := StrToTime(label1.Caption);
  diverenz := TimeToStr(endzeit - startzeit);
  Label2.Caption := diverenz;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := TimeToStr(time);
end;

[rollstuhlfahrer]

soweit sogut.

Jetzt müsste nur noch die Startzeit am Programmanfang gesetzt werden. Dazu erstellst du eine neue globale Variable und löschst diese in der Timer-Prozedur. Gleichzeitig löschts du die Zeile Startzeit := ... und fügst sie dort ein, wo das Programm startet (FormCreate?, Initialization-Block?). Sonst wirst du mit deinem Code höchstens 1 s angezeigt bekommen werden.

Bernhard