FUNCTION_BLOCK PUBLIC WriteRegisterMir
VAR_INPUT
    sRegister : STRING(3);
    rValue : REAL;
END_VAR
VAR_OUTPUT
    diError : BOOL;
    diDone : BOOL;
END_VAR
VAR
    wState : WORD := 0;

    (* Http POST *)
    oHttpPost: FbHTTP_Post;
    sURL : STRING(255) := '192.168.12.20/api/v2.0.0/registers/';
    sURI : STRING(255);
    MyAuthentification : eAuthentication := 1;
    xHttpSend : BOOL;
    sStatus : WagoSysErrorBase.FbResult;
    aRxBuffer : ARRAY [0..19999] OF BYTE;
    uiResponse : UDINT;
    sBasePayload : STRING :='{"value": ';
    sPayload : STRING;
END_VAR


oHttpPost(
    sURI:= sURI,
    sUser:= 'admin' ,
    sPassword:= '8c6976e5b5410415bde908bd4dee15dfb167a9c873fc4bb8a81f6f2ab448a918',
    sPostfields:= sPayload,
    sHeader:= 'Content-Type: application/json',
    eAuthentication:= MyAuthentification,
    pRxBuffer:= ADR(aRxBuffer),
    udiRxBufferSize:= 20000,
    tTimeout:= T#5S,
    xTrigger:= xHttpSend,
    xBusy=> ,
    xError=> diError,
    oStatus=> sStatus,
    udiRxNBytes=> uiResponse);

CASE wState OF
0 : (* IDLE - wait for something to do *)
    diDone := FALSE;
    sURI := CONCAT(sURL, sRegister);
    //sPayload := CONCAT(sBasePayload, REAL_TO_STRING(rValue)); // Use if double is needed
    sPayload := CONCAT(sBasePayload, INT_TO_STRING(REAL_TO_INT(rValue)));
    sPayload := CONCAT(sPayload, ', "label": "string"}');
    xHttpSend := TRUE;
    wState := 10;

10 : (* Wait for HTTP-GET response data *)
    IF NOT xHttpSend THEN
        IF  NOT diError THEN
            wState := 20;
        ELSE
            wState := 999;
        END_IF
    END_IF

20 :
    diDone := TRUE;
    wState := 0;


999 : (* *)
    diDone := TRUE;
    wState := 0;

END_CASE