Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как нориальный таймер [D6, WinME]

MSergey © (2002-05-16 19:53:00)
В игре нужно синхронезировать движения со временем, обычный таймер не подходит. Обновление в 65 раз в секунду слишком долгое

MSergey (2002-05-20 15:37:00) [1]
Cult: у меня тоже самое!
MBo: Можно ли в место адреса callback процедуры написать nil, т.е
не вызывать её вообще?
Когда я так делаю сразу после запуска появляется ошибка и комп виснет. У меня Д6.

MBo (2002-05-18 21:23:00) [2]
глюка у меня нет и мыслей тоже

cult (2002-05-18 13:22:00) [3]
2 МВо:

я тут передрал Ваш пример (у нас уже был про него разговор), и вот какой глюк лезет.

Передрал я его слово в слово. Так вот, когда таймер тикает, в левом верхнем углу экрана пытается отображаться копия Label1! Объяснений у меня для этого нет. Понятно, что когда я уберу эту демо-строчку с Label, это пропадет. Но глюк-то берется откуда-то...

Есть ли какие нибудь мысли?
Спасибо.

igor_2k (2002-05-16 22:50:00) [4]
у меня проходила такая фишка с задержкой - вычисляешь отношение цикла к примеру
for i:=1 to 5000 do
inc(a);
к системному таймеру - я думаю тут ничего непонятного нету и потом задержку выставляешь не в секундах а в операциях - ведь они также онимаю время - если нехватает лонгинта для i вкладывай циклы хоть добесконечности вот и все

}{enon (2002-05-16 20:05:00) [5]
Попробуй использовате системные часы.

MBo (2002-05-16 20:02:00) [6]
uses
...mmsystem;

var
Form1: TForm1;
i:integer;
uTimerID:dword;
d:dword;

procedure ActionCallBack(TimerID,uMessage:UINT;dwUser,dw1,dw2:DWORD);stdcall;
begin
inc(i,dwUser);// демонстрация использования параметра
form1.label1.caption:=inttostr(i);
application.processmessages;//для обновления label
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
d:=gettickcount;//отсчет времени в миллисекундах
uTimerID:=timeSetEvent(1,1,@ActionCallBack,2,TIME_PERIODIC);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timeKillEvent(uTimerID);
label2.caption:="Elapsed "+inttostr(gettickcount-d)+" ms";
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »