Программируем вычисления

На данный момент, все элементы, размещенные на форме, являются только элементами дизайна и не работают.

Вид созданной формы подсказывает, как работает приложение. Очевидно, что пользователь должен ввести в поле редактирования исходные данные и щелкнуть мышью на кнопке Считать, а для выхода из программы следует нажать на кнопку Выход. Щелчок на изображении командной кнопки — это пример того, что в Windows называется событием. Реакцией на событие должно быть какое-либо действие. В Delphi реакция на событие реализуется как процедура обработки события.

Таким образом, для того чтобы программа выполняла некоторую работу в ответ на действия пользователя, программист должен написать процедуру обработки соответствующего события.

- Запрограммируем кнопку выхода.

Двойной щелчок на кнопке Exit в режиме редактирования формы переносит нас в окно кода, где сразу же появляется заготовка для нашей событийной процедуры:

procedure TOkruzh.ExitClick(Sender: TObject);

Begin

End;

begin – начало процедуры; end – ee окончание.

Собственно содержание процедуры будет состоять из единственной команды Okruzh.Close – закрыть форму Okruzh.

Обратите внимание: В процессе набора текста программы редактор кода выводит справочную информацию о параметрах процедур и функций, о свойствах и методах объектов. После того, как вы поставили «.», в окне кода появился список-подсказка (все свойства и методы формы, которые доступны). Вы могли выбрать команду Close из списка, а могли написать вручную

Если после нажатия «.» после имени объекта подобный список не появляется – это сигнал. Значит, объекта с таким именем в вашем проекте нет – проверьте правильность написания имени.

- Проверим работу кнопки выхода.

Пробный запуск программы можно выполнить непосредственно из Delphi, не завершая работу со средой разработки. Для этого нужно из меню Run выбрать команду Run или щелкнуть на соответствующей кнопке панели инструментов Debug.

Перед тем, как программа запустится, будет произведена проверка кода на наличие ошибок. В случае обнаружения ошибки строчка, ее содержащая, будет подсвечена бордовым, а в нижней части окна кода выведется сообщение о типе ошибки.

Теперь ваша форма выведена на экран в режиме работы программы – нажмите на кнопку Выход и убедитесь в том, что форма закрывается.

- Запрограммируем кнопку вычислений.

Двойной щелчок на кнопке Считать переносит нас внутрь соответствующей процедуры в окне кода.

Как мы установили еще в процессе постановки задачи, для успешной работы программы нам понадобятся три переменные: R, S, L.

Очевидно, что, зная радиус, длина окружности и площадь круга вычисляются по формулам: L=2*3.14*R, S=3.14*R*R.

Осталось взять данные из текстового поля и поместить результат в метку на форму.

Обратите внимание: Поле Radius является текстовым, а нам необходимо задействовать его содержимое в вычислениях. Значит необходимо преобразовать строку текста в соответствующее число. Это возможно сделать в Delphi с помощью функции StrToFloat.

Тогда код процедуры для кнопки Calc (Считать) будет выглядеть так:

procedure TOkruzh.CalcClick(Sender: TObject);

var R,S,L:real;

Begin

R:=StrToFloat(Radius.Text);

S:=3.14*R*R;

L:=2*3.14*R;

Result.Caption:='S='+FloatToStr(S)+' L='+FloatToStr(L);

End;

Рассмотрим каждую строку кода:

procedure TOkruzh.CalcClick(Sender: TObject); //объявление процедуры

var R,S,L:real; // описание переменных

begin // начало процедуры

R:=StrToFloat(Radius.Text); // преобразование текста в число

S:=3.14*R*R; // вычисление площади круга

L:=2*3.14*R; // вычисление длины окружности

Result.Caption:='S='+FloatToStr(S)+' L='+FloatToStr(L); // изменение надписи метки –

вывод результатов. Строится по принципу сцепления строк в Pascal. Но для этого необходимо с помощью функции FloatToStr преобразовать числа в строки.

end; // конец процедуры.

- Запустим программу.

Обратите внимание на распространенные ошибки: не забывайте ставить в конце строки «;», правильно записывайте знак присваивания «:=», в записи действительного числа используется не запятая, а точка.

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

Обратите внимание: Если вы случайно введете в поле Radius не число, а иной символ, выполнение программы будет прервано с сообщением об ошибке.

Чтобы иметь возможность отредактировать код, в меню Run выберите пункт Program Reset.

Дата добавления: 2015-11-13