Практична робота №7

Тема:Розробка проекта у Delphi з використанням оператора if

Мета:Створити програму, у якій при виконанні умовного оператора перевіряється умова і якщо вона істина, то виконується дія1, а якщо хибна, то виконується дія2.

Теоретичні відомості

Разработка проекта «Тук-тук»

Основные положения

Для выполнения настоящего проекта необходимо использовать следующие компоненты: командная кнопка Button, окно редактирования Edit и метка Label;а также следующие свойства этих компонентов:

Caption (заголовок), Color (цвет), Font (шрифт), Visible (видимость).

В программе используется условный оператор: if условие then действия1 else действия2

где условие - равенство или неравенство;

действия1и действия2 - оператор или операторы (в этом случае их надо заключить между beginи end).

При выполнении условного оператора проверяется условие, если оно истинно (верно), то выполняются действия1, а действия2 - нет (игнорируются). Если же условие ложно, то напротив, выполняются действия2, а действия1 - нет.

Постановка задачи

Рис.1

Рекомендуемый план разработки программы

1. Откройте новый проект.

2.

Рис. 2

3. Используя ObjectInspector, задайте необходимые заголовки (свойство Caption) форме, всем меткам и командным кнопкам, а также подберите для них подходящие цвета и размер (см. рис.1). Заголовок четвертой метки, а также текст в окне редактирования (свойство Text) можно сделать пустыми. Выполните необходимое выравнивание всех элементов по горизонтали и по вертикали (Edit ® Align…).

4. Сразу после запуска программы метки Label2 и Label3, окно редактирования Edit1 и кнопка Button2 должны оставаться невидимыми до нажатия на кнопку Button1. Для этого свойство Visible каждого из этих компонентов должно иметь значение False (ложь).

5. Сохраните проект (File Save ® Project As…) в отдельной папке Name, заменив предлагаемое название модуля unit1.pas на nam.pas, а предлагаемое название проекта Project1.dpr - на Name.dpr. Проверьте работоспособность программы на этом этапе и только после этого продолжайте ее разработку. Далее обязательно проверяйте правильность своих действий пробным запуском программы (в конце каждого этапа). При отсутствии ошибок сохраняйте все файлы проекта (File ® Save All).

6. Теперь нужно сделать так, чтобы нажатие на кнопку Button1приводило к появлению невидимых до этого компонентов (меток Label2 и Label3, окна редактирования Edit1 и кнопки Button2). Для этого выполните двойной щелчок на кнопке Button1. В тексте программы будет создана процедура TForm1.Button1Click(Sender: TObject), в которую впишите следующие строки:

Label2.Visible := True;

Label3.Visible := True;

Edit1.Visible := True;

Button2.Visible := True;

7. Сначала упростим нашу задачу. Пусть компьютер приветствует по имени любого пользователя. Для этого пустой заголовок метки Label4 после нажатия на кнопку Button2 должен принять значение 'Здравствуй, ' + имя, набранное в строке редактирования Edit1. Дважды щелкните на кнопке Button2 и впишите следующую строку в созданную процедуру TForm1.Button2Click(Sender: TObject):

Label4.Caption := 'Здравствуй, ' + Edit1.Text + '!';

8. Теперь сделаем так, чтобы заголовок метки Label4 принимал значение 'Здравствуй, Вася!', если в строку редактирования введено имя Вася, а в любом другом случае заголовком метки Label4 становилось значение 'А где Вася?'. Для этого из процедуры TForm1.Button2Click(Sender: TObject) удалите ранее написанную строку и впишите вместо нее следующий условный оператор:

if Edit1.Text = 'Вася' then Label4.Caption := 'Здравствуй, Вася!'

else Label4.Caption := 'А где Вася!';

9. Еще раз сохраните все файлы проекта и запустите вашу программу.