基于PCI1711U和变频器的电机调速系统设计.docVIP

//--------------------------------------------------------------------------- #includemath.h #include vcl.h #pragma hdrstop #include Unit1.h //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link DAQAILib_OCX #pragma link DAQAOLib_OCX #pragma resource *.dfm float SP=100,PV=0; int pvtrend[480]; int sptrend[480]; int mvtrend[480]; float pvtrend0[15]; float pvtrend1[5]; int t1; int t; //计数 float A=5.0,T=10.0;//曲线参数 A为0-10，T显示为0-20 float HS=1473,LS=0; float P=100,I=20,D=0.01; float Un=0.0,DeltaUn=0.0,Un1=0.0,En=0.0,En1=0.0,En2=0.0; float q0,q1,q2; float TS=1.0; float dav; TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { float ad_data,sum=0.0; t++; if(RadioGroup1-ItemIndex==0) //选择开环控制 { Timer1-Enabled=true; Timer2-Enabled=false; Edit2-Enabled=true; //周期可改 Edit5-Enabled=false; //PID参数不可调 Edit6-Enabled=false; Edit7-Enabled=false; for(int i=0;i4;i++) //滑动滤波 { pvtrend1[i]=pvtrend1[i+1]; sum+=pvtrend1[i]; } ad_data=DAQAI1-RealInput(9); pvtrend1[4]=ad_data*1500/5.0; sum+= pvtrend1[4]; PV=sum/5; switch(RadioGroup2-ItemIndex) //设定转速曲线类型 { case 0: //恒定值 if(A10){Edit1-Text=10;} A=Edit1-Text.ToDouble(); SP=A*142.5; dav=A; //输出幅值 DAQAO1-Channel=0; DAQAO1-RealOutput(dav); //0-10V 对应0-1450R/min *1472/4095 break; case 1: //正弦波 if(A10){Edit1-Text=10;} if((T/25)20){Edit2-Text=20;} A=Edit1-Text.ToInt(); T=25*(Edit2-Text.ToInt()); dav=SP*5.0/751; DAQAO1-Channel=0