{"id":630,"date":"2009-10-28T14:39:16","date_gmt":"2009-10-28T18:39:16","guid":{"rendered":"http:\/\/www.uvm.edu\/~waw\/blog\/?p=630"},"modified":"2009-10-28T14:39:16","modified_gmt":"2009-10-28T18:39:16","slug":"serial-interface-fun","status":"publish","type":"post","link":"https:\/\/blog.uvm.edu\/waw\/2009\/10\/28\/serial-interface-fun\/","title":{"rendered":"serial interface fun"},"content":{"rendered":"

Perl module Device::SerialPort is our friend.<\/p>\n

As is Clipboard, IO::All, Spiffy<\/p>\n

Trying to talk to a Sartorius precision balance. Speaks over Serial\/USB cable.<\/p>\n

Dang, there was supposed to be more here to serve as documentation. Now, months later, I have forgotten it all…<\/p>\n

Here is at least the shell of the code:<\/p>\n


\n#!\/usr\/bin\/perl
\nuse Data::Dumper;
\nuse DBI;
\nuse Device::SerialPort;
\nuse Time::HiRes qw(usleep);
\nuse CGI;
\n$query=new CGI;
\nprint $query->header;
\nuse Clipboard;
\nsub block_output {
\n\tmy $block=shift(@_);
\n\tprint \"blocking $blockn\";
\n\t@bytes = split (\/\/, $block);
\n\tforeach $byte (@bytes) {
\n\t\tsend_char($byte);
\n\t}
\n}
\nsub send_char {
\n\tmy $byte=shift(@_);
\n\tmy $char;
\n\tprint \"send byte $byten\";
\n\t$port->write(\"$byte\");
\n}
\n######################
\n# #
\n# Program Main #
\n# #
\n######################
\n# Set up the serial port
\n# 19200, 81N on the USB ftdi driver
\n$debug=shift(@ARGV);
\nprint \"debug=$debugn\";
\nif (!$debug) {
\n\t$port = Device::SerialPort->new(\"\/dev\/tty.usbserial-0000201A\");
\n\t$port->databits(7);
\n\t$port->baudrate(9600);
\n\t$port->parity(\"odd\");
\n\t$port->stopbits(1);
\n\t@handshake_opts = $port->handshake;
\n\tprint Dumper @handshake_opts;
\n\t$port->handshake(\"none\");
\n}
\n#block_output(chr(27).'P');
\nusleep(250000);
\n$count=0;
\nwhile (1) {
\n\tuntil ($count) {
\n\t\t($count,$char) = $port->read(16);
\n\t\tsleep 3;
\n\t}
\n\tprint \"count=$count char=$charn\";
\n\tif ($count == 16) {
\n\t\t$weight=substr($char,9,7);
\n\t\tClipboard->copy($weight);
\n\t}
\n\t$count=0;
\n}
\nprint \"count=$count char=$charn\";
\n$weight=substr($char,9,7);
\nClipboard->copy($weight);
\n$count=0;
\n#while ($count) {
\n#\t($count,$char) = $port->read(1);
\n#\tprint \"reply char $char count=$countn\";
\n#}
\nexit;
\n<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"

Perl module Device::SerialPort is our friend. As is Clipboard, IO::All, Spiffy Trying to talk to a Sartorius precision balance. Speaks over Serial\/USB cable. Dang, there was supposed to be more here to serve as documentation. Now, months later, I have … Continue reading →<\/span><\/a><\/p>\n","protected":false},"author":7,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6517,8025],"tags":[],"class_list":["post-630","post","type-post","status-publish","format-standard","hentry","category-projects","category-scriptingprogramming"],"_links":{"self":[{"href":"https:\/\/blog.uvm.edu\/waw\/wp-json\/wp\/v2\/posts\/630","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.uvm.edu\/waw\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.uvm.edu\/waw\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.uvm.edu\/waw\/wp-json\/wp\/v2\/users\/7"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.uvm.edu\/waw\/wp-json\/wp\/v2\/comments?post=630"}],"version-history":[{"count":2,"href":"https:\/\/blog.uvm.edu\/waw\/wp-json\/wp\/v2\/posts\/630\/revisions"}],"predecessor-version":[{"id":632,"href":"https:\/\/blog.uvm.edu\/waw\/wp-json\/wp\/v2\/posts\/630\/revisions\/632"}],"wp:attachment":[{"href":"https:\/\/blog.uvm.edu\/waw\/wp-json\/wp\/v2\/media?parent=630"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.uvm.edu\/waw\/wp-json\/wp\/v2\/categories?post=630"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.uvm.edu\/waw\/wp-json\/wp\/v2\/tags?post=630"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}