IPB
ЛогинПароль:

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

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

> Графическая задача (анимация), Есть туча, идет дождь, емкость наполняется
Nike0
сообщение 29.11.2009 13:42
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 61
Пол: Мужской
Реальное имя: Илья

Репутация: -  0  +


Доброго времени суток. Прошу помочь в решении задачи. Вот условие: нужно составит программу вывода в верхнюю часть экрана изображение тучи, а в нижнюю – емкость для воды; при нажатии клавиши Enter начинает идти дождь. В то время, как идет дождь, туча начинает уменьшаться, а емкость наполняется.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Lapp
сообщение 2.12.2009 14:21
Сообщение #2


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Не знаю, что у тебя там работало, потому что работать не особо должно было..

1. Сомневаюсь, что тебе нужен SetBkColor. Ты попробуй сначала без него, а потом подключи, если надо будет. Он работает не совсем так, как иногда хочется..

2. Устанавливай цвет в SetColor(<color>);.

3. Перед FloodFill установи SetFillStyle(SolidFill,<color>);


Добавлено через 1 мин.
и еще:

4. В FloodFill нужно указывать цвет границы, до чего заполнять (то есть твой <color>)

Добавлено через 6 мин.
То есть, примерно так:
var
CloudBorderCol,CloudCol: integer;

begin
graphinterface;
CloudBorderCol:=DarkGray;
CloudCol:=LightGray;
SetColor(CloudBorderCol);
arc(120,100,45,315,40);
arc(170,100,45,135,40);
arc(220,100,225,360,40);
arc(220,100,0,135,40);
arc(170,100,225,315,40);
sector(165,400,180,360,120,90);
SetFillStyle(SolidFill,CloudCol);
floodfill(170,100,CloudBorderCol);
readkey;
CloseGraph;
end.


Добавлено через 3 мин.
Цитата(Nike0 @ 2.12.2009 13:54) *
я знаю что анимацию с помощью циклов делать надо, только не знаю КАК сделать..
Да, в цикле. Принцип простой: рисуешь - стираешь - рисуешь - стираешь - ...
Ты поищи по форуму, много было анимации. Если что-то будет неясно - спрашивай конкретно.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Nike0   Графическая задача (анимация)   29.11.2009 13:42
Archon   Окей, условие понятно. Чем помочь?   29.11.2009 13:56
Nike0   как вообще нарисовать тучу, анимацию дождя и умень...   29.11.2009 14:21
Archon   С помощью стандартного модуля graph, например. В н...   29.11.2009 17:44
Nike0   на графику фулскрин обязательно? а то win7 стоит, ...   29.11.2009 18:15
Archon   Используй FreePascal, там все нормально. Качать от...   29.11.2009 20:30
Nike0   Program tu4ki; uses crt,graph; procedure graphin...   2.12.2009 13:54
Lapp   Не знаю, что у тебя там работало, потому что работ...   2.12.2009 14:21
Nike0   решил поднять тему, принцип понял, но реализовать ...   22.12.2009 12:18
Lapp   чтобы чтото начало двигаться, надо вместо цифр ста...   23.12.2009 11:47
Nike0   да спасибо, можно же сделать чтобы дождь шел тольк...   23.12.2009 12:47
Lapp   да спасибо, можно же сделать чтобы дождь шел тольк...   23.12.2009 14:35
Nike0   тут их много очень, если не тяжело по x и у какие...   23.12.2009 14:37
Lapp   тут их много очень, если не тяжело по x и у какие ...   23.12.2009 16:32


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

 



- Текстовая версия 24.06.2025 2:55
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"