12 my $q = new Quancom $ARGV[0]; |
12 my $q = new Quancom $ARGV[0]; |
13 |
13 |
14 my $r; |
14 my $r; |
15 |
15 |
16 # reset |
16 # reset |
17 $r = $q->cmd("SL000700000001"); |
17 $r = $q->full_reset; |
18 print $r->ok ? $r->data : $r->error_message, "\n"; |
18 print $r->ok ? $r->data : $r->error_message, "\n"; |
19 |
19 |
20 sleep 1; |
20 foreach ( |
21 $r = $q->cmd("WX0100FFFFFFFFFFFFFFFF"); |
21 qw( |
22 print $r->ok ? $r->data : $r->error_message, "\n"; |
22 WX.0100.FF.FF.FF.FF.FF.FF.FF.FF |
|
23 WX.0100.00.00.00.00.00.00.00.00 |
|
24 WB.0100.FF |
|
25 WB.0100.01 |
|
26 WB.0100.55 |
|
27 WB.0100.AA |
|
28 WL.0100.00.55.00.55 |
|
29 SL.0100.00.55.00.55 |
|
30 CL.0100.00.55.00.55 |
|
31 ) |
|
32 ) |
|
33 { |
|
34 $r = $q->cmd($_); |
|
35 print "err: " . $r->error_message . "\n" if not $r->ok; |
23 |
36 |
24 sleep 1; |
37 /.(.)\.(....)/; |
25 # switch off all lights |
38 $r = $q->cmd("R$1$2"); |
26 $r = $q->cmd("WX01000000000000000000"); |
39 if ($r->ok) { |
27 print $r->ok ? $r->data : $r->error_message, "\n"; |
40 print "got: " . $r->data . "\n"; |
|
41 } |
|
42 else { |
|
43 print "err: " . $r->error_message . "\n" if not $r->ok; |
|
44 } |
|
45 sleep 1; |
|
46 } |
28 |
47 |
29 sleep 1; |
|
30 $r = $q->cmd("WB0100FF"); |
|
31 print $r->ok ? $r->data : $r->error_message, "\n"; |
|
32 |
|
33 sleep 1; |
|
34 $r = $q->cmd("WB010001"); # 1 bit setzen |
|
35 print $r->ok ? $r->data : $r->error_message, "\n"; |
|
36 |
|
37 sleep 1; |
|
38 $r = $q->cmd("WB010055"); # 0101|0101 |
|
39 print $r->ok ? $r->data : $r->error_message, "\n"; |
|
40 |
|
41 sleep 1; |
|
42 $r = $q->cmd("WB0100AA"); # 1010|1010 |
|
43 print $r->ok ? $r->data : $r->error_message, "\n"; |
|
44 |
|
45 sleep 1; |
|
46 $r = $q->cmd("WW0100AAAA"); # 1010|1010 1010|1010 |
|
47 print $r->ok ? $r->data : $r->error_message, "\n"; |
|
48 |
|
49 sleep 1; |
|
50 $r = $q->cmd("SL010000550055"); # + 1010|1010 0000|0000 0101|0101 |
|
51 print $r->ok ? $r->data : $r->error_message, "\n"; |
|
52 |
|
53 sleep 1; |
|
54 $r = $q->cmd("CL010000000055"); # - 0101|0101 |
|
55 print $r->ok ? $r->data : $r->error_message, "\n"; |
|
56 } |
48 } |
57 |
49 |