블록 체크 문자 계산
이 FP 명령은 s1_Control에서 지정한 계산에 따라 블록 체크 문자(BCC)를 계산합니다. 데이터는 시작 어드레스 s2_Start와 바이트 수 n_Bytes에서 지정됩니다. BCC는 d에서 지정한 16비트 영역에 저장됩니다.
입력
계산 방식
시작 어드레스
바이트 수
출력
블록 체크 문자
제어 코드 s1_Control
0: 더하기(SYS_BCC_CALCULATION_METHOD_ADD)
1: 빼기(SYS_BCC_CALCULATION_METHOD_SUB)
2: 배타적 OR(SYS_BCC_CALCULATION_METHOD_XOR)
16#A: CRC-16 (SYS_BCC_CALCULATION_METHOD_CRC16)
16#0–16#F
0: 이전 데이터(1바이트)
1: ASCII 데이터(2바이트)
인덱스 한정자를 사용하여 지정한 영역이 제한을 초과하는 경우.
인덱스 한정자를 사용하여 지정한 영역이 제한을 초과하는 경우.
이 펑션 프로그램 시 사용한 모든 입력과 출력 변수는 POU 헤더에서 선언되었습니다.모든 프로그래밍 언어에 같은 POU 헤더를 사용합니다.
VAR
bStart: BOOL:=FALSE;
(*activates the function*)
iBCC_Calc_Method: INT:=2;
sASCII_String: STRING[32]:='%01#RCSX0000';
(*specifies the operation:
0: addition
1: subtraction
2:XOR*)
wBCC: WORD:=0;
(*result after a 0->1 leading
edge from start: 10#172*)
END_VAR
bStart가 TRUE로 전환되면 블록 체크 문자 계산은 sASCII_String에서 수행됩니다. 계산 방식은 배타적 OR입니다. (다수의 데이터가 전송되는 경우에 이 방식을 사용합니다.)
배타적 OR 연산:
bvar_1 |
bvar_2 |
bvar_3 |
|
0 |
0 |
0 |
|
0 |
1 |
1 |
|
1 |
0 |
1 |
|
1 |
1 |
0 |
첫 두 문자의 이진 코드가 서로 비교되어 8문자 배타적 OR 연산 결과가 생성됩니다. 그런 다음 결과는 최종 문자에 도달할 때까지 다음 문자와 그 다음 문자 순으로 문자의 이진 코드와 비교됩니다. 마지막 배타적 OR 결과는 블록 체크 코드입니다.
배타적 OR 연산을 사용한 BCC 계산:
BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 0 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 11 ;
NETWORK_BODY
B(B_CONTACT,,bStart,3,2,5,4,);
B(B_VARIN,,iBCC_Calc_Method,24,3,26,5,);
B(B_F,Adr_Of_VarOffs_I!,,16,5,25,9,,?D@'Var'?DOffs?CAdr);
B(B_VAROUT,,wBCC,33,3,35,5,);
B(B_VARIN,,sASCII_String,11,4,13,6,);
B(B_VARIN,,2,14,7,16,9,);
B(B_F,LEN!,,16,8,21,11,,?DIN?C);
B(B_F,FP_BCC!,,26,1,33,7,,?DEN?Ds1_Control?Ds2_Start?Dn_Bytes?AENO?Cd);
L(16,5,16,7);
L(13,5,16,5);
L(13,5,13,10);
L(13,10,16,10);
L(25,5,25,7);
L(25,5,26,5);
L(26,6,26,10);
L(21,10,26,10);
L(5,3,26,3);
L(1,3,3,3);
L(1,0,1,11);
END_NETWORK_BODY
END_NET_WORK
END_BODY
예를 들어 Adr_Of_VarOffs_I를 사용하여 2워드 오프셋을 만들어 문자열 스타트 코드를 보정합니다. LEN을 사용하면 BCC 계산이 전체 데이터 문자열에서 수행됩니다.
IF bStart then
FP_BCC(s1_Control := iBCC_Calc_Method,
s2_Start := Adr_Of_VarOffs( Var:= sASCII_String, Offs:= 2),
n_Bytes := LEN( sASCII_String),
d => wBCC);
END_IF;