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