Как сделать калькулятор в делфи 10

Такую же процедуру создадим для кнопки косинус (Cos, Button7):

//Cos
procedure TForm1.Button7Click(Sender: TObject);
begin
Label1.Caption:= ‘Cos’;
Ind:= 6; //Индекс этой кнопки равен 6
Edit2.Enabled:= false;
end;

В процедуру вычисления (=), в разделе case добавим строки:

6: begin
if RadioButton1.checked = true then x:= DegToRad(x);
z:= cos(x);
end;

И так, мы сделали вычисление функций с одним аргументом. Далее, разработаем алгоритм вычисления для функций с двумя аргументами. Выделим кнопку возведения в степень (Power, Button8) и двойным щелчком создадим событие:

// Power
procedure TForm1.Button8Click(Sender: TObject);
begin
Label1.Caption:= ‘Power’;
Ind:= 7; //Индекс этой кнопки равен 7
Edit2.Enabled:= true; //Включаем второй редактор
end;

Дописываем в процедуре (=) в разделе Case следующую строку:

Запускаем калькулятор, и убеждаемся, что возведение в степень работает исправно:

Аналогичным образом напишем процедуру для кнопки извлечения корня (Sq, Button9):

// Sq(x,n)
procedure TForm1.Button9Click(Sender: TObject);
begin
Label1.Caption:= ‘Sq’;
Ind:= 8; //Индекс этой кнопки равен 8
Edit2.Enabled:= true; //Включаем второй редактор
end;

И дописываем в раздел Case процедуры (=) следующую строку:

8: z:= power(x,1/y);
Запускаем калькулятор, и убеждаемся, что извлечение корня работает исправно:

Простой калькулятор на Delphi

Выполнить процесс создания калькулятора, который похож на такое приложение в операционной системе Windows можно, если знать, как правильно реализовать этот процесс посредством применения языка программирования Delphi. Сама процедура не является сложной, но имеет свои особенности.

Особенности создания калькулятора на языке Delphi

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

Для отображения и ввода цифр нужно добавить специальное поле Edit. Посредством компонента MainMenu есть возможность создать такие опции, как «Вызов справки» и «О программе».

На следующем этапе можно приступать к процессу объявления переменных:

• i – для хранения первого числа, которое будет вводиться;
• р – для хранения второго числа, с которым будет осуществлена математическая операция;
• r – для выведения результата;
• mode – переменная предназначенная для процесса сохранности кода действия.

Для создания кнопок цифр используется следующий программный код:

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

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

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

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

Чтобы задать процедуру, которая будет вычислять синус числа, используется такой код:

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

Здравствуйте! Как я и обещал сегодня я с вами создам простейший калькулятор. Для этого нам понадобиться среда в программирования Borland Delphi, которую вы можете найти в интернете.

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

Для начала нам нужен 1 Edit. Сразу же очищаем его Text, на событие OnKeyPress пишем следующий код:

Дабы обезопаситься от ввода типа:»0,1,2,33″ на событие OnChange пишем следующий код

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

После того как у нас получилось неуязвимое поле, пришло время для создания кнопок калькулятора, сначала создадим 16 кнопок (Button): числа от 0 до 9-ти, кнопку для запятой, знака равно, знаков плюс, минус, умножить и поделить.
Сперва стоит обеспечить ввод чисел, для этого на событие OnClick чисел от 0..9 и запятой пишем следующее:

procedure TForm1.Button7Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'1';
end;

Повторим процедуру для всех остальных чисел и знака запятой. На событие OnClick числа «0» стоит дописать ещё одну строку:

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

Сначала нам нужно считать первое число, на знаки «+»,»-«,»*»,»/» пишем следующий код:

Стоить повторить и для остальных действий.
Далее нам нужно считать вторую переменную, по этому на событие OnClick знака равно, пишем:

Вуаля, у нас получился простейший калькулятор, но я ведь обещал вам совсем другой, по-этому создадим дополнительно 24 кнопки (Button) для разных функций;
Одну из этих кнопок называем:»Pi», на событие OnClick этой кнопки пишем:

procedure TForm1.Button17Click(Sender: TObject);
begin
edit1.Text:=floattostr(pi); <Вписываем в поле число Пи>
end;

Далее переименовываем Button`ы на «cos»,»sin»,»arctg», на событие OnClick пишем:

procedure TForm1.Button18Click(Sender: TObject);
begin
edit1.Text:=floattostr(cos(strtofloat(Edit1.Text))); <В поле выводим косинус введенного числа>
end;

Проделать тоже самое с остальными функциями.
Дальше переименовываем две кнопки для вычисления sqr и sqrt пишем:

procedure TForm1.Button21Click(Sender: TObject);
begin
edit1.Text:=floattostr(sqrt(strtofloat(Edit1.Text)));
end;

Повторить и для «sqr».
Вы наверное спросите, а как-же насчёт ввода отрицательных чисел? Для этого переименовываем ещё одну кнопку в «+/-» на событие OnClick пишем:

procedure TForm1.Button23Click(Sender: TObject);
begin
edit1.Text:=floattostr(-(strtofloat(Edit1.Text)));
end;

Далее вернемся немного назад и напишем ещё пару функций для действий с двумя числами в событии OnClick знака равно, введем две локальные переменные, например: q и w;

Теперь переименуем 6 кнопок в «mod»,»div»,»or»,»xor»,»and»,»x^y»;
Что написать на событие OnClick этих кнопок можно прочесть выше.
Теперь пришло считать второе число и вывести результат. О том как это сделать, написано выше.
В итоге текст на событии OnClick знака равно будет иметь такой вид:

Далее переименуем кнопку в «х!», на событие OnClick пишем:

procedure TForm1.Button32Click(Sender: TObject);
var
x:extended;
i:integer;
begin
if edit1.Text<>'' then begin x:=strtofloat(edit1.Text);
for i:=1 to round(x)-1 do
x:=x*i;
edit1.Text:=floattostr(x);end;
end;

Переименуем ещё две кнопки в «x^2» и «x^3» на событие OnClick кнопки «x^2» пишем:

procedure TForm1.Button35Click(Sender: TObject);
begin
if edit1.Text<>'' then
edit1.Text:=
floattostr(strtofloat(edit1.Text)*strtofloat(edit1.Text));
end;

Для кнопки «x^3» — аналогично.
Переименуем ещё одну кнопку в exp (Експонента), на OnClick Этой кнопки пишем:

procedure TForm1.Button40Click(Sender: TObject);
begin
if edit1.Text<>'' then
edit1.Text:=floattostr(exp(strtofloat(edit1.Text)));
end;

Переименуем следующую кнопку в «Int» (Возвращение целой части), пишем:

procedure TForm1.Button30Click(Sender: TObject);
begin
if edit1.Text<>'' then
edit1.Text:=floattostr(trunc(strtofloat(edit1.Text)));
end;

Следующая кнопка «not» (Возвращение противоположного числа + (-1) ). Пишем:

procedure TForm1.Button29Click(Sender: TObject);
begin
if edit1.Text<>'' then
edit1.Text:=floattostr(-(trunc(strtofloat(edit1.Text))+1));
end;

Следующей будет кнопка «ln». Пишем:

procedure TForm1.Button31Click(Sender: TObject);
begin
if edit1.Text<>'' then
if strtofloat(edit1.Text)>0 then
edit1.Text:=floattostr(ln(strtofloat(edit1.Text)));
end;

Следующая кнопка «1/х». Пишем аналогично предыдущему.
Следующая — кнопка Backspace. Пишем:

procedure TForm1.Button36Click(Sender: TObject);
var
s:string;
begin
s:=edit1.Text;
delete(s,length(s),1);
edit1.Text:=s;
end;

Осталось две кнопки, переименуем в «С» и «Close»
В первой пишем:

procedure TForm1.Button38Click(Sender: TObject);
begin
edit1.Clear;
end;

procedure TForm1.Button37Click(Sender: TObject);
begin
close();
end;

Simple Calculator Tutorial

This tutorial is intended for Delphi beginners who have a somewhat steady knowledge of both the components and simple coding within Delphi. Basic processes like naming objects will not be fully described. Programming a calculator is a great way to begin learning any programming language. It offers a practical project that includes many (but not too many) elements of the language. This is just one way you could code a calculator in Delphi. There are probably many ways to this, and I fully challenge you to find new and creative methods of doing such. This specific calculator will be able to handle four mathematical functions with two numbers. Let’s begin.

This tutorial assumes knowledge in certain areas of Delphi programming, including:

• Basic Delphi unit layout. (including knowledge of procedure setups, etc.)
• Basic variable information
• Basic knowledge of the form editor windows and palettes.
• I will assume you are fairly familiar with the basic layout of Delphi; if not, I suggest you first read a few of the articles found over the internet for brand new Delphi programmers.

So the first thing we should do is open Delphi (I will be using Delphi 5, but this tutorial will likely be compatible with most versions of Delphi.) You will be presented with a new project titled «Project 1.» The project includes three detached windows: the Object Inspector, the unit windo, and the form. Now let’s build the design for the calculator.

NOTE: You will be unable to just copy and paste source code as we go along unless you name your objects the same as mine. A list of the objects used and their names are listed towards the bottom of the page. The entire source code is also provided at the bottom of the page.

Contents

The Calculator Design [ ]

My Calculator Layout

For this calculator, we will be using buttons, labels, edit boxes, and panels from the component palette. All of these components are found in the «Standard» tab of the component palette. We will want an edit box at the very top of the calculator,buttons to add numbers to this edit box, buttons to signify certain mathematical functions, a label to display our answer. You should arrange these components in any way that appeals to you, but I will offer my design for you to follow. My design can be seen to the right.

Here is a list of the components I used to create my calculator:

I suggest you use all the buttons and other components I do for coding purposes, but as said before, I also recommend you to design your calculator in any way you feel appropriate.

You can change what is displayed on the buttons and label by clicking on an individual button or the label and going to the Object Inspector. You will see a list of paramaters and one will be called «Caption.» Click on the white panel directly right of the Caption box and type in the caption you would like to see displayed. You can also change the font displayed by the buttons by changing the many options listed under the «Font» parameter or by simply selecting the white edit box right o the Font box and clicking on the small button that is labeled «. » This should bring up a font palette that will make adjusting the font much easier. You can change the font to both the label and edit box in this way, also. To change the text in the edit box, you will need to adjust the «Text» parameter. I have mine blank, and I suggest you do the same.

Let’s go ahead and compile and test our «calculator.» Do this by pressing F9 or selecting Run>Run. As you can see it looks like what we built, but it is completely useless as far as being a calculator. That’s where the coding comes in.

Coding Your Calculator [ ]

The Number Buttons (And the Decimal Point) [ ]

We will start with the most basic coding involved with this calculator: the number buttons. Their sole purpose is to make the numbers that appear on their surface to also appear in the edit box. Before we begin, let’s thoroughly plan what we want to occur when each button is pressed. We want the number to be placed into the edit box behind any numbers that already exist in the edit box. We will create a subroutine that can be called by every button when it is clicked. Creating user-generated subroutines is slightly harder than creating a regular object event, but they often lead to cleaner, more condensed code. Bring up the Unit (the window with the coding). Directly after the word implementation, begin writing your procedure. To do this, begin with the word «procedure» followed by » T(**Name of your form**).(**Name of event**) » followed by » (Sender : TObject); » You can now add code similiar to what I have shown below and read the explanation to make sure you fully understand what is happening in the code. Immediately after the code explanation, I will give you two more steps in implementing this subroutine into every number button and the decimal button.

Here is the code I used for my subroutine:

Here is a breakdown of this code:

• «NumberEdit.Text» refers to the edit box we placed at the top of the form. (I renamed all of my objects, and I encourage you to do so, too, but I am only giving you exact names of all my objects in the table at the bottom of the page. To change the name of an object, go to the Object Inspector with that object selected and change the «Name» parameter.)
• The » := » indicates that NumberEdit.Text will be changed in some way.
• What comes after » := » (» NumeberEdit.Text + (Sender as TButton).Caption; «) indicates what the original «NumberEdit.Text» will be changed to.
• By placing the name of the edit box in the portion of the code that indicates what the edit box will be changed to, we insure that the numbers we may have already punched in will stay inside the edit box when we add another number. For example if we have already punched in a 3 on our calculator, we will be able to make this value will equal 31 by simply pressing the 1. Simple as that.

• The » (Sender as TButton).Caption » portion of the code gives the code its ability to add the correct number to the edit box. The » (Sender as TButton) « part refers to the exact button pressed that caused this procedure to execute. The » .Caption » refers to this button’s caption property. Overall, this complete line of code has told the program to add the-button-that-was-clicked’s caption to whatever text already exists in » NumberEdit.Text «. This means you will have to change the caption of each button to the number you want it to input when clicked. To do this, select the button on your form, go to the object inspector, and find the «Caption» property.

Now that you have entered this code block, you have to declare the procedure. This is done in the interface section of your code, beneath the word type. All of your objects are listed here, and you can just add your variation of this code underneath the last object listed. Procedure declaration:

This code is finished, but right now, it is completely useless. This is because it is a subroutine, and nothing is «calling» it. When

I have selected «NumberButtonClick» for this button’s OnClick event.

something calls a subroutine, all of the coding in that subroutine is used by the object or other procedure that has called it. For this subroutine, we will not need to do any extra coding to call it. (Whoopee!) For our last step, we will simply call this subroutine within the Object Inspector. To do this, select one of you number buttons and go to the Object Inspector. Click on the «Events» tab and find the OnClick property. Click in the empty, gray box beside the word «OnClick». The box will turn white and a down arrow will appear to the far right of this box. Click the arrow and a list will appear. This is a list of your procedures, and you will now be able to assign one to your OnClick event. There should only be one, and it should be labeled however you named your button click procedure (I named mine «NumberButtonClick»). Select this option. That button is done. You will have to select this procedure for every number button and the decimal point button, but it’s a lot better that entering code for every single button!

Once you have called the procedure in every number button and the decimal point button, go ahead and run your project. If everything went right, it should compile, and we should be able to add numbers to the edit box by clicking each button.

Hint: You will not be able to copy and paste my code directly if you did not name your objects exactly as I did. A list of the names for each of my components can be found towards the end of this article.

The Negative Button [ ]

If you were able to get your number buttons running, you are ready to move on to the negative/positive button. First, create an OnClick event holder for this button. To do this, select the negative button on the form and select the Object Inspector. Find OnClick under the Events tab and double click the empty space to the right of the word «OnClick». This creates an event holder. Much of the work we did with the NumberButtonClick procedure has now been done for us. The procedure has been declared in the implementation section, and a code shell has been created. We just have to enter our code between the «begin» and «enter;» within the code shell. Now let’s think about exactly what we want this button to accomplish. It should turn the value of the edit box’s number to a negative if the value is positive. If the value is already negative, we want the returned value to be positive. While it may sound like we will need to build an if then else statement, it is actually easier than that with some simple math. When you multiply a positive times a negative, you will get a negative. When you multiply a negative times a negative, you will get a positive. With that in mind, it will be much simpler to just multiply whatever value is found within the edit box by -1.

Here’s the code for the negative button with an explanation following it:

• Immediately after the declaration of the procedure, the code declares two «local» variables. These variables can only be seen by this specific procedure and would not be able to be used by any other procedure/event. We will discuss «global» variables shortly.

• «OriginalNumber» is a real variable, meaning it is a number value. Any number value can be assigned to this variable including 10 or 1.61803399.

• In contrast to this, NumberEdit.Text (all of the text that is entered into the edit box at the top of the calculator) is a string variable; however, to make our mathematical function (multiplying by -1) work, we need to use a real variable. To do this, we use the StrToFloat function. This function turns a string variable into a floating point value (real) variable. While we used this function, we also multiplied by -1 but just used a negative sign.

• As seen in the top line of the statement (the statement is everything between begin and end;), we set our NumberEdit.Text that has been turned into a real variable and multiplied by -1 equal to OriginalNumber, a real variable. We now want to put this value back into the edit box; to do such, we will need to turn the real variable back into a string variable.
• The function FomatFloat formats real variables into string variables. We have used this function in the second line of the statement, setting the function and its parameters equal to the string variable TextNumber. Inside the parentheses of FormatFloat, we have two separate items. The first is most likely the most unrecognizeable. The first item is » ‘0.##########’ .» This is an essential part of the FormatFloat function. It is an indicator of exactly how the new string variable should be formatted, giving information on how many number places should be included both before and after the decimal point. The zero before the decimal point indicates that we always want at least one number before the decimal point. If there are anymore numbers before the decimal point included when the calculation is finished, they will also be added to the string. The #s behind the decimal point indicate that those number places are optional. If a value happens to include a number in any of these place holders, they will be included in the string. The last part of the FormatFloat function is the real variable OriginalNumber. This simply means that OriginalNumber is the variable that will be formatted.
• The last line of the statement simply means that the value of the string variable «TextNumber» should become the the text of NumberEdit.

The Math Function Buttons [ ]

The next coding we will add to our program is the coding needed to create the mathematical functions buttons. I will give you the code and walk-through for the addition button and then give a quick overview on how to modify that code for the subtraction, multiplication, and division buttons. First, create an OnClick event holder for the addition buttonm, and then add code similiar to this:

Here’s an explanation:

• The first thing that you might notice is that there are two new variables that were not declared within the procedure: «Math» and «FNumber». These were not declared because they will need to be used in another procedure coming up, so we will need to be delcared with a «global scope.» This means they will be accessible to all procedures within the unit. To declare a variable with a global perspective, declare it in the same format as delcaring a variable in a procedure, but do so directly beneath the word «Implementation» found towards the top of the unit. «Math» is a string variable, «FNumber» is a real variable.
• The first line of the statement simply sets the variable Math equal to the string ‘Add’. Notice ‘Add’ is between apostrophes; this is because it is an actual string not an identifier/variable.
• The second line of the statement sets the real variable FNumber equal to the function of StrToFloat(NumberEdit.Text). This is similiar to the StrToFloat function found in the negative button explanation. We will eventually need FNumber to be a floating point value, so the conversion is done in this step. It also allows us to set FNumber equal to a value and keep that value stored in memory until it is needed again.
• The last line of this statement sets the edit box back to blank, so another number can be added.

To modify this code for any of the mathematical function buttons, change the string for what the variable Math equals. If the function is subtraction, set Math equal to ‘Subtract’. Here are the strings I used:

• Addition . Math := ‘Add’
• Subtraction . Math := ‘Subtract’
• Multiplication . Math := ‘Multiply’
• Division . Math := ‘Divide’

You will see how these strings will initiate the correct function in the next step.

The Enter Button [ ]

The enter button is an extremely vital part of the calculator and one of the more complicated coding structures. In this calculator, we will use if then statements to differentiate between the math functions that need to be performed in the calculation. I will give you the coding for the overall procedure and one of the if then statements and an explanation; then, I will explain how to implement if then statements for the other math functions.

Here’s the coding for an OnClick event of the Enter button:

• In this procedure, there are three variables declared: Text (a string variable), answer (a real variable), and SNumber (a real variable).
• At the beginning of the statement, you will find the variable SNumber is set equal to the function StrToFloat(NumberEdit.Text). By now, this process should be fairly straightforward. SNumber is now the second number that will be included in the calculation, and it is formatted as a floating-point value.
• The next line begins our first if then statement. An if then statement sets a condition that must be met for the process following it to be completed. In our if then statement, the variable Math must equal ‘Add’ (this is where our varied string values comes in). If Math does equal ‘Add’, then the four lines of code following the conditional statement will be executed by the program. If the conditional statement is not met, those four lines are skipped over.
• Assuming the condition is met, the program will first read the top line. This line sets the real variable Answer equal to FNumber + SNumber. This is the heart of the addition function. The variable Answer will be set equal to the sum of FNumber and SNumber. FNumber and SNumber were pre-determined by the values inputted into the calculator’s edit box.
• The string variable «Text» is then set equal to the function FormatFloat(‘0.#####’, Answer). This process takes a floating point value (Answer) and turns it into a string value with a defined format (‘0.#####’).
• The answer of the calculation is then displayed in the label at the bottom of the calculator (Equals.Caption) through the process on the third line. The caption paramater of the label «Equals» is set equal to both the string value ‘= ‘ and the value of the string variable Text. The edit box is blanked using the clear command.
• In the last line of the if then statement the edit box is set to blank so another calculation can be made.

To format this code for any of the mathematical functions just change the conditional statement so that «Math» equals the string you assigned to that specific mathematical function. Also, change the first line of the if then statement, so the correct mathematical process is executed. For example, here is the code for the multiplication process:

Just add this statement within the enter button event handler but make sure it is separate from all other if then statements.

The Clear Value Button [ ]

I also included a clear value button on my calculator, represented by the caption «CE». This button will simply erase what is found in the edit box at the time of clicking the button. It will not erase values assigned to any of the variables. The code is very simple. It just sets the NumberEdit.Text equal to a blank string using the edit box specific command «Clear.» Here’s the code:

The Reset Button [ ]

A reset button is included towards the bottom of my calculator with the caption «Reset». This button sets many of the variables and components included in the calculator back to a rest stage. Here’s the code:

• First line of statement sets the Equals label to a blank caption.
• Second line makes the edit box blank using the command «Clear».
• Third and fourth statments set FNumber and SNumber to zero, respectively.
• The fifth line gives the variable Math a meaningless string value.

Time to Celebrate [ ]

Compile the project. Did it work? If yes, go ahead and take a moment to celebrate. You deserve it. If no, look at the errors Delphi displays and try to work through the problems. Remember: unless you named all your objects the same as mine, you will be unable to just copy and paste the source code.

Now that you’re done, you can begin thinking about how to improve your calculator. There are a lot of different things you can incorporate to build your calculator even better. Maybe you could add trig functions or add blocks so that invalid strings can be entered into the edit box. Maybe you want a message displayed when the user tries to divide by zero. It’s all up to your creativity, and I fully challenge you to add original code to your calculator; it’s the best way to master Delphi!

My Component Names [ ]

If you would like to more closely follow my calculator setup, I have listed all the components, descriptions, and names below. To change the name of an object, go to the Object Inspector with that object selected and change the «Name» parameter.

My Source Code [ ]

Here is my source code if you are interested in viewing the project in its entirety.