Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.15;
Скачать: CL | DM;

Вниз

Псевдо анимация   Найти похожие ветки 

 
Novouralsk   (2005-08-01 17:56) [0]

Привет, всем!
Скажите пожалуйста как менять текстуры по нажатию клавиши без использования таймера.
Я делаю это вот так:
...
for i := 0 to 7 do
LoadTexture("texture"+inttostr(i)+".bmp", texcount[i], FALSE);
...
if (keys[ord("S")]or keys[ord("s")]) then
 begin
    i := i + 1;
    if i >=7 then i:=0;
 end;
...
Но текстуры переключаютя очень быстро и всё мерцает.Это очень не красиво.
Скажите как сделать перключение текстуры раз в пол секунды.


 
A22 ©   (2005-08-01 17:58) [1]

реши же хоть одну задачу сам, пожалуйста, пожалуйста, пожалуйста!


 
Novouralsk   (2005-08-01 18:03) [2]

Я сам нарисовал квадрат, загрузил текстуру на него и прудумал этот "уникальный" алгоритм смены текстур


 
Zer0 ©   (2005-08-01 18:45) [3]

Sleep(время_задержки_в_милисекундах) поможет отцу русской демократии =)

The Sleep function suspends the execution of the current thread for a specified interval.


 
Novouralsk   (2005-08-01 18:52) [4]

можно чуть чуть по подробнее


 
A22 ©   (2005-08-01 19:00) [5]

заведи переменную, куда записывай значение GetTickCount() при смене текстуры. условием же смены текстуры кроме нажатия кнопок поставь еще и чтобы текущий GetTickCount() был больше сохраненного во время прошлой "смены" на нужное кол-во миллисекунд.


 
Зм1й ©   (2005-08-01 21:35) [6]

//OnCreate
LastTime:=GetTickCount;

...

ThisTime:=GetTickCount;
if ThisTime-LastTime>500 then begin

if (keys[ord("S")]or keys[ord("s")]) then
begin
   i := i + 1;
   if i >=7 then i:=0;
end;

LastTime:=GetTickCount;
end;


 
Novouralsk   (2005-08-01 21:39) [7]

Спасиб!



Страницы: 1 вся ветка

Текущий архив: 2006.01.15;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.029 c
14-1135326519
LordOfRock
2005-12-23 11:28
2006.01.15
Задание лабораторной


2-1135339132
KvORubin
2005-12-23 14:58
2006.01.15
Программеры подскажите (примером) КАК ПЕРЕСЛАТЬ ФАЙЛ??


2-1133802174
Userrrrr
2005-12-05 20:02
2006.01.15
Как скопировать файл из интернет на сервер?


4-1131459243
vishnia
2005-11-08 17:14
2006.01.15
Вывод на печать на принтер, подключенный по сети


3-1132640801
TAN_K
2005-11-22 09:26
2006.01.15
ComboBox - не раскрвать список