Помогите с задачей по Дельфи

Yamaha · #1 10.02.2011, 19:56

Здравствуйте, помогите найти ошибку, я хочю создать программу, в которой индикатор прогресса заполся по мере того, как проходит время между первой и второй временной отметкой указанных в лейблах? Заполняются только два процента от силы. Помогите найти ошибку:

Код:

unit Unit2; 

interface 

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, ComCtrls, StdCtrls, ExtCtrls; 

type 
TForm2 = class(TForm) 
Label1: TLabel; 
Label2: TLabel; 
ProgressBar1: TProgressBar; 
Button1: TButton; 
Timer1: TTimer; 
procedure FormShow(Sender: TObject); 
procedure Timer1Timer(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 

var 
Form2: TForm2; 
Raz,Per:integer; 
implementatiоn 

{$R *.dfm} 

procedure TForm2.FormShow(Sender: TObject); 
var 
Time1, Time2: TDateTime; 
begin 
Time1:=StrtoTime(Label1.Caption); 
Time2:=StrtoTime(Label2.Caption); 
Raz:=((StrToInt(FormatDateTime('h',Time2)))*60+StrToInt(FormatDateTime('n',Time2)))*60- 
((StrToInt(FormatDateTime('h',Time1)))*60+StrToInt(FormatDateTime('n',Time1)))*60; 
if Raz Mod 2 <> 0 then Raz:=Raz-1; 
Per:=Raz div 100; 

if StrToTime(Label1.Caption+':00') <= Time then Timer1.Enabled:=True; 

end; 

procedure TForm2.Timer1Timer(Sender: TObject); 
begin 
Timer1.Interval:=Timer1.Interval*Per; 
progressbar1.Positiоn := progressbar1.Positiоn + 1; 
if progressbar1.Positiоn = 100 then timer1.Enabled := false; 
end; 

end.

Админ: Пользуемся тегами!

Belanserg · #2 10.02.2011, 20:33

Попробуй перенести строчку кода из события Timer1Timer

Код:

Timer1.Interval:=Timer1.Interval*Per;

в конец события form2show

Pilot_Red · #3 10.02.2011, 20:53

Если я тебя правильно понял то мой пример тебе поможет. (Доработано до секунд). Вводи значения и наблюдай!

Pilot_Red · #4 10.02.2011, 21:28

Чтобы работало "на всем диапазоне временой оси" в пределах суток

в таймере все убери все и вставь этот кусок кода

Код:

sec:=RazSec-SecondsBetween(time,t2);
ProgressBar1.Position:=(round(100*(sec-sec1)/RazSec));

Yamaha · #5 10.02.2011, 21:47

Цитата:

Сообщение от Belanserg

Попробуй перенести строчку кода из события Timer1Timer

Код:

Timer1.Interval:=Timer1.Interval*Per;

в конец события form2show

Спасибо помогло

Yamaha · #6 10.02.2011, 21:49

Цитата:

Сообщение от Pilot_Red

Чтобы работало "на всем диапазоне временой оси" в пределах суток

в таймере все убери все и вставь этот кусок кода

Код:

sec:=RazSec-SecondsBetween(time,t2);
ProgressBar1.Position:=(round(100*(sec-sec1)/RazSec));

А как сделать так, чтобы программа определила время настоящее и выставила бы по нему соответствующее количество процентов пройденного времени

Pilot_Red · #7 10.02.2011, 22:08

А мое вложение не катит? Там по моему есть ответ на твой вопрос! в виде работающего сорца. Только не забудь в таймере(моего исходника) вот это вставить(все остальное из таймера убери)

Код:

sec:=RazSec-SecondsBetween(time,t2);
ProgressBar1.Position:=(round(100*(sec-sec1)/RazSec));

что делает программа:
сначала вычесляет кол-во секунд между двумя time-ми (SecondsBetween)
потом (уже в таймере) вычесляется текущя секунда относительно найденого интервала(кол-ва секунд).
А потом с помощью обычной интерполяции находим положение прогрессбара
он как раз и показывает проценты(possition)

Yamaha · #8 10.02.2011, 22:34

Цитата:

Сообщение от Pilot_Red

А мое вложение не катит? Там по моему есть ответ на твой вопрос! в виде работающего сорца. Только не забудь в таймере(моего исходника) вот это вставить(все остальное из таймера убери)

Код:

sec:=RazSec-SecondsBetween(time,t2);
ProgressBar1.Position:=(round(100*(sec-sec1)/RazSec));

что делает программа:
сначала вычесляет кол-во секунд между двумя time-ми (SecondsBetween)
потом (уже в таймере) вычесляется текущя секунда относительно найденого интервала(кол-ва секунд).
А потом с помощью обычной интерполяции находим положение прогрессбара
он как раз и показывает проценты(possition)

Я видоизменил код, посмотри, мой вариант, для того, чтобы отображался текущий процент уже пройденного времени, у меня правда полностью заполняется прогресс бар начальное время ставлю 21.00 конечное 23.00, а текущее время 22.30

Код:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    ProgressBar1: TProgressBar;
    Button1: TButton;
    Timer1: TTimer;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  Raz,RazNow,BarNow,Per:integer;
implementation

{$R *.dfm}

procedure TForm2.FormShow(Sender: TObject);
var
Time1, Time2: TDateTime;
begin
Time1:=StrtoTime(Label1.Caption);
Time2:=StrtoTime(Label2.Caption);
RazNow:=((StrToInt(FormatDateTime('h',Time)))*60+StrToInt(FormatDateTime('n',Time)))*60-((StrToInt(FormatDateTime('h',Time1)))*60+StrToInt(FormatDateTime('n',Time1)))*60;;
Raz:=((StrToInt(FormatDateTime('h',Time2)))*60+StrToInt(FormatDateTime('n',Time2)))*60-
((StrToInt(FormatDateTime('h',Time1)))*60+StrToInt(FormatDateTime('n',Time1)))*60;
if Raz Mod 2 <> 0 then Raz:=Raz-1;
Per:=Raz div 100;
BarNow:=RazNow div Per;
ProgressBar1.Position:=ProgressBar1.Position+RazNow;
if StrToTime(Label1.Caption+':00') <= Time then Timer1.Enabled:=True;

 Timer1.Interval:=Timer1.Interval*Per;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
//Timer1.Interval:=Timer1.Interval*Per;
progressbar1.Position :=  progressbar1.Position + 1;
if progressbar1.Position = 100 then timer1.Enabled := false;
end;

end.

Yamaha · #9 10.02.2011, 22:43

Цитата:

Сообщение от Yamaha

Я видоизменил код, посмотри, мой вариант, для того, чтобы отображался текущий процент уже пройденного времени, у меня правда полностью заполняется прогресс бар начальное время ставлю 21.00 конечное 23.00, а текущее время 22.30

Код:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    ProgressBar1: TProgressBar;
    Button1: TButton;
    Timer1: TTimer;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  Raz,RazNow,BarNow,Per:integer;
implementation

{$R *.dfm}

procedure TForm2.FormShow(Sender: TObject);
var
Time1, Time2: TDateTime;
begin
Time1:=StrtoTime(Label1.Caption);
Time2:=StrtoTime(Label2.Caption);
RazNow:=((StrToInt(FormatDateTime('h',Time)))*60+StrToInt(FormatDateTime('n',Time)))*60-((StrToInt(FormatDateTime('h',Time1)))*60+StrToInt(FormatDateTime('n',Time1)))*60;;
Raz:=((StrToInt(FormatDateTime('h',Time2)))*60+StrToInt(FormatDateTime('n',Time2)))*60-
((StrToInt(FormatDateTime('h',Time1)))*60+StrToInt(FormatDateTime('n',Time1)))*60;
if Raz Mod 2 <> 0 then Raz:=Raz-1;
Per:=Raz div 100;
BarNow:=RazNow div Per;
ProgressBar1.Position:=ProgressBar1.Position+RazNow;
if StrToTime(Label1.Caption+':00') <= Time then Timer1.Enabled:=True;

 Timer1.Interval:=Timer1.Interval*Per;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
//Timer1.Interval:=Timer1.Interval*Per;
progressbar1.Position :=  progressbar1.Position + 1;
if progressbar1.Position = 100 then timer1.Enabled := false;
end;

end.

Нашел ошибку, исправил, теперь у меня такой вопрос: как изменять цвет прогрессбара, хочю чтобы по прошествии одной трети времени между лейблами менялся цвет прогрессбара, не подскажете друзья?

Belanserg · #10 11.02.2011, 08:14

Изменить цвет progressbar можно так:

Код:

PostMessage(ProgressBar1.Handle, $0409, 0, clGreen);

Yamaha · #11 11.02.2011, 17:27

Цитата:

Сообщение от Belanserg

Изменить цвет progressbar можно так:

Код:

PostMessage(ProgressBar1.Handle, $0409, 0, clGreen);

Я пробовал эту команду но почемуто цвет не меняется и еще, как можно поменять цвет фона прогрессбара, т.е. еще не заполненной части прогрессбара

Belanserg · #12 11.02.2011, 18:22

странно, потому что сколько уже пользуюсь именно этим методом не разу не подвел, цвет шкалы меняется. насчет фона то смотри исходник, там и фон и шкала меняются.

Yamaha · #13 12.02.2011, 00:31

Цитата:

Сообщение от Belanserg

странно, потому что сколько уже пользуюсь именно этим методом не разу не подвел, цвет шкалы меняется. насчет фона то смотри исходник, там и фон и шкала меняются.

Че то не пойму, запустил у себя на Delphi XE твою программку, так у меня не меняется цвет прогрессбара, он все время красный, а фон тем более

Belanserg · #14 12.02.2011, 07:15

У меня Delphi7 и все работает.

Страдалецъ · #15 12.02.2011, 11:43

Просто этот способ для стандартной цветовой схемы, а вот для Аэро уже не катит.

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты