- SEE ALSO
- COPYRIGHT AND LICENSE
Device::USB::PX1674 - Perl CMD-Class for Revolt USB Dongle PX-1674-675
use Device::USB::PX1674; my $px = Device::USB::PX1674->new( addr => 0x1A85, # inhouse code verb => 1, # verbose output, shown as hex-dump ) || die $@; # Set Device 1 to state on $px->On(1); # Switch off entire group $px->switch('Off');
The instance of this class sends commands to USB-Dongle for switching on/off a certain RF power socket. The USB-device using this API must be configured for using libusb. This dongle has the vendor-id 0xFFFF and product-id 0x1122 by factory.
For a certain inhouse code it is possible to switch up to 6 RF power sockets in one group.
The Perl-Library Device::USB must be installed and the Revolt USB-dongle PX-1674-675 must be configured for using libusb.
Available options are:
vid => 0xFFFF, # Default Vendor ID pid => 0x1122, # Default Product ID ept => 0x02, # Default Endpoint Out addr => 0x1A1A, # Hauscode intf => 0, # Default Interface cfg => 1, # Default Configuration verb => 0, # Verbose
On(); If argument omitted, On() is switching entire group of devices. Off(); Similar to On(); switch('On',3); Same as On, Off but now 'On' or 'Off' are arguments. Group-switching similar to methods above.
ppm install http://rolfrost.de/Device-USB.ppd ppm install http://rolfrost.de/Device-USB-PX1674.ppd
Device::USB LibUSB LibUSB-Win32
Rolf Rost, < email@example.com >
Copyright (C) 2017 by Rolf Rost
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.16.3 or, at your option, any later version of Perl 5 you may have available.