Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
человек номер 3
0 / 0 / 0
Регистрация: 11.10.2019
Сообщений: 2
1

Осуществить слежение за персонажем

11.10.2019, 12:35. Просмотров 68. Ответов 0
Метки нет (Все метки)

я сделал программу в которой кружок движется по экрану но он выходит за его пределы. как сделать так чтобы я его видел (чтобы он мог выходить за пределы экрана но я его там видел)???

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
program Demo_1;
uses GraphABC;
var x,y:integer;//колобок
procedure KeyDown(Key: integer);
    begin
     case Key of
       VK_Down: y := y+5; // движение лево
       VK_Up: y := y-5; // движение право
       VK_Right : x := x+5; // движение низ
       VK_Left : x := x-5; //движение верх
     end;
      Sleep(10);
      ClearWindow;
   end;
begin
LockDrawing;
x := 50;
y := 50;
repeat
redraw;
setbrushcolor(clyellow);
circle(x,y,20);//колобок
circle(x+7,y-7,3);//глаз колобка 
circle(x-7,y-7,3);//глаз колобка 
setbrushcolor(clblack);//глаз колобка 
circle(x+7,y-7,1);//глаз колобка 
setbrushcolor(clblack);//глаз колобка 
circle(x-7,y-7,1);//глаз колобка 
line(x+8,y+8,x-8,y+8);//рот колобка 
onKeyDown := KeyDown;
until false;
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.10.2019, 12:35
Ответы с готовыми решениями:

Как сделать так, чтобы я мог перемещать Splitter мышкой?
Как сделать так, чтобы я мог перемещать Splitter мышкой? Изначально он не перемещается.

Как сделать так,чтобы я мог вводить данные с клавиатуры т.е массив?
Program Mas; Uses crt; Var A:array of integer; i,k,n:integer; Begin ClrScr; Randomize; ...

Как сделать так,чтобы в поле пользователь мог вводить числа от 6 до 20?
Как сделать так,чтобы в поле пользователь мог вводить числа от 6 до 20?

Как сделать так чтобы юзер мог сохранять фото на сервер
Юзер вводит на форме информацию о себе в том числе и фото. Как сохранять фото на сервере? Спасибо

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

0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.10.2019, 12:35

Как сделать так, чтобы пользователь не мог менять размер шрифта сайта?
Как сделать так, чтобы пользователь не мог менять размер шрифта сайта? Спасибо.

Как сделать так чтобы массив я мог использовать в любом участке кода
Вот я создаю в C# массив, в FormLoad(создаю приложение), можно как то сделать так чтобы этот массив...

Как сделать так, чтобы пользователь мог перемещать рисунок добавленный на форму?
Как сделать так, чтобы пользователь мог перемещать рисунок добавленный на форму в c# ?


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

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

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