1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
#########################################################################################
# Package HiPi::Interface::HobbyTronicsADC
# Description : Control HTADCI2C I2C Analog to Digital ic via I2C
# Copyright : Copyright (c) 2013-2017 Mark Dootson
# License : This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#########################################################################################
package HiPi::Interface::HobbyTronicsADC;
#########################################################################################
use strict;
use warnings;
use parent qw( HiPi::Interface );
use HiPi qw( :rpi );
use HiPi::RaspberryPi;
use Carp;
# Chip based on a PIC 18F14K22
our $VERSION ='0.81';
__PACKAGE__->create_accessors( qw( devicename address res fil1 fil0 backend ) );
sub new {
my ($class, %userparams) = @_;
my $pi = HiPi::RaspberryPi->new();
my %params = (
address => 0x28,
device => undef,
devicename => ( $pi->board_type == RPI_BOARD_TYPE_1 ) ? '/dev/i2c-0' : '/dev/i2c-1',
res => 1,
fil1 => 0,
fil0 => 0,
backend => 'i2c',
);
# get user params
foreach my $key( keys (%userparams) ) {
$params{$key} = $userparams{$key};
}
unless( defined($params{device}) ) {
if ( $params{backend} eq 'bcm2835' ) {
require HiPi::BCM2835::I2C;
$params{device} = HiPi::BCM2835::I2C->new(
address => $params{address},
peripheral => ( $params{devicename} eq '/dev/i2c-0' ) ? HiPi::BCM2835::I2C::BB_I2C_PERI_0() : HiPi::BCM2835::I2C::BB_I2C_PERI_1(),
);
} else {
require HiPi::Device::I2C;
$params{device} = HiPi::Device::I2C->new(
devicename => $params{devicename},
address => $params{address},
busmode => $params{backend},
);
}
}
my $self = $class->SUPER::new(%params);
# set the device params
my $setupflags = ( $params{res} ) ? 1 : 0;
$setupflags += 2 if $params{fil0};
$setupflags += 4 if $params{fil1};
$self->device->bus_write( $setupflags );
return $self;
}
sub set_option_flags {
my($self, $res, $fil0, $fil1) = @_;
my $setupflags = ( $res ) ? 1 : 0;
$setupflags += 2 if $fil0;
$setupflags += 4 if $fil1;
$self->res($res);
$self->fil0($fil0);
$self->fil1($fil1);
$self->device->bus_write( $setupflags );
}
sub read_channel {
my ($self, $channel) = @_;
return ( $self->read_register )[$channel];
}
sub read_channels {
my ($self, @channels) = @_;
my @all = $self->read_register;
my @results;
for ( @channels ) {
push (@results, $all[$_]);
}
return @results;
}
sub read_register {
my($self) = @_;
my $numbytes = ( $self->res ) ? 10 : 20;
#my $address = ( $self->res ) ? 0x01 : 0x01;
my @rvals = $self->device->bus_read( undef, $numbytes );
if( $numbytes == 10 ) {
for( my $i = 0; $i < 10; $i++ ) {
$rvals[$i] *= 4;
}
return @rvals;
} else {
my @newvals;
while( @rvals) {
my $low = shift( @rvals );
my $high = shift( @rvals );
push @newvals, $high + $low * 256;
}
return @newvals;
}
}
1;
|
