Лабораторная работа №3
Тема. Составление алгоритмов и программ с использованием визуальных компонентов EDIT, LABEL, BUTTON, MEMO
Цель. Закрепить навыки использования компонентов для ввода данных различного типа
Порядок выполнения работы
1. Прочтите инструкцию по выполнению работы до конца.
2. В папке «Мои документы» создайте папку для нового проекта ЛР_ООП_3
3. Загрузите Приложение Lazarus
4. Создайте новый проект
5. Установите для свойств формы значения из таблицы1:
Таблица 1 – Значения свойств компонента Form1 | |
Свойство | Значение |
Caption | Лабораторная работа 1 |
Name | F_glavnaya |
WindowState | wsNormal |
Icon | Выберите из папки на сервере любую иконку и скопируйте её в папку с проектом. |
Height | |
Width | |
Font | Times New Roman, 16 |
6. Сохраните проект под именем LR3, а модуль Unit1 под именем U_glav.
7. Запустите приложение Paint и нарисуйте весёлый смайлик. Сохраните под именем «lr1.bmp» в папке проекта.
8. В приложении Lazarus добавьте на форму компоненты как показано на рисунке 1
Рисунок 1 – Размещение компонентов на форме
9. Установите для компонентов значения свойств из таблицы 2:
Таблица 2 – Значения свойств компонентjd | ||
Компонент | Свойство | Значение |
Label1 | Caption | Фамилия |
Label2 | Caption | Имя |
Label3 | Caption | Отчество |
Label4 | Caption | Дата рождения |
Label5 | Caption | Телефон |
Label6 | Caption | Адрес |
Label7 | Caption | Файл характеристики |
Label8 | Caption | Дата заполнения |
Edit1,Edit2,Edit3,Edit4, Edit5 | Text | Очистить поле |
Edit1 | Name | E_Fam |
Edit2 | Name | E_Name |
Edit3 | Name | E_Path |
Edit4 | Name | E_adress |
Edit5 | Name | E_harak |
MaskEdit1 | Name | E_data |
EditMask | 99\.99\.9999 | |
MaskEdit2 | Name | E_phone |
EditMask | !\(999\)999-99-99 | |
Memo1 | Name | M_harak |
Lines | Очистить | |
Button1 | Name | B_Save |
Caption | Сохранить | |
Button2 | Name | B_Load |
Caption | Загрузить | |
Button3 | Name | B_Clear |
Caption | Очистить | |
Image1 | Picture | Укажите файл, созданный в Paint«lr1.bmp» |
DateEdit1(закладка Misc) | DefaultToday | True |
DateOrder | doDMY |
Результат изменений представлен на рисунке 2
10. Сохраните проект
11. Запустите проект и проверьте интерфейс.
12. Создайте в папке проекта файл text.txt
13. Перейдите в программный код (F12) и объявите новый тип как на рисунке 3
Рисунок 3
14. Создайте обработчик события OnClick для компонента кнопка B_Save (рисунок 4). В результате работы этой процедуры данные из полей должны перенестись в поле М_harak и сохраниться в файле text.txt.
Рисунок 4
15. Сохраните проект.
16. Запустите проект. Заполните поля: фамилия, имя, отчество, дата рождения, телефон, адрес. В поле файл характеристики введите text.txt. Нажмите кнопку «Сохранить». Данные из заполненных полей должны перенестись в компонент M_hark и сохраниться в файл text.txt.
17. С помощью блокнота просмотрите файл text.txt
18. Создайте обработчик события OnClick для компонента кнопка B_Load (рисунок 5). В результате работы процедуры данные из указанного в поле файла будут загружены на форму.
Рисунок 5
19. Сохраните файл проекта.
20. Запустите проект. Введите в поле «Файл характеристики» введите text.txt и нажмите кнопку «Загрузить». Поля формы должны быть заполнены.
21. Создайте обработчик события OnClick для компонента кнопка B_Clear (рисунок 6)
Рисунок 6
22. Сохраните проект
23. Запустите проект. Введите в поле «Файл характеристики» введите text.txt и нажмите кнопку «Загрузить». Поля формы должны быть заполнены. Нажмите кнопку «Очистить». Поля формы должны быть очищены.
24. Сохраните проект.
25. Подойдите к доске и обведите свою фамилию.
26. Внесите изменения в программный код так, чтобы данные из компонентов ввода Edit и MaskEdit, переносились в поле Memo без использования записи Drug.
27. Доработайте процедуру «TF_glavnaya.B_LoadClick» так, чтобы она проверяла наличие текста в поле E_harak (файл характеристик)
Контрольные вопросы:
Назначение компонента TLabel
TButton
TMemo
В чём отличие компонентов TEdit и TMaskEdit