Лабораторная работа Визуальное программирование Среда Delphi

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

Тема:  Среда программирования Delphi

Цель: Получить практические навыки визуального программирования  в интегрированной среде разработки Delphi.

Оборудование: IBM – совместимые компьютеры.

Место проведения: Компьютерный класс.

Техника безопасности: См. инструкцию.

Ход работы:

Напишем простую программу, вычисляющую синус введенного числа.

1. Создайте каталог для нового проекта. Выберите пункт меню File | New Application. Сразу же сохраните новый проект в данном каталоге.

2. Разместите на форме две кнопки с надписями «Вычислить» и «Выход», три компонента Label (статический текст) и компонент Edit (строка редактирования).

3. Установите следующие значения свойств компонентов:

Компонент	Name	Caption
Label	Label1	Введите число
Label	Label2	Результат
Label	Label3

Для компонента Edit очистите значение свойства Text (в этом свойстве типа String будет содержаться введенная строка).

4. Добавьте на форму кнопку-выключатель CheckBox и группу радиокно­пок RadioGroup. Эти кнопки используются для установки различных флагов и режимов выполнения задачи. Кнопки-выключатели могут переключаться независимо друг от друга, а в группе радиокнопок включенной может быть только одна из них. Зададим для CheckBox значение свойства Caption - Градусы (аргу­мент синуса измеряется в градусах, а если кнопка выключена, то в радианах). Для проверки состояния кнопки-выключателя используется свойство Checked: Boolean, возвращающее True, если кнопка включена (помечена), и False в про­тивном случае.

5. Для занесения кнопок в группу радиокнопок нажмем «...» напротив свойства Items компонента RadioGroup1. В раскрывшемся диалоговом окне за­пишем наименования радиокнопок в три строчки: sin cos tg . В свойство Caption запишем Функции.

Состояние группы радиокнопок проверяется с помощью ее свойства ItemIndex типа Integer. Если ItemIndex равен 0, то включена первая по порядку кнопка, если 1, то 2-я и т.д. Если -1, то ни одна из кнопок не включена.

Форма с первоначально установленными компонентами будет иметь вид

После изменения свойств Caption и Tex форма примет следующий вид

I

6. Откомпилируйте приложение. Убедитесь, что с помощью Edit можно вводить и редактировать строки. Однако пока никаких действий с введенной строкой не выполняется.

5. Чтобы вычисления над введенной строкой выполнялись, создайте сле­дующие обработчики событий.

Для события OnClick кнопки Button1:

procedure TForm1.Button1Click(Sender: TObject);

var x: real; // Введенное  значение

code: integer; // Код возврата   операции преобразования

//     строка - число s: string;

begin

val(Edit1.text,x,code); //Преобразование  строка-число

if CheckBox1.Checked  then x:=pi*x/180.0; //Перевод в радианы

case RadioGroup1.ItemIndex of // Варианты расчета

    0,-1: x:=sin(x);

  1: x:=cos(x);

  2: x:=sin(x)/cos(x);

end;

  str(x:7:4, s);     // Преобразование   число-строка        

    Label3.Caption:=S; // Вывод результата

end;

Для события OnClick кнопки Button2:

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;

6. Откомпилируйте и выполните проект. Результат его работы будет иметь следующий вид

7. Модифицируем проект. Для выделенного компонента Edit1 найдите в инспекторе объектов событие OnChange, возникающее при изменении текста внутри TEdit, раскройте комбинированный список напротив OnChange и выбе­рите в нем уже созданный обработчик событий Button1Click. Теперь эта проце­дура будет вызываться при наступлении события OnChange, следовательно, вычисления будут происходить синхронно с вводимым текстом. Убедитесь в этом, выполнив проект.

Задания

1.     Доработайте проект, предусмотрев обработку исключительных ситуаций при вводе аргумента.

2.     Выберите на палитре компонентов и используйте другие средства, пригодные для ввода и вывода данных.

3.     Оформить отчет в электронном виде.  Отчет должен содержать: номер лабораторной работы, тему, цель работы, листинг программы, комментарии, ответы на контрольные вопросы.

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

1.     Каким способом вызывается программа Delphi?

2.     Опишите вид экрана после загрузки программы.

3.     Какие компоненты размещены в главном окне?

4.     Как создается стартовая форма приложения?

5.     Перечислите основные компоненты формы.

6.     Что в Delphi подразумевается под  "событием"?

7.     Что  включает  "обработчик события"?

8.     Как сохранить проект?

9.     Вызов проекта на выполнение.

10. Что входит в структуру простой программы Delphi?

Литература

1.     Культин Н. Б. Основы программирования в Delphi XE. — СПб.: БХВ-Петербург, 2011. — 416 с.:  ил. + CD-ROM — (Самоучитель)

2.                 Семакин И.Г Основы программирования и баз данных: учебник для студ. учреждений сред. проф. образования.  — М.: Издательский центр «Академия», 2014. — 224 с.

3.                 Семакин И.Г., Шестаков А.П. Основы алгоритмизации и программирования: учебник для студ учреждений сред. проф. образования — М. : Издательский центр «Акаде­мия», 2013.— 304 с.