Sample program for SFC55

Hello,

Did you try to hitF1 ?

Source:

FUNCTION FC 1 : VOID
TITLE =

VERSION : 0.1

VAR_TEMP

P_REQ: BOOL ;
P_BUSY: BOOL ;
P_IOID: BYTE ;
P_LADDR: WORD ;
P_RECNUM: BYTE ;
P_RET_VAL: INT ;
END_VAR

BEGIN
NETWORK
TITLE =
ANT 1 ;//Value is only read in if no parameters
//were changed for 300 ms
JCcont ;
LPIW 352 ;//Read in analog input
TQW 16 ;//and write to QW 16
cont:AI 0.0 ;//Switch for input range;
FPM 10.1 ;//once confirms 10-V range, second time
//confirms 2.5-V range
ANM 10.0 ;
=M 10.2 ;
AI 0.0 ;
FPM 10.3 ;
AM 10.0 ;
=M 10.4 ;
AM 10.2 ;
SM 10.0 ;
JCm001 ;//Jump to 2.5 V parameter assignment

AM 10.4 ;
RM 10.0 ;
JCm002 ;//Jump to 10 V parameter assignment
BEU ;
m001:LPIW 352 ;// Load the analog input value
LW#16#0B00 ;//25% of maximum value = 2.5 V
>I ; //If the analog value is still over 2.5 V
JCend ;//the parameters must not be changed.
LB#16#15 ;//Input range parameter record 1,
//set group 0 to 2.5 V
TDB55.DBB 2 ;
JUm003 ;
m002:LB#16#19 ;//Input range parameter record 1,

TDB55.DBB2 ;//set group 0 to 10 V

m003: CLR ;//Start parameter reassignment time

SDT1 ;
SET ;
LS5T#300MS ;
SDT1 ;
AN#P_REQ ;//Activate block processing
S#P_REQ ;
LB#16#54 ;
T#P_IOID ;//Load IOID number (ID whether peripheral input
//or peripheral output)
L352 ;//Load module base address
T#P_LADDR ;//and transfer to variable
L1 ;//Load data record number
T#P_RECNUM ;//and transfer to variable
CALLSFC 55// SFC 55 "WR_PARM" (transfer parameter to
//module)
(REQ:= #P_REQ,//Request to write

IOID:= #P_IOID,
LADDR:= #P_LADDR,//Logical base address of module
RECNUM:= #P_RECNUM,//Data record number

RECORD:=P#DB55.DBX 0.0 Byte 14, //Data record

RET_VAL:= #P_RET_VAL,
BUSY:= #P_BUSY) ;
ABR ;//Error evaluation
=M 10.7 ;
end:NOP 0 ;
END_FUNCTION

//***********************************************************************************

DATA_BLOCK DB 55
TITLE = Data record 1 of the analog input module

STRUCT

EN_ALARM: BYTE ;// Enable alarms. Initial value B#16#00

INT_TIME: BYTE ;// Integration time. Initial value B#16#FF
IN_GR0: BYTE ;// Input range group 0: ± 10 V. Initial value
//B#16#19
IN_GR1: BYTE ;// Input range group 1: ± 10 V. Initial value
//B#16#19
IN_GR2: BYTE ;// Input range group 2: ± 10 V. Initial value
//B#16#19
IN_GR3: BYTE ;// Input range group 3: ± 10 V. Initial value
//B#16#19
UL_CH0: WORD ;//Upper limit value channel 0. Initial value

//W#16#7FFF
LL_CH0: WORD ;//Lower limit value channel 0. Initial value
//W#16#8000
UL_CH2: WORD ;//Upper limit value channel 2. Initial value
//W#16#7FFF
LL_CH2: WORD ;//Lower limit value channel 2. Initial value
//W#16#8000
END_STRUCT ;

BEGIN

END_DATA_BLOCK

//***********************************************************************************

ORGANIZATION_BLOCK OB 1
TITLE = Call FC1
Version: 1.0

VAR_TEMP

SYSTEM: ARRAY [1..20] OF BYTE ;

END_VAR

BEGIN

CALLFC 1;

END_ORGANIZATION_BLOCK

Regards,

Marcjan