HiPi
Perl Modules for Raspberry Pi
Version 0.67 - released 08 October 2017

HiPi::Interface::PCA9685

This module provides an interface to PCA9685 based PWM control boards.

It uses HiPi::Device::I2C as a backend.

Example

Methods

Method Description

# Method Example

Method Description

# Method Example

Method Description

# Method Example

Method Description

# Method Example

Method Description

# Method Example

Method Description

# Method Example

Method Description

# Method Example

Method Description

# Method Example

Method Description

# Method Example

Method Description

# Method Example

Example

#!/usr/bin/perl
use strict;
use warnings;
use lib '../module/blib/lib';
use lib '../module/blib/arch';
use lib '../module/lib';
use HiPi qw( :pca9685 );
use HiPi::Interface::PCA9685;

our $VERSION ='0.60';

use Getopt::Long;

my $options = {
    panleft     => undef,
    panright    => undef,
    tiltup      => undef,
    tiltdown    => undef,
    pan         => undef,
    tilt        => undef,
    postion     => 0,
    delay       => 5000,
    centre      => 0,
    address     => 0x40,
    'external-clock' => 0,
};

GetOptions ( $options,
    'panleft|l:i',
    'panright|r:i',
    'tiltup|u:i',
    'tiltdown|d:i',
    'tilt|t:i',
    'pan|p:i',
    'position|n!',
    'delay|s:i',
    'centre|center|c!',
    'address|a:o',
    'external-clock:f'
);


my $pwm = HiPi::Interface::PCA9685->new(
    address        => $options->{address},
    external_clock => $options->{'external-clock'},
    backend => 'smbus',
);

# same as inbuilt type PCA_9685_SERVOTYPE_SG90
my $servotype = $pwm->register_servotype(
    pulse_min         => 550,
    pulse_max         => 2350,
    degree_range      => 150,
    degree_min        => 15,
    degree_max        => 165,
);

my $tchan = 0;
my $pchan = 1;

my $tpos = $pwm->get_servo_degrees($tchan, $servotype);
my $ppos = $pwm->get_servo_degrees($pchan, $servotype);

if($options->{panleft}) {
    my $newpan = $ppos + $options->{panleft};
    do_pan( $newpan );
}

if($options->{panright}) {
    my $newpan = $ppos - $options->{panright};
    do_pan( $newpan );
}

if($options->{tiltup}) {
    my $newtilt = $tpos - $options->{tiltup};
    do_tilt( $newtilt );
}

if($options->{tiltdown}) {
    my $newtilt = $tpos + $options->{tiltdown};
    do_tilt( $newtilt );
}

if(defined($options->{pan})) {
    do_pan( $options->{pan} );
}

if(defined($options->{tilt})) {
    do_tilt( $options->{tilt} );
}

if($options->{centre}) {
    do_pan( 90 );
    do_tilt( 90 );
}

if($options->{position}) {
    # runs last - get the info again
    $tpos = $pwm->get_servo_degrees($tchan, $servotype);
    $ppos = $pwm->get_servo_degrees($pchan, $servotype);
    print qq(PCA9685 registers read: tilt $tpos, pan $ppos\n);
}

sub do_pan {
    my $pan = shift;
    $ppos = $pwm->set_servo_degrees($pchan, $servotype, $pan, $options->{delay});
}

sub do_tilt {
    my $tilt = shift;
    $tpos = $pwm->set_servo_degrees($tchan, $servotype, $tilt, $options->{delay});
}

1;