Курсовая работа / KURSOVA_ROBOTA / Дроби / PowUnit

#include <vcl.h>
#pragma hdrstop
#include "PowUnit.h"
#include "FracUnit.h"
#include "CalculateFrac.h"
#include "Math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TPowForm *PowForm;
//---------------------------------------------------------------------------
__fastcall TPowForm::TPowForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TPowForm::FormActivate(TObject *Sender)
{
Label3->Hide(); Label6->Hide();
Edit5->Hide(); Edit6->Hide(); Edit7->Hide();
Edit1->Clear(); Edit2->Clear(); Edit3->Clear(); Edit5->Clear();
Edit6->Clear(); Edit7->Clear();
Button1->Enabled=true;        
}
//---------------------------------------------------------------------------
void __fastcall TPowForm::Button1Click(TObject *Sender)
{
  int a,b,n;
  if(((Edit1->Text).Length()==0)||((Edit2->Text).Length()==0)||
     ((Edit3->Text).Length()==0))
  {
    ShowMessage("Заповніть всі поля!");
    return;
  }
  a=StrToInt(Edit1->Text);
  b=StrToInt(Edit2->Text);
  n=StrToInt(Edit3->Text);
  if(b==0)
  {
    ShowMessage("Ділення на нуль!!");
    return;
  }
  if(n<2)
  {
    ShowMessage("Степінь має бути більше '2'!!");
    return;
  }
  Button1->Enabled=false; Label3->Show();
  CalculateFrac *Calculate=new CalculateFrac;
  Calculate->PowFrac(a,b,n);
  if(Calculate->GetA()!=0)
  {
    Edit5->Show();
    Edit5->Text=IntToStr(Calculate->GetA());
  }
  if(Calculate->GetP()!=0)
  {
    Edit6->Show(); Edit7->Show(); Label6->Show();
    Edit6->Text=IntToStr(Calculate->GetP());
    Edit7->Text=IntToStr(Calculate->GetQ());
  }
  if((Calculate->GetA()==0)&&(Calculate->GetP()==0))
  {
    Edit5->Show();
    Edit5->Text="0";
  }
}
//---------------------------------------------------------------------------
void __fastcall TPowForm::Button2Click(TObject *Sender)
{
Label3->Hide(); Label6->Hide();
Edit5->Hide(); Edit6->Hide(); Edit7->Hide();
Edit1->Clear(); Edit2->Clear(); Edit3->Clear(); Edit5->Clear();
Edit6->Clear(); Edit7->Clear();
Button1->Enabled=true;        
}
//---------------------------------------------------------------------------
void __fastcall TPowForm::Button3Click(TObject *Sender)
{
  PowForm->Close();
  MainForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TPowForm::Edit1KeyPress(TObject *Sender, char &Key)
{
  if(((Key>='0')&&(Key<='9'))||(Key==VK_BACK)||(Key=='-'))
    return;
  if(Key==VK_RETURN)
    Edit2->SetFocus();
  Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TPowForm::Edit2KeyPress(TObject *Sender, char &Key)
{
  if(((Key>='0')&&(Key<='9'))||(Key==VK_BACK))
    return;
  if(Key==VK_RETURN)
    Edit3->SetFocus();
  Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TPowForm::Edit3KeyPress(TObject *Sender, char &Key)
{
  if(((Key>='0')&&(Key<='9'))||(Key==VK_BACK))
    return;
  if(Key==VK_RETURN)
    Button1->SetFocus();
  Key=0;
}
//---------------------------------------------------------------------------