Реклама
 


  •  

    Создадим универсальный калькулятор на 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" (Возвращение целой части), пишем:

     



  • На главную