基于遠程io和變頻器的電機調速系統設計-資料下載頁

【導讀】控制系統的工作原理、硬件結構和軟件設計。其中PC機作為控制器，變頻器作。模塊作為測量變送器，共同構成一個單回路閉環控制和報警系統。經過系統地測試，該控制系統動態誤差控制在較小范圍，能夠滿足控制要求。

　　

【正文】 Press(LL+DB)amp。amp。 Press(HLDB)) { if(MSComm1PortOpen==false) MSComm1PortOpen=true。 AnsiString SendString3=030000。 SendString3 +=\xd。 MSComm1Output=OleVariant(AnsiString(SendString3))。 MSComm1PortOpen=false。 } /*********不完全微分 PID********/ En=L_adSP。 //反作用 Udn=Udn1+K1*(EnEn1)+K2*(EnUdn1)。 //微分環節的位置型算式 DeltaUn=(KP*TS/I)*Udn+KP*(UdnUdn1)。 //整個不完全微分 PID 的增量式算式 Un=Un1+DeltaUn。 //Un為本周期 PID控制器的輸出 ， P148 頁由增量式 PID算式得到 PID 控制器輸出 if(Un) Un=。 if(Un) Un=。 重慶科技學院 計算機測控系統設計 —— 基于遠程 I/O 和變頻器的電機調速系統設計 16 Un1=Un。 //偏差移動 En1=En。 Udn1=Udn。 /*********控制輸出 ********/ if(MSComm1PortOpen==false) MSComm1PortOpen=true。 AnsiString SendString1=02C2。 if(Un) { SendString1 +=+0。 SendString1 +=FloatToStrF(Un,0,4,4)。 } if(Un=) { SendString1 +=+。 SendString1 +=FloatToStrF(Un,0,5,5)。 } SendString1 +=\xd。 MSComm1Output=OleVariant(AnsiString(SendString1))。 MSComm1PortOpen=false。 Edit1Text=FloatToStrF(L_ad,0,5,5)。 Edit3Text=FloatToStrF(Un,0,5,5)。 } // void __fastcall TForm1::FormCreate(TObject *Sender) 重慶科技學院 計算機測控系統設計 —— 基于遠程 I/O 和變頻器的電機調速系統設計 17 { SetP= SP*。 //計算設定壓強 Edit2Text=FloatToStrF(SP,0,5,5)。 Edit16Text=FloatToStrF(SetP,0,2,2)。 K1=D/(D/KD+TS)。 K2=TS/(D/KD+TS)。 Edit16Text=FloatToStrF(SetP,0,2,2)。 Edit10Text=FloatToStrF(HL,0,2,2)。 Edit11Text=FloatToStrF(LL,0,2,2)。 Edit12Text=FloatToStrF(DB,0,2,2)。 Edit4Text=FloatToStrF(KP,0,2,2)。 Edit5Text=FloatToStrF(I,0,2,2)。 Edit6Text=FloatToStrF(D,0,2,2)。 Edit7Text=FloatToStrF(KD,0,2,2)。 } // void __fastcall TForm1::Button2Click(TObject *Sender) { Close()。 } // void __fastcall TForm1::Button1Click(TObject *Sender) { KP=StrToFloat(Edit4Text)。 重慶科技學院 計算機測控系統設計 —— 基于遠程 I/O 和變頻器的電機調速系統設計 18 I=StrToFloat(Edit5Text)。 D=StrToFloat(Edit6Text)。 KD=StrToFloat(Edit7Text)。 HL=StrToFloat(Edit10Text)。 LL=StrToFloat(Edit11Text)。 DB=StrToFloat(Edit12Text)。 SetP=StrToFloat(Edit16Text)。 SP=SetP*+。 //計算設 定值 Edit2Text=FloatToStrF(SP,0,5,5)。 SP=StrToFloat(Edit2Text)。 //SetP= SP*。 //計算設定壓強 //Edit16Text=FloatToStrF(SetP,0,3,2)。 K1=D/(D/KD+TS)。 K2=TS/(D/KD+TS)。 } // void __fastcall TForm1::Timer2Timer(TObject *Sender) { Image2PictureLoadFromFile()。 Image2 CanvasPenColor = clRed。 Image2 CanvasPenWidth = 5。 Image2CanvasMoveTo(35,297)。 Image2CanvasLineTo(35,297SP*297/)。 Image2 CanvasPenColor = clBlue。 重慶科技學院 計算機測控系統設計 —— 基于遠程 I/O 和變頻器的電機調速系統設計 19 Image2CanvasMoveTo(55,297)。 Image2CanvasLineTo(55,297L_ad*297/)。 Image2 CanvasPenColor = clGreen。 Image2CanvasMoveTo(70,297)。 Image2CanvasLineTo(70,297Un*297/)。 //繪制趨勢曲線 PerformanceGraph1DataPoint(clBlue,Press*321/)。 PerformanceGraph1DataPoint(clRed,SetP*321/)。 PerformanceGraph1DataPoint(clGreen,Un*321/)。 PerformanceGraph1Update()。 } //