0.3 Release

pull/1/head 0.3
John Long 12 years ago
parent fbb70f23e5
commit da9731662c
  1. 77
      Phpmodbus/IecType.php
  2. 96
      Phpmodbus/ModbusMasterUdp.php
  3. 124
      Phpmodbus/PhpType.php
  4. 56
      examples/example_750841_Mmemory.php
  5. 38
      examples/example_datatype.php
  6. 17
      examples/example_fc16.php
  7. 23
      examples/example_fc23.php
  8. 23
      examples/example_fc3.php
  9. 1
      tests/PhpType/ref/test.bytes2string.php.html
  10. 1
      tests/PhpType/ref/test.strangearray.size.php.html
  11. 1
      tests/PhpType/ref/test.strangearray.textarray.php.html
  12. 28
      tests/PhpType/test.bytes2string.php
  13. 44
      tests/PhpType/test.strangearray.size.php
  14. 22
      tests/PhpType/test.strangearray.textarray.php
  15. 8
      tests/config.bat
  16. 2
      tests/config.php
  17. 2
      tutorials/Phpmodbus/Phpmodbus.pkg

@ -1,12 +1,12 @@
<?php <?php
/** /**
* Phpmodbus Copyright (c) 2004, 2009 Jan Krakora, WAGO Kontakttechnik GmbH & Co. KG (http://www.wago.com) * Phpmodbus Copyright (c) 2004, 2010 Jan Krakora, WAGO Kontakttechnik GmbH & Co. KG (http://www.wago.com)
* *
* This source file is subject to the "PhpModbus license" that is bundled * This source file is subject to the "PhpModbus license" that is bundled
* with this package in the file license.txt. * with this package in the file license.txt.
* *
* @author Jan Krakora * @author Jan Krakora
* @copyright Copyright (c) 2004, 2009 Jan Krakora, WAGO Kontakttechnik GmbH & Co. KG (http://www.wago.com) * @copyright Copyright (c) 2004, 2010 Jan Krakora, WAGO Kontakttechnik GmbH & Co. KG (http://www.wago.com)
* @license PhpModbus license * @license PhpModbus license
* @category Phpmodbus * @category Phpmodbus
* @package Phpmodbus * @package Phpmodbus
@ -20,7 +20,7 @@
* data types to a IEC data type. * data types to a IEC data type.
* *
* @author Jan Krakora * @author Jan Krakora
* @copyright Copyright (c) 2004, 2009 Jan Krakora, WAGO Kontakttechnik GmbH & Co. KG (http://www.wago.com) * @copyright Copyright (c) 2004, 2010 Jan Krakora, WAGO Kontakttechnik GmbH & Co. KG (http://www.wago.com)
* @package Phpmodbus * @package Phpmodbus
*/ */
class IecType { class IecType {
@ -34,7 +34,7 @@ class IecType {
* @return value IEC BYTE data type * @return value IEC BYTE data type
* *
*/ */
function iecBYTE($value){ function iecBYTE($value) {
return chr($value & 0xFF); return chr($value & 0xFF);
} }
@ -47,7 +47,7 @@ class IecType {
* @return value IEC-1131 INT data type * @return value IEC-1131 INT data type
* *
*/ */
function iecINT($value){ function iecINT($value) {
return self::iecBYTE(($value >> 8) & 0x00FF) . return self::iecBYTE(($value >> 8) & 0x00FF) .
self::iecBYTE(($value & 0x00FF)); self::iecBYTE(($value & 0x00FF));
} }
@ -62,7 +62,7 @@ class IecType {
* @return value IEC-1131 INT data type * @return value IEC-1131 INT data type
* *
*/ */
function iecDINT($value, $endianness = 0){ function iecDINT($value, $endianness = 0) {
// result with right endianness // result with right endianness
return self::endianness($value, $endianness); return self::endianness($value, $endianness);
} }
@ -76,7 +76,7 @@ class IecType {
* @param value endianness defines endian codding (little endian == 0, big endian == 1) * @param value endianness defines endian codding (little endian == 0, big endian == 1)
* @return value IEC-1131 REAL data type * @return value IEC-1131 REAL data type
*/ */
function iecREAL($value, $endianness = 0){ function iecREAL($value, $endianness = 0) {
// iecREAL representation // iecREAL representation
$real = self::float2iecReal($value); $real = self::float2iecReal($value);
// result with right endianness // result with right endianness
@ -89,63 +89,18 @@ class IecType {
* This function converts float value to IEC-1131 REAL single precision form. * This function converts float value to IEC-1131 REAL single precision form.
* *
* For more see [{@link http://en.wikipedia.org/wiki/Single_precision Single precision on Wiki}] or * For more see [{@link http://en.wikipedia.org/wiki/Single_precision Single precision on Wiki}] or
* [{@link http://de.php.net/manual/en/function.base-convert.php PHP base_convert function commentary}, Todd Stokes @ Georgia Tech 21-Nov-2007]* * [{@link http://de.php.net/manual/en/function.base-convert.php PHP base_convert function commentary}, Todd Stokes @ Georgia Tech 21-Nov-2007] or
* [{@link http://www.php.net/manual/en/function.pack.php PHP pack/unpack functionality}]
* *
* @param float value to be converted * @param float value to be converted
* @return value IEC REAL data type * @return value IEC REAL data type
*/ */
private function float2iecReal($value){ private function float2iecReal($value) {
$bias = 128; // get float binary string
$cnst = 281; // 1 (carry bit) + 127 + 1 + 126 + 24 + 2 (round bits) $float = pack("f", $value);
$two_power_x = array(1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, // set 32-bit unsigned integer of the float
4096, 8192, 16384, 32768, 65536, 131072, 262144, 524288, 1048576, $w = unpack("L", $float);
2097152, 4194304); return $w[1];
//convert and seperate input to integer and decimal parts
$val = abs($value);
$intpart = floor($val);
$decpart = $val - $intpart;
//convert integer part
for ($i=0;$i<$cnst;$i++) $real_significand_bin[$i] = 0;
$i = $bias;
while ((($intpart / 2) != 0) && ($i >= 0))
{
$real_significand_bin[$i] = $intpart % 2;
if (($intpart % 2) == 0) $intpart = $intpart / 2;
else $intpart = $intpart / 2 - 0.5;
$i -= 1;
}
//convert decimal part
$i = $bias+1;
while (($decpart > 0) && ($i < $cnst))
{
$decpart *= 2;
if ($decpart >= 1) {
$real_significand_bin[$i] = 1;
$decpart --;
$i++;
}
else
{
$real_significand_bin[i] = 0;
$i++;
}
}
//obtain exponent value
$i = 0;
//find most significant bit of significand
while (($i < $cnst) && ($real_significand_bin[$i] != 1)) $i++;
//
$index_exp = $i;
$real_exponent = 128 - $index_exp;
if ($real_exponent < -126) return 0;
if (($real_exponent > 127)&&($real_float>0)) return 0x7F7FFFFF;
if (($real_exponent > 127)&&($real_float<0)) return 0xFF7FFFFF;
for ($i=0; $i<23; $i++)
$real_significand = $real_significand + $real_significand_bin[$index_exp+1+$i] * $two_power_x[22-$i];
// return
if ($value<0) $w = 0x80000000 + ($real_significand & 0x7FFFFF) + ((($real_exponent+127)<<23) & 0x7F800000);
else $w = ($real_significand & 0x7FFFFF) + ((($real_exponent+127)<<23) & 0x7F800000);
return $w;
} }
/** /**
@ -158,7 +113,7 @@ class IecType {
* @param bool $endianness * @param bool $endianness
* @return int * @return int
*/ */
private function endianness($value, $endianness = 0){ private function endianness($value, $endianness = 0) {
if ($endianness == 0) if ($endianness == 0)
return return
self::iecBYTE(($value >> 8) & 0x000000FF) . self::iecBYTE(($value >> 8) & 0x000000FF) .

@ -1,12 +1,12 @@
<?php <?php
/** /**
* Phpmodbus Copyright (c) 2004, 2009 Jan Krakora, WAGO Kontakttechnik GmbH & Co. KG (http://www.wago.com) * Phpmodbus Copyright (c) 2004, 2010 Jan Krakora, WAGO Kontakttechnik GmbH & Co. KG (http://www.wago.com)
* *
* This source file is subject to the "PhpModbus license" that is bundled * This source file is subject to the "PhpModbus license" that is bundled
* with this package in the file license.txt. * with this package in the file license.txt.
* *
* *
* @copyright Copyright (c) 2004, 2009 Jan Krakora, WAGO Kontakttechnik GmbH & Co. KG (http://www.wago.com) * @copyright Copyright (c) 2004, 2010 Jan Krakora, WAGO Kontakttechnik GmbH & Co. KG (http://www.wago.com)
* @license PhpModbus license * @license PhpModbus license
* @category Phpmodbus * @category Phpmodbus
* @tutorial Phpmodbus.pkg * @tutorial Phpmodbus.pkg
@ -29,7 +29,7 @@ require_once dirname(__FILE__) . '/PhpType.php';
* - FC 23: read write registers * - FC 23: read write registers
* *
* @author Jan Krakora * @author Jan Krakora
* @copyright Copyright (c) 2004, 2009 Jan Krakora, WAGO Kontakttechnik GmbH & Co. KG (http://www.wago.com) * @copyright Copyright (c) 2004, 2010 Jan Krakora, WAGO Kontakttechnik GmbH & Co. KG (http://www.wago.com)
* @package Phpmodbus * @package Phpmodbus
* *
*/ */
@ -37,7 +37,6 @@ class ModbusMasterUdp {
var $sock; var $sock;
var $port = "502"; var $port = "502";
var $host = "192.168.1.1"; var $host = "192.168.1.1";
var $errstr;
var $status; var $status;
var $timeout_sec = 5; // 5 sec var $timeout_sec = 5; // 5 sec
var $endianess = 0; // defines endian codding (little endian == 0, big endian == 1) var $endianess = 0; // defines endian codding (little endian == 0, big endian == 1)
@ -53,6 +52,15 @@ class ModbusMasterUdp {
$this->host = $host; $this->host = $host;
} }
/**
* __toString
*
* Magic method
*/
function __toString() {
return "<pre>" . $this->status . "</pre>";
}
/** /**
* connect * connect
* *
@ -66,11 +74,10 @@ class ModbusMasterUdp {
// connect // connect
$result = @socket_connect($this->sock, $this->host, $this->port); $result = @socket_connect($this->sock, $this->host, $this->port);
if ($result === false) { if ($result === false) {
$this->errstr .= "socket_connect() failed.</br>Reason: ($result) " . throw new Exception("socket_connect() failed.</br>Reason: ($result)".
socket_strerror(socket_last_error($this->sock)); socket_strerror(socket_last_error($this->sock)));
return false;
} else { } else {
$this->status .= "Connected</br>"; $this->status .= "Connected\n";
return true; return true;
} }
} }
@ -82,7 +89,7 @@ class ModbusMasterUdp {
*/ */
private function disconnect(){ private function disconnect(){
socket_close($this->sock); socket_close($this->sock);
$this->status .= "Disconnected</br>"; $this->status .= "Disconnected\n";
} }
/** /**
@ -94,7 +101,7 @@ class ModbusMasterUdp {
*/ */
private function send($packet){ private function send($packet){
socket_write($this->sock, $packet, strlen($packet)); socket_write($this->sock, $packet, strlen($packet));
$this->status .= "Send</br>"; $this->status .= "Send\n";
} }
/** /**
@ -116,19 +123,18 @@ class ModbusMasterUdp {
$exceptsocks, $exceptsocks,
0, 0,
300000) !== FALSE) { 300000) !== FALSE) {
$this->status .= "Wait received data</br>"; $this->status .= "Wait data ... \n";
if (in_array($this->sock, $readsocks)) { if (in_array($this->sock, $readsocks)) {
while (@socket_recv($this->sock, $rec, 2000, 0)) { while (@socket_recv($this->sock, $rec, 2000, 0)) {
$this->status .= "Received</br>"; $this->status .= "Data received\n";
return $rec; return $rec;
} }
$lastAccess = time(); $lastAccess = time();
} else { } else {
if (time()-$lastAccess >= $this->timeout_sec) { if (time()-$lastAccess >= $this->timeout_sec) {
$this->errstr .= "Watchdog time expired [ " . throw new Exception( "Watchdog time expired [ " .
$this->timeout_sec . " sec]!!! Connection to " . $this->timeout_sec . " sec]!!! Connection to " .
$this->host . " is not established."; $this->host . " is not established.");
return false;
} }
} }
$readsocks[] = $this->sock; $readsocks[] = $this->sock;
@ -145,12 +151,9 @@ class ModbusMasterUdp {
*/ */
private function responseCode($packet){ private function responseCode($packet){
if(($packet[7] & 0x80) > 0) { if(($packet[7] & 0x80) > 0) {
$this->errstr .= "Modbus response error code:" . ord($packet[8]); throw new Exception("Modbus response error code:" . ord($packet[8]));
return false; } else {
} $this->status .= "Modbus response error code: NOERROR\n";
else
{
$this->status .= "Modbus response error code: NOERROR</br>";
return true; return true;
} }
} }
@ -171,27 +174,21 @@ class ModbusMasterUdp {
* @return false|Array Success flag or array of received data. * @return false|Array Success flag or array of received data.
*/ */
function readMultipleRegisters($unitId, $reference, $quantity){ function readMultipleRegisters($unitId, $reference, $quantity){
$this->errstr = ""; $this->status .= "readMultipleRegisters: START\n";
$this->status = "readMultipleRegisters: START</br>";
// connect // connect
if(!$this->connect()) $this->connect();
return false;
// send FC 3 // send FC 3
$packet = $this->readMultipleRegistersPacketBuilder($unitId, $reference, $quantity); $packet = $this->readMultipleRegistersPacketBuilder($unitId, $reference, $quantity);
$this->status .= $this->printPacket($packet); $this->status .= $this->printPacket($packet);
$this->send($packet); $this->send($packet);
// receive response // receive response
$rpacket = $this->rec(); $rpacket = $this->rec();
if(!$rpacket)
return false;
$this->status .= $this->printPacket($rpacket); $this->status .= $this->printPacket($rpacket);
// parse packet // parse packet
$receivedData = $this->readMultipleRegistersParser($rpacket); $receivedData = $this->readMultipleRegistersParser($rpacket);
if(!$receivedData)
return false;
// disconnect // disconnect
$this->disconnect(); $this->disconnect();
$this->status .= "readMultipleRegisters: DONE</br>"; $this->status .= "readMultipleRegisters: DONE\n";
// return // return
return $receivedData; return $receivedData;
} }
@ -222,6 +219,8 @@ class ModbusMasterUdp {
*/ */
private function readMultipleRegistersPacketBuilder($unitId, $reference, $quantity){ private function readMultipleRegistersPacketBuilder($unitId, $reference, $quantity){
$dataLen = 0; $dataLen = 0;
// build data section
$buffer1 = "";
// build body // build body
$buffer2 = ""; $buffer2 = "";
$buffer2 .= iecType::iecBYTE(3); // FC 3 = 3(0x03) $buffer2 .= iecType::iecBYTE(3); // FC 3 = 3(0x03)
@ -249,9 +248,8 @@ class ModbusMasterUdp {
*/ */
private function readMultipleRegistersParser($packet){ private function readMultipleRegistersParser($packet){
$data = array(); $data = array();
// if not exception // check Response code
if(!$this->responseCode($packet)) $this->responseCode($packet);
return false;
// get data // get data
for($i=0;$i<ord($packet[8]);$i++){ for($i=0;$i<ord($packet[8]);$i++){
$data[$i] = ord($packet[9+$i]); $data[$i] = ord($packet[9+$i]);
@ -275,26 +273,21 @@ class ModbusMasterUdp {
* @return bool Success flag * @return bool Success flag
*/ */
function writeMultipleRegister($unitId, $reference, $data, $dataTypes){ function writeMultipleRegister($unitId, $reference, $data, $dataTypes){
$this->errstr = ""; $this->status .= "writeMultipleRegister: START\n";
$this->status = "writeMultipleRegister: START</br>";
// connect // connect
if(!$this->connect()) $this->connect();
return false;
// send FC16 // send FC16
$packet = $this->writeMultipleRegisterPacketBuilder($unitId, $reference, $data, $dataTypes); $packet = $this->writeMultipleRegisterPacketBuilder($unitId, $reference, $data, $dataTypes);
$this->status .= $this->printPacket($packet); $this->status .= $this->printPacket($packet);
$this->send($packet); $this->send($packet);
// receive response // receive response
$rpacket = $this->rec(); $rpacket = $this->rec();
if(!$rpacket)
return false;
$this->status .= $this->printPacket($rpacket); $this->status .= $this->printPacket($rpacket);
// parse packet // parse packet
if(!$this->writeMultipleRegisterParser($rpacket)) $this->writeMultipleRegisterParser($rpacket);
return false;
// disconnect // disconnect
$this->disconnect(); $this->disconnect();
$this->status .= "writeMultipleRegister: DONE</br>"; $this->status .= "writeMultipleRegister: DONE\n";
return true; return true;
} }
@ -376,8 +369,7 @@ class ModbusMasterUdp {
* @return bool * @return bool
*/ */
private function writeMultipleRegisterParser($packet){ private function writeMultipleRegisterParser($packet){
if(!$this->responseCode($rpacket)) $this->responseCode($rpacket);
return false;
return true; return true;
} }
@ -400,27 +392,21 @@ class ModbusMasterUdp {
* @return false|Array Success flag or array of data. * @return false|Array Success flag or array of data.
*/ */
function readWriteRegisters($unitId, $referenceRead, $quantity, $referenceWrite, $data, $dataTypes){ function readWriteRegisters($unitId, $referenceRead, $quantity, $referenceWrite, $data, $dataTypes){
$this->errstr = ""; $this->status .= "readWriteRegisters: START\n";
$this->status = "readWriteRegisters: START</br>";
// connect // connect
if(!$this->connect()) $this->connect();
return false;
// send FC23 // send FC23
$packet = $this->readWriteRegistersPacketBuilder($unitId, $referenceRead, $quantity, $referenceWrite, $data, $dataTypes); $packet = $this->readWriteRegistersPacketBuilder($unitId, $referenceRead, $quantity, $referenceWrite, $data, $dataTypes);
$this->status .= $this->printPacket($packet); $this->status .= $this->printPacket($packet);
$this->send($packet); $this->send($packet);
// receive response // receive response
$rpacket = $this->rec(); $rpacket = $this->rec();
if(!$rpacket)
return false;
$this->status .= $this->printPacket($rpacket); $this->status .= $this->printPacket($rpacket);
// parse packet // parse packet
$receivedData = $this->readWriteRegistersParser($rpacket); $receivedData = $this->readWriteRegistersParser($rpacket);
if(!$receivedData)
return false;
// disconnect // disconnect
$this->disconnect(); $this->disconnect();
$this->status .= "writeMultipleRegister: DONE</br>"; $this->status .= "writeMultipleRegister: DONE\n";
// return // return
return $receivedData; return $receivedData;
} }
@ -538,7 +524,7 @@ class ModbusMasterUdp {
/** /**
* printPacket * printPacket
* *
* Print whole packet in the hex form * Print a packet in the hex form
* *
* @param string $packet * @param string $packet
* @return string * @return string
@ -549,7 +535,7 @@ class ModbusMasterUdp {
for($i=0;$i<strlen($packet);$i++){ for($i=0;$i<strlen($packet);$i++){
$str .= $this->byte2hex(ord($packet[$i])); $str .= $this->byte2hex(ord($packet[$i]));
} }
$str .= "</br>"; $str .= "\n";
return $str; return $str;
} }
} }

@ -1,12 +1,12 @@
<? <?php
/** /**
* Phpmodbus Copyright (c) 2004, 2009 Jan Krakora, WAGO Kontakttechnik GmbH & Co. KG (http://www.wago.com) * Phpmodbus Copyright (c) 2004, 2010 Jan Krakora, WAGO Kontakttechnik GmbH & Co. KG (http://www.wago.com)
* *
* This source file is subject to the "PhpModbus license" that is bundled * This source file is subject to the "PhpModbus license" that is bundled
* with this package in the file license.txt. * with this package in the file license.txt.
* *
* @author Jan Krakora * @author Jan Krakora
* @copyright Copyright (c) 2004, 2009 Jan Krakora, WAGO Kontakttechnik GmbH & Co. KG (http://www.wago.com) * @copyright Copyright (c) 2004, 2010 Jan Krakora, WAGO Kontakttechnik GmbH & Co. KG (http://www.wago.com)
* @license PhpModbus license * @license PhpModbus license
* @category Phpmodbus * @category Phpmodbus
* @package Phpmodbus * @package Phpmodbus
@ -21,7 +21,7 @@
* (array of bytes) to the PHP data type, i.e. signed int, unsigned int and float. * (array of bytes) to the PHP data type, i.e. signed int, unsigned int and float.
* *
* @author Jan Krakora * @author Jan Krakora
* @copyright Copyright (c) 2004, 2009 Jan Krakora, WAGO Kontakttechnik GmbH & Co. KG (http://www.wago.com) * @copyright Copyright (c) 2004, 2010 Jan Krakora, WAGO Kontakttechnik GmbH & Co. KG (http://www.wago.com)
* @package Phpmodbus * @package Phpmodbus
* *
*/ */
@ -37,7 +37,7 @@ class PhpType {
* @param bool $endianness * @param bool $endianness
* @return float * @return float
*/ */
public static function bytes2float($values, $endianness = 0){ public static function bytes2float($values, $endianness = 0) {
$data = array(); $data = array();
$real = 0; $real = 0;
@ -59,7 +59,7 @@ class PhpType {
* @param bool $endianness * @param bool $endianness
* @return int * @return int
*/ */
public static function bytes2signedInt($values, $endianness = 0){ public static function bytes2signedInt($values, $endianness = 0) {
$data = array(); $data = array();
$int = 0; $int = 0;
// Set the array to correct form // Set the array to correct form
@ -67,7 +67,7 @@ class PhpType {
// Combine bytes // Combine bytes
$int = self::combineBytes($data, $endianness); $int = self::combineBytes($data, $endianness);
// In the case of signed 2 byte value convert it to 4 byte one // In the case of signed 2 byte value convert it to 4 byte one
if ((count($values) == 2) && ((0x8000 & $int) > 0)){ if ((count($values) == 2) && ((0x8000 & $int) > 0)) {
$int = 0xFFFF8000 | $int; $int = 0xFFFF8000 | $int;
} }
// Convert the value // Convert the value
@ -84,7 +84,7 @@ class PhpType {
* @param bool $endianness * @param bool $endianness
* @return int|float * @return int|float
*/ */
public static function bytes2unsignedInt($values, $endianness = 0){ public static function bytes2unsignedInt($values, $endianness = 0) {
$data = array(); $data = array();
$int = 0; $int = 0;
// Set the array to correct form // Set the array to correct form
@ -95,44 +95,65 @@ class PhpType {
return self::dword2unsignedInt($int); return self::dword2unsignedInt($int);
} }
/**
* bytes2string
*
* The function converts an values array to the string. The function detects
* the end of the string by 0x00 character as defined by string standards.
*
* @param array $values
* @param bool $endianness
* @return string
*/
public static function bytes2string($values, $endianness = 0) {
// Prepare string variable
$str = "";
// Parse the received data word array
for($i=0;$i<count($values);$i+=2) {
if ($endianness) {
if($values[$i] != 0)
$str .= chr($values[$i]);
else
break;
if($values[$i+1] != 0)
$str .= chr($values[$i+1]);
else
break;
}
else {
if($values[$i+1] != 0)
$str .= chr($values[$i+1]);
else
break;
if($values[$i] != 0)
$str .= chr($values[$i]);
else
break;
}
}
// return string
return $str;
}
/** /**
* real2float * real2float
* *
* This function converts a value in IEC-1131 REAL single precision form to float. * This function converts a value in IEC-1131 REAL single precision form to float.
* *
* For more see [{@link http://en.wikipedia.org/wiki/Single_precision Single precision on Wiki}] or * For more see [{@link http://en.wikipedia.org/wiki/Single_precision Single precision on Wiki}] or
* [{@link http://de.php.net/manual/en/function.base-convert.php PHP base_convert function commentary}, Todd Stokes @ Georgia Tech 21-Nov-2007] * [{@link http://de.php.net/manual/en/function.base-convert.php PHP base_convert function commentary}, Todd Stokes @ Georgia Tech 21-Nov-2007] or
* [{@link http://www.php.net/manual/en/function.pack.php PHP pack/unpack functionality}]
* *
* @param value value in IEC REAL data type to be converted * @param value value in IEC REAL data type to be converted
* @return float float value * @return float float value
*/ */
private static function real2float($value){ private static function real2float($value) {
$two_pow_minus_x = array( // get unsigned long
1, 0.5, 0.25, 0.125, 0.0625, 0.03125, 0.015625, $ulong = pack("L", $value);
0.0078125, 0.00390625, 0.001953125, 0.0009765625, // set float
0.00048828125, 0.000244140625, 0.0001220703125, $float = unpack("f", $ulong);
0.00006103515625, 0.000030517578125, 0.0000152587890625,
0.00000762939453125, 0.000003814697265625, 0.0000019073486328125, return $float[1];
0.00000095367431640625, 0.000000476837158203125,
0.0000002384185791015625, 0.00000011920928955078125);
// get sign, mantisa, exponent
$real_mantisa = $value & 0x7FFFFF | 0x800000;
$real_exponent = ($value>>23) & 0xFF;
$real_sign = ($value>>31) & 0x01;
$bin_exponent = $real_exponent - 127;
// decode value
if (( $bin_exponent >= -126) && ($bin_exponent <= 127)) {
// Mantissa decoding
for ($i=0; $i<24; $i++) {
if ($real_mantisa & 0x01)
$val += $two_pow_minus_x[23-$i];
$real_mantisa = $real_mantisa >> 1;
}
// Base
$val = $val * pow(2,$bin_exponent);
if (($real_sign == 1)) $val = -$val;
}
return (float)$val;
} }
/** /**
@ -143,7 +164,7 @@ class PhpType {
* @param int $value * @param int $value
* @return int * @return int
*/ */
private static function dword2signedInt($value){ private static function dword2signedInt($value) {
if ((0x80000000 & $value) != 0) { if ((0x80000000 & $value) != 0) {
return -(0x7FFFFFFF & ~$value)-1; return -(0x7FFFFFFF & ~$value)-1;
} else { } else {
@ -159,7 +180,7 @@ class PhpType {
* @param int $value * @param int $value
* @return int|float * @return int|float
*/ */
private static function dword2unsignedInt($value){ private static function dword2unsignedInt($value) {
if ((0x80000000 & $value) != 0) { if ((0x80000000 & $value) != 0) {
return ((float) (0x7FFFFFFF & $value)) + 2147483648; return ((float) (0x7FFFFFFF & $value)) + 2147483648;
} else { } else {
@ -175,17 +196,26 @@ class PhpType {
* @param int $data * @param int $data
* @return int * @return int
*/ */
private static function checkData($data){ private static function checkData($data) {
// Check the data // Check the data
if (!is_array($data)) { if (!is_array($data) ||
throw new Exception('The input data should be an array of bytes.'); count($data)<2 ||
count($data)>4 ||
count($data)==3) {
throw new Exception('The input data should be an array of 2 or 4 bytes.');
}
// Fill the rest of array by zeroes
if (count($data) == 2) {
$data[2] = 0;
$data[3] = 0;
} }
// Check the values to be number - must be // Check the values to be number
if (!is_numeric($data[0]) || !is_numeric($data[1])) { if (!is_numeric($data[0]) ||
throw new Exception('Data are not numeric.'); !is_numeric($data[1]) ||
!is_numeric($data[2]) ||
!is_numeric($data[3])) {
throw new Exception('Data are not numeric or the array keys are not indexed by 0,1,2 and 3');
} }
if (!is_numeric($data[2])) $data[2] = 0;
if (!is_numeric($data[3])) $data[3] = 0;
return $data; return $data;
} }
@ -199,7 +229,7 @@ class PhpType {
* @param bool $endianness * @param bool $endianness
* @return int * @return int
*/ */
private static function combineBytes($data, $endianness){ private static function combineBytes($data, $endianness) {
$value = 0; $value = 0;
// Combine bytes // Combine bytes
if ($endianness == 0) if ($endianness == 0)

@ -1,17 +1,26 @@
<?php <?php
require_once dirname(__FILE__) . './Phpmodbus/ModbusMasterUdp.php'; require_once dirname(__FILE__) . '/../Phpmodbus/ModbusMasterUdp.php';
// Create Modbus object // Create Modbus object
$ip = "192.168.1.99"; // $ip = "192.168.1.1";
$ip = "192.192.15.51";
$modbus = new ModbusMasterUdp($ip); $modbus = new ModbusMasterUdp($ip);
// FC 3 try {
$moduleId = 0; // FC 3
$reference = 12288; $moduleId = 0;
$mw0address = 12288; $reference = 12288;
$quantity = 6; $mw0address = 12288;
$recData = $modbus->readMultipleRegisters($moduleId, $reference, $quantity); $quantity = 6;
$recData = $modbus->readMultipleRegisters($moduleId, $reference, $quantity);
print_r($recData);
}
catch (Exception $e) {
echo $modbus;
echo $e;
exit;
}
?> ?>
<html> <html>
@ -24,23 +33,14 @@ $recData = $modbus->readMultipleRegisters($moduleId, $reference, $quantity);
<h1>Dump of M-memory from WAGO 750-84x series coupler.</h1> <h1>Dump of M-memory from WAGO 750-84x series coupler.</h1>
<ul> <ul>
<li>PLC: 750-84x series</li> <li>PLC: 750-84x series</li>
<li>IP: <?=$ip?></li> <li>IP: <?php echo $ip?></li>
<li>Modbus module ID: <?=$moduleId?></li> <li>Modbus module ID: <?php echo $moduleId?></li>
<li>Modbus memory reference: <?=$reference?></li> <li>Modbus memory reference: <?php echo $reference?></li>
<li>Modbus memory quantity: <?=$quantity?></li> <li>Modbus memory quantity: <?php echo $quantity?></li>
</ul> </ul>
<h2>M-memory dump</h2> <h2>M-memory dump</h2>
<?php
if(!$recData) {
// Print error information if any
echo "</br>Error:</br>" . $modbus->errstr . "</br>";
}
else
{
?>
<table border="1px" width="400px"> <table border="1px" width="400px">
<tr> <tr>
<td>Modbus address</td> <td>Modbus address</td>
@ -48,25 +48,21 @@ $recData = $modbus->readMultipleRegisters($moduleId, $reference, $quantity);
<td>value</td> <td>value</td>
</tr> </tr>
<?php <?php
for($i=0;$i<count($recData);$i+=2){ for($i=0;$i<count($recData);$i+=2) {
?> ?>
<tr> <tr>
<td><?=$i+$reference?></td> <td><?php echo $i+$reference?></td>
<td>MW<?=($i + $reference - $mw0address)/2?></td> <td>MW<?php echo ($i + $reference - $mw0address)/2?></td>
<td><?=($recData[$i] << 8)+ $recData[$i+1]?></td> <td><?php echo ($recData[$i] << 8)+ $recData[$i+1]?></td>
</tr> </tr>
<?php <?php
} }
?> ?>
</table> </table>
<?php
}
?>
<h2>Modbus class status</h2> <h2>Modbus class status</h2>
<?php <?php
echo $modbus->status; echo $modbus;
?> ?>
</body> </body>

@ -1,55 +1,61 @@
<?php <?php
require_once dirname(__FILE__) . './Phpmodbus/ModbusMasterUdp.php'; require_once dirname(__FILE__) . '/../Phpmodbus/ModbusMasterUdp.php';
// Create Modbus object // Create Modbus object
$modbus = new ModbusMasterUdp("192.168.1.99"); $modbus = new ModbusMasterUdp("192.192.15.51");
// FC 3 try {
// read 10 words (20 bytes) from device ID=0, address=12288 // FC 3
$recData = $modbus->readMultipleRegisters(0, 12288, 10); // read 10 words (20 bytes) from device ID=0, address=12288
$recData = $modbus->readMultipleRegisters(0, 12288, 10);
if(!$recData) { }
catch (Exception $e) {
// Print error information if any // Print error information if any
echo "</br>Error:</br>" . $modbus->errstr . "</br>"; echo $modbus;
echo $e;
exit; exit;
} }
// Received data // Received data
echo "<h1>Received Data</h1>"; echo "<h1>Received Data</h1>\n";
print_r($recData); print_r($recData);
// Conversion // Conversion
echo "<h2>32 bits types</h2>"; echo "<h2>32 bits types</h2>\n";
// Chunk the data array to set of 4 bytes // Chunk the data array to set of 4 bytes
$values = array_chunk($recData, 4); $values = array_chunk($recData, 4);
// Get float from REAL interpretation // Get float from REAL interpretation
echo "<h3>REAL to Float</h3>"; echo "<h3>REAL to Float</h3>\n";
foreach($values as $bytes) foreach($values as $bytes)
echo PhpType::bytes2float($bytes) . "</br>"; echo PhpType::bytes2float($bytes) . "</br>";
// Get integer from DINT interpretation // Get integer from DINT interpretation
echo "<h3>DINT to integer </h3>"; echo "<h3>DINT to integer </h3>\n";
foreach($values as $bytes) foreach($values as $bytes)
echo PhpType::bytes2signedInt($bytes) . "</br>"; echo PhpType::bytes2signedInt($bytes) . "</br>";
// Get integer of float from DINT interpretation // Get integer of float from DINT interpretation
echo "<h3>DWORD to integer (or float) </h3>"; echo "<h3>DWORD to integer (or float) </h3>\n";
foreach($values as $bytes) foreach($values as $bytes)
echo PhpType::bytes2unsignedInt($bytes) . "</br>"; echo PhpType::bytes2unsignedInt($bytes) . "</br>";
echo "<h2>16 bit types</h2>"; echo "<h2>16 bit types</h2>\n";
// Chunk the data array to set of 4 bytes // Chunk the data array to set of 4 bytes
$values = array_chunk($recData, 2); $values = array_chunk($recData, 2);
// Get signed integer from INT interpretation // Get signed integer from INT interpretation
echo "<h3>INT to integer </h3>"; echo "<h3>INT to integer </h3>\n";
foreach($values as $bytes) foreach($values as $bytes)
echo PhpType::bytes2signedInt($bytes) . "</br>"; echo PhpType::bytes2signedInt($bytes) . "</br>";
// Get unsigned integer from WORD interpretation // Get unsigned integer from WORD interpretation
echo "<h3>WORD to integer </h3>"; echo "<h3>WORD to integer </h3>\n";
foreach($values as $bytes) foreach($values as $bytes)
echo PhpType::bytes2unsignedInt($bytes) . "</br>"; echo PhpType::bytes2unsignedInt($bytes) . "</br>";
// Get string from STRING interpretation
echo "<h3>STRING to string </h3>\n";
echo PhpType::bytes2string($recData) . "</br>";
?> ?>

@ -1,21 +1,26 @@
<?php <?php
require_once dirname(__FILE__) . './Phpmodbus/ModbusMasterUdp.php'; require_once dirname(__FILE__) . '/../Phpmodbus/ModbusMasterUdp.php';
// Create Modbus object // Create Modbus object
$modbus = new ModbusMasterUdp("192.168.1.99"); $modbus = new ModbusMasterUdp("192.192.15.51");
// Data to be writen // Data to be writen
$data = array(1000, 2000, 3.0); $data = array(1000, 2000, 3.0);
$dataTypes = array("INT", "DINT", "REAL"); $dataTypes = array("INT", "DINT", "REAL");
// FC16 try {
if(!$modbus->writeMultipleRegister(0, 12288, $data, $dataTypes)) { // FC16
$modbus->writeMultipleRegister(0, 12288, $data, $dataTypes);
}
catch (Exception $e) {
// Print error information if any // Print error information if any
echo "</br>Error:</br>" . $modbus->errstr . "</br>"; echo $modbus;
echo $e;
exit;
} }
// Print status information // Print status information
echo "</br>Status:</br>" . $modbus->status . "</br>"; echo $modbus;
?> ?>

@ -1,26 +1,31 @@
<?php <?php
require_once dirname(__FILE__) . './Phpmodbus/ModbusMasterUdp.php'; require_once dirname(__FILE__) . '/../Phpmodbus/ModbusMasterUdp.php';
// Create Modbus object // Create Modbus object
$modbus = new ModbusMasterUdp("192.168.1.99"); $modbus = new ModbusMasterUdp("192.192.15.51");
// Data to be writen // Data to be writen
$data = array(1000, 2000, 3.0); $data = array(1000, 2000, 3.0);
$dataTypes = array("INT", "DINT", "REAL"); $dataTypes = array("INT", "DINT", "REAL");
// FC23 try {
$recData = $modbus->readWriteRegisters(0, 12288, 6, 12288, $data, $dataTypes); // FC23
$recData = $modbus->readWriteRegisters(0, 12288, 6, 12288, $data, $dataTypes);
if(!$recData) { }
catch (Exception $e) {
// Print error information if any // Print error information if any
echo "</br>Error:</br>" . $modbus->errstr . "</br>"; echo $modbus;
echo $e;
exit;
} }
// Print status information // Print status information
echo "</br>Status:</br>" . $modbus->status . "</br>"; echo "</br>Status:</br>" . $modbus;
// Print read data // Print read data
echo "</br>Data:</br>"; print_r($recData); echo "</br>"; echo "</br>Data:</br>";
print_r($recData);
echo "</br>";
?> ?>

@ -1,21 +1,26 @@
<?php <?php
require_once dirname(__FILE__) . './Phpmodbus/ModbusMasterUdp.php'; require_once dirname(__FILE__) . '/../Phpmodbus/ModbusMasterUdp.php';
// Create Modbus object // Create Modbus object
$modbus = new ModbusMasterUdp("192.168.1.99"); $modbus = new ModbusMasterUdp("192.192.15.51");
// FC 3 try {
$recData = $modbus->readMultipleRegisters(0, 12288, 6); // FC 3
$recData = $modbus->readMultipleRegisters(0, 12288, 6);
if(!$recData) { }
catch (Exception $e) {
// Print error information if any // Print error information if any
echo "</br>Error:</br>" . $modbus->errstr . "</br>"; echo $modbus;
echo $e;
exit;
} }
// Print status information // Print status information
echo "</br>Status:</br>" . $modbus->status . "</br>"; echo "</br>Status:</br>" . $modbus;
// Print read data // Print read data
echo "</br>Data:</br>"; print_r($recData); echo "</br>"; echo "</br>Data:</br>";
print_r($recData);
echo "</br>";
?> ?>

@ -0,0 +1 @@
eHll oowlr!da<br>Hello world!<br>

@ -0,0 +1 @@
Exception 'Data are not in array 2 or 4 bytes'<br>25602<br>Exception 'Data are not in array 2 or 4 bytes'<br>25602<br>Exception 'Data are not in array 2 or 4 bytes'<br>

@ -0,0 +1 @@
Exception 'Data are not numeric'

@ -0,0 +1,28 @@
<?php
require_once dirname(__FILE__) . '/../../Phpmodbus/ModbusMasterUdp.php';
// Received bytes interpreting 3 REAL values (6 words)
$data = array( // String "Hello word!"
0x48, //H
0x65, //e
0x6c, //l
0x6c, //l
0x6f, //o
0x20, //
0x77, //w
0x6f, //o
0x72, //r
0x6c, //l
0x64, //d
0x21, //!
0x00, //\0
0x61, //a
0x61 //a
);
// Print string interpretation of the values
echo PhpType::bytes2string($data) . "<br>";
echo PhpType::bytes2string($data, true) . "<br>";
?>

@ -0,0 +1,44 @@
<?php
/*
* To change this template, choose Tools | Templates
* and open the template in the editor.
*/
require_once dirname(__FILE__) . '/../../Phpmodbus/ModbusMasterUdp.php';
// Received bytes interpreting Mixed values
$data = Array (
"0" => 100, // 32098 (DINT)
"1" => 2,
"2" => 0,
"3" => 0,
"4" => 100, // 32098 (DINT)
"5" => 2
);
// Print mixed values
try {
echo PhpType::bytes2unsignedInt(array_slice($data, 0, 1)) . "<br>";
} catch(Exception $e) {
echo "Exception 'Data are not in array 2 or 4 bytes'". "<br>";
}
try {
echo PhpType::bytes2unsignedInt(array_slice($data, 0, 2)). "<br>";
} catch(Exception $e) {
echo "Exception 'Data are not in array 2 or 4 bytes'". "<br>";
}
try {
echo PhpType::bytes2unsignedInt(array_slice($data, 0, 3)). "<br>";
} catch(Exception $e) {
echo "Exception 'Data are not in array 2 or 4 bytes'". "<br>";
}
try {
echo PhpType::bytes2unsignedInt(array_slice($data, 0, 4)). "<br>";
} catch(Exception $e) {
echo "Exception 'Data are not in array 2 or 4 bytes'". "<br>";
}
try {
echo PhpType::bytes2unsignedInt(array_slice($data, 0, 5)). "<br>";
} catch(Exception $e) {
echo "Exception 'Data are not in array 2 or 4 bytes'". "<br>";
}
?>

@ -0,0 +1,22 @@
<?php
/*
* To change this template, choose Tools | Templates
* and open the template in the editor.
*/
require_once dirname(__FILE__) . '/../../Phpmodbus/ModbusMasterUdp.php';
// Received bytes interpreting Mixed values
$data = Array (
"0" => 100, // 32098 (DINT)
"1" => "e",
"2" => 0,
"3" => 0
);
// Print mixed values
try {
echo PhpType::bytes2unsignedInt(array_slice($data, 0, 4));
} catch(Exception $e) {
echo "Exception 'Data are not numeric'";
}
?>

@ -1,5 +1,5 @@
set php=C:\Programme\xampplite\php\php.exe set php=c:\Program_Files\xampplite\php\php.exe
rem set php=C:\PHP\versions\php-5.2.6-Win32\php.exe -d auto_prepend_file=C:\PHP\locale.php rem set php=C:\PHP\versions\php-5.2.6-Win32\php.exe -d auto_prepend_file=C:\PHP\locale.php
set diff="C:\Program Files\Octave\msys\bin\diff.exe" set diff="diff.exe"
set testUri=http://localHost/nette/_trunk/tests rem set testUri=http://localHost/nette/_trunk/tests
set wget=wget.exe rem set wget=wget.exe

@ -1,3 +1,3 @@
<?php <?php
$testip = "192.168.1.15"; $testip = "192.192.15.51";
?> ?>

@ -46,7 +46,7 @@
<para> <para>
Create a PHP script and assign the library using Create a PHP script and assign the library using
<programlisting role="ini"> <programlisting role="ini">
<![CDATA[ require_once dirname(__FILE__) . './Phpmodbus/ModbusMasterUdp.php'; ]]> <![CDATA[ require_once dirname(__FILE__) . '/Phpmodbus/ModbusMasterUdp.php'; ]]>
</programlisting> </programlisting>
</para> </para>
<para> <para>

Loading…
Cancel
Save