Разработка программы создания и уничтожения объектов в среде C++Builder

3. Button — кнопка Таблица № 3

Таблица № 4

4. MainMenu — главное меню Таблица № 5

5. Memo — многострочное окно редактирования Таблица № 6

Основные события Таблица № 7

6. Image — контейнер графического изображения Таблица № 8

7. Edit — Во всех рассматриваемых окнах вводимый и выводимый текст содержится в свойстве Text типа AnsiString. Это свойство можно устанавливать в процессе проектирования или задавать программно. Выравнивание текста, как это имело место в метках и панелях, невозможно. Перенос строк тоже невозможен. Текст, не помещающийся по длине в окно, просто сдвигается и пользователь может перемещаться по нему с помощью курсора. Свойство AutoSize в окнах редактирования имеет смысл, отличный от смысла аналогичного свойства меток: автоматически подстраивается под размер текста только высота, но не ширина окна.

8. PopupMenu — контекстное всплывающее меню Таблица № 9

5. Пошаговое описание разработки приложения Шаг 1.

Приступим к реализации проекта. Выбрав в меню File опцию NewApplication, начнем новый проект: Form1 переименуем в «Расчет генераторов на операционных усилителях», размеры Form1 скорректируем.

Рис. 1 Порядок реализации проекта Шаг 2.

Расставляем на форме необходимые элементы: элементы Edit — для полей ввода, BitBtn — для реализации функций, Label — для индикации состояний калькулятора, MainMenu — для реализации функций главного меню в приложении Рис. 2 Форма с расположенными на ней элементами прикладная программа объект визуальный программирование На форме присутствует меню со следующими пунктами:

Рис. 3 Элементы меню Шаг 3.

Переименуем компоненты в соответствии с их функцией, для облегчения ориентирования при написании кода: — Btn2nd

— BtnC

— BtnNazad

— BtnDRG

— BtnLOG

— BtnLN

— BtnHYP

— BtnSIN

— BtnCOS

— BtnTAN

— BtnPi

— Btn1toX

— BtnX2

— BtnX3

— BtnYinX

— BtnDEC

— BtnBIN

— BtnOCT

— BtnHEX

— BtnEE

— BtnLS

— BtnPS

— BtnDel

— Btn0

— BtnDot

— BtnPM

— Btn1

— Btn2

— Btn3

— Btn4

— Btn5

— Btn6

— Btn7

— Btn8

— Btn9

— Btn_A

— Btn_B

— Btn_C

— Btn_D

— Btn_E

— Btn_F

— BtnUmnoj

— BtnMinus

— BtnPlus

— BtnRavno

— L2nd

— LDEG

— LRAD

— LGRAD

— LDEC

— LBIN

— LOCT

— LHEX

Рис. 4 Имена кнопок на форме Рис. 5 Label1, EditM1, ButtonM1, ButtonMR1, Label2, EditM2, ButtonM2, ButtonMR2, Label3, EditM3, ButtonM3, ButtonMR3

Рис. 6 Edit4

Шаг 4.

Реализуем переключение функций в приложении (кнопка Btn2nd)

Для этого обработаем событие OnClick кнопки Btn2nd (смотри листинг программы) Рис. 7 Окно программы с включенным выбором вторичных функций Шаг 5.

Определим действия для каждой кнопки (смотреть листинг программы) Далее следует несколько примеров работы функций:

Рис. 8 Реализация операции сложения Рис. 9 Реализация операции синус Рис. 10 Реализация перевода чисел в различные системы счисления Шаг 6.

Создадим новую форму Form2, в которую поместим элементы для отображения окна «О программе». Сюда входят компоненты TImage и компоненты Label

Рис. 11 Форма окна «О программе»

Для вызова этого окна в пункте меню «Справка -> О программе» создадим обработчик вызова формы:

void __fastcall TForm1: N8Click (TObject *Sender)

{

Form2->Visible=true;

}

Шаг 7.

Аналогичным образом создадим новую форму Form3, куда поместим элементы, необходимые для реализации перевода обыкновенных дробей в десятичные и обратно Рис. 12 Форма окна редактора дробных чисел На данной форме присутствуют 8 элементов TEdit, 20 элементов TButton, 4 элемента TGroupBox

Элементы имеют следующие имена:

Элементы группы «Число1. Правильная дробь» :

Edit1, Edit2, Edit3

" В правильную дробь" - Button1

" В десятичную дробь" - Button2

" В основное окно" - Button3

Элементы группы «Число2. Правильная дробь» :

Edit5, Edit6, Edit7

" В правильную дробь" - Button9

" В десятичную дробь" - Button10

" В основное окно" - Button11

Элементы группы «Число1. Десятичная дробь» :

Edit4

" В правильную дробь" - Button4

" В десятичную дробь" - Button5

" В основное окно" - Button6

" Из основного окна" - Button7

" Сброс" - Button9

Элементы группы «Число2. Десятичная дробь» :

Edit8

" В правильную дробь" - Button12

" В десятичную дробь" - Button13

" В основное окно" - Button14

" Из основного окна" - Button15

" Сброс" - Button16

" +" - Button17

" -" - Button19

" *" - Button20

" /" - Button21

Для вызова этого окна из пункта меню «Дополнительно -> Работа с дробями» создадим обработчик вызова формы:

void __fastcall TForm1: N6Click (TObject *Sender)

{

Form3->Visible=true;

}

Шаг 8.

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

С детальной реализацией алгоритма можно ознакомиться в листинге программы.

Рис. 13 Пример работы обработчика дробных чисел

6. Код программы Листинг 1. Код основного модуля Unit1. cpp

//—————————————————————————————————————;

#include

#include

#pragma hdrstop

#include «Unit1.h»

#include «Unit2.h»

#include «Unit3.h»

//—————————————————————————————————————;

#pragma package (smart_init)

#pragma link «XPManifest»

#pragma resource «*.dfm»

TForm1 *Form1;

//—————————————————————————————————————;

__fastcall TForm1: TForm1(TComponent* Owner)

: TForm (Owner)

{

}

//—————————————————————————————————————;

unsigned int ConvOp;

div_t Result;

void __fastcall TForm1: Btn1Click (TObject *Sender)

{

AnsiString Data;

if (OState==1)

{Edit4->Text="1″ ;

OState=0;

}

else

{

if (EEState==1)

{

Data=Edit4->Text;

Data[Data.Length ()-1]=Data[Data.Length ()];

Data[Data.Length ()]='1';

Edit4->Text=Data;

}

else

{if (Edit4->Text=="0″)

Edit4->Text="1″ ;

else

Edit4->Text=Edit4->Text+" 1″ ;

}

}

SecondFClear ();

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnEEClick (TObject *Sender)

{

if (EEState==1)

EEState=0;

else

{EEState=1;

Edit4->Text=Edit4->Text+" e+00″ ;

}

}

//—————————————————————————————————————;

void __fastcall TForm1: N8Click (TObject *Sender)

{

Form2->Visible=true;

}

//—————————————————————————————————————;

void __fastcall TForm1: Btn2ndClick (TObject *Sender)

{

if (SecondState==0)

SecondState=1;

else SecondState=0;

StateAnalis ();

if (SecondState==0)

{BtnDRG->Caption="DRG" ;

BtnLOG->Caption="LOG" ;

BtnLN->Caption="LN" ;

BtnNazad->Caption="<—-" ;

BtnHYP->Caption="HYP" ;

BtnSIN->Caption="SIN" ;

BtnCOS->Caption="COS" ;

BtnTAN->Caption="TAN" ;

BtnC->Caption="C" ;

BtnPi->Caption="Pi" ;

Btn1toX->Caption="1/x" ;

BtnX2->Caption="x²″ ;

BtnX3->Caption="x³″ ;

BtnYinX->Caption="x^y" ;

BtnDEC->Caption="DEC" ;

BtnEE->Caption="EE" ;

BtnLS->Caption="(«;

BtnPS->Caption=")" ;

BtnDel->Caption="/" ;

BtnBIN->Caption="BIN" ;

Btn7->Caption="7″ ;

Btn8->Caption="8″ ;

Btn9->Caption="9″ ;

BtnUmnoj->Caption="*" ;

BtnHEX->Caption="HEX" ;

Btn4->Caption="4″ ;

Btn5->Caption="5″ ;

Btn6->Caption="6″ ;

BtnMinus->Caption="-" ;

BtnOCT->Caption="OCT" ;

Btn1->Caption="1″ ;

Btn2->Caption="2″ ;

Btn3->Caption="3″ ;

BtnPlus->Caption="+" ;

Btn0->Caption="0″ ;

BtnDot->Caption="." ;

BtnPM->Caption="±" ;

BtnRavno->Caption="=";

}

else

{BtnDRG->Caption="DRG>" ;

BtnLOG->Caption="10^x" ;

BtnLN->Caption="e^x" ;

BtnNazad->Caption="" ;

BtnHYP->Caption="" ;

BtnSIN->Caption="SIN^-1″ ;

BtnCOS->Caption="COS^-1″ ;

BtnTAN->Caption="TAN^-1″ ;

BtnC->Caption="CE" ;

BtnPi->Caption="" ;

Btn1toX->Caption="" ;

BtnX2->Caption="sqr (x)" ;

BtnX3->Caption="qr (x)" ;

BtnYinX->Caption="x ro y" ;

BtnDEC->Caption="FLO" ;

BtnEE->Caption="" ;

BtnLS->Caption="" ;

BtnPS->Caption="" ;

BtnDel->Caption="p>r" ;

BtnBIN->Caption="SCI" ;

Btn7->Caption="7″ ;

Btn8->Caption="8″ ;

Btn9->Caption="9″ ;

BtnUmnoj->Caption="r>p" ;

BtnHEX->Caption="ENG" ;

Btn4->Caption="4″ ;

Btn5->Caption="5″ ;

Btn6->Caption="6″ ;

BtnMinus->Caption="" ;

BtnOCT->Caption="%" ;

Btn1->Caption="1″ ;

Btn2->Caption="2″ ;

Btn3->Caption="3″ ;

BtnPlus->Caption="" ;

Btn0->Caption="0″ ;

BtnDot->Caption="." ;

BtnPM->Caption="±" ;

BtnRavno->Caption="=";

}

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnDRGClick (TObject *Sender)

{

if (DRGState≠2)

DRGState++;

else DRGState=0;

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: FormCreate (TObject *Sender)

{

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnDECClick (TObject *Sender)

{

Btn0->Enabled=1;

Btn1->Enabled=1;

Btn2->Enabled=1;

Btn3->Enabled=1;

Btn4->Enabled=1;

Btn5->Enabled=1;

Btn6->Enabled=1;

Btn7->Enabled=1;

Btn8->Enabled=1;

Btn9->Enabled=1;

Btn_A->Enabled=0;

Btn_B->Enabled=0;

Btn_C->Enabled=0;

Btn_D->Enabled=0;

Btn_E->Enabled=0;

Btn_F->Enabled=0;

BtnDot->Enabled=1;

BtnPM->Enabled=1;

Edit4->Text=SSConvToDec (Edit4->Text, SSState);

SSState=0;

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnBINClick (TObject *Sender)

{

Btn0->Enabled=1;

Btn1->Enabled=1;

Btn2->Enabled=0;

Btn3->Enabled=0;

Btn4->Enabled=0;

Btn5->Enabled=0;

Btn6->Enabled=0;

Btn7->Enabled=0;

Btn8->Enabled=0;

Btn9->Enabled=0;

Btn_A->Enabled=0;

Btn_B->Enabled=0;

Btn_C->Enabled=0;

Btn_D->Enabled=0;

Btn_E->Enabled=0;

Btn_F->Enabled=0;

BtnDot->Enabled=0;

BtnPM->Enabled=0;

Edit4->Text=SSConvToNeeded (Edit4->Text, SSState, 1);

SSState=1;

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnHEXClick (TObject *Sender)

{

Btn0->Enabled=1;

Btn1->Enabled=1;

Btn2->Enabled=1;

Btn3->Enabled=1;

Btn4->Enabled=1;

Btn5->Enabled=1;

Btn6->Enabled=1;

Btn7->Enabled=1;

Btn8->Enabled=1;

Btn9->Enabled=1;

Btn_A->Enabled=1;

Btn_B->Enabled=1;

Btn_C->Enabled=1;

Btn_D->Enabled=1;

Btn_E->Enabled=1;

Btn_F->Enabled=1;

BtnDot->Enabled=0;

BtnPM->Enabled=0;

Edit4->Text=SSConvToNeeded (Edit4->Text, SSState, 2);

SSState=2;

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: Btn210Click (TObject *Sender)

{

SSState=4;

StateAnalis ();

Btn0->Enabled=1;

Btn1->Enabled=1;

Btn2->Enabled=0;

Btn3->Enabled=0;

Btn4->Enabled=0;

Btn5->Enabled=0;

Btn6->Enabled=0;

Btn7->Enabled=0;

Btn8->Enabled=0;

Btn9->Enabled=0;

Btn_A->Enabled=0;

Btn_B->Enabled=0;

Btn_C->Enabled=0;

Btn_D->Enabled=0;

Btn_E->Enabled=0;

Btn_F->Enabled=0;

BtnDot->Enabled=0;

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnOCTClick (TObject *Sender)

{

Btn0->Enabled=1;

Btn1->Enabled=1;

Btn2->Enabled=1;

Btn3->Enabled=1;

Btn4->Enabled=1;

Btn5->Enabled=1;

Btn6->Enabled=1;

Btn7->Enabled=1;

Btn8->Enabled=0;

Btn9->Enabled=0;

Btn_A->Enabled=0;

Btn_B->Enabled=0;

Btn_C->Enabled=0;

Btn_D->Enabled=0;

Btn_E->Enabled=0;

Btn_F->Enabled=0;

BtnDot->Enabled=0;

BtnPM->Enabled=0;

Edit4->Text=SSConvToNeeded (Edit4->Text, SSState, 3);

SSState=3;

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: Btn2Click (TObject *Sender)

{

AnsiString Data;

if (OState==1)

{Edit4->Text="2″ ;

OState=0;

}

else

{

if (EEState==1)

{

Data=Edit4->Text;

Data[Data.Length ()-1]=Data[Data.Length ()];

Data[Data.Length ()]=50;

Edit4->Text=Data;

}

else

{if (Edit4->Text=="0″)

Edit4->Text="2″ ;

else

Edit4->Text=Edit4->Text+" 2″ ;

}

}

SecondFClear ();

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: Btn3Click (TObject *Sender)

{

AnsiString Data;

if (OState==1)

{Edit4->Text="3″ ;

OState=0;

}

else

{

if (EEState==1)

{

Data=Edit4->Text;

Data[Data.Length ()-1]=Data[Data.Length ()];

Data[Data.Length ()]=51;

Edit4->Text=Data;

}

else

{if (Edit4->Text=="0″)

Edit4->Text="3″ ;

else

Edit4->Text=Edit4->Text+" 3″ ;

}

}

SecondFClear ();

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: Btn4Click (TObject *Sender)

{

AnsiString Data;

if (OState==1)

{Edit4->Text="4″ ;

OState=0;

}

else

{

if (EEState==1)

{

Data=Edit4->Text;

Data[Data.Length ()-1]=Data[Data.Length ()];

Data[Data.Length ()]=52;

Edit4->Text=Data;

}

else

{if (Edit4->Text=="0″)

Edit4->Text="4″ ;

else

Edit4->Text=Edit4->Text+" 4″ ;

}

}

SecondFClear ();

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: Btn5Click (TObject *Sender)

{

AnsiString Data;

if (OState==1)

{Edit4->Text="5″ ;

OState=0;

}

else

{

if (EEState==1)

{

Data=Edit4->Text;

Data[Data.Length ()-1]=Data[Data.Length ()];

Data[Data.Length ()]=53;

Edit4->Text=Data;

}

else

{if (Edit4->Text=="0″)

Edit4->Text="5″ ;

else

Edit4->Text=Edit4->Text+" 5″ ;

}

}

SecondFClear ();

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: Btn6Click (TObject *Sender)

{

AnsiString Data;

if (OState==1)

{Edit4->Text="6″ ;

OState=0;

}

else

{

if (EEState==1)

{

Data=Edit4->Text;

Data[Data.Length ()-1]=Data[Data.Length ()];

Data[Data.Length ()]=54;

Edit4->Text=Data;

}

else

{if (Edit4->Text=="0″)

Edit4->Text="6″ ;

else

Edit4->Text=Edit4->Text+" 6″ ;

}

}

SecondFClear ();

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: Btn7Click (TObject *Sender)

{

AnsiString Data;

if (OState==1)

{Edit4->Text="7″ ;

OState=0;

}

else

{

if (EEState==1)

{

Data=Edit4->Text;

Data[Data.Length ()-1]=Data[Data.Length ()];

Data[Data.Length ()]=55;

Edit4->Text=Data;

}

else

{if (Edit4->Text=="0″)

Edit4->Text="7″ ;

else

Edit4->Text=Edit4->Text+" 7″ ;

}

}

SecondFClear ();

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: Btn8Click (TObject *Sender)

{

AnsiString Data;

if (OState==1)

{Edit4->Text="8″ ;

OState=0;

}

else

{

if (EEState==1)

{

Data=Edit4->Text;

Data[Data.Length ()-1]=Data[Data.Length ()];

Data[Data.Length ()]=56;

Edit4->Text=Data;

}

else

{if (Edit4->Text=="0″)

Edit4->Text="8″ ;

else

Edit4->Text=Edit4->Text+" 8″ ;

}

}

SecondFClear ();

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: Btn9Click (TObject *Sender)

{

AnsiString Data;

if (OState==1)

{Edit4->Text="9″ ;

OState=0;

}

else

{

if (EEState==1)

{

Data=Edit4->Text;

Data[Data.Length ()-1]=Data[Data.Length ()];

Data[Data.Length ()]=57;

Edit4->Text=Data;

}

else

{if (Edit4->Text=="0″)

Edit4->Text="9″ ;

else

Edit4->Text=Edit4->Text+" 9″ ;

}

}

SecondFClear ();

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnPMClick (TObject *Sender)

{

double a;

a=StrToFloat (Edit4->Text);

a=0-a;

Edit4->Text=FloatToStr (a);

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnCClick (TObject *Sender)

{

Btn0->Enabled=1;

Btn1->Enabled=1;

Btn2->Enabled=1;

Btn3->Enabled=1;

Btn4->Enabled=1;

Btn5->Enabled=1;

Btn6->Enabled=1;

Btn7->Enabled=1;

Btn8->Enabled=1;

Btn9->Enabled=1;

Btn_A->Enabled=0;

Btn_B->Enabled=0;

Btn_C->Enabled=0;

Btn_D->Enabled=0;

Btn_E->Enabled=0;

Btn_F->Enabled=0;

BtnDot->Enabled=1;

BtnPM->Enabled=1;

Edit4->Text="0″ ;

SecondFClear ();

OpBuffer1=0;

OpBuffer2=0;

DRGState=0;

SSState=0;

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnDotClick (TObject *Sender)

{

if (DotState==0)

Edit4->Text=Edit4->Text+" ," ;

else;

}

//—————————————————————————————————————;

void __fastcall TForm1: Btn0Click (TObject *Sender)

SSState==4)

Edit4->Text=Edit4->Text+" 0″ ;

//—————————————————————————————————————;

void __fastcall TForm1: BtnPlusClick (TObject *Sender)

{

OState=1;

OpBuffer2=OpBuffer1;

OpBuffer1=StrToFloat (Edit4->Text);

OpCod=1;

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnRavnoClick (TObject *Sender)

{

float a;

switch (OpCod)

{

case 0:

{

a=StrToFloat (Edit4->Text);

Edit4->Text=a;

OState=-1;

OpCod=0;

}

break;

case 1:

{

OpBuffer2=OpBuffer1;

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=OpBuffer1+OpBuffer2;

Edit4->Text=FloatToStr (OpBuffer1);

OState=-1;

OpCod=0;

}

break;

case 2:

{

OpBuffer2=OpBuffer1;

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=OpBuffer2-OpBuffer1;

Edit4->Text=FloatToStr (OpBuffer1);

OState=-1;

OpCod=0;

}

break;

case 3:

{

OpBuffer2=OpBuffer1;

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=OpBuffer2*OpBuffer1;

Edit4->Text=FloatToStr (OpBuffer1);

OState=-1;

OpCod=0;

}

break;

case 4:

{

OpBuffer2=OpBuffer1;

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=OpBuffer2/OpBuffer1;

Edit4->Text=FloatToStr (OpBuffer1);

OState=-1;

OpCod=0;

}

break;

case 5:

{

OpBuffer2=OpBuffer1;

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=pow (OpBuffer2,OpBuffer1);

Edit4->Text=FloatToStr (OpBuffer1);

OState=-1;

OpCod=0;

}

break;

}

EEState=0;

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnMinusClick (TObject *Sender)

{

OState=1;

OpBuffer2=OpBuffer1;

OpBuffer1=StrToFloat (Edit4->Text);

OpCod=2;

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnUmnojClick (TObject *Sender)

{

OState=1;

OpBuffer2=OpBuffer1;

OpBuffer1=StrToFloat (Edit4->Text);

OpCod=3;

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnDelClick (TObject *Sender)

{

OState=1;

OpBuffer2=OpBuffer1;

OpBuffer1=StrToFloat (Edit4->Text);

OpCod=4;

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnSINClick (TObject *Sender)

{

if (SecondState==0)

{switch (DRGState)

{

case 0:

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=sin (Pi*OpBuffer1/180);

Edit4->Text=FloatToStr (OpBuffer1);

}

break;

case 1:

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=sin (OpBuffer1);

Edit4->Text=FloatToStr (OpBuffer1);

}

break;

case 2:

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=sin (Pi*OpBuffer1/200);

Edit4->Text=FloatToStr (OpBuffer1);

}

break;

}

}

else

switch (DRGState)

{

case 0:

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=180*asin (OpBuffer1)/Pi;

Edit4->Text=FloatToStr (OpBuffer1);

}

break;

case 1:

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=asin (OpBuffer1);

Edit4->Text=FloatToStr (OpBuffer1);

}

break;

case 2:

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=200*asin (OpBuffer1)/Pi;

Edit4->Text=FloatToStr (OpBuffer1);

}

break;

}

SecondFClear ();

StateAnalis ();

OState=-1;

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnCOSClick (TObject *Sender)

{

if (SecondState==0)

{switch (DRGState)

{

case 0:

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=cos (Pi*OpBuffer1/180);

Edit4->Text=OpBuffer1;

}

break;

case 1:

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=cos (OpBuffer1);

Edit4->Text=OpBuffer1;

}

break;

case 2:

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=cos (Pi*OpBuffer1/200);

Edit4->Text=OpBuffer1;

}

break;

}

}

else

switch (DRGState)

{

case 0:

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=180*acos (OpBuffer1)/Pi;

Edit4->Text=OpBuffer1;

}

break;

case 1:

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=acos (OpBuffer1);

Edit4->Text=OpBuffer1;

}

break;

case 2:

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=200*acos (OpBuffer1)/Pi;

Edit4->Text=OpBuffer1;

}

break;

}

SecondFClear ();

StateAnalis ();

OState=-1;

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnTANClick (TObject *Sender)

{

if (SecondState==0)

{switch (DRGState)

{

case 0:

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=tan (Pi*OpBuffer1/180);

Edit4->Text=OpBuffer1;

}

break;

case 1:

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=tan (OpBuffer1);

Edit4->Text=OpBuffer1;

}

break;

case 2:

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=tan (Pi*OpBuffer1/200);

Edit4->Text=OpBuffer1;

}

break;

}

}

else

switch (DRGState)

{

case 0:

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=180*atan (OpBuffer1)/Pi;

Edit4->Text=OpBuffer1;

}

break;

case 1:

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=atan (OpBuffer1);

Edit4->Text=OpBuffer1;

}

break;

case 2:

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=200*atan (OpBuffer1)/Pi;

Edit4->Text=OpBuffer1;

}

break;

}

SecondFClear ();

StateAnalis ();

OState=-1;

}

//—————————————————————————————————————;

void __fastcall TForm1: Btn1toXClick (TObject *Sender)

{

if (SecondState==0&&Edit4->Text≠"0″)

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=1/OpBuffer1;

Edit4->Text=OpBuffer1;

}

else

{

//Операции, которые, быть может, будут назначены

//этой кнопке в качестве второй функции:)

}

SecondFClear ();

StateAnalis ();

OState=-1;

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnX2Click (TObject *Sender)

{

if (SecondState==0)

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=pow (OpBuffer1,2);

Edit4->Text=OpBuffer1;

}

else

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=pow (OpBuffer1,0.5);

Edit4->Text=OpBuffer1;

}

SecondFClear ();

StateAnalis ();

OState=-1;

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnX3Click (TObject *Sender)

{

double a=1,b=3;

a=a/b;

if (SecondState==0)

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=pow (OpBuffer1,3);

Edit4->Text=OpBuffer1;

}

else

{

OpBuffer1=StrToFloat (Edit4->Text);

OpBuffer1=pow (OpBuffer1,a);

Edit4->Text=OpBuffer1;

}

SecondFClear ();

StateAnalis ();

OState=-1;

}

void __fastcall TForm1: BtnYinXClick (TObject *Sender)

{

OState=1;

OpBuffer2=OpBuffer1;

OpBuffer1=StrToFloat (Edit4->Text);

OpCod=5;

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnPiClick (TObject *Sender)

{

Edit4->Text=Pi;

OState=-1;

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnNazadClick (TObject *Sender)

{

if (Edit4->Text.Length ()==1)

Edit4->Text=0;

else

Edit4->Text=Edit4->Text.Delete (Edit4->Text.Length (), 1);

}

//—————————————————————————————————————;

void __fastcall TForm1: ButtonM1Click (TObject *Sender)

{

EditM1->Text=Edit4->Text;

}

//—————————————————————————————————————;

void __fastcall TForm1: ButtonMR1Click (TObject *Sender)

{

Edit4->Text=EditM1->Text;

}

//—————————————————————————————————————;

void __fastcall TForm1: Button1Click (TObject *Sender)

{

EditM2->Text=Edit4->Text;

}

//—————————————————————————————————————;

void __fastcall TForm1: Button2Click (TObject *Sender)

{

Edit4->Text=EditM2->Text;

}

//—————————————————————————————————————;

void __fastcall TForm1: Button3Click (TObject *Sender)

{

EditM3->Text=Edit4->Text;

}

//—————————————————————————————————————;

void __fastcall TForm1: Button4Click (TObject *Sender)

{

Edit4->Text=EditM3->Text;

}

//—————————————————————————————————————;

void __fastcall TForm1: Btn_AClick (TObject *Sender)

{

AnsiString Data;

if (OState==1)

{Edit4->Text="A" ;

OState=0;

}

else

{

if (EEState==1)

{

Data=Edit4->Text;

Data[Data.Length ()-1]=Data[Data.Length ()];

Data[Data.Length ()]='A';

Edit4->Text=Data;

}

else

{if (Edit4->Text=="0″)

Edit4->Text="A" ;

else

Edit4->Text=Edit4->Text+" A" ;

}

}

SecondFClear ();

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: Btn_BClick (TObject *Sender)

{

AnsiString Data;

if (OState==1)

{Edit4->Text="B" ;

OState=0;

}

else

{

if (EEState==1)

{

Data=Edit4->Text;

Data[Data.Length ()-1]=Data[Data.Length ()];

Data[Data.Length ()]='B';

Edit4->Text=Data;

}

else

{if (Edit4->Text=="0″)

Edit4->Text="B" ;

else

Edit4->Text=Edit4->Text+" B" ;

}

}

SecondFClear ();

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: Btn_CClick (TObject *Sender)

{

AnsiString Data;

if (OState==1)

{Edit4->Text="C" ;

OState=0;

}

else

{

if (EEState==1)

{

Data=Edit4->Text;

Data[Data.Length ()-1]=Data[Data.Length ()];

Data[Data.Length ()]='C';

Edit4->Text=Data;

}

else

{if (Edit4->Text=="0″)

Edit4->Text="C" ;

else

Edit4->Text=Edit4->Text+" C" ;

}

}

SecondFClear ();

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: Btn_DClick (TObject *Sender)

{

AnsiString Data;

if (OState==1)

{Edit4->Text="D" ;

OState=0;

}

else

{

if (EEState==1)

{

Data=Edit4->Text;

Data[Data.Length ()-1]=Data[Data.Length ()];

Data[Data.Length ()]='D';

Edit4->Text=Data;

}

else

{if (Edit4->Text=="0″)

Edit4->Text="D" ;

else

Edit4->Text=Edit4->Text+" D" ;

}

}

SecondFClear ();

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: Btn_EClick (TObject *Sender)

{

AnsiString Data;

if (OState==1)

{Edit4->Text="E" ;

OState=0;

}

else

{

if (EEState==1)

{

Data=Edit4->Text;

Data[Data.Length ()-1]=Data[Data.Length ()];

Data[Data.Length ()]='E';

Edit4->Text=Data;

}

else

{if (Edit4->Text=="0″)

Edit4->Text="E" ;

else

Edit4->Text=Edit4->Text+" E" ;

}

}

SecondFClear ();

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: Btn_FClick (TObject *Sender)

{

AnsiString Data;

if (OState==1)

{Edit4->Text="F" ;

OState=0;

}

else

{

if (EEState==1)

{

Data=Edit4->Text;

Data[Data.Length ()-1]=Data[Data.Length ()];

Data[Data.Length ()]='F';

Edit4->Text=Data;

}

else

{if (Edit4->Text=="0″)

Edit4->Text="F" ;

else

Edit4->Text=Edit4->Text+" F" ;

}

}

SecondFClear ();

StateAnalis ();

}

//—————————————————————————————————————;

void __fastcall TForm1: N6Click (TObject *Sender)

{

Form3->Visible=true;

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnHYPClick (TObject *Sender)

{

OState=-1;

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnLOGClick (TObject *Sender)

{

OState=-1;

}

//—————————————————————————————————————;

void __fastcall TForm1: BtnLNClick (TObject *Sender)

{

OState=-1;

}

//—————————————————————————————————————;

void __fastcall TForm1: N4Click (TObject *Sender)

{

Close ();

}

//—————————————————————————————————————;

Листинг 2. Код header-файла основного модуля программы Unit1. h

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

//—————————————————————————————————————;

#ifndef Unit1H

#define Unit1H

//—————————————————————————————————————;

#include

#include

#include

#include

#include

#include

#include

#include «XPManifest.h»

#include

#include

//—————————————————————————————————————;

bool SecondState=0,

EEState=0,

PMState=0,

DotState=0,

OState=0;

int DRGState=0,

SSState=0,

OpCod=0;

double

OpBuffer1=0,

OpBuffer2=0,

Pi=3.inf

;

AnsiString SSOpBuf;

lass TForm1: public TForm

{

__published: // IDE-managed Components

TMainMenu *MainMenu1;

TMenuItem *N1;

TMenuItem *N2;

TMenuItem *N3;

TMenuItem *N6;

TPanel *Panel1;

TBitBtn *Btn2nd;

TBitBtn *BtnDRG;

TBitBtn *BtnLOG;

TBitBtn *BtnLN;

TBitBtn *BtnHYP;

TBitBtn *BtnSIN;

TBitBtn *BtnCOS;

TBitBtn *BtnTAN;

TBitBtn *BtnYinX;

TBitBtn *BtnPi;

TBitBtn *Btn1toX;

TBitBtn *BtnX2;

TBitBtn *BtnX3;

TBitBtn *BtnDel;

TBitBtn *BtnC;

TBitBtn *BtnEE;

TBitBtn *BtnLS;

TBitBtn *BtnPS;

TBitBtn *BtnNazad;

TBitBtn *Btn7;

TBitBtn *Btn8;

TBitBtn *Btn9;

TBitBtn *Btn4;

TBitBtn *Btn5;

TBitBtn *Btn6;

TBitBtn *Btn1;

TBitBtn *Btn2;

TBitBtn *Btn3;

TBitBtn *Btn0;

TBitBtn *BtnDot;

TBitBtn *BtnPM;

TBitBtn *BtnRavno;

TBitBtn *BtnPlus;

TBitBtn *BtnMinus;

TBitBtn *BtnUmnoj;

TEdit *EditM1;

TLabel *Label1;

TEdit *EditM2;

TLabel *Label2;

TEdit *EditM3;

TLabel *Label3;

TEdit *Edit4;

TMenuItem *N8;

TBitBtn *BtnOCT;

TBitBtn *BtnDEC;

TBitBtn *BtnBIN;

TBitBtn *BtnHEX;

TPanel *Panel2;

TLabel *L2nd;

TLabel *LDEG;

TLabel *LRAD;

TLabel *LGRAD;

TLabel *LOCT;

TLabel *LHEX;

TLabel *LBIN;

TLabel *LDEC;

TBitBtn *ButtonM1;

TBitBtn *ButtonMR1;

TBitBtn *Btn_A;

TBitBtn *Btn_B;

TBitBtn *Btn_C;

TBitBtn *Btn_D;

TBitBtn *Btn_E;

TBitBtn *Btn_F;

TXPManifest *XPManifest1;

TMenuItem *N4;

void __fastcall Btn1Click (TObject *Sender);

void __fastcall BtnEEClick (TObject *Sender);

void __fastcall N8Click (TObject *Sender);

void __fastcall Btn2ndClick (TObject *Sender);

void __fastcall BtnDRGClick (TObject *Sender);

void __fastcall FormCreate (TObject *Sender);

void __fastcall BtnDECClick (TObject *Sender);

void __fastcall BtnBINClick (TObject *Sender);

void __fastcall BtnHEXClick (TObject *Sender);

void __fastcall Btn210Click (TObject *Sender);

void __fastcall BtnOCTClick (TObject *Sender);

void __fastcall Btn2Click (TObject *Sender);

void __fastcall Btn3Click (TObject *Sender);

void __fastcall Btn4Click (TObject *Sender);

void __fastcall Btn5Click (TObject *Sender);

void __fastcall Btn6Click (TObject *Sender);

void __fastcall Btn7Click (TObject *Sender);

void __fastcall Btn8Click (TObject *Sender);

void __fastcall Btn9Click (TObject *Sender);

void __fastcall BtnPMClick (TObject *Sender);

void __fastcall BtnCClick (TObject *Sender);

void __fastcall BtnDotClick (TObject *Sender);

void __fastcall Btn0Click (TObject *Sender);

void __fastcall BtnPlusClick (TObject *Sender);

void __fastcall BtnRavnoClick (TObject *Sender);

void __fastcall BtnMinusClick (TObject *Sender);

void __fastcall BtnUmnojClick (TObject *Sender);

void __fastcall BtnDelClick (TObject *Sender);

void __fastcall BtnSINClick (TObject *Sender);

void __fastcall BtnCOSClick (TObject *Sender);

void __fastcall BtnTANClick (TObject *Sender);

void __fastcall Btn1toXClick (TObject *Sender);

void __fastcall BtnX2Click (TObject *Sender);

void __fastcall BtnX3Click (TObject *Sender);

void __fastcall BtnYinXClick (TObject *Sender);

void __fastcall BtnPiClick (TObject *Sender);

void __fastcall BtnNazadClick (TObject *Sender);

void __fastcall ButtonM1Click (TObject *Sender);

void __fastcall ButtonMR1Click (TObject *Sender);

void __fastcall Button1Click (TObject *Sender);

void __fastcall Button2Click (TObject *Sender);

void __fastcall Button3Click (TObject *Sender);

void __fastcall Button4Click (TObject *Sender);

void __fastcall Btn_AClick (TObject *Sender);

void __fastcall Btn_BClick (TObject *Sender);

void __fastcall Btn_CClick (TObject *Sender);

void __fastcall Btn_DClick (TObject *Sender);

void __fastcall Btn_EClick (TObject *Sender);

void __fastcall Btn_FClick (TObject *Sender);

void __fastcall N6Click (TObject *Sender);

void __fastcall BtnHYPClick (TObject *Sender);

void __fastcall BtnLOGClick (TObject *Sender);

void __fastcall BtnLNClick (TObject *Sender);

void __fastcall N4Click (TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm1(TComponent* Owner);

//—————————————————————————————————————;

// Функция анализа состояний кнопки переключений вторичных функций.

// состояния переключателя Degree/Radian/Grad, а также состояния

// текущей системы счисления

void StateAnalis ()

{

if (SecondState==1)

L2nd->Font->Color=clBlack;

else L2nd->Font->Color=clSilver;

switch (DRGState)

{

case 0:

{LDEG->Font->Color=clBlack;

LRAD->Font->Color=clSilver;

LGRAD->Font->Color=clSilver;

}

break;

case 1:

{LRAD->Font->Color=clBlack;

LGRAD->Font->Color=clSilver;

LDEG->Font->Color=clSilver;

}

break;

case 2:

{LDEG->Font->Color=clSilver;

LRAD->Font->Color=clSilver;

LGRAD->Font->Color=clBlack;

}

break;

}

switch (SSState)

{

case 0:

{LDEC->Font->Color=clBlack;

LBIN->Font->Color=clSilver;

LHEX->Font->Color=clSilver;

LOCT->Font->Color=clSilver;

}

break;

case 1:

{LDEC->Font->Color=clSilver;

LBIN->Font->Color=clBlack;

LHEX->Font->Color=clSilver;

LOCT->Font->Color=clSilver;

}

break;

case 2:

{LDEC->Font->Color=clSilver;

LBIN->Font->Color=clSilver;

LHEX->Font->Color=clBlack;

LOCT->Font->Color=clSilver;

}

break;

case 3:

{LDEC->Font->Color=clSilver;

LBIN->Font->Color=clSilver;

LHEX->Font->Color=clSilver;

LOCT->Font->Color=clBlack;

}

break;

}

};

//—————————————————————————————————————;

// Функция сброса приложения в начальное состояние

void SecondFClear ()

{SecondState=0;

BtnDRG->Caption="DRG" ;

BtnLOG->Caption="LOG" ;

BtnLN->Caption="LN" ;

BtnNazad->Caption="<—-" ;

BtnHYP->Caption="HYP" ;

BtnSIN->Caption="SIN" ;

BtnCOS->Caption="COS" ;

BtnTAN->Caption="TAN" ;

BtnC->Caption="C" ;

BtnPi->Caption="Pi" ;

Btn1toX->Caption="1/x" ;

BtnX2->Caption="x²″ ;

BtnX3->Caption="x³″ ;

BtnYinX->Caption="x^y" ;

BtnDEC->Caption="DEC" ;

BtnEE->Caption="EE" ;

BtnLS->Caption="(«;

BtnPS->Caption=")" ;

BtnDel->Caption="/" ;

BtnBIN->Caption="BIN" ;

Btn7->Caption="7″ ;

Btn8->Caption="8″ ;

Btn9->Caption="9″ ;

BtnUmnoj->Caption="*" ;

BtnHEX->Caption="HEX" ;

Btn4->Caption="4″ ;

Btn5->Caption="5″ ;

Btn6->Caption="6″ ;

BtnMinus->Caption="-" ;

BtnOCT->Caption="OCT" ;

Btn1->Caption="1″ ;

Btn2->Caption="2″ ;

Btn3->Caption="3″ ;

BtnPlus->Caption="+" ;

Btn0->Caption="0″ ;

BtnDot->Caption="." ;

BtnPM->Caption="±" ;

BtnRavno->Caption="=";

}

};

//—————————————————————————————————————;

AnsiString SSConvToDec (AnsiString StrToConv, int STC)

{

// Функция конвертирования из исходной системы счисления в десятичную

// для использования в последующих расчетах

AnsiString OpBuf=StrToConv, Buf;

int Data=0,

i=0,

k=0,

n=0,

a=0;

char c;

switch (STC)

{

case 0: //Перевод из десятичной системы не требуется

break;

case 1: //Перевод из двоичной системы счисления

{

n=StrToConv.Length ();

a=StrToInt (StrToConv);

StrToConv=a;

for (i=n, k=0;i≠0;i—, k++)

{

a=StrToInt (OpBuf[i]);

Data=Data+(a*pow (2,k));

}

StrToConv=Data;

}

break;

case 2: //Перевод из 16-ричной системы счисления

{

n=StrToConv.Length ();

for (i=n, k=0;i≠0;i—, k++)

{

c=OpBuf[i];

switch (c)

{

case '0':

Data=Data+(0*pow (16,k));

break;

case '1':

Data=Data+(1*pow (16,k));

break;

case '2':

Data=Data+(2*pow (16,k));

break;

case '3':

Data=Data+(3*pow (16,k));

break;

case '4':

Data=Data+(4*pow (16,k));

break;

case '5':

Data=Data+(5*pow (16,k));

break;

case '6':

Data=Data+(6*pow (16,k));

break;

case '7':

Data=Data+(7*pow (16,k));

break;

case '8':

Data=Data+(8*pow (16,k));

break;

case '9':

Data=Data+(9*pow (16,k));

break;

case 'A':

Data=Data+(10*pow (16,k));

break;

case 'B':

Data=Data+(11*pow (16,k));

break;

case 'C':

Data=Data+(12*pow (16,k));

break;

case 'D':

Data=Data+(13*pow (16,k));

break;

case 'E':

Data=Data+(14*pow (16,k));

break;

case 'F':

Data=Data+(15*pow (16,k));

break;

}

}

StrToConv=Data;

}

break;

case 3: //Перевод из 8-ричной системы счисления

{

n=StrToConv.Length ();

for (i=n, k=0;i≠0;i—, k++)

{

a=StrToInt (OpBuf[i]);

Data=Data+(a*pow (8,k));

}

StrToConv=Data;

}

break;

}

return StrToConv;

}

//—————————————————————————————————————;

AnsiString SSConvToNeeded (AnsiString StrToConv, int STC, int STCT)

{

// STC — система счисления, из которой производим конвертацию

// STCT система счисления, в которую конвертируем

// Для начала конвертируем из исходной системы счисления в десятичную

AnsiString OpBuf="" ,

StringBuf="" ,

RevBuf="" ;

double a;

long int Isx=0,

IntBuf=0,

i=0,

n=0,

k=0;

a=StrToFloat (SSConvToDec (StrToConv, STC));

Isx=a;

switch (STCT)

{

case 0: //Перевод в десятичную систему

break;

case 1: //Перевод в двоичную систему

{

while (Isx≠0)

{

IntBuf=(Isx%2);

Isx=Isx/2;

StringBuf=StringBuf+IntToStr (IntBuf);

}

n=StringBuf.Length ();

for (i=n;i>0;i—)

RevBuf=RevBuf+StringBuf[i];

StringBuf=RevBuf;

}

break;

case 2: //Перевод в шестнадцатеричную систему

{

while (Isx≠0)

{

IntBuf=(Isx%16);

Isx=Isx/16;

switch (IntBuf)

{

case 0:

StringBuf=StringBuf+'0';

break;

case 1:

StringBuf=StringBuf+'1';

break;

case 2:

StringBuf=StringBuf+'2';

break;

case 3:

StringBuf=StringBuf+'3';

break;

case 4:

StringBuf=StringBuf+'4';

break;

case 5:

StringBuf=StringBuf+'5';

break;

case 6:

StringBuf=StringBuf+'6';

break;

case 7:

StringBuf=StringBuf+'7';

break;

case 8:

StringBuf=StringBuf+'8';

break;

case 9:

StringBuf=StringBuf+'9';

break;

case 10:

StringBuf=StringBuf+'A';

break;

case 11:

StringBuf=StringBuf+'B';

break;

case 12:

StringBuf=StringBuf+'C';

break;

case 13:

StringBuf=StringBuf+'D';

break;

case 14:

StringBuf=StringBuf+'E';

break;

case 15:

StringBuf=StringBuf+'F';

break;

}

}

n=StringBuf.Length ();

for (i=n;i>0;i—)

RevBuf=RevBuf+StringBuf[i];

StringBuf=RevBuf;

}

break;