Hesap makinesi

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "gorsel.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#include <math.h>
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button31Click(TObject *Sender)
{
if (Edit1->Text=="0")
        Edit1->Text="0";
        else
       Edit1->Text=Edit1->Text+"0";

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button27Click(TObject *Sender)
{
   if (Edit1->Text=="0")
        Edit1->Text="1";
        else
       Edit1->Text=Edit1->Text+"1";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button28Click(TObject *Sender)
{

   if (Edit1->Text=="0")
        Edit1->Text="2";
        else
       Edit1->Text=Edit1->Text+"2";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button29Click(TObject *Sender)
{

   if (Edit1->Text=="0")
        Edit1->Text="3";
        else
       Edit1->Text=Edit1->Text+"3";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button25Click(TObject *Sender)
{

   if (Edit1->Text=="0")
        Edit1->Text="4";
        else
       Edit1->Text=Edit1->Text+"4";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button26Click(TObject *Sender)
{

   if (Edit1->Text=="0")
        Edit1->Text="5";
        else
       Edit1->Text=Edit1->Text+"5";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button30Click(TObject *Sender)
{

   if (Edit1->Text=="0")
        Edit1->Text="6";
        else
       Edit1->Text=Edit1->Text+"6";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button18Click(TObject *Sender)
{

   if (Edit1->Text=="0")
        Edit1->Text="7";
        else
       Edit1->Text=Edit1->Text+"7";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button23Click(TObject *Sender)
{

   if (Edit1->Text=="0")
        Edit1->Text="8";
        else
       Edit1->Text=Edit1->Text+"8";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button24Click(TObject *Sender)
{

   if (Edit1->Text=="0")
        Edit1->Text="9";
        else
       Edit1->Text=Edit1->Text+"9";
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button1Click(TObject *Sender)
{

 sayi=Edit1->Text.ToDouble();

 isaret='+';
 Edit1->Text="0";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button17Click(TObject *Sender)
{
double a,s;
    a=Edit1->Text.ToDouble();


  if( isaret=='*' )
  {
   s=sayi*a;
  }
  if(isaret=='/')
  {
   s=sayi/a;
  }
  if(isaret=='-')
  {
   s=sayi-a;
  }

  if(isaret=='+')
  {
   s=sayi+a;
  }
    if(isaret=='p')
  {
   s=pow(sayi,a);
  }
   if(isaret=='m')
  {
   s=fmod(sayi,a);
  }

    Edit1->Text=FloatToStr(s);
    sayi=s;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
sayi=Edit1->Text.ToDouble();

 isaret='-';
 Edit1->Text="0";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
sayi=Edit1->Text.ToDouble();

 isaret='*';
 Edit1->Text="0";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
sayi=Edit1->Text.ToDouble();

 isaret='/';
 Edit1->Text="0";
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button5Click(TObject *Sender)
{

 sayi=Edit1->Text.ToDouble();
 rad=(M_PI/180)*sayi;
 s=sin(rad);
Edit1->Text=FloatToStr(s);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button6Click(TObject *Sender)
{

 sayi=Edit1->Text.ToDouble();
 rad=(M_PI/180)*sayi;
 s=cos(rad);
Edit1->Text=FloatToStr(s);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button7Click(TObject *Sender)
{

 sayi=Edit1->Text.ToDouble();
 rad=(M_PI/180)*sayi;
 s=tan(rad);
Edit1->Text=FloatToStr(s);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button19Click(TObject *Sender)
{

 sayi=Edit1->Text.ToDouble();
 s=asin(sayi);
 d=(180*s)/M_PI;
 Edit1->Text=FloatToStr(d);
 sayi=d;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button20Click(TObject *Sender)
{

 sayi=Edit1->Text.ToDouble();
 s=acos(sayi);
 d=(180*s)/M_PI;
 Edit1->Text=FloatToStr(d);
 sayi=d;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button21Click(TObject *Sender)
{

 sayi=Edit1->Text.ToDouble();
 s=atan(sayi);
 d=(180*s)/M_PI;
 Edit1->Text=FloatToStr(d);
 sayi=d;
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button11Click(TObject *Sender)
{
 sayi=Edit1->Text.ToDouble();

 isaret='p';
 Edit1->Text="0";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button9Click(TObject *Sender)
{
sayi=Edit1->Text.ToDouble();

 s=log(sayi);
Edit1->Text=FloatToStr(s);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button13Click(TObject *Sender)
{
sayi=Edit1->Text.ToDouble();

 s=log10(sayi);
Edit1->Text=FloatToStr(s);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button14Click(TObject *Sender)
{
 sayi=Edit1->Text.ToDouble();

 isaret='m';
 Edit1->Text="0";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button10Click(TObject *Sender)
{
sayi=Edit1->Text.ToDouble();

 s=sqrt(sayi);
Edit1->Text=FloatToStr(s);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button15Click(TObject *Sender)
{          Edit1->Text="0";

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button32Click(TObject *Sender)
{
  Edit1->Text= Edit1->Text+",";
  Button32->Enabled=false;
}
//---------------------------------------------------------------------------