Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
2 / 2 / 2
Регистрация: 29.05.2013
Сообщений: 143

Анимация привязанная к клавишам

05.06.2013, 16:29. Показов 1516. Ответов 4
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Всем ку. Надо залить цвета:поле сделать зелёным, дорогу серой, и небо голубым(skyblue).
У меня ето сделать не получается, если задаю например цвет поля зеленый то заливаэться абсолютно вся область екрана.+ еще сделайте так чтобы когда робот проходит линию линия не пересекала его а на оборот.
вот код:
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143

uses graphABC,Events,crt;
 
var xx,yy:integer;
 
procedure Robo(x,y: integer);
begin
 
setpencolor(clblack);
moveto(x+111, y+72);   {KORPYS}
lineto(x+111, y+116);
lineto(x+118, y+116);
lineto(x+118, y+136);
lineto(x+132, y+136);
lineto(x+132, y+116);
lineto(x+141, y+116);
lineto(x+141, y+136);
lineto(x+155, y+136);
lineto(x+155, y+116);
lineto(x+162, y+116);
lineto(x+162, y+72);
lineto(x+111, y+72);
 
 
moveto(x+111, y+72);  {1 Ryka}
lineto(x+95,  y+72);
lineto(x+95, y+100);
lineto(x+92, y+100);
lineto(x+92, y+108);
lineto(x+105, y+108);
lineto(x+105, y+100);
lineto(x+102, y+100);
lineto(x+102, y+80);
lineto(x+111, y+80);
 
Moveto(x+162, y+72); {2 Ryka}
lineto(x+178, y+72);
lineto(x+178, y+100);
lineto(x+181, y+100);
lineto(x+181, y+108);
lineto(x+168, y+108);
lineto(x+168, y+100);
lineto(x+171, y+100);
lineto(x+171, y+80);
lineto(x+162, y+80);
 
moveto(x+128, y+72);  {Golova}
lineto(x+128, y+65);
lineto(x+110, y+65);
lineto(x+110, y+45);
lineto(x+163, y+45);
lineto(x+163, y+65);
lineto(x+145, y+65);
lineto(x+145, y+72);
 
setbrushcolor(random(clyellow));
circle(x+125, y+55, 6); {Glaza}
circle(x+147, y+55, 6);
circle(x+147, y+55, 2);
circle(x+125, y+55, 2);
 
 
moveto(x+112, y+45); {Antenka}
lineto(x+112, y+25);
circle(x+112, y+25, 3);
 
 
floodfill(x+115,y+75, clblack); {Zalivki}
floodfill(x+110,y+75, clblack);
floodfill(x+165,y+75, clblack);
floodfill(x+130,y+62, clblack);
floodfill(x+122,y+55, clred);
floodfill(x+143,y+55, clred);
floodfill(x+112,y+25, clBlue);
 
 
 
 
end;
procedure fon;
begin
 
 
setbrushcolor(clgreen); {zeml9}
moveto(0,30);
lineto(0,479);
lineto(639,479);
lineto(639,30);
lineto(0,30);
 
 
moveto(260, 30); {doroga}
lineto(100, 479);
moveto(340, 30);
lineto(480, 479);
moveto(295, 30); {1line}
lineto(292, 60);
lineto(303, 60);
lineto(300, 30);
moveto(295, 90); {2line}
lineto(290, 160);
lineto(305, 160);
lineto(300, 90);
lineto(295, 90);
moveto(290, 210); {3line}
lineto(280, 340);
lineto(315, 340);
lineto(305, 210);
lineto(290, 210);
moveto(325, 410); {4line}
lineto(335, 480);
lineto(265, 480);
lineto(275, 410);
lineto(325, 410);
 
end;
 
procedure KeyDown(Key: integer);
begin
  case Key of
       VK_Left: if xx>-100 then xx:=xx-2;
       VK_Right: if xx<700 then xx:=xx+2;
       VK_Up: if yy>-50 then yy:=yy-2;
       VK_Down: if yy<550 then yy:=yy+2;
  end;
  clearwindow;
  Robo(xx,yy);
  fon;
  redraw;
end;
 
 
 
begin
lockdrawing;
setwindowsize(640,480);
clearwindow;
hidecursor;
xx:=200; yy:=200;
Robo(xx,yy);
fon;
redraw;
OnKeyDown:=KeyDown;
end.
1
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 05.06.2013, 16:29
Ответы с готовыми решениями:

Анимация привязанная к клавишам
Добрый день. Я сделал робота но нужно сделать так чтобы при нажати клавиш:влево, вправо, вниз, вверх на клавиатуре робот перемещался на шаг...

Простая анимация с привязкой к клавишам
Ребята помогите сделать ПРОСТЕНЬКУЮ анимацию движение с помощью клавиш(тема любая) очень прошу .

Ссылка привязанная к посту
Доброго времени суток! Прошу помочь. Есть шаблон на вордпресс. На главной странице, к примеру, 10-новостей. Нужно сделать так, что...

4
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
05.06.2013, 22:23
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144

uses graphABC,Events,crt;
 
var xx,yy:integer;
 
procedure Robo(x,y: integer);
begin
 
setpencolor(clblack);
moveto(x+111, y+72);   {KORPYS}
lineto(x+111, y+116);
lineto(x+118, y+116);
lineto(x+118, y+136);
lineto(x+132, y+136);
lineto(x+132, y+116);
lineto(x+141, y+116);
lineto(x+141, y+136);
lineto(x+155, y+136);
lineto(x+155, y+116);
lineto(x+162, y+116);
lineto(x+162, y+72);
lineto(x+111, y+72);
 
 
moveto(x+111, y+72);  {1 Ryka}
lineto(x+95,  y+72);
lineto(x+95, y+100);
lineto(x+92, y+100);
lineto(x+92, y+108);
lineto(x+105, y+108);
lineto(x+105, y+100);
lineto(x+102, y+100);
lineto(x+102, y+80);
lineto(x+111, y+80);
 
Moveto(x+162, y+72); {2 Ryka}
lineto(x+178, y+72);
lineto(x+178, y+100);
lineto(x+181, y+100);
lineto(x+181, y+108);
lineto(x+168, y+108);
lineto(x+168, y+100);
lineto(x+171, y+100);
lineto(x+171, y+80);
lineto(x+162, y+80);
 
moveto(x+128, y+72);  {Golova}
lineto(x+128, y+65);
lineto(x+110, y+65);
lineto(x+110, y+45);
lineto(x+163, y+45);
lineto(x+163, y+65);
lineto(x+145, y+65);
lineto(x+145, y+72);
 
setbrushcolor(random(clyellow));
circle(x+125, y+55, 6); {Glaza}
circle(x+147, y+55, 6);
circle(x+147, y+55, 2);
circle(x+125, y+55, 2);
 
 
moveto(x+112, y+45); {Antenka}
lineto(x+112, y+25);
circle(x+112, y+25, 3);
 
 
floodfill(x+115,y+75, clblack); {Zalivki}
floodfill(x+110,y+75, clblack);
floodfill(x+165,y+75, clblack);
floodfill(x+130,y+62, clblack);
floodfill(x+122,y+55, clred);
floodfill(x+143,y+55, clred);
floodfill(x+112,y+25, clBlue);
 
 
 
 
end;
procedure fon;
begin
 
moveto(0,30);
lineto(0,479);
lineto(639,479);
lineto(639,30);
lineto(0,30);
 
moveto(260, 30); {doroga}
lineto(100, 479);
moveto(340, 30);
lineto(480, 479);
moveto(295, 30); {1line}
lineto(292, 60);
lineto(303, 60);
lineto(300, 30);
moveto(295, 90); {2line}
lineto(290, 160);
lineto(305, 160);
lineto(300, 90);
lineto(295, 90);
moveto(290, 210); {3line}
lineto(280, 340);
lineto(315, 340);
lineto(305, 210);
lineto(290, 210);
moveto(325, 410); {4line}
lineto(335, 480);
lineto(265, 480);
lineto(275, 410);
lineto(325, 410);
 
floodfill(2,200,clgreen);
floodfill(638,200,clgreen);
floodfill(2,2,clskyblue);
floodfill(320,50,clgray);
end;
 
procedure KeyDown(Key: integer);
begin
  case Key of
       VK_Left: if xx>-100 then xx:=xx-2;
       VK_Right: if xx<700 then xx:=xx+2;
       VK_Up: if yy>-50 then yy:=yy-2;
       VK_Down: if yy<550 then yy:=yy+2;
  end;
  clearwindow;
  fon;
  Robo(xx,yy);
  redraw;
end;
 
 
 
begin
lockdrawing;
setwindowsize(640,480);
clearwindow;
hidecursor;
xx:=200; yy:=200;
fon;
Robo(xx,yy);
redraw;
OnKeyDown:=KeyDown;
end.
3
2 / 2 / 2
Регистрация: 29.05.2013
Сообщений: 143
05.06.2013, 23:01  [ТС]
Спасибо но одна проблемка когда он заходит за границу чего нибудь например дорого то робот начинает переливатся цветами как ето исправить?
0
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
06.06.2013, 00:28
это сложно ( либо использовать много операторов floodfill, указывая почти каждый пиксель тела робота, либо рисовать робота пикселями, что еще морочней, либо использовать gif-изображение робота, или использовать объекты....

ни один вариант не вызывает у меня энтузиазма...
0
06.06.2013, 00:42

Не по теме:

Hrustik, а Вы назовите программу "Терминатор Т 1000", он тоже принимал цвет окружающих предметов =)

1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 06.06.2013, 00:42
Помогаю со студенческими работами здесь

Выноска привязанная к блоку
Существует объект(Кифато ТОкио 2500). К нему сделаны две выноски. Задача: сделать так, чтобы можно было копировать вместе все элементы,...

Grid и привязанная таблица
очень нужна помощь делаю диплом, на форме расположен grid к 3м столбцам привязаны табличные значения. НО высвечиваются только одна строка...

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

Не работает команда привязанная к кнопке
Пишу приложение на MVVM архитектуре, есть кнопка, к ней привязка команды, в VM создано публичное свойство ICommand, в конструкторе это...

Автоинкрементация привязанная к значению колонки
Добрый день! Подскажите как реализовать автоинкрементацию привязанную к значению колонки. Ясность должен внести пример ниже: ...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru