На пространстве формы изображен...
Объекты TShape, TTimer на форме в Delphi 7.

Такое название для статьи я решил использовать, потому как все задачи, приведенные здесь, начинаются именно так…

Лабораторные работы по теме «Работа с объектами TShape, TTimer» подразумевают использование таймера Timer и изменение положения объектов Shape на форме с разной скоростью по разным траекториям. Органами управления, как правило, выступают командные кнопки Button, пункты главных MainMenu или контекстных PopupMenu меню.

Примеры приведены на Delphi, но переписать их на любой язык не составит труда…

Задачи лабораторных работ

На пространстве формы изображен календарь за {январь, февраль, март, апрель, май, июнь, июль, август, сентябрь, октябрь, ноябрь, декабрь} текущего года с {горизонтальным, вертикальным} расположением недель. Рамка {любого} цвета в виде квадрата с толщиной линии в {несколько} пикселей движется по датам с дискретом (интервалом) времени {несколько} сек. Запуск движения – кнопка «Пуск», остановка – кнопка «Стоп», что приводит к установке рамки на первую дату (вместо командных кнопок «Пуск» и «Стоп» могут использоваться пункты главных MainMenu или контекстных PopupMenu меню).



Элементы TShape на форме

                   Рис.1        управление пунктами контекстного меню

Перемещение TShape по форме на DELPHI 7 JW Player here replace

Если не удалось запустить видео, воспользуйтесь этой ссылкой ... видео на YouTube

                   Видео.1        управление пунктами контекстного меню

На пространстве формы изображена шахматная доска. Шашка {любого} цвета движется по периметру доски по {часовой или против часовой} стрелке с дискретом {несколько} сек. Запуск движения – команда главного меню, остановка – кнопка «Пуск», что приводит к установке шашки на левую верхнюю (или любую заданную) клетку.

На пространстве формы изображен квадрат размером 250х250. По часовой стрелке по периметру движется окружность диаметром 40 пикселей По верхней стороне движение идет со скоростью 200/сек. Далее на каждой стороне скорость уменьшается в два раза. Запуск движения – команда главного меню, остановка – кнопка «Пуск», что приводит к установке окружности в левый верхний угол квадрата. (понятно, что все размеры могут изменяться в других вариантах).



Работа с Элементами TShape на форме

                   Рис.2        управление пунктами главного меню и командной кнопкой

Перемещение TShape по форме на DELPHI 7 JW Player here replace

Если не удалось запустить видео, воспользуйтесь этой ссылкой ... видео на YouTube

                   Видео.2        управление пунктами главного меню и командной кнопкой

На пространстве формы изображена окружность диаметром 300 пикселей. По ней против часовой стрелки движется окружность диаметром 40 пикселей со скоростью100/сек. Запуск и остановка движения – команды главного меню, что приводит к установке малой окружности в верхнюю точку большой окружности.

На пространстве формы изображена окружность диаметром 350 пикселей. Внутри ее, касаясь контура, по часовой стрелки движется окружность диаметром 40 пикселей со скоростью200/сек. Окружности разного цвета и толщины. Запуск движения – кнопка «Пуск», остановка – команда главного меню, что приводит к установке малой окружности в самое верхнее положение.

На пространстве формы изображен прямоугольник размером 250х300. Внутри его, касаясь контура, против часовой стрелки движется квадрат 30х30 пикселей со скоростью 200/сек. При смене направления меняется цвет квадрата. Запуск и остановка движения – команды главного меню, что приводит к установке квадрата в левый верхний угол.


Чтобы форма Shape стала прозрачной, установите в свойстве Brush(кисть) подсвойство Slyle (стиль) в значение bsClear... Окантовка чертится свойством Pen (выбирайте толщину пера и цвет)

Скачать первый ехе-файл для тестирования…

Скачать второй ехе-файл для тестирования…

Для подписчиков моих рассылок исходный код открыт...
       Обращайтесь...        Если ваш е-mail есть в моей подписной базе, то вышлю код бесплатно !

Другие примеры на языке «Delphi»




Если на этой странице не нашлось того, что Вы так искали...

         Не расстраивайтесь, не все потеряно... Смело щелкайте...

исходный код на заказ. orenstudent.ru Автоматизация документов MS Office. orenstudent.ru исходный код на заказ. orenstudent.ru Помогите найти и устранить ошибку в исходном коде программы. orenstudent.ru Skype-консультирование по программированию
Скайп-консультации

Акция !!!
Весь код по 49 руб


требуются
школьники!


и СТУДЕНТЫ!
Кому не плевать
на деньги!
Сайт помощи студентам по программированию и информатике

Program code