ООП на Delphi – 11: Калькулятор на Delphi. Обработка исключительных ситуаций

1 Домнин Константин Михайлович 2006 год

ОС Windows

DELPHI - 11

Вопросы:
Весь урок мы будем создавать калькулятор и обрабатывать некоторые исключения

похожий на калькулятор Windows.

Windows - калькулятор

А такой мы создадим

Сначала давайте попробуем в использовании калькулятор, а затем займемся его конструированием

Попробовать ->

Кнопки цифр и действий (Вместо обычных кнопок Button возьмем кнопки BitButton – т.к на них можно менять цвет шрифта, а на обычных кнопках Windows не дает это сделать)
На кнопках сделаем соответствующие надписи, которые раскрасим через свойство Font кнопки

Edit для ввода и отображения цифр

MainMenu , в котором с помощью дизайнера создадим опции:
О программе
Вызов справки

Манифест ХР для украшения программы в стиле Windows XP

в ней будет храниться первое введенное число (арифметические операции являются двухместными, например при сложении есть два числа (переменные), а результат – третье число (переменная)
p – в ней будет храниться второе число для осуществления операции
r – здесь будет результат нашего действия
mode – переменная, в которой будем хранить код действия (например сложению поставим в соответствие код 1, делению – 2 и т.д. Это нужно для осуществления множественного выбора при выполнении действий)

на кнопку с цифрой 1

При нажатии на кнопку к тексту Edit-а прибавляется (приписывается) символ 1

При нажатии на кнопку с цифрой 2 к тексту Edit-а прибавляется символ 2

Аналогично описываем и все последующие кнопки с цифрами, а для десятичной запятой в коде будет ...+ ’ , ’

знака числа

Если содержимое Edit-a не пустое, то меняем знак числа на противоположный, и выводим результат в том же Edit-e
Заметьте, что здесь мы еще и обработали один «глюк», который может появляться, если попробовать изменить знак числа, а числа в Edit-e еще нет

Переменной i присваиваем значение, введенное в Edit

Переменной mode присваиваем 1 – код, соответствующий операции сложения

Очищаем содержимое Edit-a

Кнопка умножения

Кнопка деления

Коды кнопок аналогичны кнопке сложения

корня

И опять обрабатываем исключение (если попытаться извлечь корень из отрицательного числа, то будет ошибка)
Если содержимое Edit-a меньше нуля, то в Edit-e выводим «Недопустимый аргумент функции», иначе вычисляем корень

Кнопка 1/x

Аналогично проверяем, нет ли в Edit-e нуля: если есть, то напоминаем, что на ноль делить нельзя, иначе вычисляем

синуса

Присваиваем i значение Edit-a
Переводим i из градусов в радианы (вычисление тригонометрических функций в Паскале происходит в радианах, поэтому перед тем, как считать, надо перевести)
Отображаем в Edit-e значение синуса введенного угла (дополнительно можете обработать ситуацию, когда при вычислении синуса ничего в Edit не введено)

Кнопка извлечения косинуса (думаю здесь все понятно)

(при ее нажатии определяется код действия, затем с помощью case – выбора оно выполняется)

сложение

вычитание

Деление (и опять заметьте обработку ситуации, когда делитель оказывается равен нулю)

умножение

программе. Создание компилированного файла справки не входит в этот урок, поэтому создадим Form3, на которой выведем об этом информацию

ШАГ 3

Форма 2 (О программе)

Форма 3 (Вызов справки)

Поработайте над дизайном форм и не забудьте их «познакомить» , а для их открытия используйте метод ShowModal

мы создали свой простой, но работоспособный калькулятор. Конечно же, у него еще есть много необработанных исключений (глюков) – попробуйте их выявить и исправить.
А пока наш проект закончен, присвоим ему версию 1.000. Понятно, что функциональность программы можно значительно расширить до уровня инженерного калькулятора и это Вам уже под силу – пробуйте !

На этом наш урок закончен

калькулятор и научились обрабатывать исключительные ситуации

ИТОГИ УРОКА:

ООП на Delphi – 12:
Мы рассмотрим создание тестирующей системы

НА СЛЕДУЮЩЕМ УРОКЕ: