торможение Ttimer - ? Опции

[1147]

Такая ситуация: 6 таймеров работают одновременно, у трех из них интервал 50 у остальных 70. При этом переходы между изображениями, которые меняют таймеры, сильно тормозят. Стоит включить 7й таймер, одновременно работающий с остальными с интервалом 70, торможение исчезает, хотя по логике, торможение должно возрасти... В чем тут может быть причина? Можно ли избежать торможение изображений?

[Unconnected]

Как-то всё туманно... Как сделан "переход между изображениями", и какую роль там таймер играет?

[1147]

procedure TForm1.Timer1Timer(Sender: TObject);
begin

if ind<35 then Inc(ind) else ind:=0;


if ind=0 then image2.Visible:=true;
if ind=1 then image3.Visible:=true;
if ind=2 then image4.Visible:=true;
if ind=3 then image5.Visible:=true;
if ind=4 then image6.Visible:=true;
if ind=5 then image7.Visible:=true;
if ind=6 then image8.Visible:=true;
......
if ind=35 then image24.Visible:=true;
end; 

Сообщение отредактировано: 1147 - 9.04.2010 20:15

[volvo]

Ну, и что ты хочешь, чтоб не тормозило? У тебя лишние условия каждый раз проверяются. Либо сделай Case, это будет быстрее, и лишняя работа делаться не будет. Либо вообще запихай все свои изображения в массив и одним оператором показывай нужный элемент массива.

[1147]

volvo, если не трудно, покажи пожалуйста на примере, как в моем случае можно использовать Case

[volvo]

Вот так, например:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if ind<35 then Inc(ind) else ind:=0;
  case ind of
    0: image2.Visible:=true;
    1: image3.Visible:=true;
    2: image4.Visible:=true;
    // ...
    35: image24.Visible:=true;
  end;
end; { Timer1Timer }

[1147]

можно сделать так чтобы за 1 шаг появлялось изображение 43 а 42 исчезало? Примерно это можно изобразить так:

1:  image43.Visible:=true and image42.Visible:=false;

Это нужно для осуществления циклической анимации, вроде стрелки часов
Переделал все таймеры, но причина торможения кроется в чем-то другом..

Сообщение отредактировано: 1147 - 10.04.2010 1:05

[volvo]

1:
begin
  image42.Visible:=false; image43.Visible:=true;
end;

Но в таком случае - почему бы тебе не сделать то, что я предлагал вторым вариантом? Все TImage - элементы массива. И тогда твой обработчик таймера выродится вот в такой:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ImageArray[ind].Visible := False; // Гасим то, изображение, которое было активным
  ind := (ind + 1) mod 35; // аналог if ind<35 then Inc(ind) else ind:=0;
  ImageArray[ind].Visible := True; // Показываем следующее изображение
end;

[1147]

как правильно описать массив? ImageArray: array[1..35] of .. Как здесь показать что нужно использовать изображения со первого по 35?

Сообщение отредактировано: 1147 - 10.04.2010 1:46

[volvo]

type
  TForm1 = class(TForm)
    // ...
    Image1: TImage;
    Image2: TImage;
    Image3: TImage; // Для теста сделал всего 3 изображения

  private
    { Private declarations }
  public
    ImageArray: array[0 .. 2] of TImage; // Место под массив изображений
    // ...
  end;

// При инициализации формы - заполняем массив:
procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
  for i := 0 to 2 do
  begin
    ImageArray[i] := FindComponent(Format('Image%d', [i + 1])) as TImage;
  end;
  // ...
end;

Теперь можно обращаться к ImageArray. как я показал выше...

[Client]

a:array [1..10] of TImage;
...
procedure TForm3.Button1Click(Sender: TObject);
var
  i,k:integer;
begin
  k:=0;
  for i := 0 to ComponentCount - 1 do begin
    if (Components[i] is TImage) then begin
      inc(k);
      a[k] := Components[i] as TImage;
    end;
  end;
end;

Опаздал

Сообщение отредактировано: Client - 10.04.2010 2:28

[1147]

Насколько я понимаю, эта строка выбирает нужные изображения для массива:

ImageArray[i] := FindComponent(Format('Image%d', [i + 1])) as TImage; 

Но каким образом это происходит, если мне требуются изображения например image12...image85? В общем я не понял как взять конкретные изображения и заполнить ими массив.. Что такое image%d?

[Client]

ищет среди компонентов те, которые подходят по "шаблону".
А как пронумерованы у тебя Timage -ы и сколько их?

[1147]

вот я и не понял с этим шаблоном... У меня 6 таймеров, для каждого есть свои изображения. Timer1 содержит изображения 112, 245..264, Timer2 содержит 111, 225..244. И так для каждого таймера. Как шаблон найдет нужные для каждого таймера?

[Client]

не в ту сторону пошел
это все делается для того, чтобы занести все TImage, которые есть на форме в массив. И уже работать с этим массивом. (чтобы индексация совпадала) т.е. пишешь

мой_массив[111].свойство 

а не

Image111.свойство

Если не подходит сделать так, то замени условные на case и все

Сообщение отредактировано: Client - 10.04.2010 3:57

[1147]

То есть сначала создается общий массив со всеми изображениями, которые есть. затем я беру и обозначаю что массив а [112,245..264] это массив для таймера 1 к примеру, так?

[volvo]

вот я и не понял с этим шаблоном... У меня 6 таймеров, для каждого есть свои изображения. Timer1 содержит изображения 112, 245..264, Timer2 содержит 111, 225..244. И так для каждого таймера. Как шаблон найдет нужные для каждого таймера?

Элементарно (для каждого таймера - свой массив изображений, с которыми именно этот таймер работает) :

const
  Timer1_Count = 21;
  Timer1_IDs: array[1 .. Timer1_Count] of Integer = (
	112,
	245, 246, 247, 248, 249, 250, 251, 252, 253, 254,
	255, 256, 257, 258, 259, 260, 261, 262, 263, 264
  );
var
  T1_ImageArray: array[1 .. Timer1_Count] of TImage;

// Заполнять массив Image-й для этого таймера - вот так:
for i := 1 to Timer1_Count do begin
  T1_ImageArray[i] := FindComponent(Format('Image%d', [ Timer1_IDs[i] ])) as TImage;
end;

Что, это нереально сложно? Мне не кажется...

Если не подходит сделать так, то замени условные на case и все

Опять будет "раздувание" программы. Этого в данном случае лучше избегать... При работе вот с такими массивами, как показано выше - достаточно будет всего лишь поменять размер массива и его содержимое, больше ничего меняться не будет. Если сделать Case - то будешь ползать по всей программе и искать где еще что поменять...

[Client]

procedure TForm1.Timer1Timer(Sender: TObject);
begin

if ind<35 then Inc(ind) else ind:=0;


if ind=0 then image2.Visible:=true;
if ind=1 then image3.Visible:=true;
if ind=2 then image4.Visible:=true;
if ind=3 then image5.Visible:=true;
if ind=4 then image6.Visible:=true;
if ind=5 then image7.Visible:=true;
if ind=6 then image8.Visible:=true;
......
if ind=35 then image24.Visible:=true;
end; 

заменится на

if ind<35 then Inc(ind) else ind:=0;
my_array[ind+2].visible := true;

Ну, для каждого таймера сделать проверку на границы, и все.
Только, не забудь, что бы не получилось так, что 2 элемент массива не указывал на 5 (6,7,8...) имедж, а именно на Image2.

[TarasBer]

Я бы сделал один TImage и массив из TBitmap.

Код

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ind := (ind + 1) mod 35;
  Image1.Canvas.Draw(0, 0, BufBitmap[ind]);
end;

Как-то мне не нравится, когда сначала одно изображение гасят, потом другое показывают. Там не мерцает?

И вообще, вместо TImage поставил бы TPaintBox (он легче), TPaintBox хоть и не умеет сам себя перерисовывать, но с таймером 50 это не проблема.