Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
Shakielpel
4 / 4 / 4
Регистрация: 04.05.2014
Сообщений: 261
1

Не получается заставить уснуть поток на нужное время

10.04.2015, 17:43. Просмотров 368. Ответов 1
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TMy.Execute;
var
  lT: Cardinal;
  Pause: integer;
begin
  lT := GetTickCount;
  while (not Terminated) do
  begin
    Arbaiten();//крутим в цикле процедуру
 
    Pause := ArbaitenPeriod - (GetTickCount - lT); //я хочу чтобы процедура выполнялась раз в  ArbaitenPeriod времени,
//ну например миллисекунд. Соответственно на разницу между этим периодом и реально прошедшим временем 
//выполнения процедуры, я пытаюсь усыпить поток.
    if Pause > 0 then
      sleep(Pause);
    lT := GetTickCount;
  end;
end;
Delphi
1
2
3
4
5
6
7
//а в начале функции Arbaiten, я ставлю проверку
if   ((TimeLastArbaiten + ArbaitenPeriod ) >= GetTickCount) then
begin
    //если мы сюда зашли, значит этот паразит не доспал
    exit;
end;
TimeLastArbaiten  := GetTickCount;
Так вот сколько я с этим не бьюсь, он не хочет спать ровно столько сколько мне надо, и вот в таком виде например конкретно не досыпает, что я делаю не так?
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.04.2015, 17:43
Ответы с готовыми решениями:

Как заставить программу выполнять какое-то действие в нужное время?
Как заставить программу выполнять какое-то действие в нужное время например в 17:00 не учитывая...

Как заставить компьютер уснуть к примеру в 12 ночи
Добрый вечер, подскажите пожалуйста, как заставить компьютер уснуть к примеру в 12 ночи.. и...

Как заставить мышь прийти в нужное место и кликнуть?
вообщето по сабжу, но может ли для этого еще использоватся такая шняга? Private Declare Function...

Не получается вывести нужное значение в dbedit
Собственно кидаю на форму сурс, адоквери, конекчусь к базе. Есть две таблицы, в первой 7...

Как задать нужное время?
Здравствуйте. Я новичок в джаве и у меня возник такой вопрос. Не могу нигде найти, как установить...

1
FIL
Модератор
3458 / 2584 / 738
Регистрация: 19.09.2012
Сообщений: 7,950
10.04.2015, 19:12 2
Ты расчет паузы ведешь относительно lT, а проверку делаешь относительно TimeLastArbaiten.
Кто сказал, что это эквивалентно?

Потом, нет гарантии, что sleep достаточно точно выдерживает заданные паузы.

Инициализация TimeLastArbaiten имеется?
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.04.2015, 19:12

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

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

Как выключать программу в нужное время?
как сделать так что бы программа в 00:00 выключалась?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.