ProgressBar + Timer

0

Witam,

chciał bym zrobic program który odlicza 59 sekund poczym się wyłącza.
Całość pokazuje PrograssBar. Chodzi mi oto zeby szedł od max (59) do (0) tak jak czas.

Label3.Caption := '00:00:' + IntToStr(I);
Dec(I);
if I > 9 then Label3.Caption := '00:00:' + IntToStr(I);
if I < 10 then Label3.Caption := '00:00:0' + IntToStr(I);
if I = -1 then begin
Timer1.Enabled := false;
Application.Terminate;

To jest funkcja odliczenia, ale powiedzcie mi teraz jak ProgressBara w to włączyć.

0
  1. ProgressBar.Max := 59
  2. Przy każdym sprawdzeniu czasu ProgressBar.Position := 59 - i
0

heh juz zalapalem przed tobą ale dzięki

Całość z Timera wygląda tak:

Label3.Caption := '00:00:' + IntToStr(I);
ProgressBar1.Position := I;
Dec(I);
if I > 9 then Label3.Caption := '00:00:' + IntToStr(I);
if I < 10 then Label3.Caption := '00:00:0' + IntToStr(I);
if I = -1 then begin
Timer1.Enabled := false;
Application.Terminate;

I działa :D

0

Jesli chodzi o wyświetlanie czasu to czemu nie użyć typów z tym związanych.
Możesz mieć licznik 0-59 , oraz wstawiać w wybranym formacie czas który sobei obliczysz:
czas:=strtotime('0001')*aktualny_licznik;
label1.caption:= FormatDateTime('"Czas który pozostał:" hhss',czas);
Dzięki temu bez probelmu możesz zmieniać format podawanego czasu, bez żadnych ifów itp.

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