[delphi] przyspieszony zegar

0

Chciałbym w moim programie umieścić taki mały bajer ale nie wiem jak go stworzyć. A mianowicie chodzi mi o coś takiego:
--> chcialbym aby podczas działania programu "zegar" przyspieszał o pewną liczbę np. aktualna godzina to 21:25 [normalnie po upływie minuty jest godzina 21: 26] a ma być np 22:35
I tu tkwi caly problem gdyż nie wiem jak przyspieszyć zegar o np 1 godzine po minucie trwania (22:25-->23:26;22:26-->0:26;22:27-->1:26 itd).
i tak samo jeżeli chodzi o date (zeby sie zmieniala tak jak nowa godzina).

Jeżeli ktoś był by mi w stanie pomóc to dziękuję :)

0

nie pamiętam jak się ustawia, ale chyba możesz wykorzystać unit dateutils i ustawiania / zdobywanie daty + timer nawet, np:

uses DateUtils;

var dawaj: double = 1;

procedure TForm1.Timer1Timer(Sender: TObject);
var data: TDateTime;
begin
  data := Now;
  IncSecond(data, round(dawaj));
  // tutaj funkcja ustawienia daty na data
  dawaj := dawaj * 1.05; // powoli przyspieszaj
end;
0

wróciłem do tego pomysłu i nie dziala. wywala mi błąd!!

0

wróciłem do tego pomysłu i nie dziala. wywala mi błąd!!

Może napisz jaki to błąd .. jasnowidzami nie jesteśmy :-/

0
Deti napisał(a)

<Może napisz jaki to błąd .. jasnowidzami nie jesteśmy :-/

Sorrki, źle sie wyraziłem... nie chodziło mi o taki błąd co delphi wywala tylko inny... <moja wina="wina"> mam natomiast problem z wyświetleniem tej godziny na formie...

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0