- «Реализация проекта «Добрые игры» в системе дошкольного образования»
- Курс-практикум «Педагогический драйв: от выгорания к горению»
- «Оказание первой помощи в образовательных учреждениях»
- «Труд (технология): специфика предмета в условиях реализации ФГОС НОО»
- «ФАООП УО, ФАОП НОО и ФАОП ООО для обучающихся с ОВЗ: специфика организации образовательного процесса по ФГОС»
- «Специфика работы с детьми-мигрантами дошкольного возраста»
- «ОГЭ по русскому языку - 2027: новые требования и методика подготовки к основному государственному экзамену и итоговому собеседованию»
- «ОГЭ по обществознанию - 2027: новые требования и методика подготовки»
- «ОГЭ по истории - 2027: новые требования и методика подготовки к основному государственному экзамену»
- «ЕГЭ по информатике - 2027: новые требования и методика подготовки к единому государственному экзамену»
- «ЕГЭ по математике - 2027 (профильный уровень): новые требования и методика подготовки к единому государственному экзамену»
- «ЕГЭ по истории - 2027: новые требования и методика подготовки к единому государственному экзамену»
Свидетельство о регистрации
СМИ: ЭЛ № ФС 77-58841
от 28.07.2014
- Бесплатное свидетельство – подтверждайте авторство без лишних затрат.
- Доверие профессионалов – нас выбирают тысячи педагогов и экспертов.
- Подходит для аттестации – дополнительные баллы и документальное подтверждение вашей работы.
в СМИ
профессиональную
деятельность
Практическая работа 2 Delphi
2474
0
ПРАКТИЧЕСКАЯ РАБОТА № 2
СВЕТОФОР
Цель работы: познакомиться со свойствами компонентов, приобрести навыки написания приложений с обработкой событий указателя мыши.
Задание к работе:
Создать программу, выполняющую следующие действия:
После запуска программы в окне изображается светофор с тремя лампочками, способными реагировать на наведение указателя мыши.
Когда указатель мыши наведен на лампочку, она меняет свой цвет.
При наведении указателя на зеленый сигнал светофора, должна начать движение машинка. После того как машинка «доедет» до границы формы, она изменяет направление движения на противоположное (т.е. она не должна «уезжать» за границы формы).
Если зеленый сигнал светофора тухнет, машинка останавливается.
Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
Выполнение работы
Создать новый проект.
Разместить на форме экземпляры компонентов: фигураShape.
Выполнить следующие действия:
Выделенный объект | Вкладка окна Object Inspector | Имя свойства/ имя события | Действие |
Form1 | Properties | Caption | Установка имени формы "Светофор" |
Height | Присвоить значение 700 | ||
Width | Присвоить значение 400 | ||
Borderlcons (Служебные кнопки) | Выбрать для подсвойства biMinimize (Сворачивание) и biMaximize (Разворачивание) значение False | ||
Color | Задать серый цвет | ||
BorderStyle (Стиль рамки) | Выбрать значение bsSingle (запрет изменения размеров) | ||
Events | OnCreate | Установить значение глобальной переменной i:= -1, что означает изменение координаты X в сторону уменьшения. Присвоить глобальной переменной Start начальное значение координаты X объекта Shape4 (кузов машинки): Start := Shape4.Left; | |
Shape1 (Вкладка Additional) | Properties | Height | Присвоить значение 61 |
Width | Присвоить значение 61 | ||
Shape | Выбрать значение stCircle (Круг) | ||
(Форма) | |||
Pen (Контур) | Выбрать для подсвойства Color (Цвет) значение clRed (красный цвет) | ||
Выбрать для подствойства Width (толщина линии)значение 3 | |||
Brush (Кисть) | Выбрать для подсвойства Style (стиль) значение bsClear (прозрачный) | ||
Events | onMouseMove | Установить красный цвет круга Shape 1. Brush. Color:=clRed; | |
Выключить таймер (для остановки машинки) | |||
Timerl.Enabled:= False; | |||
Shape2 (Вкладка Additional) | Properties | Height | Присвоить значение 61 |
Width | Присвоить значение 61 | ||
Shape | Выбрать значение stCircle (Круг) | ||
(Форма) | |||
Pen (Контур) | Выбрать для подсвойства Color (Цвет) значение clYellow (желтый цвет) Выбрать для подствойства Width (толщина линии)значение 3 | ||
Brush (Кисть) | Выбрать для подсвойства Style (стиль) значение bsClear (прозрачный) | ||
Events | onMouseMove | Установить желтый цвет круга Shape2.Brush.Color:=cl Yellow; Выключить таймер (для остановки машинки) Timerl.Enabled:= False; |
Shape3 (Вкладка Additional) | Properties | Height | Присвоить значение 61 |
Width | Присвоить значение 61 | ||
Shape | Выбрать значение stCircle (Круг) | ||
(Форма) | |||
Pen (Контур) | Выбрать для подсвойства Color (Цвет) значение clLime (ярко зеленый цвет) Выбрать для подствойства Width (толщина линии)значение 3 | ||
Brush (Кисть) | Выбрать для подсвойства Style (стиль) значение bsClear (прозрачный) | ||
Events | onMouseMove | Установить ярко зеленый цвет круга Shape3 .Brush.Color:=cl Lime; Включить таймер (для запуска машинки) Timerl.Enabled:= True; | |
Timer1 | Properties | Enabled | False - неактивен |
Interval | 5 - интервал срабатывания таймера (чем меньше интервал, тем быстрее будет двигаться машинка по экрану) | ||
Events | onTimer | Передвигаем машинку по экрану (прямоугольник Shape4 - кузов; круги Shape5 и Shape6 - колеса) | |
Shape4.Left := Shape4.Left + i; | |||
Shape5.Left := Shape5.Left+ i; | |||
Shape6.Left := Shape6.Left + i; | |||
Если машинка доехала до левой границы | |||
экрана, то координату X в дальнейшем будем увеличивать (машинка движется вправо) | |||
if Shape4.Left=10 then i:=l; | |||
Если машинка доехала до правой границы экрана, то координату X в дальнейшем будем уменьшать (машинка движется влево) if Shape4.Left= Start then i:=-l; | |||
Shape7 (Вкладка Additional) - корпус светофора | Properties | Height | Подобрать требуемый размер |
Width | Подобрать требуемый размер | ||
Shape (Форма) | Выбрать значение stRoundRect (прямоугольник со скругленными углами) | ||
Pen (Контур) | Выбрать для подсвойства Color (Цвет) значение clBlack (черный цвет) | ||
Выбрать для подствойства Width (толщина линии)значение 3 | |||
Brush (Кисть) | Выбрать для подсвойства Color (цвет) значение clBlack (черный цвет) | ||
Events | onMouseMove | «Погасить» красный и желтый свет (задать прозрачный цвет): | |
Shape 1. Brush. Style:=bsClear; | |||
Shape2.Brush.Style:=bsClear; Shape3.Brush.Style:=bsClear; | |||
Выключить таймер (для остановки машинки) | |||
Timer 1.Enabled” False; |
Примечание: для перемещения Shape7 на задний план, из контекстного меню выбратьControl -Send ТоBack.
Выравнивание элементов:
Выделить все три фигуры.
Выбрать команду Edit —Align (Правка — Выровнить).
Откроется диалоговое окно Alignment (Выравнивание).
Установить слева переключатель CenterinWindow (Центрировать в окне).
Установить справа переключатель SpaceEqually (С равными промежутками).
Щелкнуть на кнопке ОК.
Сохраните проект, запустите и протестируйте его.
Адрес публикации: https://www.prodlenka.org/metodicheskie-razrabotki/158131-prakticheskaja-rabota-2-delphi
БЕСПЛАТНО!
Для скачивания материалов с сайта необходимо авторизоваться на сайте (войти под своим логином и паролем)
Если Вы не регистрировались ранее, Вы можете зарегистрироваться.
После авторизации/регистрации на сайте Вы сможете скачивать необходимый в работе материал.
- «Содержание и технологии психолого-педагогического сопровождения семей, воспитывающих детей с ОВЗ»
- «Педагогические технологии и методы на занятиях по хореографии»
- «Организация работы с детьми с ОВЗ раннего и дошкольного возраста»
- «Краеведение в образовании: формы и методы работы с обучающимися в соответствии с ФГОС»
- «Музыкальное воспитание и развитие детей дошкольного возраста»
- «Содержание и организация работы концертмейстера в дополнительном образовании детей»
- Социальный координатор: социальная работа по сопровождению ветеранов боевых действий
- Основы реабилитационной работы в социальной сфере
- Физическая культура. Педагогическая деятельность по проектированию и реализации образовательного процесса
- Организация работы классного руководителя в образовательной организации
- Социальная работа. Обеспечение реализации социальных услуг и мер социальной поддержки населения
- Физическая культура и специфика организации адаптивной физической культуры для обучающихся с ОВЗ
Чтобы оставлять комментарии, вам необходимо авторизоваться на сайте. Если у вас еще нет учетной записи на нашем сайте, предлагаем зарегистрироваться. Это займет не более 5 минут.