Время работы программы.

[Skrillex9666]

Всем привет. Я опубликовал эту тему для таких как я, кто много ищет ответов на ситуации случившиеся в программировании c Delphi. Итак меньше текста больше результатов. Так вот я перекопал весь инет в поисках: - Как же создать время работы программы?? Так вот полезного почти ничего не нашел. Немного подумав я вспомнил трюк с переменными а вдруг получиться так вот мой ответ получилось. Итак вот вам исходник Как сделать время работы программы легко и быстро.
Итак что мне потребовалось 3 переменные: i, i1, i2; затем Statusbar, Timer, а так же хорошая музыка итак я начинаю: для начала создадим новый проект на форму бросаем все наши компоненты Statusbar, Timer.
Теперь код: для начала помещаем наши 3 переменные в Unit1(Как у кого) над implementation выглядит это так:

var
Form1: TForm1;
i, i1, i2:integer;
implementation

Дальше работаем с Statusbar создаем 4 отрезка(Панели) 3 из которых должны быть ровными(По своему желанию). Итак остался еще одна операция это Время. Время мы будем реализовывать через наш Timer. Смотрим наш таймер должен быть включен дальше двойным щелчком кляцаем по нем и вставляем такой исходник:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
i:=i+1;//счет секунд
statusbar1.Panels[2].Text:=inttostr(i);//записывает секунды
statusbar1.Panels[1].Text:=inttostr(i1);//записывает минуты
statusbar1.Panels[0].Text:=inttostr(i2);//записывает часы но не в 24ч формате а до бесконечности
if i=60 then statusbar1.Panels[0].Text:=inttostr(i1);//запись первой минуты
if i= 60 then i1:=i1+1;счет минут
if i=60 then timer2.Enabled:=false; if i=60 then i:=0; if i=0 then timer2.Enabled:=true;// сбивает секунды на ноль
if i1= 60 then i2:=i2+1; //счет часов
if i1=60 then i1:=0;//сбивает минуты на ноль

end;

И пожалуй это все счет времени можно расширять так как мой код предназначен для счета времени до бесконечности. но только в часах но не днях.
Если что пишите по расширению таймера или изменения счета времени я откорректирую код и обязательно скину исходник.Спасибо за внимание.

[eval]

надо быстрее утилизировать тему, чтоб другим не повадно было

[Skrillex9666]

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

надо быстрее утилизировать тему, чтоб другим не повадно было

И что же тебе не нравиться???

[eval]

всё .

[Skrillex9666]

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

всё .

Ну если ты проф предложи свою идею. Или ты таким просто кажешься???

[eval]

идею я высказал в 1 сообщении

да и не проф я, даже и не знаю что такое проф...

[type_Oleg]

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

... Как же создать время работы программы?? .

Я не понял, какая проблема решена. Что значит создать время ?
Может быть , отображатьть время, прошедшее с момента запуска приложения ?
Так это элементарно. В тот же таймер - использование TimeToStr, и не городить эту возню с секундами, минутами ..

Это надо было?

var
  Form1: TForm1;
  tstart: TDateTime;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
 tstart:=Now;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label1.Caption:=TimeToStr(Now-tstart);
end;
end.

[Konstantin_ua]

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

Всем привет. Я опубликовал эту тему для таких как я, кто много ищет ответов на ситуации случившиеся в программировании c Delphi. Итак меньше текста больше результатов. Так вот я перекопал весь инет в поисках: - Как же создать время работы программы?? Так вот полезного почти ничего не нашел. Немного подумав я вспомнил трюк с переменными а вдруг получиться так вот мой ответ получилось. Итак вот вам исходник Как сделать время работы программы легко и быстро.
Итак что мне потребовалось 3 переменные: i, i1, i2; затем Statusbar, Timer, а так же хорошая музыка итак я начинаю: для начала создадим новый проект на форму бросаем все наши компоненты Statusbar, Timer.
Теперь код: для начала помещаем наши 3 переменные в Unit1(Как у кого) над implementation выглядит это так:

var
Form1: TForm1;
i, i1, i2:integer;
implementation

Дальше работаем с Statusbar создаем 4 отрезка(Панели) 3 из которых должны быть ровными(По своему желанию). Итак остался еще одна операция это Время. Время мы будем реализовывать через наш Timer. Смотрим наш таймер должен быть включен дальше двойным щелчком кляцаем по нем и вставляем такой исходник:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
i:=i+1;//счет секунд
statusbar1.Panels[2].Text:=inttostr(i);//записывает секунды
statusbar1.Panels[1].Text:=inttostr(i1);//записывает минуты
statusbar1.Panels[0].Text:=inttostr(i2);//записывает часы но не в 24ч формате а до бесконечности
if i=60 then statusbar1.Panels[0].Text:=inttostr(i1);//запись первой минуты
if i= 60 then i1:=i1+1;счет минут
if i=60 then timer2.Enabled:=false; if i=60 then i:=0; if i=0 then timer2.Enabled:=true;// сбивает секунды на ноль
if i1= 60 then i2:=i2+1; //счет часов
if i1=60 then i1:=0;//сбивает минуты на ноль

end;

И пожалуй это все счет времени можно расширять так как мой код предназначен для счета времени до бесконечности. но только в часах но не днях.
Если что пишите по расширению таймера или изменения счета времени я откорректирую код и обязательно скину исходник.Спасибо за внимание.

Ясно, понятно, доступно только к теме БД не относится