Программирование калькулятора на C++

Ниже приведен код программирования калькулятора (описание функций калькулятора) на Builder C++.

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

Скриншот калькулятора:



Так же Вы сможете скачать исходники: архив с калькулятором

Ниже приведен код Unit.cpp

//—————————————————————————

#include
#pragma hdrstop

#include «Unit1.h»
#include #include «mmsystem.hpp»
//—————————————————————————
#pragma package(smart_init)
#pragma resource «*.dfm»
TForm1 *Form1;
long double accum,op2,m;
int op;
int f,i=0,error=0,sound=1,enter_klava=1;

//—————————————————————————
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
f=0;
op=0;
StaticText1->Caption=0;
}
//—————————————————————————

void __fastcall TForm1::DoOp(void)
{
if(f!=0)
op2 = StrToFloat(StaticText1->Caption);

switch ( op )
{
case 0 : accum = op2; break;
case 1 : accum += op2; break;
case 2 : accum -= op2; break;
case 3 : accum=pow(accum,op2); break;
case 4 : if (op2!=0) accum/=op2; else {
StaticText1->Caption=»Error»;goto m1;}break ;
case 5: accum *=op2; break;
}
if (op!=0)
StaticText1->Caption = FloatToStr(accum);
m1:;
}
void __fastcall TForm1::zvyk(void)
{
if(sound==1) PlaySound(«start.wav»,0,SND_ASYNC);
}

void __fastcall TForm1::BitBtn13Click(TObject *Sender)
{
Form1->Close();
}
//—————————————————————————
void __fastcall TForm1::BitBtn10Click(TObject *Sender)
{
if (f==0)
{StaticText1->Caption=»0″;
f=1;}

else StaticText1->Caption=StaticText1->Caption+»0″;
}
//—————————————————————————
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
if (f==0)
{StaticText1->Caption=»1″;
f=1;
}
else StaticText1->Caption=StaticText1->Caption+»1″;
}
//—————————————————————————
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
if (f==0)
{StaticText1->Caption=»2″;
f=1;
}
else StaticText1->Caption=StaticText1->Caption+»2″;
}
//—————————————————————————
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
if (f==0)
{StaticText1->Caption=»3″;
f=1;
}
else StaticText1->Caption=StaticText1->Caption+»3″;
}
//—————————————————————————
void __fastcall TForm1::BitBtn4Click(TObject *Sender)
{
if (f==0)
{StaticText1->Caption=»4″;
f=1;
}
else StaticText1->Caption=StaticText1->Caption+»4″;
}
//—————————————————————————
void __fastcall TForm1::BitBtn5Click(TObject *Sender)
{

if (f==0)
{StaticText1->Caption=»5″;
f=1;
}
else StaticText1->Caption=StaticText1->Caption+»5″;

}
//—————————————————————————
void __fastcall TForm1::BitBtn6Click(TObject *Sender)
{
if (f==0)
{StaticText1->Caption=»6″;
f=1;
}
else StaticText1->Caption=StaticText1->Caption+»6″;
}
//—————————————————————————
void __fastcall TForm1::BitBtn7Click(TObject *Sender)
{
if (f==0)
{StaticText1->Caption=»7″;
f=1;
}
else StaticText1->Caption=StaticText1->Caption+»7″;
}
//—————————————————————————
void __fastcall TForm1::BitBtn8Click(TObject *Sender)
{
if (f==0)
{StaticText1->Caption=»8″;
f=1;
}
else StaticText1->Caption=StaticText1->Caption+»8″;
}
//—————————————————————————
void __fastcall TForm1::BitBtn9Click(TObject *Sender)
{
if (f==0)
{StaticText1->Caption=»9″;
f=1;
}
else StaticText1->Caption=StaticText1->Caption+»9″;
}
//—————————————————————————
void __fastcall TForm1::BitBtn12Click(TObject *Sender)
{
if (f==0)
{ StaticText1->Caption=»0,»;
f=1;
}
else
{ if (StaticText1->Caption.Pos(«,»)==0)
StaticText1->Caption= StaticText1->Caption+»,»;
}
}
//—————————————————————————

// KHOnka +
void __fastcall TForm1::BitBtn17Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
if (f!=0)
{
op=0;
DoOp();
f=0;
}
op=1;
}
//—————————————————————————
// KHOnka —
void __fastcall TForm1::BitBtn16Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
if (f!=0)
{
op=0;
DoOp();
f=0;
}
op=2;
}
//—————————————————————————
// KHOnka =
void __fastcall TForm1::BitBtn18Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
if (f!=0||op!=0)
{
DoOp();
f=0;
}
}
//—————————————————————————
//knopka back
void __fastcall TForm1::BitBtn19Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
if (f!=0)
{
int i=strlen(StaticText1->Caption.c_str());
if(i==1)
{StaticText1->Caption=0; f=0;}
else
StaticText1->Caption=StaticText1->Caption.SubString(0,i-1);
}
}
//—————————————————————————

void __fastcall TForm1::BitBtn20Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
if (StrToFloat(StaticText1->Caption)>0)
{
StaticText1->Caption= FloatToStr( log(StrToFloat(StaticText1->Caption)) );

}
else
{
StaticText1->Caption=»Error»;
accum=0;
f=0;
op=0;
}
}
//—————————————————————————
// KHOnka log
void __fastcall TForm1::BitBtn21Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
if (StrToFloat(StaticText1->Caption)>0)
StaticText1->Caption= FloatToStr( log10(StrToFloat(StaticText1->Caption)) );
else
{
StaticText1->Caption=»Error»;
accum=0;
f=0;
op=0;
}
}
//—————————————————————————
// KHOnka Ce
void __fastcall TForm1::BitBtn22Click(TObject *Sender)
{
StaticText1->Caption=»0″;
accum=0;
op=0;
f=0;

}
//—————————————————————————

void __fastcall TForm1::BitBtn11Click(TObject *Sender)
{
if (StrToFloat(StaticText1->Caption)>0)
{
StaticText1->Caption=»-«+StaticText1->Caption;
if(op!=3) accum=(-1)*accum;
}
else if(StrToFloat(StaticText1->Caption)<0) { int i=strlen(StaticText1->Caption.c_str());
StaticText1->Caption=StaticText1->Caption.SubString(2,i);
if(op!=3) accum=(-1)*accum;
}
}
//—————————————————————————
// KHOnka x^y
void __fastcall TForm1::BitBtn23Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
if (f!=0)
{op=0;
DoOp();
f=0;
}
op=3;
}
//—————————————————————————
// KHOnka x^2
void __fastcall TForm1::BitBtn24Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
long double a=StrToFloat(StaticText1->Caption);
if (a!=0)
a=a*a;
StaticText1->Caption=FloatToStr(a);
op=0;
accum=a;
}
//—————————————————————————
// KHOnka /
void __fastcall TForm1::BitBtn14Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
if (f!=0)
{op=0;
DoOp();
f=0;
}
op=4;
}
//—————————————————————————
// KHOnka x
void __fastcall TForm1::BitBtn15Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
if (f!=0)
{op=0;
DoOp();
f=0;
}
op=5;
}
//—————————————————————————
// KHOnka sin:
void __fastcall TForm1::BitBtn25Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
double a2,a=StrToFloat(StaticText1->Caption);
if (i==0)
{
if (a-(int)a==0)
{if ( (int)a%180==0) a=0;
else
a=sin(a*M_PI/180);
}
else a=sin(a*M_PI/180);
}
else if(i==1)
{
int a1=(a/3.14159265358979);
if (a>0) a2=ceil(a/3.14159265358979); else a2=floor(a/3.14159265358979);
if(a1==a2) {a=0;}
else {a=sin(a);}
}
StaticText1->Caption=FloatToStr(a);
op=0;
accum=a;
f=1;
}
//—————————————————————————
// KHOnka cos:
void __fastcall TForm1::BitBtn26Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
double a2,a4,a=StrToFloat(StaticText1->Caption);
if(i==0)
{
if (a-(int)a==0)
{
if( (int)a%90==0 && (int)a%180!=0 ) a=0;
else a=cos(a*M_PI/180);
}
else a=cos(a*M_PI/180);
}
else if (i==1)
{

int a1=(a/3.14159265358979);
if (a>0) a2=ceil(a/3.14159265358979); else a2=floor(a/3.14159265358979);
int a3=(a/1.5707963267949);
if (a>0) a4=ceil(a/1.5707963267949); else a4=floor(a/1.5707963267949);
if(a1!=a2&&a3==a4) a=0;
else a=cos(a);
}
StaticText1->Caption=FloatToStr(a);
op=0;
accum=a;
f=1;
}
//—————————————————————————

void __fastcall TForm1::BitBtn14MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn14->Glyph->LoadFromFile(«del.bmp»);
}
//—————————————————————————

void __fastcall TForm1::BitBtn14MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn14->Glyph->LoadFromFile(«delon.bmp»);
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn17MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn17->Glyph->LoadFromFile(«+on.bmp»);
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn17MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn17->Glyph->LoadFromFile(«+.bmp»);
}
//—————————————————————————

void __fastcall TForm1::BitBtn18MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn18->Glyph->LoadFromFile(«=on.bmp»);
if(sound==1) PlaySound(«notify.wav»,0,SND_ASYNC);
}
//—————————————————————————

void __fastcall TForm1::BitBtn18MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn18->Glyph->LoadFromFile(«=.bmp»);
}
//—————————————————————————

void __fastcall TForm1::BitBtn27Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
long double a=StrToFloat(StaticText1->Caption);
if (a>=0)
{a=sqrt(a);
StaticText1->Caption=FloatToStr(a);
op=0;
accum=a;
}
else {
StaticText1->Caption=»Error»;
f=0;
accum=0;
}
}
//—————————————————————————

void __fastcall TForm1::BitBtn28Click(TObject *Sender)
{
StaticText1->Caption=FloatToStr(M_PI); accum=M_PI;
f=1;
}
//—————————————————————————

void __fastcall TForm1::BitBtn29Click(TObject *Sender)
{
StaticText1->Caption=FloatToStr(M_PI_2);
f=1;
}
//—————————————————————————

void __fastcall TForm1::BitBtn30Click(TObject *Sender)
{
StaticText1->Caption=FloatToStr(M_E);
f=1;
}
//—————————————————————————

void __fastcall TForm1::BitBtn31Click(TObject *Sender)
{
StaticText1->Caption=FloatToStr(M_1_PI);
f=1;
}
//—————————————————————————
//knopka arcsin
void __fastcall TForm1::BitBtn32Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
double a=StrToFloat(StaticText1->Caption);

if(a>=-1&&a<=1) { if (i==0) StaticText1->Caption=FloatToStr(180*ArcSin(a)/M_PI);
else StaticText1->Caption=FloatToStr(ArcSin(a));
f=1;
}
else
{
StaticText1->Caption=»Error»;
f=0;
accum=0;
}
}
//—————————————————————————
//knopka arccos
void __fastcall TForm1::BitBtn33Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
double a=StrToFloat(StaticText1->Caption);
if(a>=-1&&a<=1) { if(i==0) StaticText1->Caption=FloatToStr(180*ArcCos(a)/M_PI);
else StaticText1->Caption=FloatToStr(ArcCos(a));
f=1;
}
else
{
StaticText1->Caption=»Error»;
f=0;
accum=0;
}
}
//—————————————————————————
//knopka arctg
void __fastcall TForm1::BitBtn34Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
double a=StrToFloat(StaticText1->Caption);
if(true)
{
if(i==0) StaticText1->Caption=FloatToStr(180*atanl(a)/M_PI);
else StaticText1->Caption=FloatToStr(atanl(a));
f=1;
}

}
//—————————————————————————

void __fastcall TForm1::BitBtn35Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
double a2,a4,a=StrToFloat(StaticText1->Caption); int b=a;
if(i==0)
{
if (a-b==0)
{if( (int)a%90==0 && (int)a%180!=0 )
{
StaticText1->Caption=»Error»;
f=0;
accum=0;
}
else
{
if ((int)a%180==0) StaticText1->Caption=»0″;
else {a=tan(a*M_PI/180);StaticText1->Caption=FloatToStr(a);}
f=1;
op=0;
accum=a;
}
}
else
{
a=tan(a*M_PI/180);StaticText1->Caption=FloatToStr(a);
f=1;
op=0;
accum=a;
}
}
else if(i==1)
{
int a1=(a/3.14159265358979);
if (a>0) a2=ceil(a/3.14159265358979); else a2=floor(a/3.14159265358979);
int a3=(a/1.5707963267949);
if (a>0) a4=ceil(a/1.5707963267949); else a4=floor(a/1.5707963267949);
if(a1!=a2&&a3==a4)
{StaticText1->Caption=»Error»;
f=0;
accum=0;
}
else
{
if(a1==a2) a=0;
else a=tanl(a);
StaticText1->Caption=FloatToStr(a);
op=0;
f=1;
accum=a;
}
}

}
//—————————————————————————
//knopka ctg
void __fastcall TForm1::BitBtn36Click(TObject *Sender)
{

if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
double a2,a4,a=StrToFloat(StaticText1->Caption); int b=a;
if(i==0)
{ if (a-b==0)
{
if( (int)a%90==0 && (int)a%180==0 )
{
StaticText1->Caption=»Error»;
f=0;
accum=0;
}
else
{
if ((int)a%90==0 && (int)a%180!=0 ) StaticText1->Caption=»0″;
else {a=Cotan(a*M_PI/180);StaticText1->Caption=FloatToStr(a);}
op=0;
accum=a;
f=1;
}
} a=Cotan(a*M_PI/180);
StaticText1->Caption=FloatToStr(a);
op=0;
accum=a;
f=1;
}
else if(i==1)
{
int a1=(a/3.14159265358979);
if (a>0) a2=ceil(a/3.14159265358979); else a2=floor(a/3.14159265358979);
int a3=(a/1.5707963267949);
if (a>0) a4=ceil(a/1.5707963267949); else a4=floor(a/1.5707963267949);
if(a1==a2)
{
StaticText1->Caption=»Error»;
f=0;
accum=0;
}
else
{
if(a1!=a2&&a3==a4) a=0;
else a=Cotan(a);
StaticText1->Caption=FloatToStr(a);
op=0;
accum=a;
f=1;
}

}

}
//—————————————————————————

void __fastcall TForm1::BitBtn37Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
long double a=StrToFloat(StaticText1->Caption);
if(a!=0)
StaticText1->Caption=FloatToStr(1/a);
else StaticText1->Caption=»Error»;
}
//—————————————————————————

void __fastcall TForm1::BitBtn38Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
long double a=StrToFloat(StaticText1->Caption);
if (a!=0)
a=a*a*a;
StaticText1->Caption=FloatToStr(a);
op=0;
accum=a;
}
//—————————————————————————

void __fastcall TForm1::BitBtn39Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
long double a=StrToFloat(StaticText1->Caption);

if (a>=0)a=pow(a,1.0/3.0); else a=(-1)*pow(-a,1.0/3.0);
StaticText1->Caption=FloatToStr(a);
accum=a; op=0;
}
//—————————————————————————

void __fastcall TForm1::BitBtn40Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
double a=StrToFloat(StaticText1->Caption);
a=pow(M_E,a);
StaticText1->Caption=FloatToStr(a);
}
//—————————————————————————
//knopka cosec
void __fastcall TForm1::BitBtn41Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
double a2,a=StrToFloat(StaticText1->Caption);
if (i==0)
{
if (a-(int)a==0)
{if ( (int)a%180==0) a=0;
else
a=sin(a*M_PI/180);
}
else a=sin(a*M_PI/180);
}
else if(i==1)
{
int a1=(a/3.14159265358979);
if (a>0) a2=ceil(a/3.14159265358979); else a2=floor(a/3.14159265358979);
if(a1==a2) {a=0;}
else {a=sin(a);}
}

if(a!=0)
{
StaticText1->Caption=FloatToStr(1/a);
accum=1/a;
op=0;
}
else
{StaticText1->Caption=»Error»;
f=0;
accum=0;
}
op=0;

}
//—————————————————————————
//knopka arcsec
void __fastcall TForm1::BitBtn42Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
double a=StrToFloat(StaticText1->Caption);
if(a!=0&&(a>=1||a<=-1)) { if (i==0) {a=180*ArcCos(1/a)/M_PI; f=1;op=0;} else if(i==1) { a=ArcCos(1/a); f=1;op=0;} StaticText1->Caption=FloatToStr(a);
}
else
{
f=0;
accum=0;
op=0;
StaticText1->Caption=»Error»;
}
}
//—————————————————————————
//knopka sec
void __fastcall TForm1::BitBtn43Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
double a2,a4,a=StrToFloat(StaticText1->Caption);
if(i==0)
{
if (a-(int)a==0)
{
if( (int)a%90==0 && (int)a%180!=0 ) a=0;
else a=cos(a*M_PI/180);
}
else a=cos(a*M_PI/180);
}
else if (i==1)
{

int a1=(a/3.14159265358979);
if (a>0) a2=ceil(a/3.14159265358979); else a2=floor(a/3.14159265358979);
int a3=(a/1.5707963267949);
if (a>0) a4=ceil(a/1.5707963267949); else a4=floor(a/1.5707963267949);
if(a1!=a2&&a3==a4) a=0;
else a=cos(a);
}

if(a!=0) {StaticText1->Caption=FloatToStr(1/a);op=0; f=1;}
else
{StaticText1->Caption=»Error»;
accum=0;
f=0;
op=0;
}
}
//—————————————————————————

void __fastcall TForm1::BitBtn44Click(TObject *Sender)
{
StaticText1->Caption=FloatToStr(M_PI_4);
f=1;
}
//—————————————————————————

void __fastcall TForm1::BitBtn45Click(TObject *Sender)
{
StaticText1->Caption=FloatToStr(M_PI/6);
f=1;
}
//—————————————————————————

void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
double a=StrToFloat(StaticText1->Caption);
if (RadioGroup1->ItemIndex==0 && i==1)
{
i=0;
if (CheckBox1->Checked) a=a*90/1.5707963267949;
StaticText1->Caption=FloatToStr(a);
}
else
if (RadioGroup1->ItemIndex==1 && i==0)
{
if (CheckBox1->Checked) a=a*1.5707963267949/90;
i=1;
StaticText1->Caption=FloatToStr(a);
}
}
//—————————————————————————

//knopka n!
void __fastcall TForm1::BitBtn46Click(TObject *Sender)
{
if(StaticText1->Caption==»Error») {StaticText1->Caption=»0″; return;}
int j;
long double a=StrToFloat(StaticText1->Caption);
if(a==0)
StaticText1->Caption=»1″;
else if(a>0)
{ long double b=1;
for(j=2;j<=floor(a);j++) b=b*j; StaticText1->Caption=FloatToStr(b);
}
else if(a<0) StaticText1->Caption=»Error»;
}
//—————————————————————————

void __fastcall TForm1::BitBtn50Click(TObject *Sender)
{
if(StaticText1->Caption==»Error»)
{
return;
}
m=StrToFloat(StaticText1->Caption);
Edit1->Text=»M=»;
Edit1->Text=Edit1->Text+FloatToStr(m);

f=0;
op=0;
if(StaticText2->Caption!=»M»)
StaticText2->Caption=»M»;

}
//—————————————————————————

void __fastcall TForm1::BitBtn48Click(TObject *Sender)
{
if(StaticText1->Caption==»Error»)
{
return;
}
double temp=StrToFloat(StaticText1->Caption);
m+=temp;
f=0;
op=0;
Edit1->Text=»M=»;
Edit1->Text=Edit1->Text+FloatToStr(m);
if(StaticText2->Caption!=»M»)
StaticText2->Caption=»M»;
}
//—————————————————————————

void __fastcall TForm1::BitBtn49Click(TObject *Sender)
{
if(StaticText2->Caption==»M»)
{
Edit1->Text=»»;
m=0;
op=0;
StaticText2->Caption=»»;
}
}
//—————————————————————————

void __fastcall TForm1::BitBtn47Click(TObject *Sender)
{
if(StaticText2->Caption==»M»)
{
StaticText1->Caption=FloatToStr(m);
if(accum!=0&&f!=0) {op=0;}
else {f=1;}
}
}
//—————————————————————————

void __fastcall TForm1::BitBtn1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn1->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn1MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn1->Font->Color=clBlue;
}
//—————————————————————————

void __fastcall TForm1::BitBtn2MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn2->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn2MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn2->Font->Color=clBlue;
}
//—————————————————————————

void __fastcall TForm1::BitBtn3MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn3->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn3MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn3->Font->Color=clBlue;
}
//—————————————————————————

void __fastcall TForm1::BitBtn4MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn4->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn4MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn4->Font->Color=clBlue;
}
//—————————————————————————

void __fastcall TForm1::BitBtn5MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn5->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn5MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn5->Font->Color=clBlue;
}
//—————————————————————————

void __fastcall TForm1::BitBtn6MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn6->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn6MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn6->Font->Color=clBlue;
}
//—————————————————————————

void __fastcall TForm1::BitBtn7MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn7->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn7MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn7->Font->Color=clBlue;

}
//—————————————————————————

void __fastcall TForm1::BitBtn8MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn8->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn8MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn8->Font->Color=clBlue;
}
//—————————————————————————

void __fastcall TForm1::BitBtn9MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn9->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn9MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn9->Font->Color=clBlue;
}
//—————————————————————————

void __fastcall TForm1::BitBtn10MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn10->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn10MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn10->Font->Color=clBlue;
}
//—————————————————————————

void __fastcall TForm1::BitBtn11MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn11->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn11MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn11->Font->Color=clBlue;
}
//—————————————————————————

void __fastcall TForm1::BitBtn12MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn12->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn12MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn12->Font->Color=clBlue;
}
//—————————————————————————

void __fastcall TForm1::BitBtn46MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn46->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn46MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn46->Font->Color=clBlue;
}
//—————————————————————————

void __fastcall TForm1::BitBtn22MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn22->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn22MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn22->Font->Color=clBlue;
}
//—————————————————————————

void __fastcall TForm1::BitBtn49MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn49->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn49MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn49->Font->Color=clBlue;
}
//—————————————————————————

void __fastcall TForm1::BitBtn47MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn47->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn47MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn47->Font->Color=clBlue;
}
//—————————————————————————

void __fastcall TForm1::BitBtn50MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn50->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn50MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn50->Font->Color=clBlue;
}
//—————————————————————————

void __fastcall TForm1::BitBtn48MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn48->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn48MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn48->Font->Color=clBlue;
}
//—————————————————————————

void __fastcall TForm1::BitBtn25MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn25->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn25MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn25->Font->Color=clMaroon;
}
//—————————————————————————

void __fastcall TForm1::BitBtn26MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn26->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn26MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn26->Font->Color=clMaroon;
}
//—————————————————————————

void __fastcall TForm1::BitBtn35MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn35->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn35MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn35->Font->Color=clMaroon;
}
//—————————————————————————

void __fastcall TForm1::BitBtn36MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn36->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn36MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn36->Font->Color=clMaroon;
}
//—————————————————————————

void __fastcall TForm1::BitBtn43MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn43->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn43MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn43->Font->Color=clMaroon;
}
//—————————————————————————

void __fastcall TForm1::BitBtn32MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn32->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn32MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn32->Font->Color=clMaroon;
}
//—————————————————————————

void __fastcall TForm1::BitBtn33MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn33->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn33MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn33->Font->Color=clMaroon;
}
//—————————————————————————

void __fastcall TForm1::BitBtn34MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn34->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn34MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn34->Font->Color=clMaroon;
}
//—————————————————————————

void __fastcall TForm1::BitBtn41MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn41->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn41MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn41->Font->Color=clMaroon;
}
//—————————————————————————

void __fastcall TForm1::BitBtn42MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn42->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn42MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn42->Font->Color=clMaroon;
}
//—————————————————————————

void __fastcall TForm1::BitBtn28MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn28->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn28MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn28->Font->Color=clTeal;
}
//—————————————————————————

void __fastcall TForm1::BitBtn29MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn29->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn29MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn29->Font->Color=clTeal;
}
//—————————————————————————

void __fastcall TForm1::BitBtn31MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn31->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn31MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn31->Font->Color=clTeal;
}
//—————————————————————————

void __fastcall TForm1::BitBtn44MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn44->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn44MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn44->Font->Color=clTeal;
}
//—————————————————————————

void __fastcall TForm1::BitBtn45MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn45->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn45MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn45->Font->Color=clTeal;
}
//—————————————————————————

void __fastcall TForm1::BitBtn30MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn30->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn30MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn30->Font->Color=clTeal;
}
//—————————————————————————

void __fastcall TForm1::BitBtn24MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn24->Glyph->LoadFromFile(«x^2on.bmp»);
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn24MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn24->Glyph->LoadFromFile(«x^2.bmp»);
}
//—————————————————————————

void __fastcall TForm1::BitBtn38MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn38->Glyph->LoadFromFile(«x^3on.bmp»);
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn38MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn38->Glyph->LoadFromFile(«x^3.bmp»);
}
//—————————————————————————

void __fastcall TForm1::BitBtn27MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn27->Glyph->LoadFromFile(«koron.bmp»);
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn27MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn27->Glyph->LoadFromFile(«kor.bmp»);
}
//—————————————————————————

void __fastcall TForm1::BitBtn39MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn39->Glyph->LoadFromFile(«kor3on.bmp»);
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn39MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn39->Glyph->LoadFromFile(«kor3.bmp»);
}
//—————————————————————————

void __fastcall TForm1::BitBtn23MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn23->Glyph->LoadFromFile(«x^yon.bmp»);
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn23MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn23->Glyph->LoadFromFile(«x^y.bmp»);
}
//—————————————————————————

void __fastcall TForm1::BitBtn40MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn40->Glyph->LoadFromFile(«e^xon.bmp»);
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn40MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn40->Glyph->LoadFromFile(«e^x.bmp»);
}
//—————————————————————————

void __fastcall TForm1::BitBtn37MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn37->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn37MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn37->Font->Color=clPurple;
}
//—————————————————————————

void __fastcall TForm1::BitBtn21MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn21->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn21MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn21->Font->Color=clPurple;
}
//—————————————————————————

void __fastcall TForm1::BitBtn20MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn20->Font->Color=clRed;
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn20MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn20->Font->Color=clPurple;
}
//—————————————————————————

void __fastcall TForm1::BitBtn15MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn15->Glyph->LoadFromFile(«xon.bmp»);
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn15MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn15->Glyph->LoadFromFile(«x.bmp»);
}
//—————————————————————————

void __fastcall TForm1::BitBtn16MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn16->Glyph->LoadFromFile(«-on.bmp»);
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn16MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn16->Glyph->LoadFromFile(«-.bmp»);
}
//—————————————————————————

void __fastcall TForm1::BitBtn19MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn19->Glyph->LoadFromFile(«backon.bmp»);
zvyk();
}
//—————————————————————————

void __fastcall TForm1::BitBtn19MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
BitBtn19->Glyph->LoadFromFile(«back.bmp»);
}
//—————————————————————————

void __fastcall TForm1::soundonClick(TObject *Sender)
{
sound=1;
if(soundon->Checked==false) soundon->Checked=true;
}
//—————————————————————————

void __fastcall TForm1::soundoffClick(TObject *Sender)
{
sound=0;
if(soundoff->Checked==false) soundoff->Checked=true;
}
//—————————————————————————

void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
if (enter_klava==1)
{
if(Key==’1′) { zvyk(); BitBtn1->Click();}
if(Key==’2′) { zvyk(); BitBtn2->Click();}
if(Key==’3′) { zvyk(); BitBtn3->Click();}
if(Key==’4′) { zvyk(); BitBtn4->Click();}
if(Key==’5′) { zvyk(); BitBtn5->Click();}
if(Key==’6′) { zvyk(); BitBtn6->Click();}
if(Key==’7′) { zvyk(); BitBtn7->Click();}
if(Key==’8′) { zvyk(); BitBtn8->Click();}
if(Key==’9′) { zvyk(); BitBtn9->Click();}
if(Key==’=’)
{if(sound==1) PlaySound(«notify.wav»,0,SND_ASYNC);
BitBtn18->Click();}
if(Key==VK_BACK) { zvyk(); BitBtn19->Click();}
if(Key==’-‘) { zvyk(); BitBtn16->Click();}
if(Key==’+’) { zvyk(); BitBtn17->Click();}
}
}
//—————————————————————————

void __fastcall TForm1::klava_onClick(TObject *Sender)
{enter_klava=1;
if(klava_on->Checked==false) klava_on->Checked=true;
}
//—————————————————————————

void __fastcall TForm1::klava_offClick(TObject *Sender)
{
enter_klava=0;
if(klava_off->Checked==false) klava_off->Checked=true;
}
//—————————————————————————

Заголовочный файл Unit.h:

//—————————————————————————

#ifndef Unit1H
#define Unit1H
//—————————————————————————
#include
#include
#include
#include
#include
#include
#include #include
#include
//—————————————————————————
class TForm1 : public TForm
{
__published: // IDE-managed Components
TBitBtn *BitBtn13;
TPanel *Panel1;
TPanel *Panel2;
TBitBtn *BitBtn1;
TBitBtn *BitBtn2;
TGroupBox *GroupBox1;
TGroupBox *GroupBox2;
TPanel *Panel3;
TPanel *Panel4;
TPanel *Panel5;
TBitBtn *BitBtn3;
TBitBtn *BitBtn4;
TBitBtn *BitBtn5;
TBitBtn *BitBtn6;
TBitBtn *BitBtn7;
TBitBtn *BitBtn8;
TBitBtn *BitBtn9;
TBitBtn *BitBtn10;
TBitBtn *BitBtn11;
TBitBtn *BitBtn12;
TBitBtn *BitBtn14;
TBitBtn *BitBtn15;
TBitBtn *BitBtn16;
TBitBtn *BitBtn17;
TBitBtn *BitBtn18;
TBitBtn *BitBtn20;
TBitBtn *BitBtn21;
TBitBtn *BitBtn23;
TBitBtn *BitBtn24;
TBitBtn *BitBtn22;
TBitBtn *BitBtn25;
TBitBtn *BitBtn26;
TBitBtn *BitBtn27;
TBitBtn *BitBtn28;
TBitBtn *BitBtn29;
TBitBtn *BitBtn30;
TBitBtn *BitBtn31;
TBitBtn *BitBtn32;
TBitBtn *BitBtn33;
TBitBtn *BitBtn34;
TBitBtn *BitBtn35;
TBitBtn *BitBtn36;
TRadioGroup *RadioGroup1;
TRadioButton *RadioButton1;
TBitBtn *BitBtn37;
TBitBtn *BitBtn38;
TBitBtn *BitBtn39;
TBitBtn *BitBtn40;
TBitBtn *BitBtn19;
TBitBtn *BitBtn41;
TBitBtn *BitBtn42;
TBitBtn *BitBtn43;
TBitBtn *BitBtn44;
TBitBtn *BitBtn45;
TBitBtn *BitBtn46;
TBitBtn *BitBtn47;
TBitBtn *BitBtn48;
TBitBtn *BitBtn49;
TBitBtn *BitBtn50;
TStaticText *StaticText2;
TStaticText *StaticText1;
TEdit *Edit1;
TCheckBox *CheckBox1;
TMainMenu *MainMenu1;
TMenuItem *N1;
TMenuItem *soundon;
TMenuItem *soundoff;
TMenuItem *N4;
TMenuItem *spravka;
TMenuItem *N6;
TMenuItem *o_proge;
TMenuItem *N2;
TMenuItem *klava_on;
TMenuItem *klava_off;
void __fastcall BitBtn13Click(TObject *Sender);
void __fastcall BitBtn10Click(TObject *Sender);
void __fastcall BitBtn1Click(TObject *Sender);
void __fastcall BitBtn2Click(TObject *Sender);
void __fastcall BitBtn3Click(TObject *Sender);
void __fastcall BitBtn4Click(TObject *Sender);
void __fastcall BitBtn5Click(TObject *Sender);
void __fastcall BitBtn6Click(TObject *Sender);
void __fastcall BitBtn7Click(TObject *Sender);
void __fastcall BitBtn8Click(TObject *Sender);
void __fastcall BitBtn9Click(TObject *Sender);
void __fastcall BitBtn12Click(TObject *Sender);
void __fastcall BitBtn17Click(TObject *Sender);
void __fastcall BitBtn16Click(TObject *Sender);
void __fastcall BitBtn18Click(TObject *Sender);
void __fastcall BitBtn19Click(TObject *Sender);
void __fastcall BitBtn20Click(TObject *Sender);
void __fastcall BitBtn21Click(TObject *Sender);
void __fastcall BitBtn22Click(TObject *Sender);
void __fastcall BitBtn11Click(TObject *Sender);
void __fastcall BitBtn23Click(TObject *Sender);
void __fastcall BitBtn24Click(TObject *Sender);
void __fastcall BitBtn14Click(TObject *Sender);
void __fastcall BitBtn15Click(TObject *Sender);
void __fastcall BitBtn25Click(TObject *Sender);
void __fastcall BitBtn26Click(TObject *Sender);
void __fastcall BitBtn14MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn14MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn17MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn17MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn18MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn18MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn27Click(TObject *Sender);
void __fastcall BitBtn28Click(TObject *Sender);
void __fastcall BitBtn29Click(TObject *Sender);
void __fastcall BitBtn30Click(TObject *Sender);
void __fastcall BitBtn31Click(TObject *Sender);
void __fastcall BitBtn32Click(TObject *Sender);
void __fastcall BitBtn33Click(TObject *Sender);
void __fastcall BitBtn34Click(TObject *Sender);
void __fastcall BitBtn35Click(TObject *Sender);
void __fastcall BitBtn36Click(TObject *Sender);
void __fastcall BitBtn37Click(TObject *Sender);
void __fastcall BitBtn38Click(TObject *Sender);
void __fastcall BitBtn39Click(TObject *Sender);
void __fastcall BitBtn40Click(TObject *Sender);
void __fastcall BitBtn41Click(TObject *Sender);
void __fastcall BitBtn42Click(TObject *Sender);
void __fastcall BitBtn43Click(TObject *Sender);
void __fastcall BitBtn44Click(TObject *Sender);
void __fastcall BitBtn45Click(TObject *Sender);
void __fastcall RadioGroup1Click(TObject *Sender);
void __fastcall BitBtn46Click(TObject *Sender);
void __fastcall BitBtn50Click(TObject *Sender);
void __fastcall BitBtn48Click(TObject *Sender);
void __fastcall BitBtn49Click(TObject *Sender);
void __fastcall BitBtn47Click(TObject *Sender);
void __fastcall BitBtn1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn1MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn2MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn2MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn3MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn3MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn4MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn4MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn5MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn5MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn6MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn6MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn7MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn7MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn8MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn8MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn9MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn9MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn10MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn10MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn11MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn11MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn12MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn12MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn46MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn46MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn22MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn22MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn49MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn49MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn47MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn47MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn50MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn50MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn48MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn48MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn25MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn25MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn26MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn26MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn35MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn35MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn36MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn36MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn43MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn43MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn32MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn32MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn33MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn33MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn34MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn34MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn41MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn41MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn42MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn42MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn28MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn28MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn29MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn29MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn31MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn31MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn44MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn44MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn45MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn45MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn30MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn30MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn24MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn24MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn38MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn38MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn27MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn27MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn39MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn39MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn23MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn23MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn40MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn40MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn37MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn37MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn21MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn21MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn20MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn20MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn15MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn15MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn16MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn16MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn19MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall BitBtn19MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y);
void __fastcall soundonClick(TObject *Sender);
void __fastcall soundoffClick(TObject *Sender);
void __fastcall klava_onClick(TObject *Sender);
void __fastcall klava_offClick(TObject *Sender);
void __fastcall spravkaClick(TObject *Sender);
void __fastcall o_progeClick(TObject *Sender);
void __fastcall FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift);
void __fastcall FormKeyUp(TObject *Sender, WORD &Key,
TShiftState Shift);
void __fastcall FormKeyPress(TObject *Sender, char &Key);

private: // User declarations
public: void __fastcall TForm1::DoOp(void);
void __fastcall TForm1::zvyk(void);
__fastcall TForm1(TComponent* Owner);
};
//—————————————————————————
extern PACKAGE TForm1 *Form1;
//—————————————————————————
#endif


Оставить комментарий





Статистика

Рейтинг@Mail.ru