- Курс-практикум «Педагогический драйв: от выгорания к горению»
- «Формирование основ финансовой грамотности дошкольников в соответствии с ФГОС ДО»
- «Патриотическое воспитание в детском саду»
- «Федеральная образовательная программа начального общего образования»
- «Труд (технология): специфика предмета в условиях реализации ФГОС НОО»
- «ФАООП УО, ФАОП НОО и ФАОП ООО для обучающихся с ОВЗ: специфика организации образовательного процесса по ФГОС»
Свидетельство о регистрации
СМИ: ЭЛ № ФС 77-58841
от 28.07.2014
- Бесплатное свидетельство – подтверждайте авторство без лишних затрат.
- Доверие профессионалов – нас выбирают тысячи педагогов и экспертов.
- Подходит для аттестации – дополнительные баллы и документальное подтверждение вашей работы.
в СМИ
профессиональную
деятельность
Практическая работа 2 Delphi
СВЕТОФОР
Цель работы: познакомиться со свойствами компонентов, приобрести навыки написания приложений с обработкой событий указателя мыши.
Задание к работе:
Создать программу, выполняющую следующие действия:
1. После запуска программы в окне изображается светофор с тремя лампочками, способными реагировать на наведение указателя мыши.
2. Когда указатель мыши наведен на лампочку, она меняет свой цвет.
3. При наведении указателя на зеленый сигнал светофора, должна начать движение машинка. После того как машинка «доедет» до границы формы, она изменяет направление движения на противоположное (т.е. она не должна «уезжать» за границы формы).
4. Если зеленый сигнал светофора тухнет, машинка останавливается.
5. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
2388
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
БЕСПЛАТНО!
Для скачивания материалов с сайта необходимо авторизоваться на сайте (войти под своим логином и паролем)
Если Вы не регистрировались ранее, Вы можете зарегистрироваться.
После авторизации/регистрации на сайте Вы сможете скачивать необходимый в работе материал.
- «Обучение биологии с учётом требований ФГОС ООО от 2021 года»
- «Социальная работа с военнослужащими и членами их семей»
- «Урок как форма организации учебной деятельности по немецкому языку»
- «Обеспечение безопасности объектов социального обслуживания: противодействие терроризму и экстремизму»
- «Особенности организации образовательного процесса в условиях реализации ФГОС СПО»
- «Профилактика и коррекция девиантного поведения»
- Инклюзивное образование: организация обучения детей с ограниченными возможностями здоровья
- Педагог-библиотекарь: библиотечное дело в образовательной организации
- Деятельность тьютора по сопровождению детей с ограниченными возможностями здоровья
- Педагогика и методика преподавания географии
- Организация учебно-воспитательной работы с обучающимися в группе продленного дня
- Учитель изобразительного искусства. Педагогическая деятельность по проектированию и реализации образовательного процесса
Чтобы оставлять комментарии, вам необходимо авторизоваться на сайте. Если у вас еще нет учетной записи на нашем сайте, предлагаем зарегистрироваться. Это займет не более 5 минут.