Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Таймер. Как узнать сколко там натикало? 
V
    Опции темы
Mersik
  Дата 20.2.2007, 14:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 15.1.2007
Где: Latvija, Riga

Репутация: -1
Всего: 0
таймер! как узнать сколко там натикало
???? smile 
Код

Timer1.enable:=true;

//  какое то деиствие


ShowMessage ('TIMER1') ;  <-------  как написать правельно ??
PM MAIL WWW   Вверх
_hunter
Дата 20.2.2007, 14:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
заведи где-нить переменную, к которой при каждом тике доплюсовывай интервал таймера.


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
aktuba
Дата 20.2.2007, 14:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38
А зачем таймер? Запоминаем дату/время начала, потом вычитаем запомненное из текущего даты/времени и все...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
gambit
Дата 20.2.2007, 14:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***
Награды: 1



Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

Репутация: нет
Всего: 40
Опиши проблему подробнее. Тебе надо обычный таймер?
PM MAIL ICQ Skype   Вверх
Guedda
Дата 20.2.2007, 15:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Код

var
  i : Integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Inc(i);
end;
//...

begin
  //...
  i := 0;
  Timer1.Enabled := true;
  //...
  ShowMessage(IntToStr(i));



--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
VICTAR
Дата 20.2.2007, 15:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
Код

var
  Form1: TForm1;
  tm   : TTime;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text:=TimeToStr(Time-tm);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
tm:=Time;
Timer1.Interval:=1000;
Timer1.Enabled:=true;
end;
PM MAIL   Вверх
Sunvas
Дата 20.2.2007, 16:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89
Цитата(Mersik @  20.2.2007,  14:41 Найти цитируемый пост)
как узнать сколко там натикало

Умножаешь интервал таймера на длительность времени включенности таймера.


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Mersik
Дата 20.2.2007, 17:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 15.1.2007
Где: Latvija, Riga

Репутация: -1
Всего: 0
Код

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(laiks);
end;

procedure load_image(fname:string);
var i,j,y:integer;
Bitmap1: TBitmap;
begin
      Form1.Timer1.Enabled:=true;
      Bitmap1:= TBitmap.Create;
      Bitmap1.PixelFormat:=pf24bit;
      Bitmap1.LoadFromFile(Fname);
      Form1.Image1.Picture.Graphic:= Bitmap1;
      Form1.image1.width:=bitmap1.width;
      Form1.image1.height:=bitmap1.height;
      Form1.Edit_q_neiro.text:= IntToStr(bitmap1.width*bitmap1.height);
      y:= 0;


      for i := 0 to (bitmap1.width-1) do
        begin
        for j:= 0 to (bitmap1.height-1) do
          begin
            inc(y);
            Input_neiro_value[y]:=getRvalue(Form1.image1.canvas.pixels[i,j]);
            Form1.Memo4.Text:=Form1.Memo4.text+ IntToStr(Input_neiro_value[y])+ chr(13) + chr(10);
               if Input_neiro_value[y]>128 then Input_neiro_value[y]:=0 else Input_neiro_value[y]:=1;
            Form1.Memo5.Text:=Form1.Memo5.text+ intToStr(Input_neiro_value[y])+ chr(13) + chr(10);
          end;
      end;
     bitmap1.Destroy;
     ShowMessage(FloatToStr(laiks));
     Form1.Timer1.Enabled:=False;
end;


Не работает !!!!!!!!!!!!!! подсказите где ощибка ???
PM MAIL WWW   Вверх
Alexeis
Дата 20.2.2007, 17:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Mersik,  smile  конечно не работает. Он же запущен и выключен в одной процедуре! Тут нужно юзать GetTickCount();

Добавлено @ 17:15 
Обычный таймер работает в основном потоке же потоке. Событие таймера возникает только после того как программа обработат сообщение таймера, если она его не будет обрабатывать то одно вообще не наступит. GetTickCount(); - дает количество мс от начала старта винды, потому время будет разницей между 2мя вызовами.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Mersik
Дата 20.2.2007, 20:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 15.1.2007
Где: Latvija, Riga

Репутация: -1
Всего: 0
так какой правельний вариант ? поправте мой код позалуста !

Добавлено @ 21:00 
 smile 
PM MAIL WWW   Вверх
Alexeis
Дата 20.2.2007, 21:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Код

procedure load_image(fname:string);
var i,j,y:integer;
Bitmap1: TBitmap;
 timer : Cardinal;
begin
      timer := GetTickCount();
      Bitmap1:= TBitmap.Create;
      Bitmap1.PixelFormat:=pf24bit;
      Bitmap1.LoadFromFile(Fname);
      Form1.Image1.Picture.Graphic:= Bitmap1;
      Form1.image1.width:=bitmap1.width;
      Form1.image1.height:=bitmap1.height;
      Form1.Edit_q_neiro.text:= IntToStr(bitmap1.width*bitmap1.height);
      y:= 0;
      for i := 0 to (bitmap1.width-1) do
        begin
        for j:= 0 to (bitmap1.height-1) do
          begin
            inc(y);
            Input_neiro_value[y]:=getRvalue(Form1.image1.canvas.pixels[i,j]);
            Form1.Memo4.Text:=Form1.Memo4.text+ IntToStr(Input_neiro_value[y])+ chr(13) + chr(10);
               if Input_neiro_value[y]>128 then Input_neiro_value[y]:=0 else Input_neiro_value[y]:=1;
            Form1.Memo5.Text:=Form1.Memo5.text+ intToStr(Input_neiro_value[y])+ chr(13) + chr(10);
          end;
      end;
     bitmap1.Destroy;
     ShowMessage('Время выполнения ' + FloatToStr((GetTickCount() - timer) / 1000) + ' c');
end;



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Mersik
Дата 20.2.2007, 22:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 69
Регистрация: 15.1.2007
Где: Latvija, Riga

Репутация: -1
Всего: 0
smile  Спасибо Alexeis и всем за помощ !!!

Добавлено @ 22:01 
 smile 
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0856 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.