Cоздание приложения в Lazarus состоит из следующих шагов:
Подготовка
Размещение компонентов интерфейса пользователя
Создание процедур-обработчиков событий
Тестирование и отладка приложения
Подготовка
Подготовка состоит из следующих шагов.
Создать отдельную папку для каждого проекта.
Без пробелов! Без русских букв!
Место создания: C:\2kurs\your_name.
Запустить Lazarus.
Закрыть проект:
Проект/Закрыть проект.
Создать новый проект: Приложение
Сохранить проект в созданной специально для него папке:
Проект/Сохранить проект как...
Проверить успешность компиляции и запуска нового пустого проекта
клавиша F9.
Закрыть запущенный пустой проект.
Продолжить сборку проекта.
Регулярно сохранять проект в процессе сборки
сочетание клавиш Ctrl+S.
1. На панели компонентов Standard выберите компонент TButton.
2. Разместите компонент TButton на форме:
должна появиться кнопка Button1.
3. Выделите на форме кнопку Button1, щелкнув по ней мышкой.
Проверьте: в верхней части окна Инспектор объектов в дереве
объектов должна быть выделена кнопка Button1.
4. В нижней части окна Инспектор объектов перейдите на
вкладку События.
5. На вкладке События выберите событие OnClick: должно появиться
поле ввода, справа от которого - кнопка с многоточием "...".
6. Щелкните по кнопке с многоточием "..." напротив события OnClick.
7. В окне редактора должна появиться заготовка для процедуры
обработчика щелчка по кнопке Button1:
procedure TForm1.Button1Click(Sender: TObject); begi end;
8. Для объявления переменных напишите
var
со списком переменных и указанием типов
между заголовком процедуры
procedure TForm1.Button1Click(Sender: TObject);
и словом
begin.
9. Операторы подпрограммы запишите между словами
begin и end;.
Об отметках
Основные упражнения не отмечены никакими специальными знаками, их выполнения достаточно для удовлетворительной оценки. Дополнительные упражнения отмечены "звездочками", их выполнение необходимо для получения повышенной оценки.
"5" - в отчете выполнены все основные упражнения, дополнительно выполнены упражнения с одной и двумя "звездочками".
"4" - в отчете выполнены все основные упражнения дополнительно выполнены упражнения с одной "звездочкой".
"3" - в отчете выполнены все основные упражнения.
1. В программе присвоить строковой переменной s
строковую константу, например, 'abcd'.
Вывести значение s в метку Label1 при щелчке
по кнопке Button1.
Пример
На форму поместить:
Label1
Button1
procedure TForm1.Button1Click();
var
s : string;
begin
s := 'abcd'; // Присваиваем строковую константу.
Label1.Caption := s;
end;
2. Текст из метки Label1 присвоить строковой переменной s,
а затем вывести значение в Label2.
Эти действия должны выполняться при щелчке по кнопке Button1.
Пример
На форму поместить:
Label1
Label2
Button1
procedure TForm1.Button1Click();
var
s : string;
begin
s := Label1.Caption; // Присваиваем текст из метки.
Label2.Caption := s;
end;
3. Вывести в Label1 строку, объединяющую текст из
Edit1 и Edit2.
На форму поместить:
Edit1
Edit2
Label1
Button1
procedure TForm1.Button1Click(Sender: TObject);
var
s1, s2, s : string;
begin
s1 := Edit1.Text; // Присваиваем текст из поля 1.
s2 := Edit2.Text; // Присваиваем текст из поля 2.
s := s1 + s2;
Label1.Caption := s;
end;
4.* Ввести в Edit1 текст, вывести в Label1 длину этого текста.
В Label2 вывести n первых символов из Edit1, число n задать
в Edit2.
5.**В поле Edit1 введена строка, в которой цифры и буквы
стоят вперемешку. При нажатии на кнопку Button1 вывести
все цифры этой строки в Label1, а все буквы - в Label2.
Дополнительные задания к занятию
Лаборторная работа 1
Компоненты Label, Edit, Button
6.* При каждом щелчке по кнопке изменить значение переменной
x на заданную величину a и отобразить новое значение на форме.
Используйте компоненты:
Edit1 - ввод начального значения x,
Edit2 - ввод значения a,
Label1 - вывод измененного значения x,
Button1 - изменение значения x и его вывод.
7.* При щелчке по кнопке Button1 надпись на ней должна заменяться
текстом из Edit1.
8.* При щелчке по кнопке Button1 вывести текст из Edit1 в Label1.
При щелчке по кнопке Button2 вывести текст из Edit2 в Label1.
Пример
На форму поместить:
Edit1
Edit2
Label1
Button1
Button2
s := Edit1.Text;
Label1.Caption := s;
s := Edit2.Text;
Label1.Caption := s;
9.* Текст из поля Edit1 присвоить строковой переменной s,
а затем вывести значение в Label1.
Эти действия должны выполняться при щелчке по кнопке Button1.
На форму поместить:
Edit1
Label1
Button1
procedure TForm1.Button1Click();
var
s : string;
begin
s := Edit1.Text; // Присваиваем текст из поля.
Label2.Caption := s;
end;
10.* Каждому элементу массива строкового типа
присвойте некторое слово.
Используйте компоненты:
Edit1 - для ввода слова,
Button1 - для присвоения слова из Edit1 очередному элементу.
11.** Имеется массив строкового типа, содержащий слова
разной длины. При щелчке по кнопке Вперед или Назад программа
должна показывать следующее или предыдущее слово из массива
соответственно.
Используйте компоненты:
Label1 - для вывода слова,
Button1 - кнопка Вперед,
Button2 - кнопка Назад.