Mercurial Mercurial > hg > quancom / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
examples/client
changeset 15 2d41fac09084
parent 13 d6f681329542
child 16 246d80ec6653
equal deleted inserted replaced
14:7ccc679ac5db 15:2d41fac09084 
     1 #! /usr/bin/perl
 
     1 #! /usr/bin/perl
 
       
     2 
       
     3 # should probably called on blib environment:
 
       
     4 # perl -Mblib examples/client ...
 
     2 
     5 
     3 use strict;
 
     6 use strict;
 
     4 use warnings;
 
     7 use warnings;
 
     5 use Quancom;
 
     8 use Quancom;
 
     6 use Data::Dumper;
 
     9 use Data::Dumper;
 
    10 
    13 
    11     my $r;
 
    14     my $r;
 
    12 
    15 
    13     # switch on/off all lights on the first relais
 
    16     # switch on/off all lights on the first relais
 
    14     $r = $q->cmd("WB0100FF");
 
    17     $r = $q->cmd("WB0100FF");
 
    15     print $r->ok ? $r->data : $r->error, "\n";
 
    18     print $r->ok ? $r->data : $r->error_message, "\n";
 
    16 
    19 
    17     sleep 1;
 
    20     sleep 1;
 
    18     $r = $q->cmd("WB010000");
 
    21     $r = $q->cmd("WB010000");
 
    19     print $r->ok ? $r->data : $r->error, "\n";
 
    22     print $r->ok ? $r->data : $r->error_message, "\n";
 
    20 
    23 
    21     sleep 1;
 
    24     sleep 1;
 
    22     $r = $q->cmd("WB010001");	# 1 bit setzen
 
    25     $r = $q->cmd("WB010001");	# 1 bit setzen
 
    23     print $r->ok ? $r->data : $r->error, "\n";
 
    26     print $r->ok ? $r->data : $r->error_message, "\n";
 
    24 
    27 
    25     sleep 1;
 
    28     sleep 1;
 
    26     $r = $q->cmd("WB010055");	# 0101|0101
 
    29     $r = $q->cmd("WB010055");	# 0101|0101
 
    27     print $r->ok ? $r->data : $r->error, "\n";
 
    30     print $r->ok ? $r->data : $r->error_message, "\n";
 
    28 
    31 
    29     sleep 1;
 
    32     sleep 1;
 
    30     $r = $q->cmd("WB0100AA");	# 1010|1010
 
    33     $r = $q->cmd("WB0100AA");	# 1010|1010
 
    31     print $r->ok ? $r->data : $r->error, "\n";
 
    34     print $r->ok ? $r->data : $r->error_message, "\n";
 
    32 
    35 
    33     sleep 1;
 
    36     sleep 1;
 
    34     $r = $q->cmd("SL010000000055");	# + 0101|0101
 
    37     $r = $q->cmd("WW0100AAAA");	# 1010|1010 1010|1010
 
    35     print $r->ok ? $r->data : $r->error, "\n";
 
    38     print $r->ok ? $r->data : $r->error_message, "\n";
 
       
    39 
       
    40     sleep 1;
 
       
    41     $r = $q->cmd("SL010000550055");	# + 1010|1010 0000|0000 0101|0101
 
       
    42     print $r->ok ? $r->data : $r->error_message, "\n";
 
       
    43 
       
    44     sleep 1;
 
       
    45     $r = $q->cmd("CL010000000055");	# - 0101|0101
 
       
    46     print $r->ok ? $r->data : $r->error_message, "\n";
 
    36 }
 
    47 }
 
    37 
    48
quancom