.: Atomuhr :.

[Chrissi91]

Hi ,

da ich in einigen Programmen eine Atomuhr benötige, habe ich einfach mal sowas programmiert. Es ist eigentlich sehr simple. Ich frage die Atomzeit über das Internet ab und zeige sie an.
So richtig Sinn hat das Programm nicht , aber wenn jemand den Sourcecode haben will, posten ich ihn natürlich gerne.

Chrissi91

Aktuellste Version: 1.1.0

[PierreB]

Zitat:

[...] über das Internet ab und zeige sie an.

Was hältst du davon wenn du die Zeit nicht nur anzeigst, sondern gleich die Windows-Uhr richtig stellst ?

Hab mir dein Programm nicht angesehen, aber ich denke nicht das es das ^^ bereits tut.

[MrKnogge]

Hi,

das tool funktioniert bei mir ohne Probleme, nützlich wäre vielleicht noch, wenn man sich den Server aussuchen könnte.

gruss

PS: Würde mir den Code gern mal ansehen.

[Chrissi91]

Also das mit der Systemzeit umstellen, versuche ich, aber ich schaffe das nicht so richtig (s. hier)

Code muss ich erst mal richtig einrücken und so ... kommt nachher

[ichbins]

du solltest den Timer schneller ticken lassen. ich hab das Gefühl dass die neue Zeit in ganz unterschiedlichen Abständen angezeigt wird.

[Chrissi91]

Version 1.0.2 im ersten Beitrag. Änderungen habe ich dort auch aufgelistet.

[ichbins]

• Form lässt sich nicht mehr ordentlich verschieben
• Ist es Absicht dass man die Captions von den Buttons nicht lesen kann?

http://www.michaelensslin.kilu.de/ss2.jpg

[Luckie]

Sag mal, holst du dir jede Sekunde die Zeit vom Zeitserver? Du brauchst sie dir dochnur einmal holen, dann kannst du selber weiterzählen und die Verbindung zum Server wieder schließen.

[Chrissi91]

???

Muss wohl daran liegen, dass ich kein XP habe, aber trotzdem XP Manifest reingetan habe ... Bei mir ist ales bestens.

Habe jetzt eine andere Verion hochgeladen ... s. erster Beitrag

Zitat von Luckie:

Sag mal, holst du dir jede Sekunde die Zeit vom Zeitserver? Du brauchst sie dir dochnur einmal holen, dann kannst du selber weiterzählen und die Verbindung zum Server wieder schließen.

Nein, nicht jede Seknde, aber recht oft, da Timer sehr ungenau sind, aber das werde ich gleich mal machen ...

[ichbins]

zeig mal einen Screenshot.

Ohne Timer geht das so:

Delphi-Quellcode:

var
  internetzeit,pczeit:tdatetime;


procedure tform1.timer1ontimer;
begin
  // INTERNETZEIT DOWNLOADEN; Intervall von Timer1 = 60000
  internetzeit:=downgeloadete zeit;
  pczeit:=now;
end;

procedure tform1.timer2ontimer;
var
  auszugebendezeit:tdatetime;
begin
  // ZEIT AUSGEBEN; Intervall von Timer2 = 10
  auszugebendezeit:=now+internetzeit-pczeit;
  label1.caption:=timetostr(auszugebendezeit);
end;

//edit: du musst die colors von der Buttoncaption auf clblack setzten. welche Komponente verwendest du denn für die Buttons?