Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
startale
0 / 0 / 0
Регистрация: 19.01.2015
Сообщений: 5
1

Перемещение объекта стрелками клавиатуры

12.02.2015, 21:27. Просмотров 1442. Ответов 1
Метки нет (Все метки)

допустим, есть у меня прямоугольник (rectangleabc) . он чёрного цвета. нажимаю я клавишу вверх (Vk_Up) и прямоугольник движется вверх, а ещё один белый прямоугольник стирает то, что оставляет чёрный прямоугольник.
как это сделать?
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.02.2015, 21:27
Ответы с готовыми решениями:

Перемещение объектов стрелками
Круг- управляемый объект, прямоугольник-свободный (движется сам по заданной траектории). Заранее...

Перемещение картинки стрелками
Здравствуйте! Я хочу сделать, чтобы моя картинка двигалась стрелками через VK_Left, VK_Right,...

Не работает перемещение в меню (стрелками)
Program KurRab; Uses Crt; Type strmenu=record x: integer; s: string; end; Const kol=5;...

Перемещение объектов стрелками на клавиатуре
Помогите новичку!!! Есть две программы, в одной программе изображение поляны, в другой простое...

Организация движения объекта (управление - стрелками)
Как организовать движение какого либо объекта (любого, это может быть даже простой кружок), чтобы...

1
Joy
Эксперт Pascal/Delphi
2262 / 1255 / 1474
Регистрация: 29.08.2014
Сообщений: 4,565
13.02.2015, 08:07 2
Лучший ответ Сообщение было отмечено startale как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses GraphAbc;
var
  p:Picture;
  x,y:integer;
 
procedure drrect(c:color);
begin
  SetBrushColor(c);
  setpencolor(c);
  FillRectangle(x,y,x+10,y+10);
end;
 
 
procedure MoveRect(Key:Integer);
begin
  LockDrawing;
  drrect(clwhite);
  case Key of
    VK_Escape:halt;
    Vk_Left:if x>0 then x:=x-5;
    VK_Right:if x<Window.Width-10 then x:=x+5;
    VK_Up:if y>0 then y:=y-5;
    VK_Down:if y<window.Height-10 then y:=y+5;
  end;
  drrect(clblack);
  UnlockDrawing;
end;  
begin
  OnKeyDown:=MoveRect;
  setwindowsize(640,480);
  ClearWindow;
  x:=Window.width div 2;y:=window.Height div 2;
  drrect(clblack);
  repeat
  until false;
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.02.2015, 08:07

Вывести рисунок кольца зелёного цвета, организуя его перемещение клавишами-стрелками
Создайте программу вывода на экран компьютера рисунка кольца зелёного цвета, организуя его...

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

Перемещение объекта от одних координат к другим
Вот допустим даны точки: x1 = -128 y1 = 0 x2 = -64 y2 = -64 Как сделать перемещение объекта...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.