mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-04-07 06:48:43 +00:00
S7: AWrite fix for S7-200 and S7-300 (charlie71)
git-svn-id: https://svn.fhem.de/fhem/trunk@10597 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
parent
f9f3424614
commit
2d4a2d99f3
@ -236,31 +236,23 @@ sub S7_AWrite_Set($@) {
|
||||
}
|
||||
elsif ( $datatype eq "u16" ) {
|
||||
$b = $shash->{S7TCPClient}->setWordAt( "XX", 0, $newValue );
|
||||
$WordLen = &S7Client::S7WLInt;
|
||||
|
||||
# $WordLen = &S7Client::S7WLWord;
|
||||
$WordLen = &S7Client::S7WLByte;
|
||||
}
|
||||
elsif ( $datatype eq "s16" ) {
|
||||
$b = $shash->{S7TCPClient}->setIntegerAt( "XX", 0, $newValue );
|
||||
$WordLen = &S7Client::S7WLInt;
|
||||
|
||||
# $WordLen = &S7Client::S7WLWord;
|
||||
$WordLen = &S7Client::S7WLByte;
|
||||
}
|
||||
elsif ( $datatype eq "u32" ) {
|
||||
$b = $shash->{S7TCPClient}->setDWordAt( "XXXX", 0, $newValue );
|
||||
$WordLen = &S7Client::S7WLDInt;
|
||||
|
||||
# $WordLen = &S7Client::S7WLDWord;
|
||||
$WordLen = &S7Client::S7WLByte;
|
||||
}
|
||||
elsif ( $datatype eq "s32" ) {
|
||||
$b = $shash->{S7TCPClient}->setDintAt( "XXXX", 0, $newValue );
|
||||
$WordLen = &S7Client::S7WLDInt;
|
||||
|
||||
# $WordLen = &S7Client::S7WLDWord;
|
||||
$WordLen = &S7Client::S7WLByte;
|
||||
}
|
||||
elsif ( $datatype eq "float" ) {
|
||||
$b = $shash->{S7TCPClient}->setFloatAt( "XXXX", 0, $newValue );
|
||||
$WordLen = &S7Client::S7WLReal;
|
||||
$WordLen = &S7Client::S7WLByte;
|
||||
}
|
||||
else {
|
||||
my $err = "$name S7_AWrite: Parse unknown type : (" . $datatype . ")";
|
||||
|
Loading…
x
Reference in New Issue
Block a user