闄ゅ�曞畨搴凤紙鐢–odesys闅忔満鏁版潵鍙戠孩鍖咃級

FUNCTION Fc_Random : UDINT
VAR_INPUT
END_VAR
VAR
    bMarlonRando : UDINT;
    mbs          : CmpCrypto.CmpCrypto_Interfaces.RtsByteString := (ui32Len := 4, ui32MaxLen := 4, pByData := ADR(bMarlonRando));
    Result       : CmpCrypto.CmpCrypto_Implementation.CmpCrypto_Interfaces.SysTypes.RTS_IEC_RESULT; 
END_VAR
//Requires CmpCrypto library
//Requires device vendor to have included Crypto component in Runtime
Result := CmpCrypto.CryptoGenerateRandomNumber(ui32NumOfRandomBytes:= 4, pRandom:= ADR(mbs));
Fc_Random := bMarlonRando;

PROGRAM Pro_Main
VAR
    xStart   : BOOL;
    UdiMin   : UDINT := 1;
    UdiMax   : UDINT := 50;
    iToDo    : INT ;
    UdiOut   : ARRAY [1..5] OF UDINT ;
    UdiTemp  : UDINT;
    UdiTotal : UDINT;
END_VAR
IF xStart THEN
    UdiTotal := UdiMax ;
    FOR iToDo := 1 TO 4 DO
        UdiTemp       := Fc_Random() ;//闅忔満鏁板嚱鏁�
        UdiOut[iToDo] := UdiTemp MOD UdiTotal ;
        IF UdiOut[iToDo] = 0 THEN
            UdiOut[iToDo] := UdiMin ;
        END_IF ;
        UdiTotal      := UdiTotal - UdiOut[iToDo] ;
    END_FOR ;
    UdiOut[5] := UdiTotal ;
    xStart    := FALSE ;
END_IF ;