Таймер с переменным интервалом

@Kaktovottak · Регистрация: 12.01.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте. Таким вот образом регулирую период кликов мышей:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   case Timer1.Interval of
      2000:   begin
                     mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);  
                     mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);  
                     Timer1.Interval := 35000;
              end;
 
      35000: begin
                     //событие 1
                     mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);  
                     mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);  
                     Timer1.Interval := 2000;
                  end;
   end
end;

Но "долгий промежуток" может быть не 35 сек, а 10 сек. или 500...И в идеале должен задаваться в Edit. Но Edit - это переменное значение, а case работает только с const. Подскажите, как организовать переменный таймер? В идеале должно быть: клик(2сек)клик(Хсек)клик(2сек)клик(Хсек) , где Х - значение, вводимое пользователем.

@Puporev · 04.02.2015, 19:47

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

а case работает только с const.

Это кто тебе сказал?

Delphi
1
2
case inttostr(Edit1.Text) of
............................

@Arcor · 04.02.2015, 19:59

не с constant, а с ordinal

@Puporev · 04.02.2015, 20:01

Или заведи глобальную переменную-счетчик и напиши

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(i);
if odd(i) then
  begin
   mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
   mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
   Timer1.Interval := strtoint(Edit1.Text);
   end
else
 begin
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  Timer1.Interval := 2000;
 end;
end;

@Kaktovottak · 04.02.2015, 20:27 **[ТС]**

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

Или заведи глобальную переменную-счетчик и напиши

Благодарю. Всё получилось и работает именно так, как нужно!

@X-Cod · 06.02.2015, 10:41

Puporev, поясните, а зачем тогда глабальный счетчик? по-моему, он не повлияет существенно.
inc(i);
if odd(i) then
так как при каждом срабатывании условия будет исполнятся

@northener · 06.02.2015, 10:48

Сообщение от X-Cod

так как при каждом срабатывании условия будет исполнятся

С чего бы вдруг?

@X-Cod · 06.02.2015, 12:15

northener, опс, он в событиях таймера... все, теперь все ясно =) мой промах = недоглядел спозаранку.
З.Ы: плюсанул за внимательность)_

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	04.02.2015, 19:59
	не с constant, а с ordinal 0

@X-Cod 14 / 13 / 1 Регистрация: 30.09.2011 Сообщений: 160
	06.02.2015, 10:41
	Puporev, поясните, а зачем тогда глабальный счетчик? по-моему, он не повлияет существенно. inc(i); if odd(i) then так как при каждом срабатывании условия будет исполнятся 0

@X-Cod 14 / 13 / 1 Регистрация: 30.09.2011 Сообщений: 160
	06.02.2015, 12:15
	northener, опс, он в событиях таймера... все, теперь все ясно =) мой промах = недоглядел спозаранку. З.Ы: плюсанул за внимательность)_ 0

Опции темы

Таймер с переменным интервалом

Решение