|
Урок 3 Дата 19.09.2023 Учитель Рогаль Т.В. Проектирование интерфейса оконного приложения с использованием элементов управления Основные элементы управления. Элемент управления кнопка (Button). Элемент управления метка (Label) |
1. Скачайте программу PascalABC.Net здесь. Установите программу PascalABC.Net на своем компьютере.
2. Изучите материал учебного пособия §3.1-3.3 учебник
3. Просмотрите видеоурок
4. Практическая работа:
1. (2 балла) Наберите пример 3.6
2. (до 4 баллов) Наберите пример 3.9
3. (до 6 баллов) №1 с.24
Создадим кнопку «Очистить», добавим для неё обработчик клика и запишем команду очистки текста label1.Text := '';. В обработчик кнопки «Приветствие» добавим команды для изменения свойств ForeColor (цвет текста) и Font (шрифт). В нашем случае new System.Drawing.Font() принимает два аргумента: первый — название шрифта, второй — размер шрифта. Размер шрифта установим случайным числом от 10 до 20, для этого воспользуемся выражением 10 + rnd.next(10), где rnd.next(10) выдаст случайное число от 0 до 10, к полученному числу прибавится ещё 10 — получится диапазон от 10 до 20.
procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
var rnd: Random := new Random();
label1.Font := new System.Drawing.Font('Microsoft Sans Serif', 10 + rnd.next(10));
label1.ForeColor := Color.FromArgb(255, rnd.next(256), rnd.next(256), rnd.next(256));
label1.Text := 'Здравствуй, мир!';
end;
4. (до 8 баллов) Дополните пример 3.6 двумя кнопками так, чтобы:
Вариант 1. при нажатии на первую кнопку размеры формы увеличивались на 5, а на другую уменьшались;
Вариант 2. размеры увеличиваются в 2 раза и наоборот;
Вариант 3. размеры уменьшаются на 15 и наоборот;
5. (до 10 баллов) измените предыдущий проект так, чтобы цвет кнопок изменялся при наведении на них мыши.
Пришли результат выполненных упражнений на проверку учителю на e-mail rohal74@mail.ru с обязательным указанием фамилии и класса.
Домашнее задание: §3.1-3.3 учебник
Оцените урок, заполнив титульный лист и Вариант 7. На остальных страницах нажимаем Далее до кнопки Отправить.
