Строковый калькулятор на делфи скачать
прикладная математика.Калькулятор на Delphi. Создадим универсальный калькулятор на Delphi, который будет считать множество функций. Приступим.. Для начала нам нужен 1 Edit..сразу-же очищаем его Text, на событие OnKeyPress пишем следующий код: Дабы обезопаситься от ввода типа:"0,1,2,33" на событие OnChange пишем следующий код. Дабы полностью обезопаситься от некорректного ввода, ставим DragMode: dmAutomatic ; После того как у нас получилось неуязвимое поле, пришло время для создания кнопок калькулятора, сначала создадим 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" (Возвращение целой части), пишем: Следующая кнопка "not" (Возвращение противоположного числа + (-1) ).Пишем: Следующей будет кнопка "ln". Пишем: Следующая кнопка "1/х". Пишем аналогично предыдущему. Следующая - кнопка Backspace. Пишем: Осталось две кнопки, переименуем в "С" и "Close" В первой пишем: | |
|
Ссылки для скачивания:
 | |
| Всего комментариев: 0 | |