www.pudn.com > Tracert.rar > Unit1.cpp

//--------------------------------------------------------------------------- 
 
#include  
#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; 
} 
//---------------------------------------------------------------------------