Создание программы "Калькулятор"

Размещено на http://www.allbest.ru/

Введение

В данной курсовой работе предложено создать Windows-приложение на алгоритмическом языке Object Pascal в среде визуального программирования Delphi, которое как планируется, будет обеспечивать решение специализированных задач по формированию, обработке на ЭВМ и выводу информации.

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

Среда разработки Delphi ориентирована, прежде всего, на создание программ для семейства операционных систем Windows. При этом большое внимание уделяется возможности визуальной разработки приложений с помощью большого набора готовых компонентов, а в стандартную поставку Delphi входят основные объекты, которые образуют удачно подобранную иерархию из 270 базовых классов, позволяющих избежать ручного кодирования. Эти компоненты охватывают практически все аспекты применения современных информационных технологий.

В процессе построения приложения необходимо выбирать из палитры компоненты, на основе которых будет строиться проект. Еще до компиляции видно результаты своей работы. В этом смысле проектирование в Delphi мало чем отличается от проектирования в интерпретирующей среде, однако после выполнения компиляции получаем код, который исполняется в 10-20 раз быстрее, чем то же, самое, сделанное при помощи интерпретатора. Cреда Delphi включает в себя полный набор визуальных инструментов для скоростной разработки приложений (RAD - rapid application development), поддерживающей разработку пользовательского интерфейса.

1. Постановка задачи

Поставленная задача заключается в следующем. Необходимо создать программу «Калькулятор», которая будет производить вычисление математических функций.

В данной курсовой работе требуется создать Windows-приложение на алгоритмическом языке Object Pascal в среде визуального программирования Delphi, которое обеспечивает формирование, обработку на ЭВМ и вывод информации. Предусмотреть хранение информации в типизированных файлах, содержащих не менее 10 записей. Приложение должно вычислять стандартные математические вычисления (сложение, вычитание, умножение, деление), также вычислять различные тригонометрические функции (sin, cos, tg, ctg), возведение в корень и вычислять значение из-под корня.

Степень рациональности создания данной программы оценивается как низкая. Исходя из начальных условий, необходимо выполнить тривиальную последовательность действий:

- произведение простых математических вычислений.

- обеспечивать правильное вычисление.

Данная программа, используя стандартные компоненты, с успехом будет работать в ОС-ах Windows'95, 98, 2000, ХР не требуя при этом дополнительных инсталляций программного обеспечения.

Для создания подобного приложения, которое будет удовлетворять поставленную задачу, и обеспечения функционирования математического аппарата необходимо как минимум:

1. Набор компонентов для добавления / изменения / удаления записей для добавления / изменения / удаления записей нужно использовать 2 компонента edit (для ввода и вывода цифр), и 24 button-а.

2. Использовать компонент Main menu для создания меню которое будет содержать: меню «Файл», меню «Правка», меню «Справка».

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

2. Разработка программы

Новые методы решения

При создании программы, можно использовать компонент Image, он даст возможность применять отличное от других оформление и тем самым придаст программе более красочный вид.

Этапы разработки программы

Определение требований к программе - один из важнейших этапов. На этом этапе подробно описывается исходная информация и формулируются требования к результату. Кроме того, описывается поведение программы в особых случаях.

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

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

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

Разработка интерфейса

1. Создал форму (рис. 1)

2. Разместил на форме 2 объекта Edit

3. Разместил на форме соответствующее число кнопок:

- цифры от 0 до 9;

- знаки арифметических операций;

- знак «=»;

- знаки функций (корень, синус, косинус и т.д.);

- кнопка закрытия калькулятора;

Рис. 1. Вид программы после запускаРазмещено на http://www.allbest.ru/

Написание процедур выполнения арифметических операций

I. Написал процедуры ввода чисел. Для этого щелкнул два раза по кнопке «1» (объект BitBtn1) и ввести следующий код:

procedure TForm1. BitBtn1Click (Sender: TObject);

begin

edit2. Text:=edit2. Text+'1'

end;

Аналогично написал процедуры ввода остальных цифр

II. Создал процедуру очистки поля Edit1 и Edit2, кнопка «С» (объект BitBtn11)

procedure TForm1. BitBtn22Click (Sender: TObject);

begin

edit1. Clear;

edit2. Clear;

end;

III. Создал процедуры обработки нажатий кнопок «+», «-», «/», «*» и «=». Для этого разобрал алгоритм работы с калькулятором:

- Ввел число в поле Edit2. При этом в поле Edit2 число будет представлено как текстовая строка.

- Нажал кнопку «+». В процедуре обработки этой кнопки выполнил следующие действия:

1. Преобразовал эту строку в число с помощью функции StrToFloat;

2. Сохранил это число в переменной X;

3. Сохранил в переменной, например, kod код этой операции;

- Очистил поле Edit2.

- Ввел второе число в поле Edit2.

- Нажал кнопку «=». В процедуре обработки этой кнопки выполнил следующие действия:

1. Преобразовал эту строку в число с помощью функции StrToFloat;

2. Сохранил это число в переменной Y;

3.В зависимости от кода операции, сохраненной в переменной kod, выполнил арифметическую операцию, например, z:=x+y;

4. Преобразовал число, находящееся в переменной Z, в текст с помощью функции FloatToStr и вывести в поле Edit1.

IV. Для реализации этого алгоритма я выполнил следующие действия:

1. Описал переменные X, Y, Z, kod. Описывал переменные в основной программе, модуле Unit, чтобы переменные могли действовать в любой процедуре (глобальные переменные).

var

Form1: TForm1;

kod: char;

x, y, z: real;

2. Создал процедуры обработки нажатий кнопок «+», «-», «/», «*»

Например,

procedure TForm1. BitBtn17Click (Sender: TObject);

begin

x:= strtofloat (edit1.text);

kod:= `+';

edit2. Clear;

end;

Но в ходе разработки программы я обнаружил ошибку, если в поле Edit2 ничего не введем и нажмем кнопку «+», возникает ошибка и программа завершается. Чтобы избежать этого надо проверить имеется ли в поле Edit2 символы, и в зависимости от этого условия продолжить выполнять процедуру или вернуться к вводу данных. Для этого я использовал алгоритмическую структуру «Ветвление».

Измененная процедура обработки нажатия кнопки «+»:

procedureTForm1. BitBtn17Click (Sender: TObject);

begin

if edit2. Text<>'' then x:=strtofloat (edit2.text);

kod:= `+';

edit2. Clear;

end;

Аналогично создал процедуры обработки нажатий кнопок «-», «/», «*»

3. Создал процедуру обработки нажатия кнопки «=». В этой процедуре необходимо в зависимости от значения переменной kod выполнять четыре разных операции. Такая структура называется «Множественное ветвление» или «Выбор»:

procedure TForm1. BitBtn19Click (Sender: TObject);

begin

if edit2. Text<>'' then y:=strtofloat (edit2.text);

case kod of

'+': z:=x+y;

'-': z:=x-y;

'*': z:=x*y;

'/': z:=x/y;

end;

edit1. Text:=floattostr(z);

end;

II. Создал процедуры вычисления остальных функций. При вычислении тригонометрических функций учесть, что компьютер работает с радианной мерой углов.

Процедура вычисления квадратного корня

procedure TForm1. BitBtn26Click (Sender: TObject); кнопка «корень»

begin

x:=strtofloat (edit2. Text);

edit2.clear;

z:=sqrt(x);

edit1. Text:=floattostr(z);

end;

Процедура возведения в квадратный корень

procedure TForm1. BitBtn26Click (Sender: TObject); кнопка «корень»

begin

x:=strtofloat (edit2. Text);

edit2.clear;

z:=sqr(x);

edit1. Text:=floattostr(z);

end;

Процедура вычисления функции sin

procedure TForm1. BitBtn11Click (Sender: TObject); кнопка «sin»

begin

x:=strtofloat (edit2. Text);

x:=(x*3.14)/180;

edit2. Clear;

z:=sin(x);

edit1. Text:=floattostr(z);

end;

Процедура вычисления функции cos

procedure TForm1. BitBtn11Click (Sender: TObject); кнопка «sin»

begin

x:=strtofloat (edit2. Text);

x:=(x*3.14)/180;

edit2. Clear;

z:=sin(x)/cos(x);

edit1. Text:=floattostr(z);

end;

Процедура вычисления функции tg

procedure TForm1. BitBtn11Click (Sender: TObject); кнопка «sin»

begin

x:=strtofloat (edit2. Text);

x:=(x*3.14)/180;

edit2. Clear;

z:=cos(x)/sin(x);

edit1. Text:=floattostr(z);

end;

Процедура вычисления функции ctg

procedure TForm1. BitBtn11Click (Sender: TObject); кнопка «sin»

begin

x:=strtofloat (edit2. Text);

x:=(x*3.14)/180;

edit2. Clear;

z:=sin(x)/cos(x);

edit1. Text:=floattostr(z);

end;

Написание процедур работы с меню и усовершенствование калькулятора

У любой программы имеется система меню, которая позволяет выполнять разные сервисные функции. Я создал для нашего калькулятора меню, которое будет состоять, например, из следующий пунктов: «Файл», «Правка», «Справка». Для этого: поместил на форму объект MainMenu (рис. 2).

Рис. 2. Вид компонента MainMenuРазмещено на http://www.allbest.ru/

Два раза щелкнул левой кнопкой мыши по этому объекту на форме.

Выделил в появившейся форме пунктирное поле и в инспекторе объектов в свойство Caption ввести «Файл».

Аналогично создал пункты меню «Правка» и «О программе».

В меню «Файл» создал пункт «Выход», а в «Правка» - пункты «Копировать» и «Вставить».

Закрыл форму создания меню.



Рис. 3. Вид меню Файл

procedure TForm1.N2Click (Sender: TObject);

begin

close;

end;

Рис. 4. Вид меню Правка

procedure TForm1.N4Click (Sender: TObject);

begin

Edit1. CopyToClipboard

end;

procedure TForm1.N5Click (Sender: TObject);

begin

Edit1. PasteFromClipboard;

end;

Создание справки

Для создания справки создал еще одну форму с именем «О программе», на которой разместил справочные сведения об авторе программы. Воспользовался компонентом Image и компонентом BitBtn.

Процедура открытия формы «О программе»

procedure TForm1.N8Click (Sender: TObject);

begin

Form2. Show;

end;

Создание картинок на кнопках

Создал картинки на сайте www.cooltext.com, поместил картинки на кнопки BitBtn с помощью свойства Glyph. Изначально картинки были созданы в формате. Png, так как свойство Glyph поддерживает только формат. Bmp, я перекодировал их в формат. Bmp в программе Adobe Photoshop CS3.

калькулятор программа delphi pascal

3. Описание программы

Программа Калькулятор (Калькулятор.exe) разработана в среде Delphi версии 7.

Для хранения данных в программе используются глобальные переменные типа string, char, real, integer.

Программа вычисляет стандартные математические вычисления: сложение, вычитание, умножение, деление. Также вычисляет такие функции: синус, косинус, тангенс, котангенс, возведение в корень, вычисление значения из-под корня.

4. Руководство пользователя

Данная программа предназначена для выполнения математических вычислений, имитируя действия калькулятора. Для работы с ней нужно запустить файл Калькулятор.exe. Аппаратные требования: мышь / клавиатура. Системные требования: 486 или совместимый процессор, 16 Mb RAM, ОС Windows 9x. Для работы программы требуется 1003 kb дискового пространства.

Для начала работы нужно запустить исполнимый файл Калькулятор.exe.

Инструкция по эксплуатации программы:

Выполнение простых вычислений:

1. Откройте программу калькулятор;

2. Введите первое число;

3. Нажмите кнопку + (сложение), - (вычитание), * (умножение) или / (деление);

4. Введите следующее число;

5. Нажмите кнопку =.

5. Листинг программы

unit Catman;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, jpeg, ExtCtrls, StdCtrls, Buttons;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

Edit1: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

BitBtn9: TBitBtn;

BitBtn10: TBitBtn;

BitBtn11: TBitBtn;

BitBtn12: TBitBtn;

BitBtn13: TBitBtn;

BitBtn14: TBitBtn;

BitBtn15: TBitBtn;

BitBtn16: TBitBtn;

BitBtn17: TBitBtn;

BitBtn18: TBitBtn;

BitBtn21: TBitBtn;

BitBtn22: TBitBtn;

BitBtn23: TBitBtn;

BitBtn24: TBitBtn;

Image1: TImage;

Edit2: TEdit;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

procedure N4Click (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure BitBtn3Click (Sender: TObject);

procedure BitBtn4Click (Sender: TObject);

procedure BitBtn5Click (Sender: TObject);

procedure BitBtn6Click (Sender: TObject);

procedure BitBtn7Click (Sender: TObject);

procedure BitBtn8Click (Sender: TObject);

procedure BitBtn9Click (Sender: TObject);

procedure BitBtn10Click (Sender: TObject);

procedure BitBtn18Click (Sender: TObject);

procedure BitBtn11Click (Sender: TObject);

procedure BitBtn12Click (Sender: TObject);

procedure BitBtn16Click (Sender: TObject);

procedure BitBtn15Click (Sender: TObject);

procedure BitBtn14Click (Sender: TObject);

procedure BitBtn13Click (Sender: TObject);

procedure BitBtn17Click (Sender: TObject);

procedure BitBtn20Click (Sender: TObject);

procedure BitBtn21Click (Sender: TObject);

procedure BitBtn22Click (Sender: TObject);

procedure BitBtn23Click (Sender: TObject);

procedure BitBtn24Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure N6Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure SpeedButton1Click (Sender: TObject);

procedure SpeedButton2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form1: TForm1;

kod: char;

x, y, z: real;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.N4Click (Sender: TObject);

begin

Close;

end;

procedure TForm1. BitBtn1Click (Sender: TObject);

begin

edit2. Text:=edit2. Text+'1';

edit1. Clear;

end;

procedure TForm1. BitBtn2Click (Sender: TObject);

begin

edit2. Text:=edit2. Text+'2';

edit1. Clear;

end;

procedure TForm1. BitBtn3Click (Sender: TObject);

begin

edit2. Text:=edit2. Text+'3';

edit1. Clear;

end;

procedure TForm1. BitBtn4Click (Sender: TObject);

begin

edit2. Text:=edit2. Text+'4';

edit1. Clear;

end;

procedure TForm1. BitBtn5Click (Sender: TObject);

begin

edit2. Text:=edit2. Text+'5';

edit1. Clear;

end;

procedure TForm1. BitBtn6Click (Sender: TObject);

begin

edit2. Text:=edit2. Text+'6';

edit1. Clear;

end;

procedure TForm1. BitBtn7Click (Sender: TObject);

begin

edit2. Text:=edit2. Text+'7';

edit1. Clear;

end;

procedure TForm1. BitBtn8Click (Sender: TObject);

begin

edit2. Text:=edit2. Text+'8';

edit1. Clear;

end;

procedure TForm1. BitBtn9Click (Sender: TObject);

begin

edit2. Text:=edit2. Text+'9';

edit1. Clear;

end;

procedure TForm1. BitBtn10Click (Sender: TObject);

begin

edit2. Text:=edit2. Text+'0';

edit1. Clear;

end;

procedure TForm1. BitBtn18Click (Sender: TObject);

begin

edit2. Text:=edit2. Text+', ';

edit1. Clear;

end;

procedure TForm1. BitBtn11Click (Sender: TObject);

begin

edit1. Clear;

edit2. Clear;

end;

procedure TForm1. BitBtn12Click (Sender: TObject);

begin

close;

end;

procedure TForm1. BitBtn16Click (Sender: TObject);

begin

if edit2. Text<>'' then x:=strtofloat (edit2.text);

kod:= '+';

edit2. Clear;

end;

procedure TForm1. BitBtn15Click (Sender: TObject);

begin

if edit2. Text<>'' then x:=strtofloat (edit2.text);

kod:= '-';

edit2. Clear;

end;

procedure TForm1. BitBtn14Click (Sender: TObject);

begin

if edit2. Text<>'' then x:=strtofloat (edit2.text);

kod:= '*';

edit2. Clear;

end;

procedure TForm1. BitBtn13Click (Sender: TObject);

begin

if edit2. Text<>'' then x:=strtofloat (edit2.text);

kod:= '/';

edit2. Clear;

end;

procedure TForm1. BitBtn17Click (Sender: TObject);

begin

if edit2. Text<>'' then y:=strtofloat (edit2.text);

case kod of

'+': z:=x+y;

'-': z:=x-y;

'*': z:=x*y;

'/': z:=x/y;

end;

edit1. Text:=floattostr(z);

edit2. Clear;

end;

procedure TForm1. BitBtn20Click (Sender: TObject);

begin

if edit2. Text<>'' then x:=strtofloat (edit2. Text);

edit2.clear;

z:=sqr(x);

edit1. Text:=floattostr(z);

end;

procedure TForm1. BitBtn21Click (Sender: TObject);

begin

if edit2. Text<>'' then x:=strtofloat (edit2. Text);

x:=(x*3.14)/180;

edit2. Clear;

z:=sin(x);

edit1. Text:=floattostr(z);

end;

procedure TForm1. BitBtn22Click (Sender: TObject);

begin

if edit2. Text<>'' then x:=strtofloat (edit2. Text);

x:=(x*3.14)/180;

edit2. Clear;

z:=cos(x);

edit1. Text:=floattostr(z)

end;

procedure TForm1. BitBtn23Click (Sender: TObject);

begin

if edit2. Text<>'' then x:=strtofloat (edit2. Text);

x:=(x*3.14)/180;

edit2. Clear;

z:=sin(x)/cos(x);

edit1. Text:=floattostr(z);

end;

procedure TForm1. BitBtn24Click (Sender: TObject);

begin

if edit2. Text<>'' then x:=strtofloat (edit2. Text);

x:=(x*3.14)/180;

edit2. Clear;

z:=cos(x)/sin(x);

edit1. Text:=floattostr(z)

end;

procedure TForm1.N5Click (Sender: TObject);

begin

Edit1. CopyToClipboard;

Edit2. CopyToClipboard;

end;

procedure TForm1.N6Click (Sender: TObject);

begin

Edit1. PasteFromClipboard;

Edit2. PasteFromClipboard;

end;

procedure TForm1.N7Click (Sender: TObject);

begin

form2.show;

end;

procedure TForm1. SpeedButton1Click (Sender: TObject);

begin

if edit2. Text<>'' then x:=strtofloat (edit2. Text);

edit2.clear;

z:=sqrt(x);

edit1. Text:=floattostr(z);

end;

procedure TForm1. SpeedButton2Click (Sender: TObject);

begin

if edit2. Text<>'' then x:=strtofloat (edit2. Text);

edit2.clear;

z:=sqr(x);

edit1. Text:=floattostr(z);

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm2 = class(TForm)

Image1: TImage;

Button1: TButton;

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2. Button1Click (Sender: TObject);

begin

Close;

end;

end.

Заключение

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

Выполнив курсовую работу, я убедился, что язык программирования Delphi позволяет создавать программы, способные решить задачи, связанные с обработкой, компоновкой и выводом информации в различных видах. Особенно важен вывод информации, так как он позволяет легко ориентироваться и делать различные анализы (прогнозы). Впервые создавал программу такой сложности на языке программирования Delphi, я освоил некоторые методы программирования. Особо важен при написании программы отладчик (Debuger), который контролирует ход выполнения программы и отдельных операторов различными способами, что позволяет смотреть и изменять промежуточные значения, которые влияют на конечный результат. Также были углублены и закреплены знания по алгоритмизации, программированию и решению в интегрированной визуальной среде программирования Delphi задач по экономике и управлению на предприятии.

Список литературы

1. Архангельский А.Я. Программирование в Delphi 6 - М.: ЗАО «Издательство БИНОМ», 2002 г. - 1200 с.

2. Кандзюба С.П., Громов В.Н. Delphi 6. Базы данных и приложения. Лекции и упражнения. - К.: Издательство «ДинСофт», 2001. - 576 с.

3. Фаронов В.В. Delphi 6. Учебный курс. Издательство Молгачев С.В., 2001. - 672 с.

4. Программирование в среде Delphi: Лабораторный практикум для студентов всех специальностей. Под общей редакцией Синицына А.К. - Мн.; БГУИР, 1998. - 94 с.

5. Основы информатики и вычислительной техники. Методические указания к выполнению курсовой работы для студентов факультета предпринимательства и управления специальности Э03.02.00 «Экономическая информатика». Фурунжиев Р.И. - Ротапринт БАТУ, Мн.: 2000. - 25 с.

6. Архангельский А.Я. Программирование в Delphi 6 - М.: ЗАО «Издательство БИНОМ», 2002 г. - 1200 с.

7. Кандзюба С.П., Громов В.Н. Delphi 6. Базы данных и приложения. Лекции и упражнения. - К.: Издательство «ДинСофт», 2001. - 576 с.

8. Фаронов В.В. Delphi 6. Учебный курс. Издательство Молгачев С.В., 2001. - 672 с.

9. Программирование в среде Delphi: Лабораторный практикум для студентов всех специальностей. Под общей редакцией Синицына А.К. - Мн.; БГУИР, 1998. - 94 с.

Размещено на Allbest.ru