Лабораторная работа №15 Среда программирования Delphi
учебно-методический материал

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

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

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

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

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

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

Ход работы:

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

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

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

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

Для компонента 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?