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

@Але-Дашкова · Регистрация: 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

Новые блоги и статьи Все статьи Все блоги /
Программа для com-порта Uhbif79 05.06.2026 Всем привет, давно хотел изучить Qt, начинал, бросал, потом снова начинал. И сейчас вот смог написать свою первую программу. До этого имел опыт программирования микроконтроллеров, писал прошивки на. . .	Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .
19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .	"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .

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

	Анимация движения и преобразования 02.10.2013, 13:27. Показов 11963. Ответов 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,454 Записей в блоге: 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,454 Записей в блоге: 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