Практические работы в среде визуального программирования Lazarus
Практические работы в среде визуального программирования Lazarus
Список вопросов, рассмотренных в работе
Работа № 2
· использование компонент Label и Button на странице палитры компонентов Standard,
· обработка события OnClick - нажатие кнопки.
Работа № 3
· использование строки ввода Edit (вкладка палитры компонентов Standard),
· обработка события OnKeyPress- нажатия клавиши.
Работа № 4
· использование компоненты ListBox (список) (вкладка палитры компонентов Standard),
· использование встроенного редактора для ввода информации,
· алгоритм выбора (оператор Case).
Работа № 5
· использование комбинированного списка ComboBox (представляющие собой объединение строки ввода и компонента ListBox),
· компонента - выключатель CheckBox,
· функции MessageDlg.
Работа № 6
· использование типов переменных - целочисленного и действительного (integer и real);
· преобразование строковых данных в числовые и числовые в строковые с помощью функций StrToInt; StrToFloat, IntToStr FloatToStr ; Format();
· обработка исключительных ситуаций с помощью оператора
Try – except – end;
· использование процедуры ShowMessage для вывода сообщения в отдельном окне.
Работа № 7
· полос прокрутки ScrollBar для ввода данных,
· компонента Panel,
· функций преобразования значений цветовых составляющих – TColorRef.
Работа № 8
· взаимодействие двух списков ListBox на основе свойств Items и ItemIndex,
· создание многострочных надписей в компоненте Label.
Работа № 9
· группа переключателей RadioGroup на странице палитры компонентов Standard,
· оператор вывода сообщений ShowMessage.
Работа № 10
· использование в проекте нескольких форм и организация вызова этих форм,
· использование шаблона формы Tabbed pages из окна New Items вкладки Forms,
· компонента MainMenu (главное меню формы),
· компонента Memo (многострочный текстовый редактор),
· компонента Image (графический объект) со страницы палитры компонентов Additional,
· компонента PageControl (набор панелей с закладками).
Практическая работа №2
Разработка ПЕРВОГО ПРОЕКТА
Постановка задачи, №2
Создать программу, выполняющую следующие действия.
 | После запуска программы, щелкнув мышью на кнопке Приветствие появляется сообщение "Первые успехи!". Для выхода из программы необходимо щелкнуть мышью на Выход. |
| Новым в этой работе является: · использование компонент Label и Button на странице палитры компонентов Standard, · обработка события OnClick - нажатие кнопки. |
Задание для самостоятельного выполнения
| Задание | Подсказка | |
| Сделать шрифт выводимой реплики "Первые успехи!" отличным от стандартного по виду, цвету и размеру. | В Object Inspector дважды щелкнуть справа от названия свойства Font. | |
| Заменить вид кнопки Выход на более привлекательный. | Для замены кнопки надо удалить существующую, а другую найти в палитре компонентов на вкладке Additional. Она самая левая, называется BitBtn. Затем изменить ее вид с помощью свойства Kind. | |
| Сделать так, чтобы после нажатия кнопки Приветствие на экране появлялось сообщение "Первые и не последние!". | Изменить значение свойств Caption метки Label1 при реакции кнопки Button1 на событие OnClick. | |
| Запустить исполняемый файл Pr1.exe не в среде Lazarus, а в Windows. | Запустить исполняемый файл Pr1.exe не в среде Lazarus, а в Windows. |
Практическая работа №3
Разработка проекта ДИАЛОГ
Постановка задачи
Создать программу, выполняющую следующие действия.
 | Создать программу, выполняющую следующие действия. После запуска программы пользователь вводит свое имя, например, Александр, в прямоугольник с мигающим текстовым курсором и нажимает клавишу Enter. Появляется вопрос: "Александр, ты любишь читать?". Если пользователь нажмет на клавишу Да, то должна появиться реплика: "Молодец!", если он нажмет на клавишу Нет, то появится реплика: "Почему же? Надо читать". |
Для выхода из программы необходимо щелкнуть мышью на кнопке Выход.
| Новым в этой программе является: · использование строки ввода Edit (вкладка палитры компонентов Standard), · обработка события OnKeyPress- нажатия клавиши. |
Задание для самостоятельного выполнения, №3
| Задание | Подсказка | |
| Сделать кнопки Да и Нет доступными только после ввода имени и нажатия клавиши Enter. | Значение свойства Enabled кнопок Да и Нет установить равными False, а в процедуру Edit1KeyPressed включить, код: Button1.Enabled:=true; Button2.Enabled := true; | |
| Удалить текст компонентов Edit1, Label2, Label3 для обеспечения возможности повторить диалог. | Разместить на форме еще одну кнопку BitBtn. Установить значение bkRetry свойства Kind, и значение &Повторить свойства Caption. Ввести программно по нажатию кнопки Повторить пустые строки вместо надписей и имен кнопок: Label2.Caption:=''; Label3.Caption:=''; Edit1.Text := ''; | |
| Сделать так, чтобы при повторении диалога строка ввода была бы снова активной. | Ввести команду: Form1.ActiveControl := Edit1 |
Практическая работа №4
Постановка задачи
Создать программу, выполняющую следующие действия.
 | После запуска программы пользователь выбирает с помощью мышки или стрелок название цвета и нажимает клавишу Enter. На экране появляется название цвета на русском языке и код в формате RGB. Программа заканчивает свою работу по нажатию клавиши Выход. |
| Новыми в этой работе являются: · использование компоненты ListBox (список) (вкладка палитры компонентов Standard), · использование встроенного редактора для ввода информации, · алгоритм выбора (оператор Case). |
Задание для самостоятельного выполнения, №4
| Задание | Подсказка | |
| Изменить шрифты, цвет экрана и букв. | Возможно, придется в коде программы подкорректировать количество пробелов между названием цвета и его кодом. | |
| Сделать так, чтобы при установке курсора мыши в поле ListBox1, появлялась подсказка о том, что надо сделать. | Воспользуйтесь свойствами Hint (текст сообщения), Showhint (показывать ли сообщение) объекта ListBox1. | |
| Внести изменения в программу, чтобы для надписей цвета и формата RGB использовались два отдельных объекта Label. | ||
| Внесите изменения в программу для того, чтобы исходные данные о таблице цветов задавались в массиве. |
Практическая работа №5
Разработка проекта СЛОВАРЬ
Постановка задачи
Разработать программу для составления словаря новых терминов.
 | Должна иметься возможность внесения в словарь изменений, дополнений или сокращения его. При выборе термина на контрольной панели должны появляться его номер и общее количество слов в словаре. |
| Новыми в этой работе является: · использование комбинированного списка ComboBox (представляющие собой объединение строки ввода и компонента ListBox), · компонента - выключатель CheckBox, · функции MessageDlg. Все эти компоненты находятся на вкладке палитры компонентов Standard. |
Задание для самостоятельного выполнения, №5
| Задание | Подсказка | |
| Предусмотреть возможность добавления терминов в список не только при щелчке на кнопке Добавить, но и при нажатии клавиши Enter. | Для компоненты ComboBox1 в обработчик события onKeyPress вставить код: if Key = #13 then ... | |
| Добавить две метки и вывести на них общее количество терминов в списке и номер выбранного термина. | Для объекта ComboBox1 в обработчик события Change вставить код, присваивающий заголовку панели значение ComboBox1.Items.Count, а в обработчик события Click- код, присваивающий заголовку другой панели значение ComboBox1.ItemIndex+1, имея ввиду, что первый термин имеет индекс 0, второй - 1 и т.д. | |
| Обеспечить сохранение всех изменений словаря при закрытии формы. | Для объекта Form в обработчик события CloseQuerry вставить код, сохраняющий измененный список в файле Glostext.txt. | |
| Отсортировать список. | Свойству Sorted объекта ComboBox1 присвоить значение True. |
Практическая работа №6
Разработка проекта ВАШ ВЕС
Постановка задачи
Пусть оптимальный вес человека определяется как рост минус 100. Если фактический вес человека меньше оптимального, то будем считать его худым, если больше, то полным.
 | Создать программу, с помощью которой можно выполнить: Введя свой рост и фактический вес, и нажав кнопку Расчет, учащийся может определить, худой ты или полный и на сколько надо поправиться или похудеть. |
| Новым в этой работе являются: · использование типов переменных - целочисленного и действительного (integer и real); · преобразование строковых данных в числовые и числовые в строковые с помощью функций StrToInt; StrToFloat, IntToStr FloatToStr ; Format(); · обработка исключительных ситуаций с помощью оператора Try – except – end; · использование процедуры ShowMessage для вывода сообщения в отдельном окне. |
Задание для самостоятельного выполнения, №6
| Задание | Подсказка | |
| Для форматирования и преобразования действительных чисел вместо функции FloatToStr() применить функцию Format(‘ %f ’,[пeременная]). Например, Format(‘%f ‘, [Delta]) | ||
| Для форматирования и преобразования применить эту же функцию в таком виде Format(‘Строка %f’,[пeременная]). Например, Format(‘Вам надо похудеть %f',[Delta]) . | ||
| Усовершенствовать проект: сделать к программе заголовок; сделать шрифт выводимой реплики отличным от стандартного по виду, цвету и размеру; вставить кнопку выхода из программы; предусмотреть возможность повторного запуска программы (см. проект Диалог). | ||
| Сделайте так, чтобы в начале программы или после повторного запуска объекты Label2 и Edit2 были не видны и появлялись бы на экране только после того, как будет введен вес. | Свойству Visible нужно присвоить False. |
5. В случае преобразования строкового типа в числовой тип может возникнуть ситуация появления ошибки, если введены недопустимые символы. Если функции StrToInt или StrToFloat обнаружат ошибку в записи числа, они инициируют так называемую исключительную ситуацию (исключений), которая обычно приводит к аварийному завершению работы программы.
Обработчик исключений строится в виде таких конструкций:
Try
<защищенный блок операторов>
except
<обработка исключений>
end;
Если при выполнении операторов из защищенного блока возникнет исключение, управление будет передано в блок операторов, располагающийся между except и end, но если обработка пройдет без ошибок, блок исключений игнорируется и управление передается оператору, следующему за end.
Пример использования обработки исключений для процедуры Edit1KeyPressed может выглядеть так:
try
FactW:=StrToInt(Edit1.Text);
except
ShowMessage('Ошибочная запись числа: ' + Edit1.Text);
Edit1.SetFocus;
Exit;
end;
В результате выполнения
FactW:=StrToInt(Edit1.Text);
если возникнет исключительная ситуация, то на экране появится окно с текстовым сообщением и кнопкой ОК. После появления окна работа программы приостановится в ожидании реакции пользователя. При вызове стандартной процедуры Exit снова активизируется редактор, в котором обнаружен ошибочный текст.
Внесите необходимые изменения для обработки исключительных ситуаций, возникающих при вводе чисел.
Примечание
При работе в среде Lazarus эксперименты с исключениями плохо прослеживаются, так как при каждом исключении среда перехватывает управление программой. Для отмены этого необходимо в команде Tools/Debugger Options/Language Exceptions убрать флаг у опции Stop on Lazarus Exceptions.
6. Измените алгоритм расчета с учетом Индекса массы тела.
Вес – X,
Рост – Y.
Индекс массы тела – A, где A = X / Y2 (кг/м2)
Результат определяется по таблице:
| Значение индекса | Результат (сообщение, которое надо вывести) | |
| A < 18 | Большой недовес | |
| 18 <= A < 20 | Маловато и небезопасно, можно получить истощение | |
| 20 <= A <= 25 | Идеально | |
| 26 <=A <=30 | Легкий недобор | |
| 30 < A | Срочно нужно худеть |
Практическая работа №7
Постановка задачи
 | Создать программу, с помощью которой пользователь мог бы увидеть в зависимости от значений насыщенности красного, зеленого и синего результирующий цвет. |
| Новым в этой работе являются: · полос прокрутки ScrollBar для ввода данных, · компонента Panel, · функций преобразования значений цветовых составляющих – TColorRef. |
Задание для самостоятельного выполнения, №7
| Задание | Подсказка | |
| Поместить на форму кнопку выхода из программы. | ||
| Предусмотреть, чтобы при запуске программы были установлены начальные цвета панелей в зависимости от исходных значений ползунков. | Поместить в событие при создании формы (OnCreate для Form1) обработку значений позиции ScrollBar1, ScrollBar2 и ScrollBar3. | |
| Внесите изменения так, чтобы выводились на экран значение кода цвета ни только в десятичной системе счисления, но и в шестнадцатеричной системе счисления. | Добавить объект Label4. Поместить в событие по изменению полосы прокрутки ScrollBar (RedBar) дополнительную строку, изменяющую свойство нового компонента Label4: Label4.Caption:=Format('0x%x', [RedBar.Position]); Или можно воспользоваться функцией IntToHex. |
Практическая работа №8
Постановка задачи
Создать программу, выполняющую следующие действия.
 | После запуска программы появляется изображение аналогичное рисунку. Пользователь, перемещаясь с помощью клавиш-стрелок по левому списку "Физических величин", выбирает любое слово, нажав клавишу Enter. |
Затем пользователь переходит в правый список "Названий физических величин" и выбирает соответствующее название ранее выбранной физической величины.
Если выбрано правильное название величины, то под словом “ОЦЕНКА” появляется одобрительная реплика: Правильно, если выбрано неправильное слово, то - Ошибка. Снова можно выбрать физическую величину и найти ей правильное название до тех пор, пока не будет найдено соответствие всех
физических величин и их названий.
| Новым в этой работе является: · взаимодействие двух списков ListBox на основе свойств Items и ItemIndex, · создание многострочных надписей в компоненте Label. |
Задание для самостоятельного выполнения, №8
| Задание | Подсказка | |
| Списки ListBox1 и ListBox2 сделать поочередно доступными после нажатия клавиши Enter. | В Object Inspector свойству Enabled компонента ListBox2 придать значение False, а в процедуру KeyPressed, относящуюся к ListBox1, включить строки: ListBox2.Enabled := True; ListBox1.Enabled := False; Form1.ActiveControl := ListBox2; | |
| Выполнить проект так, чтобы при правильном выборе названия физической величины слово в левом списке исчезало. | В процедуру KeyPressed, относящуюся к ListBox2, там, где обрабатывается правильный ответ, включить: ListBox1.Items.Delete(Num1); ListBox1.Items.Insert(Num1, ‘’); | |
| Расширить количество физических величин до 10. Внести необходимые изменения в программу. |
Практическая работа №9
Постановка задачи
Создать программу, выполняющую следующие действия.
После запуска программы появляется изображение аналогичное рисунку 16. Пользователь по своему усмотрению выбирает один из переключателей в группе. В зависимости от правильности ответов появляется одно из сообщений "Плохо", "Удовлетворительно", "Хорошо", "Отлично".
| Новым в этой работе являются: · группа переключателей RadioGroup на странице палитры компонентов Standard, · оператор вывода сообщений ShowMessage. |
Задание для самостоятельного выполнения, №9
| Задание | Подсказка | |
| Для контроля правильности работы программы вывести на панель набранную пользователем сумму баллов. | Заголовку соответствующей панели (или метки) присвоить значение IntToStr(sum). | |
| Запустите программу и убедитесь, что верная сумма баллов получается лишь при последовательном выборе переключателей сначала из RadioGroup1, затем из RadioGroup2 и т.д. Если порядок нарушен, то результат может быть неверным. Чтобы этого не случилось, вставьте дополнительную кнопку и сделайте подсчет баллов только после ее нажатия | ||
| Сделайте возможным повторный запуск программы. | ||
| Для наглядности вывести результат разным цветом. | В оператор Case при выводе результата задать свойству Font.Color выбранный цвет. Например: Panel1.Font.Color:=clRed; | |
| Усовершенствуйте программу, введя в раздел описания массив констант с номерами правильных ответов, а в программе только сравнивайте индекс переключателя со значением константы. |
Практическая работа №10
Постановка задачи
Создать проект, состоящий из нескольких форм: титульной формы, формы меню, формы помощи и формы непосредственно теста.
В зависимости от правильности ответов на тест, который состоит из нескольких разделов (в свою очередь в разделе может быть несколько вопросов), подсчитывается результат и выставляется оценка по каждому разделу.
| Новыми в этой программе являются: · использование в проекте нескольких форм и организация вызова этих форм, · использование шаблона формы Tabbed pages из окна New Items вкладки Forms, · компонента MainMenu (главное меню формы), · компонента Memo (многострочный текстовый редактор), · компонента Image (графический объект) со страницы палитры компонентов Additional, · компонента PageControl (набор панелей с закладками). |
Задание для самостоятельного выполнения, №10
| Задание | |
| Создайте тестирующую программу по истории, литературе, математике или какому-либо другому предмету. | |
| Дополните программу разделом "Содержание изучаемой темы". | |
| Внесите изменения в программу так, чтобы в начале запрашивалось Имя тестируемого, которое выводилось бы на экран при выдаче результата прохождения теста. | |
| Для наглядности вывести результат разным цветом. | |
| Усовершенствуйте программу, введя в раздел описания массив констант с номерами правильных ответов, а в программе только сравнивайте индекс переключателя со значением константы. |
Практические работы в среде визуального программирования Lazarus