unit1.~cpp

最新的计算器1.5

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include <math.h>

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tsendnum *sendnum;
//---------------------------------------------------------------------------
__fastcall Tsendnum::Tsendnum(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
bool bz_fh=false,kk=true,bEdit1FX,bEdit1FY,yy=false,qq=false;
long double aa1,aa2,aa3;
int icount,ifnum,bb1;


void __fastcall Tsendnum::Button1Click(TObject *Sender)
{
if(bz_fh==false)
if(Edit1->Text=="0") Edit1->Text="1";
else Edit1->Text=Edit1->Text+"1";
else {Edit1->Text="1";bz_fh=false;}
kk=true;        
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button2Click(TObject *Sender)
{
if(bz_fh==false)
if(Edit1->Text=="0") Edit1->Text="2";
else Edit1->Text=Edit1->Text+"2";
else {Edit1->Text="2";bz_fh=false;}
kk=true;        
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button3Click(TObject *Sender)
{
if(bz_fh==false)
if(Edit1->Text=="0") Edit1->Text="3";
else Edit1->Text=Edit1->Text+"3";
else {Edit1->Text="3";bz_fh=false;}
kk=true;        
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button4Click(TObject *Sender)
{
if(bz_fh==false)
if(Edit1->Text=="0") Edit1->Text="4";
else Edit1->Text=Edit1->Text+"4";
else {Edit1->Text="4";bz_fh=false;}
kk=true;
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button5Click(TObject *Sender)
{
if(bz_fh==false)
if(Edit1->Text=="0") Edit1->Text="5";
else Edit1->Text=Edit1->Text+"5";
else {Edit1->Text="5";bz_fh=false;}
kk=true;
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button6Click(TObject *Sender)
{
if(bz_fh==false)
if(Edit1->Text=="0") Edit1->Text="6";
else Edit1->Text=Edit1->Text+"6";
else {Edit1->Text="6";bz_fh=false;}
kk=true;        
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button7Click(TObject *Sender)
{
if(bz_fh==false)
if(Edit1->Text=="0") Edit1->Text="7";
else Edit1->Text=Edit1->Text+"7";
else {Edit1->Text="7";bz_fh=false;}
kk=true;
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button8Click(TObject *Sender)
{
if(bz_fh==false)
if(Edit1->Text=="0") Edit1->Text="8";
else Edit1->Text=Edit1->Text+"8";
else {Edit1->Text="8";bz_fh=false;}
kk=true;
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button9Click(TObject *Sender)
{
if(bz_fh==false)
if(Edit1->Text=="0") Edit1->Text="9";
else Edit1->Text=Edit1->Text+"9";
else {Edit1->Text="9";bz_fh=false;}
kk=true;
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button10Click(TObject *Sender)
{
if(bz_fh==false)
if(Edit1->Text=="0") Edit1->Text="0";
else Edit1->Text=Edit1->Text+"0";
else {Edit1->Text="0";bz_fh=false;}
kk=true;
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button11Click(TObject *Sender)
{
if(kk==true){
aa2=StrToFloat(Edit1->Text);
aa2=aa2+aa1;
Edit1->Text=FloatToStr(aa2);
aa1=aa2;
bz_fh=true;}kk=false;bb1=1;
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button12Click(TObject *Sender)
{
if(kk==true){
aa2=StrToFloat(Edit1->Text);
if(aa1==0)
aa2=aa2-aa1;else aa2=aa1-aa2;
Edit1->Text=FloatToStr(aa2);
aa1=aa2;
bz_fh=true;}kk=false;bb1=2;
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button13Click(TObject *Sender)
{
if(kk==true){
aa2=StrToFloat(Edit1->Text);
if(aa1==0)
aa2=aa2*1;else aa2=aa2*aa1;
Edit1->Text=FloatToStr(aa2);
aa1=aa2;
bz_fh=true;}kk=false;bb1=3;
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button14Click(TObject *Sender)
{
if(kk==true){
aa2=StrToFloat(Edit1->Text);
if(aa1==0&&yy==false)
aa2=aa2/1;
else if(aa2==0&&yy==true) Edit1->Text="被除数不能为零";
else
aa2=aa1/aa2;
Edit1->Text=FloatToStr(aa2);
aa1=aa2;yy=true;
bz_fh=true;}kk=false;bb1=4;
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button15Click(TObject *Sender)
{
if(bb1==1)
{aa2=StrToFloat(Edit1->Text);
if(kk==false)
{if(qq==false){aa3=aa2;qq=true;}aa2=aa2+aa3;}
else
aa2=aa2+aa1;
Edit1->Text=FloatToStr(aa2);
aa1=aa2;
bz_fh=true;}
if(bb1==2)
{aa2=StrToFloat(Edit1->Text);
if(aa1==0)
aa2=aa2-aa1;else aa2=aa1-aa2;
Edit1->Text=FloatToStr(aa2);
aa1=aa2;
bz_fh=true;}
if(bb1==3)
{aa2=StrToFloat(Edit1->Text);
if(aa1==0)
aa2=aa2*1;else aa2=aa2*aa1;
Edit1->Text=FloatToStr(aa2);
aa1=aa2;
bz_fh=true;}
if(bb1==4)
{aa2=StrToFloat(Edit1->Text);
if(aa1==0&&yy==false)
aa2=aa2/1;
else if(aa2==0&&yy==true) Edit1->Text="被除数不能为零";
else
aa2=aa1/aa2;
Edit1->Text=FloatToStr(aa2);
aa1=aa2;yy=true;
bz_fh=true;}
kk=false;
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button16Click(TObject *Sender)
{
if(kk==false)
{Edit1->Text="0";bEdit1FX=false;}
if(bEdit1FX==false)
Edit1->Text=Edit1->Text+".";
bz_fh=false;
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button17Click(TObject *Sender)
{
Edit1->Text=0;
aa1=aa2=0;bEdit1FX=false;
kk=true;yy=false;        
}
//---------------------------------------------------------------------------


void __fastcall Tsendnum::Edit1KeyPress(TObject *Sender, char &Key)
{
if((Key>=48&&Key<=57)||Key==46||Key==8)
{if(bEdit1FX==true)
{Key=0;}
else
{bEdit1FX=false;return;}
}
else
Key=0;        
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Edit1Change(TObject *Sender)
{
if(Edit1->Text=="0")
Edit1->Text="0";
if(StrScan(Edit1->Text.c_str(),'.')>0) bEdit1FX=true;
if(StrScan(Edit1->Text.c_str(),'-')>0) bEdit1FY=true;
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button19Click(TObject *Sender)
{
aa3=StrToFloat(Edit1->Text);
if(aa3!=0&&kk==true)
aa3=-aa3;
else aa3=0;
Edit1->Text=FloatToStr(aa3);        
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button20Click(TObject *Sender)
{
if(Edit1->Text!="")
{if(StrToFloat(Edit1->Text)<0)
{ShowMessage("负数没有平方根");}
else
{int l=(Edit1->Text).Length(),ifpoint;//ifpoint是判断是否为小数的标志
for(int i=1;i<=l;i++)
{if(Edit1->Text.c_str()[i]=='.')
ifpoint=1;}
if(ifpoint==1){ShowMessage("只能求整数"); Edit1->Text="";}
else{Edit1->Text=FloatToStr(sqrt(StrToFloat(Edit1->Text)));}
}
}
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button18Click(TObject *Sender)
{
int l;
l=Edit1->Text.Length();
Edit1->Text=Edit1->Text.SubString(1,l-1);
if(Edit1->Text=="")
Edit1->Text="0";
}
//---------------------------------------------------------------------------

void __fastcall Tsendnum::Button21Click(TObject *Sender)
{
if(Edit1->Text!="")
Edit1->Text=FloatToStr(StrToFloat(Edit1->Text)*(-1));
}
//---------------------------------------------------------------------------