графика - Форум «Всё о Паскале»

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

графика, помогите сделать движение

Опции

-lamer-	28.03.2007 19:44 Сообщение #1
Гость	вот моя прога , помогите плз сделать в ней движение рандомное этой фигуры и моргание каждой части квадрата пожалуйста ! Uses Graph,crt; VAR x1, y1, x2, y2:integer; GraphDriver,GraphMode:integer; procedure L(x1, y1, x2, y2:word); begin SetColor(17); Line (x1, y1, x2, y2); end; Begin randomize; GraphDriver:=detect; InitGraph(GraphDriver, GraphMode, ''); repeat delay(49999); SetBkColor(random(16)); x1:=200; y1:=100; x2:=500; y2:=100; L (x1, y1, x2, y2); x1:=500; y1:=100; x2:=500; y2:=400; L (x1, y1, x2, y2); x1:=500; y1:=400; x2:=200; y2:=400; L (x1, y1, x2, y2); x1:=200; y1:=400; x2:=200; y2:=100; L (x1, y1, x2, y2); x1:=200; y1:=250; x2:=350; y2:=100; L (x1, y1, x2, y2); x1:=350; y1:=100; x2:=500; y2:=250; L (x1, y1, x2, y2); x1:=500; y1:=250; x2:=350; y2:=400; L (x1, y1, x2, y2); x1:=350; y1:=400; x2:=200; y2:=250; L (x1, y1, x2, y2); x1:=275; y1:=250; x2:=350; y2:=175; L (x1, y1, x2, y2); x1:=275; y1:=250; x2:=350; y2:=325; L (x1, y1, x2, y2); x1:=350; y1:=325; x2:=425; y2:=250; L (x1, y1, x2, y2); x1:=425; y1:=250; x2:=350; y2:=175; L (x1, y1, x2, y2); x1:=200; y1:=175; x2:=275; y2:=175; L (x1, y1, x2, y2); x1:=275; y1:=175; x2:=275; y2:=100; L (x1, y1, x2, y2); x1:=425; y1:=100; x2:=425; y2:=175; L (x1, y1, x2, y2); x1:=425; y1:=175; x2:=500; y2:=175; L (x1, y1, x2, y2); x1:=200; y1:=325; x2:=275; y2:=325; L (x1, y1, x2, y2); x1:=275; y1:=325; x2:=275; y2:=400; L (x1, y1, x2, y2); x1:=425; y1:=400; x2:=425; y2:=325; L (x1, y1, x2, y2); x1:=425; y1:=325; x2:=500; y2:=325; L (x1, y1, x2, y2); until KeyPressed; read(x1); CloseGraph; End.

Ответов(1 - 6)

klem4	28.03.2007 20:10 Сообщение #2
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44	Отрисуй изображение один раз (можно на невидимой сторанице), захвати его с помощью GetImage а потом выводи в рандомных точках с помощью PutImage. Если не умеешь пользоваться этими процедурами, воспользуйся поиском или открой учебник ;) -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'

-lamer-	28.03.2007 20:12 Сообщение #3
Гость	что такое невидимая страница ?

volvo	28.03.2007 20:30 Сообщение #4
Гость	SetActivePage(1); { <--- Активная, но невидимая страница } SetVisualPage(0); { <--- Видимая, но неактивная } Если в таком состоянии что-то выводить на экран, то ты ничего не увидишь. До тех пор, пока на сделаешь SetVisualPage(1); , т.е. не установишь первую страницу видимой... Поищи по форуму, именно по этим 2-м словам, примеры использования были... Только не забудь, что надо использовать режимы, у которых больше одной видеостраницы...

Гость	28.03.2007 21:10 Сообщение #5
Гость	непонятно =((( объяните плз поробнее чуть-чуть

volvo	28.03.2007 21:13 Сообщение #6
Гость	Я тебе уже сказал - ищи по словам SetVisualPage и SetActivePage, и разбирайся в примерах...

Гость	28.03.2007 21:52 Сообщение #7
Гость	не получается с эитими процедурами работать , помогите

« Предыдущая тема · Задачи · Следующая тема »

1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)

Пользователей: 0

Режим отображения: Переключить на: Стандартный · Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

Текстовая версия

20.07.2025 18:12

Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"