Комплект лабораторных работ по дисциплине "Основы программирования" (Lazarus)
методическая разработка по теме

Лабораторная работа

Тема. Многостраничные панели PageControl

Цель. Освоить навыки использования многостраничных панелей в интерфейсе приложений

Многостраничные панели позволяют экономить пространство окна приложения, размещая на одном и том же месте страницы разного содержания. На рисунке 1 представлены различные варианты использования многостраничного компонента.

Из общих свойств компонента PageControl можно отметить:

В компоненте имеется ряд методов, позволяющих оперировать страницами, создавать их, уничтожать, переключать. Основные события компонента — OnChanging и OnChange. Первое из них происходит непосредственно перед переключением на другую страницу после щелчка пользователя на новой закладке. При этом в обработчик события передается по ссылке параметр AllowChange — разрешение переключения. Если в обработчике задать AllowChange = false, то переключение не произойдет. Событие OnChange присходит сразу после переключения.

Выполнение работы

1. Откройте в Lazarus новое приложение.
2. Перенесите компонент PageControl на форму.
3. Добавьте новую страницу. Для этого, надо щелкнуть на нем правой кнопкой мыши. Во всплывшем меню выберите команду- Добавить страницу 
4. Созданная вами страница является объектом типа TTabSheet. Это панель, на которой можно размещать любые управляющие компоненты, окна редактирования и т.п.
5. Аналогично создайте ещё две страницы,
6. Выделите первую страницу и щелкнув в ее середине, и посмотрите ее свойства в Инспекторе Объектов. Страница имеет следующие основные свойства:

7. Измените для первой страницы TabSheet1 :

1. свойство Name -  на «Page1»
2. свойство Caption – на «Приветствие»
3. установите на панели любую картинку и текст с приветствием «Приветствуем всех кто изучает Lazarus!!!»
4. установите кнопку и задайте свойства name – Next1, а caption – Далее.
5. Для автоматического перехода необходимо использовать свойство ActivePageIndeх родительского объекта PageControl1, содержащее номер открытой страницы (нумерация начинается с 0). Двойным щелчком по кнопке «Далее» перейдите в окно программного кода и внесите изменения в обработчик события :

6. Сохраните приложение
7. Запустите приложение и проверьте работу кнопки Далее

8. Перейдите на вторую страницу TabSheet2  и установите свойство Name -  на «Page2», свойство Caption – на «Ввод».

8. Разместите на панели три поля для ввода, четыре поля с комментариями и поле с картинкой квадратного уравнения, как показано на рисунке:

9. Переименуйте поле Edit1 в EditA, Edit2 в EditВ, Edit3 в EditС
10. Очистите поля свойство Text в полях  EditA, EditВ, EditС
11. Установите две кнопки и задайте им свойства соответственно name - Next1 и caption – Далее,  name – Last и caption – Назад.
12. Напишите для кнопок Далее и Назад соответствующий программный код.
13. Сохраните приложение
14. Запустите приложение и проверьте работу кнопок Далее и Назад страницы Ввод

9. Перейдите на третью страницу TabSheet3  и измените свойство Name -  на «Page3», свойство Caption – на «Результат».

15. Разместите на странице 3 компонента Label, как показано на рисунке
16. Переименуйте компоненты как Ld, Lx1,Lx2
17. Установите кнопку и задайте ей свойства: name – Last2 и Caption – Назад
18. Для кнопки «Назад» напишите соответствующий программный код
19. Сохраните приложение.

10. Доработайте программу так, чтобы на странице Результат в соответствующие поля выводились значения дискриминанта и корней квадратного уравнения. В случае, если дискриминант равен нулю значение корня должно выводится в метку Lx1, а метка Lx2 -  очищалась. В случае, если дискриминант – отрицательный в  метку Lx1 выводится сообщение «Нет решения», а метка Lx2 -  очищалась.
11. Доработайте программу так, чтобы на странице Результат  метки очищались.
12. Сохраните приложение
13. Проверьте работу приложения для значений:

14.  Покажите результат преподавателю
15. Пример программного кода

Контрольные вопросы:

1. В чём отличие компонента PageControl от компонента Panel?
2. В чём отличие компонента PageControl  от компнента Forms?
3. Для чего служит свойство ActivePageIndeх?
4. С помощью какого свойства можно узнать количество страниц компонента PageControl?
5. Когда происходит событие OnChange?
6. Как узнать имя активной страницы?

Лабораторная работа 1

Тема.  Составление алгоритмов и программ с использованием визуальных компонентов EDIT, LABEL, BUTTON, MEMO

Цель. Закрепить навыки использования компонентов для ввода данных различного типа

Порядок выполнения работы

1. Прочтите инструкцию по выполнению работы до конца.
2. В папке «Мои документы» создайте папку для нового проекта ЛР_ООП_1
3. Загрузите Приложение Lazarus
4. Создайте новый проект
5. Установите для свойств формы значения из таблицы1 :

6. Сохраните проект под  именем LR1, а  модуль Unit1  под именем  U_glav.
7. Запустите приложение Paint и нарисуйте весёлый смайлик. Сохраните под именем «lr1.bmp» в папке проекта.
8. В приложении Lazarus добавьте на форму компоненты как показано на рисунке 1

Рисунок 1 – Размещение компонентов на форме

9. Напишите на доске свою фамилию.
10. Установите для компонентов значения свойств из таблицы 2:

Результат изменений представлен на рисунке 2

11. Сохраните проект
12. Похлопайте в ладоши 5 раз.
13. Запустите проект и проверьте интерфейс.
14. Создайте в папке проекта файл text.txt
15. Перейдите в программный код (F12) и объявите новый тип как на рисунке 3

Рисунок 3

16. Создайте обработчик события OnClick для компонента кнопка B_Save (рисунок 4). В результате работы этой процедуры данные из полей должны перенестись в поле М_harak и сохраниться в файле text.txt.

Рисунок 4

17.  Сохраните проект.
18. Запустите проект. Заполните поля: фамилия, имя, отчество, дата рождения, телефон, адрес. В поле файл характеристики введите text.txt. Нажмите кнопку «Сохранить». Данные из заполненных полей должны перенестись в компонент M_harak  и сохраниться в файл text.txt.
19. С помощью блокнота просмотрите файл text.txt
20. Подойдите к доске и напротив своей фамилии напишите «МОЛОДЕЦ»
21. Создайте обработчик события OnClick для компонента кнопка B_Load (рисунок 5). В результате работы процедуры данные из указанного в поле файла будут загружены на форму.

Рисунок 5

22. Сохраните файл проекта.
23. Запустите проект. Введите в поле «Файл характеристики»  введите text.txt и нажмите кнопку «Загрузить». Поля формы должны быть заполнены.
24. Подойдите к доске и напротив своей фамилии рядом со словом «МОЛОДЕЦ» поставьте «!!!»
25. Создайте обработчик события OnClick для компонента кнопка B_Clear (рисунок 6)

Рисунок 6

26. Сохраните проект
27. Запустите проект. Введите в поле «Файл характеристики»  введите text.txt и нажмите кнопку «Загрузить». Поля формы должны быть заполнены. Нажмите кнопку «Очистить». Поля формы должны быть очищены.
28. Сохраните проект.
29. Подойдите к доске и обведите свою фамилию.
30. Внесите изменения в программный код так, чтобы данные из компонентов ввода Edit и  MaskEdit, перносились в поле Memo без использования записи Drug.
31. Доработайте процедуру «TF_glavnaya.B_LoadClick» так, чтобы она проверяла наличие текста в поле E_harak (файл характеристик)
32. Задания 9,12, 20, 24 необходимо пропустить.

Контрольные вопросы:

Назначение компонента TLabel

TButton

TMemo

В чём отличие компонентов TEdit и TMaskEdit

Лабораторная работа

Тема. Использование панелей для проектирования интерфейса.

Цель. Освоить приёмы использования панелей для организации интерфейса приложения

Панель – контейнер, служащий для объединения других управляющих компонентов

Панели выполняют функции:

- декоративные, зрительно объединяя компоненты связанные друг с другом по назначению;

- управления, организую совместную работу своих дочерних компонентов. Основные свойства

• BevelInner – выпуклый, утопленный или плоский вид внутренней части;
• BevelOuter – выпуклый, утопленный или плоский вид обрамления компонента;
• BevelWidtn – определяет ширину обрамления компонента в пикселях;
• BorderStyle – указывает, ограничена ли клиентская область компонента одинарной бордюрной линией;
• BorderWidth – расстояние в пикселях между внутренней и наружной кромками обрамления.

Порядок выполнения работы:

1. Запустите среду Lazarus
2. Создайте новое приложение
3. Установите панели как показано на рисунке и задайте соответствующие свойства

4. Сохраните приложение в папке Panel
5. Закройте приложение
6. Создайте новое приложение Panel2.
7. Расположите компоненты как показано на рисунке

8. Для заполнения списка в ListBox воспользуйтесь свойством Items.
9. Сохраните приложение в папке Panel2
10. Запустите приложение и измените размеры формы

ПРОБЛЕМА: при изменении размера формы – размеры компонентов не изменились.

РЕШЕНИЕ. Компонент необходимо привязать к месту на форме.

11. Установите для компонентов свойство соответствующее свойство Align и запустите приложение/

ПРОБЛЕМА:  Не изменяется положение компонентов, расположенных на панелях staticText и ListBox

РЕШЕНИЕ. Компонент необходимо привязать к месту на панели

12. Для компонента StaticText  измените свойство Anchors и запустите приложение. Размеры компонента StaticText  должны измениться

13. Удалите с формы компонент Memo1.
14. Установите компонент TSplitter,  расположенный на странице Additional.
15. На место компонента Мемо1 установите панель GroupBox и задайте свойство Align равным alClient
16. Сохраните и запустите приложение. Попробуйте изменить размеры компонента Panel1.
17. Измените свойства компонента ListBox1так, чтобы его размеры изменялись при изменении размеров формы и панели по вертикали, но оставались неизменными при изменении по горизонтали.
18. Установите компонент  Splitter так, чтобы можно было изменять размер панели Panel2. (Необходимо сначала установить свойство компонентов Panel1 и  GroupBox  равным alNone, установить компонент TSplitter (Align=AlTop), а затем установить для компонентов Panel1 и  GroupBox необходимые значения свойств)
19. Сохраните приложение.
20. Протестируйте работу приложения.

21. Поэкспериментируйте со свойством ResizeStyle  компонента TSplitter.
22. Установите для панели Panel1 значение свойства Constraints как показано на рисунке
23. Запустите приложение и попробуйте изменить ширину Panel1 до минимума
24. Создайте для Panel1 обработчик события OnResize и для формы обработчик onActive:

25. Запустите приложение и проверьте работу приложения
26. Покажите результат работы преподавателю.
27. Ответьте на контрольные вопросы.

Контрольные вопросы

1. В каких случаях оправдано использование панелей в интерфейсе программы?
2. В чём заключается основное назначение компонента TSplitter?
3. За что отвечает свойство Align?
4. За что отвечает свойство Anchors?
5. Что произойдёт с панелью, если свойству Align  задать значение alBottom?
6. Что произойдёт с панелью, если свойству Align  задать значение alClient?
7. За что отвечает свойство Items  компонента ListBox?
8. В каких случаях используют свойство Constraints?
9. Приведите примеры использования обработчика события форсы OnActive.