33 lines
1003 B
Plaintext
33 lines
1003 B
Plaintext
FUNCTION "ByteOfDWord" : Byte
|
|
{ S7_Optimized_Access := 'FALSE' }
|
|
VERSION : 0.1
|
|
VAR_INPUT
|
|
I_In : DWord; // Eingangs-DWORD
|
|
I_N : Int; // Byte-Nr
|
|
END_VAR
|
|
|
|
|
|
BEGIN
|
|
(*#################################################################################################
|
|
|
|
Copyright (c) Fondium Singen GmbH
|
|
|
|
### Änderungshistorie ###
|
|
|
|
Datum: Version: Bearbeiter: Beschreibung:
|
|
04.03.2021 0.0 St. Maier Neuerstellung
|
|
|
|
#################################################################################################*)
|
|
|
|
(*#################################################################################################
|
|
|
|
Beschreibung:
|
|
Der Funktion zerlegt ein Byte(I_In) in seine einzelnen Bits (O_B0 .. O_B7)
|
|
|
|
#################################################################################################*)
|
|
|
|
#ByteOfDWord := DWORD_TO_BYTE(SHR(IN := #I_In, N := WORD_TO_INT(SHL(IN := INT_TO_WORD(#I_N), N := 3))));
|
|
|
|
END_FUNCTION
|
|
|