Page History

...

// Numeric simulation
IF xSwitch then
    lrValue := lrValue + 0.01;
    IF lrValue >= 5.0 THEN
        xSwitch := False;
    END_IF
ELSE
    lrValue := lrValue - 0.01;
    IF lrValue <= -5.0 THEN
        xSwitch := True;
    END_IF
END_IF


BACnet_Analog_Value.PresentValue := lrValue;

...

Requirements for the BACnet client (As of BACnet-Version 1.2.0.0)

• Create a "Standard project" and select "CODESYS Control Win V3" as the device.
• Define the target system by means of the network scan (see BACnet server).
• Insert a "BACnet Server" object and rename it to "BACnet_Client"
  
  Image Added
  
  
  

• Adapt the "PLC_PRG" POU as follows:
  
  

  ---

  
  

  Section
  Column width 7 Declaration Column width 93 VAR fbReadProperty : BACnet.BACnetClientReadProperty; xReadExecute : BOOL; lrReadValue : LREAL; xInitDone : BOOL := FALSE; END_VAR

  
  

  ---

  
  

  Section
  Column width 7 Declaration Column width 93 Code Block theme Confluence VAR fbReadProperty : BACnet.BACnetClientReadProperty; xReadExecute : BOOL; lrReadValue : LREAL; xInitDone : BOOL := FALSE; END_VAR

  
  

  ---

  
  

  Section

  Column width 7 Implementation Column width 93 Code Block theme Confluence IF NOT xInitDone THEN fbReadProperty.RegisterToServer(BACnet_Client); fbReadProperty(dwTargetDeviceNumber := 718, objType := BACnet.CmpBACnet.IEC_BACNET_OBJECT_TYPE.OBJ_ANALOG_VALUE, objInst := 1, propID := BACnet.CmpBACnet.IEC_BACNET_PROPERTY_ID.PROP_PRESENT_VALUE); xInitDone := TRUE; ELSE fbReadProperty(xExecute := xReadExecute); IF fbReadProperty.xDone THEN xReadExecute := FALSE; lrReadValue := BACnet.GetRealFromContents(fbReadProperty.result); END_IF END_IF

  
  

  ---

  
  
  

Requirements for the BACnet client (Up to BACnet-Version 1.2.0.0)

...