VPF::Движение графического объекта

Alexey91

Дата 25.12.2008, 18:26 (ссылка)

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

Загрузка ...

Бывалый

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

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

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

Насколько я понял, центр экрана переход на диагональ выбирает случайно

hot_man

Дата 25.12.2008, 19:09 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 5.12.2007
Где: Россия, Тольятти

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

так в чем проблема???

Alexey91

Дата 25.12.2008, 19:32 (ссылка)

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

Загрузка ...

Бывалый

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

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

Я не могу сделать так, чтобы он двигался, именно таким образом.

volvo877

Дата 26.12.2008, 10:26 (ссылка)

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

Загрузка ...

Эксперт

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

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

В чем проблема сделать это? Вот тебе пример, можно его сократить в 2 раза, если чуть-чуть подумать, но я оставил как есть, чтобы понятен был алгоритм:

Код


uses graph, crt;

const
  deltax = 4;
  deltay = 3;
  direction: array[1 .. 4] of record
    x, y: integer;
  end =
  (
    (X: 1; Y: 1),
    (X: 1; Y:-1),
    (X:-1; Y:-1),
    (X:-1; Y: 1)
  );

var
  gd, gm: integer;
  px, py, dx, dy: integer;
  dir: integer;

begin
  initgraph(gd, gm, '');
  { <--- Сюда добавить проверку инициализации графики }

  randomize;
  px := getmaxx div 2; py := getmaxy div 2;
  repeat
    dir := random(4) + 1;
    dx := direction[dir].x;
    dy := direction[dir].y;

    while (px > 0) and (px < getmaxx) and (py > 0) and (py < getmaxy) do begin
      setcolor(white);
      circle(px, py, 10); { <--- Задержку установи какую надо }
      delay(10);
      cleardevice;

      inc(px, dx * deltax);
      inc(py, dy * deltay);
    end;

    dx := - dx;
    dy := - dy;

    while (px <> getmaxx div 2) and (py <> getmaxy div 2) do begin
      setcolor(white);
      circle(px, py, 10);
      delay(10); { <--- Задержку установи какую надо }
      cleardevice;

      inc(px, dx * deltax);
      inc(py, dy * deltay);
    end;

  until keypressed;

  closegraph;
end.

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