Создадим универсальный калькулятор на Delphi, который будет считать
Приступим.
Для начала нам нужен 1 Edit..сразу-же очищаем его Text, на событие OnKeyPress пишем следующий код:
Дабы обезопаситься от ввода типа:"0,1,2,33" на событие OnChange пишем следующий код
Дабы полностью обезопаситься от некорректного ввода, ставим
После того как у нас получилось неуязвимое поле, пришло время для создания кнопок калькулятора, сначала
создадим 16 кнопок (Button): Числа от 0 до 9-ти, кнопку для запятой, знака равно, знаков плюс, минус,
умножить и поделить.
Сперва стоит обеспечить ввод чисел, для этого на событие OnClick чисел от 0..9 и запятой пишем следующее:
Повторим процедуру для всех остальных чисел и знака запятой..На событие OnClick числа "0" стоит дописать ещё одну строку:
Дальше нам нужно запоминать числа которые подаются на ввод и выводить их, создадим три глобальные переменные и одну переменную типа char для запоминания математических действий:
Сначала нам нужно считать первое число, на знаки "+","-","*","/" пишем следующий код:
Стоить повторить и для остальных действий.
Далее нам нужно считать вторую переменную, по этому на событие OnClick знака равно, пишем:
Вуаля, у нас получился простейший калькулятор, но я ведь обещал вам совсем другой, по-этому создадим дополнительно 24 кнопки (Button) для разных функций;
Одну из этих кнопок называем:"Pi", на событие OnClick этой кнопки пишем:
Далее переименовываем Button`ы на "cos","sin","arctg", на событие OnClick пишем:
Проделать тоже самое с остальными функциями.
Дальше переименовываем две кнопки для вычисления sqr и sqrt..пишем:
Повторить и для "sqr"
Вы наверное спросите, а как-же насчёт ввода отрицательных чисел?
Для этого переименовываем ещё одну кнопку в "+/-"
На событие OnClick пишем:
Далее вернемся немного назад и напишем ещё пару функций для действий с двумя числами. в событии OnClick знака равно, введем две локальные переменные, например: q и w;
Теперь переименуем 6 кнопок в "mod","div","or","xor","and","x^y";
Что писать на событие OnClick этих кнопок можно прочесть выше
Теперь пришло считать второе число и вывести результат..О том как это сделать, написано выше.
В итоге текст на событии OnClick знака равно будет иметь такой вид:
Далее переименуем кнопку в "х!", на событие OnClick пишем:
Переименуем ещё две кнопки в "x^2" и "x^3" на событие OnClick кнопки "x^2" пишем:
Для кнопки "x^3" - аналогично.
Переименуем ещё одну кнопку в exp (Експонента), на OnClick Этой кнопки пишем:
Переименуем следующую кнопку в "Int" (Возвращение целой части), пишем: