Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/21: Рейтинг темы: голосов - 21, средняя оценка - 4.71
nastyanast

Анимация ( плоский рисунок с движением)

19.06.2011, 14:05. Показов 4342. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Уважаемые форумчане! завтра екзамен, помогите с программами анимации, пожалуйста!
1. часы (стрелки должны идти)
2. краник с капающими каплями воды
3. шарик, что падает на стол а потом скачивается с него
4. стакан с пупырышками что поднимаются и исчезают (как в шампанском)
цвет обьектов значения не имеет
спасибо.
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
19.06.2011, 14:05
Ответы с готовыми решениями:

есть рисунок. нужна анимация.
есть рисунок в модуле граф . нужно организовать движение ( по рисунку наверное не трудно догадаться какое))) пробовал с помощью преключения...

Графика интересный рисунок из 50 объектов+анимация
Нужно создать рисунок состоящий из 50 объектов,любой,пейзаж,портрет,но со смыслом)) в нём должна содержится анимация,к примеру при...

Очистить рисунок (графика, анимация в консоле с++)
Здравствуйте, можно как-то очистить нарисованный треугольник? И подскажите, как можно залить нарисованную фигуру например красным цветом....

2
1255 / 705 / 359
Регистрация: 20.02.2010
Сообщений: 1,035
19.06.2011, 14:30
Лучший ответ Сообщение было отмечено как решение

Решение

часики
QBasic/QuickBASIC
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
SCREEN 12
CONST Pi = 3.14159265358#
x0 = 320: y0 = 240: r = 220: rs = 200: rm = 180: rh = 175: DIM c$(12)
DATA XII,I,II,III,IV,V,VI,VII,VIII,IX,X,XI
FOR i = 1 TO 12: READ c$(i): NEXT
CIRCLE (x0, y0), r, 4
FOR s = 0 TO 59
    ax = CINT(x0 - r * COS((Pi / 180) * (6 * s + 90)))
    ay = CINT(y0 - r * SIN((Pi / 180) * (6 * s + 90)))
    ax1 = CINT(x0 - (r - 15) * COS((Pi / 180) * (6 * s + 90)))
    ay1 = CINT(y0 - (r - 15) * SIN((Pi / 180) * (6 * s + 90)))
    ax2 = CINT(x0 - (r - 5) * COS((Pi / 180) * (6 * s + 90)))
    ay2 = CINT(y0 - (r - 5) * SIN((Pi / 180) * (6 * s + 90)))
    IF s MOD 5 = 0 THEN
        LINE (ax, ay)-(ax1, ay1), 5
        LOCATE ay1 / 16, ax1 / 8: PRINT c$((s / 5) + 1)
    ELSE
        LINE (ax, ay)-(ax2, ay2), 5
    END IF
NEXT
WHILE INKEY$ = ""
    a$ = TIME$
    h = VAL(MID$(a$, 1, 2))
    m = VAL(MID$(a$, 4, 2))
    s1 = s: s = VAL(MID$(a$, 7, 2))
    IF s1 <> s THEN
        LINE (x0, y0)-(xs, ys), 0
        LINE (x0, y0)-(xm, ym), 0
        LINE (x0, y0)-(xh, yh), 0
        xs = CINT(x0 - rs * COS((Pi / 180) * (6 * s + 90)))
        ys = CINT(y0 - rs * SIN((Pi / 180) * (6 * s + 90)))
        LINE (x0, y0)-(xs, ys), 4
        xm = CINT(x0 - rm * COS((Pi / 180) * (90 + 6 * m)))
        ym = CINT(y0 - rm * SIN((Pi / 180) * (90 + 6 * m)))
        LINE (x0, y0)-(xm, ym), 15
        xh = CINT(x0 - rh * COS((Pi / 180) * (90 + 6 * ((h MOD 12) * 5 + m \ 12))))
        yh = CINT(y0 - rh * SIN((Pi / 180) * (90 + 6 * ((h MOD 12) * 5 + m \ 12))))
        LINE (x0, y0)-(xh, yh), 1
    END IF
WEND
1
nastyanast
20.06.2011, 10:40
огромное спасибо!

Добавлено через 19 часов 22 минуты
очень срочно, задание на экзамене : десять кругов с разными радиусами, у которых общий центр в начале координат
помогите пожалуйста!!!

Добавлено через 21 минуту
у них общая точка о центре координат, а их центры лежат на оси Х
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
20.06.2011, 10:40
Помогаю со студенческими работами здесь

Рисунок, Анимация: Нарисовать отрезок который вращается вокруг своего центра
Нарисовать отрезок который вращается вокруг своего центра.

Растровый рисунок, как вставить bmp-рисунок в окно на полный экран?
Всем здрасьте! По книге которой я учусь , не понятно описано как вставить какую-нибудь картиночку в окно. Помогите мне , напишите как...

Как создать рисунок и сохранить его в bmp (точечный рисунок)
Здравствуйте, пишу свой графический редактор и вот не знаю как из того что я рисую в графе сконструировать рисунок , а потом сохранить его...

Графический Рисунок(нужно составить рисунок на С++ в форме желтой звезды)
нужно составить рисунок на С++ в форме желтой звезды

Установите в документе рисунок с кнопкой При нажатии кнопки рисунок должен смениться
Ув. пользователи! Прошу помочь мне с некоторыми задачами по Java Script: 1) Установите в документе рисунок с кнопкой. При нажатии...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru