基于遠(yuǎn)程io和變頻器的電機(jī)調(diào)速系統(tǒng)設(shè)計(jì)-閱讀頁(yè)
2025-07-12 20:54本頁(yè)面
【正文】 壓力計(jì)使用手冊(cè)附錄 程序清單//include pragma hdrstopinclude include //pragma package(smart_init)pragma link MSCommLib_OCXpragma link PERFGRAPpragma resource *.dfmfloat SP=。float L_ad,L_ad1。float KP=,I=22,D=,KD=,PV=。float TS=。TForm1 *Form1。 if(MSComm1PortOpen==false) MSComm1PortOpen=true。 SendString +=\xd。 Sleep(200)。 //數(shù)據(jù)轉(zhuǎn)換 /*********一階慣性濾波********/ L_ad=*PV+*L_ad1。 Edit1Text=FloatToStrF(L_ad,0,5,5)。 //計(jì)算設(shè)定壓強(qiáng) Edit15Text=FloatToStrF(Press,0,2,2)。 //計(jì)算相對(duì)誤差 /*********設(shè)置報(bào)警限********/ if(PressHL ||PressLL) { if(MSComm1PortOpen==false) MSComm1PortOpen=true。 SendString2 +=\xd。 MSComm1PortOpen=false。amp。 AnsiString SendString3=030000。 MSComm1Output=OleVariant(AnsiString(SendString3))。 } /*********不完全微分PID********/ En=L_adSP。 //微分環(huán)節(jié)的位置型算式 DeltaUn=(KP*TS/I)*Udn+KP*(UdnUdn1)。 //Un為本周期PID控制器的輸出 ，P148頁(yè)由增量式PID算式得到PID控制器輸出 if(Un) Un=。 Un1=Un。 Udn1=Udn。 AnsiString SendString1=02C2。 SendString1 +=FloatToStrF(Un,0,4,4)。 SendString1 +=FloatToStrF(Un,0,5,5)。 MSComm1Output=OleVariant(AnsiString(SendString1))。Edit1Text=FloatToStrF(L_ad,0,5,5)。}//void __fastcall TForm1::FormCreate(TObject *Sender){SetP= SP*。Edit16Text=FloatToStrF(SetP,0,2,2)。 K2=TS/(D/KD+TS)。 Edit10Text=FloatToStrF(HL,0,2,2)。 Edit12Text=FloatToStrF(DB,0,2,2)。 Edit5Text=FloatToStrF(I,0,2,2)。 Edit7Text=FloatToStrF(KD,0,2,2)。 }//void __fastcall TForm1::Button1Click(TObject *Sender){KP=StrToFloat(Edit4Text)。D=StrToFloat(Edit6Text)。HL=StrToFloat(Edit10Text)。DB=StrToFloat(Edit12Text)。SP=SetP*+。SP=StrToFloat(Edit2Text)。 //計(jì)算設(shè)定壓強(qiáng)//Edit16Text=FloatToStrF(SetP,0,3,2)。 K2=TS/(D/KD+TS)。Image2 CanvasPenColor = clRed。Image2CanvasMoveTo(35,297)。Image2 CanvasPenColor = clBlue。Image2CanvasLineTo(55,297L_ad*297/)。Image2CanvasMoveTo(70,297)。//繪制趨勢(shì)曲線 PerformanceGraph1DataPoint(clBlue,Press*321/)。 PerformanceGraph1DataPoint(clGreen,Un*321/)。}//
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1