Анимация движения и преобразования

@Але-Дашкова · Регистрация: 20.03.2013

Студворк — интернет-сервис помощи студентам

Задание, как я его поняла:

"Фигура движется по прямоугольной траектории, начиная путь с левого нижнего угла, и перемещается сначала по-горизонтали, а потом по-вертикали. В ходе движения она плавно преобразуется в другую фигуру, завершая преобразование при достижении противоположного по-диагонали угла. Затем она возращается в левый нижний угол, двигаясь опять сначала по-горизонтали, а потом по-вертикали, и этот процесс опять сопровождается преобразованием фигуры. Нужно задействовать 3 фигуры: квадрат, треугольник, круг. Продолжать анимацию до повторения первоначального состояния (квадрат в левом нижнем углу)."
"Использовать VBA Excel, и применять только автофигуры."

Надеюсь, понятно объяснила)). Если кто поможет, буду очень рада...

@Sasha_Smirnov · 10.10.2013, 12:10

Как она маняща, эта визуализация контрольных точек! Жаль, пока нет офиса (на ноуте).

А в моей Телеге-лайт (для Word) ничего такого досадного не увидели?

@KoGG · 10.10.2013, 13:36

Визуально приятнее, когда в Телеге-лайт нет квадратиков выделения фигур, фрагмент процедуры CycloGraf:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
'генерация узловых точек
With ActiveDocument.Shapes.BuildFreeform(msoEditingAuto, x(0), y(0))
    For Nn = 1 To k * N * 20 - 1
    .AddNodes msoSegmentCurve, msoEditingAuto, x(Nn), y(Nn)
    Next Nn
    .AddNodes msoSegmentCurve, msoEditingAuto, x(0), y(0)
    'задание свойств фигуры
    With .ConvertToShape.Fill
        .Transparency = 0.5 '1 - прозрачная; 0 < .Transparency < 1 - так себе
        .ForeColor = RGB(255 * Кадр / UBound(x) * 20, 40, 90) 'доля R растёт по кругу
    End With
End With
Selection.Collapse 'сброс выделения

@Sasha_Smirnov · 10.10.2013, 16:01

Предпечатный просмотр (Ctrl-F2 перед запуском), насколько я помню, даёт тот же эффект + ускорение.

Спасибо, KoGG, за неравнодушное испытание и за идею кода!

@KoGG · 11.10.2013, 15:38

To Sasha_Smirnov :Телега-лайт сподвигла меня на это:
Цветы и циклоиды.

@Sasha_Smirnov · 12.10.2013, 01:43

Это здорово! И лишний раз иллюстрирует то, что есть программирование для души!

В принципе тема Дашковой получила великолепное развитие.

Не по теме:

Слава ТС!

Добавлено через 8 часов 25 минут
Я тоже в своё время не удержался от вариаций на тему циклоид: vk.com/album12953927_100190731

@KoGG · 12.10.2013, 17:27

Красиво. Только кода не хватает

@Sasha_Smirnov · 12.10.2013, 18:16

Я не хранил код для каждого рисунка. Просто менял что-то в той же циклоиде.

Раз это может нравится, то вот ещё цветник: http://vk.com/album6344674_93306995

Новые блоги и статьи Все статьи Все блоги /
Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .
Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026

@Але-Дашкова 381 / 4 / 3 Регистрация: 20.03.2013 Сообщений: 43

	Анимация движения и преобразования 02.10.2013, 13:27. Показов 12203. Ответов 26 Метки нет (Все метки) Задание, как я его поняла: "Фигура движется по прямоугольной траектории, начиная путь с левого нижнего угла, и перемещается сначала по-горизонтали, а потом по-вертикали. В ходе движения она плавно преобразуется в другую фигуру, завершая преобразование при достижении противоположного по-диагонали угла. Затем она возращается в левый нижний угол, двигаясь опять сначала по-горизонтали, а потом по-вертикали, и этот процесс опять сопровождается преобразованием фигуры. Нужно задействовать 3 фигуры: квадрат, треугольник, круг. Продолжать анимацию до повторения первоначального состояния (квадрат в левом нижнем углу)." "Использовать VBA Excel, и применять только автофигуры." Надеюсь, понятно объяснила)). Если кто поможет, буду очень рада... 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	10.10.2013, 12:10
	Как она маняща, эта визуализация контрольных точек! Жаль, пока нет офиса (на ноуте). А в моей Телеге-лайт (для Word) ничего такого досадного не увидели? 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	10.10.2013, 16:01
	Предпечатный просмотр (Ctrl-F2 перед запуском), насколько я помню, даёт тот же эффект + ускорение. Спасибо, KoGG, за неравнодушное испытание и за идею кода! 0

@KoGG 5730 / 1633 / 419 Регистрация: 23.12.2010 Сообщений: 2,455 Записей в блоге: 1
	11.10.2013, 15:38
	To Sasha_Smirnov :Телега-лайт сподвигла меня на это: Цветы и циклоиды. 1

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	12.10.2013, 01:43
	Это здорово! И лишний раз иллюстрирует то, что есть программирование для души! В принципе тема Дашковой получила великолепное развитие. Не по теме: Слава ТС! Добавлено через 8 часов 25 минут Я тоже в своё время не удержался от вариаций на тему циклоид: vk.com/album12953927_100190731 0

@KoGG 5730 / 1633 / 419 Регистрация: 23.12.2010 Сообщений: 2,455 Записей в блоге: 1
	12.10.2013, 17:27
	Красиво. Только кода не хватает 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	12.10.2013, 18:16
	Я не хранил код для каждого рисунка. Просто менял что-то в той же циклоиде. Раз это может нравится, то вот ещё цветник: http://vk.com/album6344674_93306995 0

Опции темы