unit1.cpp

进行轨迹追踪的实验,用于体育训练中

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

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

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 //声明全局变量


}
//---------------------------------------------------------------------------
randomize();
int b0=random(20)-10;
int b1=random(20)-10;
int b2=random(20)-10;
int b3=random(20)-10;
int b4=random(20)-10;
int b5=random(20)-10;
int b6=random(20)-10;
int a0=random(20)-10;
int a1=random(20)-10;
int a2=random(20)-10;
int a3=random(20)-10;
int a4=random(20)-10;
int a5=random(20)-10;
int a6=random(20)-10;
int x=10;
int y1;

//----------自定义函数
 int gety1(int x)
 {
  int y;
  y=b0+a1*sin(x)+b1*cos(x)+a2*sin(2*x)+b2*cos(2*x)+a3*sin(3*x)+b3*cos(3*x)+a4*sin(4*x)+b4*cos(4*x)+a5*sin(5*x)+b5*cos(5*x)+a6*sin(6*x)+b6*cos(6*x);
  return y;
  }

//ShowMessage(""+IntToStr(a0)+IntToStr(a1)+IntToStr(a2)+IntToStr(a3)+IntToStr(a4)+IntToStr(a5)+IntToStr(a6)+IntToStr(b0)+IntToStr(b1)+IntToStr(b2)+IntToStr(b3)+IntToStr(b4)+IntToStr(b5)+IntToStr(b6)+"");

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
//Shape1->Left=  Shape1->Left+1;

Shape1->Left=x;
x=x+5 ;
Shape1->Top=y1+300;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Panel1Click(TObject *Sender)
{
//Form1->Edit1->Text=0;


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

void __fastcall TForm1::Panel1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
Form1->Edit1->Text=X;
Form1->Edit2->Text=Y;
Form1->Edit3->Text=Shape1->Left;
Form1->Edit4->Text=Shape1->Top;
Shape2->Left=X;
Shape2->Top=Y;

//Form1->Edit3->Text=Panel1->Shape1->Left;
//Form1->Edit4->Text=Panel1->Shape1->Top;
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button2Click(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------

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

//ShowMessage(""+IntToStr(a0)+IntToStr(a1)+IntToStr(a2)+IntToStr(a3)+IntToStr(a4)+IntToStr(a5)+IntToStr(a6)+IntToStr(b0)+IntToStr(b1)+IntToStr(b2)+IntToStr(b3)+IntToStr(b4)+IntToStr(b5)+IntToStr(b6)+"");

 Form1->Timer1->Enabled=true;
 Form1->Timer2->Enabled=true;
 Form1->Timer3->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
x=x+1;
y1=gety1(x);
}
//---------------------------------------------------------------------------



void __fastcall TForm1::FormPaint(TObject *Sender)
{
Form1->Color=clWhite;
Canvas->Pen->Color=clRed;
Canvas->Pen->Width=1;
Canvas->Pen->Style=psSolid;
Canvas->MoveTo(10,200);
Canvas->LineTo(10,400);
Canvas->MoveTo(10,300);
Canvas->LineTo(910,300);
Canvas->MoveTo(310,200);
Canvas->LineTo(310,400);
Canvas->MoveTo(610,200);
Canvas->LineTo(610,400);
Canvas->MoveTo(910,200);
Canvas->LineTo(910,400);

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



void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
Shape2->Left=X;
Shape2->Top=Y;
Form1->Edit1->Text=Shape1->Left;
Form1->Edit2->Text=Shape1->Top;
Form1->Edit3->Text=X;
Form1->Edit4->Text=Y;


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


void __fastcall TForm1::Timer3Timer(TObject *Sender)
{
Form1->Timer1->Enabled=false;
Form1->Timer2->Enabled=false;
Form1->Timer3->Enabled=false;
}
//---------------------------------------------------------------------------