DimAAsInteger DimP0AsString DimP1AsString DimDAsLong DimD3AsString DimD2AsString DimD1AsString DimD0AsString DimSumAsLong DimSAsString A=Hex（Inverter）

　　D=Hex（Data）

　　P0=Mid（P，3，2）

　　P1=Mid（P，0，2）

　　D3=Mid（Str（D），0，2）

　　D2=Mid（Str（D），3，2）

　　D1=Mid（Str（D），5，2）

　　D0=Mid（Str（D），7，2）

　　Sum=A+Val（Fun）+Val（P0）+Val（P1）+Val（D3）+Val（D2）+Val（D1）+Val（D0）

　　S=Right（Str（Hex（Sum）），2）

　　IfMSComm1PortOpen=FalseThenMSComm1. PortOpen=True MSComm1Output=“3ah” MSComm1Output=ASCII（Asc（Left（Str（A），1）））

　　MSComm1Output=ASCII（Asc（Right（Str（A），1）））

　　MSComm1Output=ASCII（Asc（Left（Str（Fun），1）））

　　MSComm1Output=ASCII（Asc（Right（Str（Fun），1）））

　　MSComm1Output=ASCII（Asc（Left（Str（P0），1）））

　　MSComm1Output=ASCII（Asc（Right（Str（P0），1）））

　　MSComm1Output=ASCII（Asc（Left（Str（P1），1）））

　　MSComm1Output=ASCII（Asc（Right（Str（P1），1）））

　　MSComm1Output=ASCII（Asc（Left（Str（D3），1）））

　　MSComm1Output=ASCII（Asc（Right（Str（D3），1）））

　　MSComm1Output=ASCII（Asc（Left（Str（D2），1）））

　　MSComm1Output=ASCII（Asc（Right（Str（D2），1）））

　　MSComm1Output=ASCII（Asc（Left（Str（D1），1）））

　　MSComm1Output=ASCII（Asc（Right（Str（D1），1）））

　　MSComm1Output=ASCII（Asc（Left（Str（D0），1）））

　　27 HydraulicsPneumaticsSeals/No42010 MSComm1Output=ASCII（Asc（Right（Str（D0），1）））

　　MSComm1Output=ASCII（Asc（Left（Str（S），1）））

　　MSComm1Output=ASCII（Asc（Right（Str（S），1）））

　　MSComm1Output=“0dh” MSComm1Output=“0ah” EndSub計算機控制系統根據設定的流量值，給變頻器發送一個初始的頻率值。液壓系統啟動后，計算機不斷的查詢系統的流量值，根據實際測量到的流量和設定流量之間的偏差來調整變頻器的輸出頻率，使系統流量符合要求。

4總結

　　變頻器通過調節電動機的轉速可以控制液壓系統的流量，并且能夠獲得較好的調節效果。RS-485協議是一種基于RS-485總線的通信協議，它使用方便，功能完善，抗干擾能力強。應用RS-485通信協議開發出的變頻調速系統能夠滿足系統的開發要求。