VPF::Движение прямоугольника - Форум программистов

Андрей1

Дата 22.8.2006, 13:12 (ссылка)

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

Загрузка ...

Новичок

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

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

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

Это программа выдвет движение по вертикали, надо ее переделать.

Код


program pr;

Uses Graph, CRT;    {используется graph  и CRT}

Const N=50;          {Константа n=50}

Var Driver, Mode: Integer;           {Присваивание форматов значений}
    x1, y1, x2, y2, dy: Integer;
    ch: Char;

begin
  Driver:=Detect; dy:=1;
  InitGraph(Driver, Mode, 'C:\PABCWork\SAMPLES');   {Включить графический режим , дравер в текужщем каталоге}
  x1:=GetMaxX div 2-50;
  x2:=GetMaxX div 2+50;
  y1:=1;  y2:=N;
  Repeat
    Rectangle (x1, y1, x2, y2);   {строит контур прямоугольника}
    y1:=y1+dy;  y2:=y2+dy;
    Delay(1000);    {повтор}
    if (y2=475) then dy:=-1;
    if (y1=1) then dy:=1;
    ClearDevice; {очищает графический экран}
    if KeyPressed then ch:=ReadKey;
  Until ch=#27; {прерывание цикла}
  CloseGraph;   {закрытие  модуля GRAPH}
end.

volvo877

Дата 22.8.2006, 15:58 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Ну, добавь контроль за X-составляющей тоже:

Код

program pr;
Uses
  Graph, CRT;
Const
  N=50;
Var Driver, Mode: Integer;
    x1, y1, x2, y2,
    dx, dy: Integer;
    ch: Char;
begin
  Driver:=Detect;
  dx:=1;  { <-- Добавлено }
  dy:=1;
  InitGraph(Driver, Mode, 'C:\PABCWork\SAMPLES');
  x1:=GetMaxX div 2-50;
  x2:=GetMaxX div 2+50;
  y1:=1;  y2:=N;
  Repeat
    Rectangle (x1, y1, x2, y2);
    y1:=y1+dy;  y2:=y2+dy;
    x1:=x1+dx;  x2:=x2+dx; { <-- Добавлено }
    Delay(1000); 

    if (y2=475) then dy:=-1;
    if (y1=1) then dy:=1;

    if (x2=(getmaxx-1)) then dx := -1;  { <-- Добавлено }
    if (x1=1) then dx := 1;

    ClearDevice;
    if KeyPressed then ch:=ReadKey;
  Until ch=#27;
  CloseGraph;
end.

Это - если дополнить твою программу. По хорошему же ее надо переделать, ибо мерцает smile

Это сообщение отредактировал(а) volvo877 - 22.8.2006, 15:59

svarogik

Дата 1.9.2006, 12:17 (ссылка)

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

Загрузка ...

Бывалый

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

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

рисуй в том месте откуда сдвинулся прямоугольник, прямую черного цвета, у тебя ведь движение по 1 происходит, и особо не юзай клиардивайс, его надо использовать только в самом начале проги, делай тоже не юзай, на разных компах задержка разная, у меня делай 60К длится несколько десятых секунды используй отдел памяти, есть такая переменная которая прибавляет 1 каждые 18.5 секунды. А мысли сделать чтоб прямоугольник двигался туда какую кнопку нажал, у тебя не было? по моему так интереснее, это была моя первая программа с использованием элемента графики,

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