Posted to tcl by grummund at Fri Jun 02 10:02:53 GMT 2017view raw

  1. #!/usr/bin/expect -f
  2.  
  3. log_file -noappend modbustest.log
  4.  
  5. set device /dev/ttyUSB0
  6. spawn -open [open $device r+]
  7. stty 9600 cs8 parenb -cstopb raw < $device
  8. fconfigure $spawn_id -encoding binary -translation binary
  9.  
  10. send "\xE0\x10\x4E\x74\x00\x02\x04\x42\x78\x00\x00\x4F\x85"
  11. #expect "\xE0\x10\x4E\x74\x00\x02\x01\x4B"
  12. expect "\xE0\x10\x4E\x74\x02\x01\x4B"
  13.  
  14. send "\xE0\x10\x4E\x72\x00\x02\x04\x44\x7A\x00\x00\x6E\xE7"
  15. #expect "\xE0\x10\x4E\x72\x00\x02\xE1\x4A"
  16. expect "\xE0\x10\x4E\x72\x02\xE1\x4A"
  17.  
  18. send "\xE0\x06\x00\x64\x00\x00\xDF\xA4"
  19. #expect "\xE0\x06\x00\x64\x00\x00\xDF\xA4"
  20. expect "\xE0\x06\x64\xDF\xA4"
  21.  
  22. send "\xE0\x06\x00\x65\x00\x00\x8E\x64"
  23. #expect "\xE0\x06\x00\x65\x00\x00\x8E\x64"
  24. expect "\xE0\x06\x65\x8E\x64"
  25.  
  26. send "\xE0\x06\x00\x66\x00\x00\x7E\x64"
  27. #expect "\xE0\x06\x00\x66\x00\x00\x7E\x64"
  28. expect "\xE0\x06\x66\x7E\x64"
  29.  
  30. send "\xE0\x06\x00\xC8\x00\x05\xDF\x86"
  31. #expect "\xE0\x06\x00\xC8\x00\x05\xDF\x86"
  32. expect "\xE0\x06\xC8\x05\xDF\x86"
  33.  
  34. exit
  35.  
  36.