浼�闅忔満鏁�-codesys鐨凷T瀹炵幇涓ょ�嶆柟娉�

鏃犲績椋炴壃

ST瀹炵幇浼�闅忔満鏁扮殑涓ょ�嶆柟娉�
浣跨敤codesys鐨凢UN鍑芥暟鍧楀疄鐜�

鏂规硶涓�锛歀CG绠楁硶锛孲eed= (Seed *259 + 147) MOD 27200
(**********************************************鍙橀噺鍖轰竴**********************************************)
VAR_IN_OUT
        Seed:dINT;
        Range_MinValue:REAL;
        Range_MaxValue:REAL;
end_var
var_output
        RandReal:REAL;
END_VAR
VAR
        SCALE_X:REAL;
        RandInt:dINT;
END_VAR

(*********************************************绋嬪簭鍖轰竴**********************************************)
//绠楀嚭鐨剆eed
        RandInt := (Seed *259 + 147) MOD 27200;
        Seed := RandInt;
//鎶婃暟鎹�鍘嬬缉鍒板湪0鑷�1.0涔嬮棿        
        RandReal := DINT_TO_REAL(RandInt)/ 27200.0;
//璁剧疆鍖洪棿鍚庯紝杈撳嚭鍖洪棿鍊肩缉鏀�:OUT = [VALUE * (MAX 鈥� MIN)] + MIN
IF          Range_MinValue < Range_MaxValue  THEN
        SCALE_X :=RandReal*(Range_MaxValue-Range_Minvalue)+Range_Minvalue;
        RandReal := SCALE_X;
END_IF


鏂规硶浜岋細浣跨敤绯荤粺鏃堕棿绾崇��
(**********************************************鍙橀噺鍖轰簩**********************************************)
FUNCTION NS_Random_R : real
VAR_INPUT
        Range_MinValue:REAL;
        Range_MaxValue:REAL;
end_var

VAR CONSTANT
        udiMinUdint:UDINT:=0;//鏃犵�﹀彿鍙屾暣鏁扮殑鏈�灏忓��
        udiMaxUdint:UDINT:=16#ffffffff;//鏃犵�﹀彿鍙屾暣鏁扮殑鏈�澶у��4294967295
END_VAR

VAR
        uliGetRtcNs: ULINT;        //鑾峰彇绯荤粺鏃堕棿绾崇�掑彉閲忥紝Alias SYSTIME: ULINT
        //udiGetRtcNsStatus: UDINT;//鑾峰彇绾崇�掓椂闂寸粨鏋�*)
        
(*鏁版嵁杞�鎹㈠彉閲�*)
        uliConvertValue0: UDINT;
        uliConvertValue1: UDINT;
        uliConvertValue2: UDINT;
        uliConvertValue3: UDINT;
        uliConvertValue4: UDINT;
        uliConvertValue:UDINT;
        
        rNORM_X:REAL;
        SCALE_X:REAL;

END_VAR

(**********************************************绋嬪簭鍖轰簩**********************************************)
(*//璇诲彇PLC鐨勭郴缁熸椂闂寸撼绉掕�绘暟锛�
//鐒跺悗鍙栫郴缁熸椂闂寸撼绉掑悗鍥涘瓧鑺傦紝骞朵氦鎹㈠瓧鑺傞『搴忥細1234杞�涓�4321
//鍐嶆爣鍑嗗寲涔嬪悗鍘嬬缉鍒�0.0鍒�1.0涔嬮棿锛�
//鏈�鍚庣嚎鎬ц浆鍖栧埌璁惧畾鑼冨洿鍐�
//鏈�璁剧疆缂╂斁鑼冨洿锛岃緭鍑虹粨鏋滄槸鍦�0鍒�1.0涔嬮棿*)

(*璇荤郴缁熸椂闂寸撼绉掞紝绾崇�掓槸64浣嶆棤绗﹀彿闀挎暣鍨嬫暟*)
        //udiGetRtcNsStatus:=SysTimeGetNs(uliGetRtcNs);
        SysTimeGetNs(uliGetRtcNs);
(*璇诲嚭鏉ョ殑绾崇�掓槸8涓�瀛楄妭鏃犵�﹀彿闀挎暣鍨嬫暟锛屽彇鍚庡洓涓�瀛楄妭锛屽苟浜ゆ崲瀛楄妭椤哄簭锛�1234杞�涓�4321*)
        uliConvertValue0:=ULINT_TO_UDINT(uliGetRtcNs);//鎶�8瀛楄妭鏃犵�﹀彿闀挎暣鏁拌浆鎹㈡垚4瀛楄妭鏃犵�﹀彿鏁存暟
        uliConvertValue1 := ROL(uliConvertValue0,24);//浜ゆ崲绗�1瀛楄妭鍜岀��3瀛楄妭
        uliConvertValue2 := ROL(uliConvertValue0,8);//浜ゆ崲绗�0瀛楄妭鍜岀��2瀛楄妭
        uliConvertValue3 := uliConvertValue1 AND 16#FF00FF00;
        uliConvertValue4 := uliConvertValue2 AND 16#00FF00FF;
        uliConvertValue := uliConvertValue3 OR uliConvertValue4;
        
(*鎶婂彉閲忕殑鍊兼槧灏勫埌0.0~1.0涔嬮棿锛屽�瑰叾杩涜�屾爣鍑嗗寲*)
//鏍囧噯鍖栧叕寮忥細OUT = (VALUE 鈥� MIN) / (MAX 鈥� MIN)
        rNORM_X := UDINT_TO_REAL(uliConvertValue-udiMinUdint) /UDINT_TO_REAL(udiMaxUdint-udiMinUdint);
        NS_Random_R := rNORM_X;

(*鎶婃爣鍑嗗寲缁撴灉缂╂斁鍒版寚瀹氱殑鍙栧�艰寖鍥�(鏈�灏忓�煎拰鏈�澶у�间箣闂�)*)
//鍏堝垽鏂�鏄�鍚︿娇鐢ㄧ缉鏀惧尯闂�
//缂╂斁鍏�寮�:OUT = [VALUE * (MAX 鈥� MIN)] + MIN
IF         Range_MinValue < Range_MaxValue  THEN
        SCALE_X :=rNORM_X*(Range_MaxValue-Range_Minvalue)+Range_Minvalue;
        NS_Random_R := SCALE_X;
END_IF

(**********************************************鏁堟灉**********************************************)