640?wx_fmt=png&from=appmsg.jpg

FUNCTION_BLOCK PM_RotationSpeedCalculator

VAR_INPUT

    Sensor : BOOL;       // 鎰熷簲浼犳劅鍣ㄤ俊鍙�

    RunLength : REAL := 10;   // 杩愯�岄暱搴︼紙鍗曚綅锛氱背锛�

END_VAR

VAR_OUTPUT

    Speed : REAL;        // 閫熷害锛堝崟浣嶏細绫�/绉掞級

END_VAR

VAR

    LastTime : TIME;     // 涓婁竴娆℃��娴嬪埌浼犳劅鍣ㄧ殑鏃堕棿

    CurrentTime : TIME;  // 褰撳墠妫�娴嬪埌浼犳劅鍣ㄧ殑鏃堕棿

    TimeElapsed : REAL;  // 涓ゆ�℃��娴嬬殑鏃堕棿宸�锛堝崟浣嶏細绉掞級

    SensorTriggered : BOOL; // 浼犳劅鍣ㄨЕ鍙戠姸鎬�

END_VAR



(*

鐗堟湰璁板綍锛�

鐗堟湰          鏃ユ湡          浣滆��

 V1         2024-1-13     宸ユ帶鑰佺帇

*)



IF Sensor AND NOT SensorTriggered THEN

    CurrentTime := TIME(); // 璁板綍褰撳墠鏃堕棿

    IF LastTime <> T#0s THEN

        TimeElapsed := TIME_TO_REAL(CurrentTime - LastTime) / 1000.0; // 璁＄畻鏃堕棿宸�骞惰浆鎹�涓虹��

        IF TimeElapsed > 0 THEN

            Speed := RunLength / TimeElapsed; // 璁＄畻閫熷害

        END_IF

    END_IF

    LastTime := CurrentTime; // 鏇存柊涓婁竴娆℃椂闂�

    SensorTriggered := TRUE;

ELSIF NOT Sensor THEN

    SensorTriggered := FALSE;

END_IF