diff options
Diffstat (limited to 'example.pl')
| -rwxr-xr-x | example.pl | 254 |
1 files changed, 254 insertions, 0 deletions
diff --git a/example.pl b/example.pl new file mode 100755 index 0000000..44e669f --- /dev/null +++ b/example.pl @@ -0,0 +1,254 @@ +#! /usr/bin/perl -w + +use cleware; +use Data::Dumper; + +sub device_id_to_string +{ + my $device_type = $_[0]; + + if ($device_type eq $cleware::POWER_DEVICE) + { + return "Power"; + } + if ($device_type eq $cleware::WATCHDOGXP_DEVICE) + { + return "WatchdogXP"; + } + if ($device_type eq $cleware::LED_DEVICE) + { + return "LED"; + } + if ($device_type eq $cleware::WATCHDOG_DEVICE) + { + return "Watchdog"; + } + if ($device_type eq $cleware::AUTORESET_DEVICE) + { + return "Autoreset device"; + } + if ($device_type eq $cleware::SWITCH1_DEVICE) + { + return "Switch1"; + } + if ($device_type eq $cleware::SWITCH2_DEVICE) + { + return "Switch2"; + } + if ($device_type eq $cleware::SWITCH3_DEVICE) + { + return "Switch3"; + } + if ($device_type eq $cleware::SWITCH4_DEVICE) + { + return "Switch4"; + } + if ($device_type eq $cleware::SWITCH5_DEVICE) + { + return "Switch5"; + } + if ($device_type eq $cleware::SWITCH6_DEVICE) + { + return "Switch6"; + } + if ($device_type eq $cleware::SWITCH7_DEVICE) + { + return "Switch7"; + } + if ($device_type eq $cleware::SWITCH8_DEVICE) + { + return "Switch8"; + } + if ($device_type eq $cleware::SWITCHX_DEVICE) + { + return "SwitchX"; + } + if ($device_type eq $cleware::TEMPERATURE_DEVICE) + { + return "Temperature sensor"; + } + if ($device_type eq $cleware::TEMPERATURE2_DEVICE) + { + return "Temperature 2 sensor"; + } + if ($device_type eq $cleware::TEMPERATURE5_DEVICE) + { + return "Temperature 5 sensor"; + } + if ($device_type eq $cleware::HUMIDITY1_DEVICE) + { + return "Humidity sensor"; + } + if ($device_type eq $cleware::CONTACT00_DEVICE) + { + return "Contact 00 device"; + } + if ($device_type eq $cleware::CONTACT01_DEVICE) + { + return "Contact 01 device"; + } + if ($device_type eq $cleware::CONTACT02_DEVICE) + { + return "Contact 02 device"; + } + if ($device_type eq $cleware::CONTACT03_DEVICE) + { + return "Contact 03 device"; + } + if ($device_type eq $cleware::CONTACT04_DEVICE) + { + return "Contact 04 device"; + } + if ($device_type eq $cleware::CONTACT05_DEVICE) + { + return "Contact 05 device"; + } + if ($device_type eq $cleware::CONTACT06_DEVICE) + { + return "Contact 06 device"; + } + if ($device_type eq $cleware::CONTACT07_DEVICE) + { + return "Contact 07 device"; + } + if ($device_type eq $cleware::CONTACT08_DEVICE) + { + return "Contact 08 device"; + } + if ($device_type eq $cleware::CONTACT09_DEVICE) + { + return "Contact 09 device"; + } + if ($device_type eq $cleware::CONTACT10_DEVICE) + { + return "Contact 10 device"; + } + if ($device_type eq $cleware::CONTACT11_DEVICE) + { + return "Contact 11 device"; + } + if ($device_type eq $cleware::CONTACT12_DEVICE) + { + return "Contact 12 device"; + } + if ($device_type eq $cleware::CONTACT13_DEVICE) + { + return "Contact 13 device"; + } + if ($device_type eq $cleware::CONTACT14_DEVICE) + { + return "Contact 14 device"; + } + if ($device_type eq $cleware::CONTACT15_DEVICE) + { + return "Contact 15 device"; + } + if ($device_type eq $cleware::ENCODER01_DEVICE) + { + return "Encoder 01 device"; + } + if ($device_type eq $cleware::F4_DEVICE) + { + return "F4 device"; + } + if ($device_type eq $cleware::KEYC01_DEVICE) + { + return "Keyc01 device"; + } + if ($device_type eq $cleware::KEYC16_DEVICE) + { + return "Keyc16 device"; + } + if ($device_type eq $cleware::ADC0800_DEVICE) + { + return "AC0800 device"; + } + if ($device_type eq $cleware::ADC0801_DEVICE) + { + return "AC0801 device"; + } + if ($device_type eq $cleware::ADC0802_DEVICE) + { + return "AC0802 device"; + } + if ($device_type eq $cleware::ADC0803_DEVICE) + { + return "AC0803 device"; + } + if ($device_type eq $cleware::COUNTER00_DEVICE) + { + return "Counter device"; + } + if ($device_type eq $cleware::BUTTON_NODEVICE) + { + return "Button no device"; + } + + return "device type not recognized!" +} + +$c = cleware::CUSBaccess->new(); + +$n_devices = cleware::CUSBaccess::OpenCleware($c); + +print "Number of devices: $n_devices\n"; + +my $i; +for($i=0; $i<$n_devices; $i++) +{ + my $devType = cleware::CUSBaccess::GetUSBType($c, $i); + my $devTypeStr = device_id_to_string($devType); + my $version = cleware::CUSBaccess::GetVersion($c, $i); + my $serial = cleware::CUSBaccess::GetSerialNumber($c, $i); + + print "device: $i, type: $devTypeStr ($devType), version: $version, serial number: $serial\n"; + + # these two are not neccessary normally for reading temperatures + # they're here as an example + # rc is 0 for failure, 1 for ok + my $rc; + $rc = cleware::CUSBaccess::ResetDevice($c, $i); + $rc = cleware::CUSBaccess::StartDevice($c, $i); + + if ($devType eq $cleware::TEMPERATURE_DEVICE || $devType eq $cleware::TEMPERATURE2_DEVICE || $devType eq $cleware::TEMPERATURE5_DEVICE) + { + my $temperature = cleware::CUSBaccess::GetTemperatureSimple($c, $i); + + print "\tcurrent temperature: $temperature\n"; + } + + if ($devType eq $cleware::HUMIDITY1_DEVICE) + { + my $humidity = cleware::CUSBaccess::GetHumiditySimple($c, $i); + + print "\tcurrent humidity: $humidity\n"; + } + + # Note: the "ampel" (traffic light) is also a switch device, with actually 3 switches (one per light) + if ($devType eq $cleware::SWITCH1_DEVICE || $devType eq $cleware::SWITCH2_DEVICE || $devType eq $cleware::SWITCH3_DEVICE || $devType eq $cleware::SWITCH4_DEVICE || $devType eq $cleware::SWITCH5_DEVICE || $devType eq $cleware::SWITCH6_DEVICE || $devType eq $cleware::SWITCH7_DEVICE || $devType eq $cleware::SWITCH8_DEVICE || $devType eq $cleware::SWITCHX_DEVICE) + { + my $switch_nr = 0; # 0...15 + my $state = cleware::CUSBaccess::GetSwitch($c, $i, 16 + $switch_nr); + print "\tswitch $switch_nr state: $state\n"; + + my $new_state = 1; # 0 or 1 + $rc = cleware::CUSBaccess::SetSwitch($c, $i, 16 + $switch_nr, $new_state); + } + + if ($devType eq $cleware::CUSBaccess::LED_DEVICE) + { + my $led = $cleware::CUSBaccess::LED_0; # 0...3 + my $value = 10; # 0...15 + $rc = cleware::CUSBaccess::SetLED($c, $i, $led, $value); + } + + if ($devType eq $cleware::ADC0800_DEVICE || $devType eq $cleware::ADC0801_DEVICE || $devType eq $cleware::ADC0802_DEVICE || $devType eq $cleware::ADC0803_DEVICE) + { + my $channel = 1; # 0 or 1 + $rc = cleware::CUSBaccess::SelectADCChannel($c, $i, $channel); + + my $scale = 0; # 0...2 for 5, 13 or 24V + my $voltage = cleware::CUSBaccess::GetADCValue($c, $i, $scale); + print "\tmeasured voltage: $voltage\n"; + } +} |