主题：哪位可以帮我用C++编个计算器?
cctvtvsk
[专家分：0] 发布于 2006-07-02 10:30:00
[em10]帮帮忙吧！用C++编个计算器程序！
回复列表 （共3个回复）
沙发
eaglegui [专家分：0] 发布于 2006-07-19 22:41:00
void __fastcall TForm1::Btn1Click(TObject *Sender)
{
if(append==1) Form1->EditResult->Clear();
Form1->EditResult->Text = Form1->EditResult->Text+Form1->Btn1->Caption;
append=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Btn2Click(TObject *Sender)
{
if(append==1) Form1->EditResult->Clear();
Form1->EditResult->Text = Form1->EditResult->Text+Form1->Btn2->Caption;
append=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Btn3Click(TObject *Sender)
{
if(append==1) Form1->EditResult->Clear();
Form1->EditResult->Text = Form1->EditResult->Text+Form1->Btn3->Caption;
append=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BtnAndClick(TObject *Sender)
{
sort=1;
if(Form1->EditResult->Text!="")
tempValue=StrToFloat(Form1->EditResult->Text);
append=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BtnMinClick(TObject *Sender)
{
sort=2;
if(Form1->EditResult->Text!="")
tempValue=StrToFloat(Form1->EditResult->Text);
append=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BtnMulClick(TObject *Sender)
{
sort=3;
if(Form1->EditResult->Text!="")
tempValue=StrToFloat(Form1->EditResult->Text);
append=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Btn0Click(TObject *Sender)
{
if(append==1) Form1->EditResult->Clear();
Form1->EditResult->Text = Form1->EditResult->Text+Form1->Btn0->Caption;
append=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BtnEquClick(TObject *Sender)
{
switch(sort)
{
case 1:result=StrToFloat(EditResult->Text)+StrToFloat(tempValue);
break;
case 2:result=StrToFloat(tempValue)-StrToFloat(EditResult->Text);
break;
case 3:result=StrToFloat(EditResult->Text)*StrToFloat(tempValue);
break;
case 4:result=StrToFloat(tempValue)/StrToFloat(EditResult->Text);
break;
}
EditResult->Text=FloatToStr(result);
append=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BtnClrClick(TObject *Sender)
{
Form1->EditResult->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BtnDivClick(TObject *Sender)
{
sort=4;
if(Form1->EditResult->Text!="")
tempValue=StrToFloat(Form1->EditResult->Text);
append=1;
// Form1->EditResult->Text = "";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RBSinClick(TObject *Sender)
{
if(Form1->EditResult->Text!="")
Form1->EditResult->Text=FloatToStr(sin(StrToFloat(Form1->EditResult->Text)));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RBCosClick(TObject *Sender)
{
if(Form1->EditResult->Text!="")
Form1->EditResult->Text=FloatToStr(cos(StrToFloat(Form1->EditResult->Text)));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RBTgClick(TObject *Sender)
{
if(Form1->EditResult->Text!="")
Form1->EditResult->Text=FloatToStr(tan(StrToFloat(Form1->EditResult->Text)));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RBCtgClick(TObject *Sender)
{
if(Form1->EditResult->Text!="")
Form1->EditResult->Text=FloatToStr(1/(tan(StrToFloat(Form1->EditResult->Text))));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RBLogClick(TObject *Sender)
{
if(Form1->EditResult->Text!="")
Form1->EditResult->Text=FloatToStr(log(StrToFloat(Form1->EditResult->Text)));
}
板凳
eaglegui [专家分：0] 发布于 2006-07-19 22:43:00
由于字数限制，数字按键部分只是写了1部分，2~9依次类推即可写出相应的代码
3 楼
GangSH [专家分：110] 发布于 2006-08-02 13:54:00
晕, 不会用BCB脚本写呀, 要写出什么样的计算器都可以呀
我来回复
您所在位置：社区首页 — C++ Builder讨论区 — 哪位可以帮我用C++编个计算器?