CODESYS 瀹炴垬锛氬疄鐜伴殢鏈烘暟鐢熸垚鍔熻兘

FUNCTION_BLOCK PM_RandomNumber
VAR_INPUT
  Trigger : BOOL; (* 涓婂崌娌胯Е鍙戜俊鍙� *)
    UpperLimit : REAL; (* 闅忔満鏁颁笂闄� *)
    LowerLimit : REAL; (* 闅忔満鏁颁笅闄� *)
END_VAR
VAR_OUTPUT
  RandomNumber : REAL; (* 杈撳嚭鐨勯殢鏈烘暟 *)
END_VAR
VAR
  LastTrigger : BOOL; (* 涓婁竴娆＄殑瑙﹀彂淇″彿鐘舵�� *)
  RandomSeed : DWORD; (* 闅忔満绉嶅瓙 *)
END_VAR

(*
鐗堟湰璁板綍锛�
鐗堟湰          鏃ユ湡          浣滆��
 V1         2024-3-09 
*)

// 鍒濆�嬪寲闅忔満绉嶅瓙
IF RandomSeed = 0 THEN
    RandomSeed := TO_DWORD(TIME_TO_TOD(TIME())); // 浣跨敤褰撳墠鏃堕棿浣滀负绉嶅瓙
END_IF

// 妫�娴嬩笂鍗囨部
IF Trigger AND NOT LastTrigger THEN
    // 鐢熸垚 0 鍒� 1 涔嬮棿鐨勯殢鏈烘暟
    RandomSeed := RandomSeed * 1664525 + 1013904223;
    RandomNumber := TO_REAL(RandomSeed MOD 10000) / 10000.0;
    
    // 缂╂斁鍒版寚瀹氱殑涓婁笅闄愯寖鍥�
    RandomNumber := LowerLimit + RandomNumber * (UpperLimit - LowerLimit);
END_IF

// 鏇存柊涓婁竴娆＄殑瑙﹀彂淇″彿鐘舵��
LastTrigger := Trigger;