S7 index bit

curlyandshemp · Sep 2, 2008

excuse the ignorance if this has been covered before, but I cannot find any past posts regarding the following code required in S7.

I need the equivalent of this Clgx rung to test an indexed bit into an input byte and output the result to the corresponding indexed bit in a Flag byte.

Thanks

Pandiani · Sep 3, 2008

Hello,

not really sure what you need, but did you search form for "tidbits"?

Regards

L D[AR2P#0.0] · Sep 3, 2008

Do you mean something like this ?

Code:

FUNCTION FC 6 : VOID
TITLE =
VERSION : 0.1

VAR_INPUT
  bBit0 : BOOL ; 
  bBit1 : BOOL ; 
  bBit2 : BOOL ; 
  bBit3 : BOOL ; 
  bBit4 : BOOL ; 
  bBit5 : BOOL ; 
  bBit6 : BOOL ; 
  bBit7 : BOOL ; 
END_VAR
VAR_OUTPUT
  byByte : BYTE ; 
END_VAR
BEGIN
NETWORK
TITLE =combine 8 bits into 1 byte
	  L	 P##byByte; 
	  LAR1  ; 
	  A	 #bBit0; 
	  =	  [AR1,P#0.0]; 
	  A	 #bBit1; 
	  =	  [AR1,P#0.1]; 
	  A	 #bBit2; 
	  =	  [AR1,P#0.2]; 
	  A	 #bBit3; 
	  =	  [AR1,P#0.3]; 
	  A	 #bBit4; 
	  =	  [AR1,P#0.4]; 
	  A	 #bBit5; 
	  =	  [AR1,P#0.5]; 
	  A	 #bBit6; 
	  =	  [AR1,P#0.6]; 
	  A	 #bBit7; 
	  =	  [AR1,P#0.7]; 
	  SET   ; 
	  SAVE  ; 
END_FUNCTION

S7 index bit

curlyandshemp

Lifetime Supporting Member

Pandiani

Lifetime Supporting Member

L D[AR2P#0.0]

Lifetime Supporting Member

Similar Topics