640?wx_fmt=png&from=appmsg.jpg

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 ;