Лабы / Тельминов / набор_3 / лаб3 / part2 / part2 / part2_1 / Unit1

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  Timer1->Interval=100;
  Img->Canvas->Brush->Color=clWhite;
  Img->Canvas->FillRect(Rect(0,0,Img->Width,Img->Height));

  Ball=new CBall(Img);
  Doska= new CSupport(Img);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Doska->RotateToAngle(0);
  Ball->angle0=Doska->angle;
  Ball->angle=Doska->angle;
  Ball->MoveToAngle(0);
  Timer1->Enabled=1;
  Button2->Enabled=0;
  Button3->Enabled=0;
          
}
//---------------------------------------------------------------------------
void __fastcall TForm1::tick(TObject *Sender)
{
  try
  {
    Ball->Hide();
    Doska->Hide();
    Doska->RotateToAngle(0);
    Ball->MoveToAngle(0.5);
   }
   catch  (int d)
   {
     Timer1->Enabled=0;
     Timer2->Enabled=1;
   }

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

//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   Doska->Hide();
   Doska->RotateToAngle(pi/10);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
   Doska->Hide();
   Doska->RotateToAngle(-pi/10);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
 //Ball->Hide();
  Ball->t+=0.1;
  Ball->Fly(3,3);
}
//---------------------------------------------------------------------------