VPF::Задержка между рендером и очисткой скрина.

Vermaxt

Дата 25.2.2010, 17:23 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 4.8.2007

Репутация: нет
Всего: нет

Доброе. Вообщем решил написать игрульку на паскале. Старинная игра не помню как называется смысл в том что ваш космический корабль летит слева и корабли противника появляются справа и пытаются уничтожить вас. Написал ничтожную часть но уже столкнулся с проблемой. Привожу код

Код


program aster;
uses graph, crt;

procedure drawSpaceShip(y: integer);
begin
   bar(0,y-5, 30, y+5);
end;

var
   gd, gm, yShip: integer;
   command: char;

begin
   initgraph(gd, gm, 'c:\prod\tp7\BGI');

   yShip:=100;
   while (ord(command) <> 27) do
      if keypressed then
         begin
            command := readKey;
            case command of
               #72 : yShip := yShip - 5;
               #80 : yShip := yShip + 5;
            end;
         end
      else
         begin
            //Здесь предположительно задержка
            clearDevice;
            drawSpaceShip(yShip);
         end;
end.

Пробовал самые разные задержки но проблема оставалась. А именно квадратик хоть и подчиняется стрелочкам но мигает. Было и так что не которое время он не мигает. Потом начинает мигать. Подскажите какую здесь следует использовать задержку?

JnK

Дата 25.2.2010, 20:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 24.3.2007

Репутация: нет
Всего: нет

Код


procedure SetBlink( BlinkOn : boolean ); assembler;
asm
  mov BL, BlinkOn
  mov AX, 1003h
  int 10h
end;

Применяется

Код


begin
SetBlink(False);
....
SetBlink(True);
end;

Это сообщение отредактировал(а) JnK - 25.2.2010, 20:52

Vermaxt

Дата 26.2.2010, 13:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 4.8.2007

Репутация: нет
Всего: нет

Спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »