Existen muchas librerias para accesar a los puertos GPIO , en este manual usamos la libreria hipi, cuyo sitio web es http://raspberry.znix.com/. Aqui encontraran informacion y manual sobre cada funcion.
Primero descargamosel instalador
#wget http://raspberry.znix.com/hipifiles/hipi-install
y ejecutamos
#perl hipi-install
Seguimos los pasos, que incluyen instalar algunas dependencias que el hara a travez de apt-get automaticamente.
Si todo ha salido correcto, entonces entramos en el meollo del asunto. A continuacion un codigo muy sencillo sobre como encender un LED y apagarlo a los 5 segundos. El diagrama es el siguiente.
La resistencia va a tierra, el Diodo Led a un puerto GPIO, en este ejercicio se usa el 23 y 24(tierra) de la nomenclatura fisica de la board. Una vez conectado a la Raspberry pasamos al codigo Perl.
use HiPi::BCM2835;
use HiPi::Constant qw( :raspberry );
use strict;
#iniciamos el objeto
my $bcm = HiPi::BCM2835->new()
|| die "No se pudo iniciar ";
#pin a usar
my $pin = RPI_PIN_23;
#set al pin que usaremos
$bcm->gpio_set($pin);
#establecemos el pin como de salida
$bcm->gpio_fsel($pin,RPI_PINMODE_OUTP);
#encendemos el led
$bcm->gpio_write( $pin, 1 );
#esperamos 5 segundos
$bcm->delay(5000);
#apagamos el led
$bcm->gpio_write( $pin, 0 );
Listo, si la libreria HIPI se instalo correctamente, deberia funcionar dicho script. Espero les haya saludos, Do widzenia
Primero descargamosel instalador
#wget http://raspberry.znix.com/hipifiles/hipi-install
y ejecutamos
#perl hipi-install
Seguimos los pasos, que incluyen instalar algunas dependencias que el hara a travez de apt-get automaticamente.
Si todo ha salido correcto, entonces entramos en el meollo del asunto. A continuacion un codigo muy sencillo sobre como encender un LED y apagarlo a los 5 segundos. El diagrama es el siguiente.
La resistencia va a tierra, el Diodo Led a un puerto GPIO, en este ejercicio se usa el 23 y 24(tierra) de la nomenclatura fisica de la board. Una vez conectado a la Raspberry pasamos al codigo Perl.
use HiPi::BCM2835;
use HiPi::Constant qw( :raspberry );
use strict;
#iniciamos el objeto
my $bcm = HiPi::BCM2835->new()
|| die "No se pudo iniciar ";
#pin a usar
my $pin = RPI_PIN_23;
#set al pin que usaremos
$bcm->gpio_set($pin);
#establecemos el pin como de salida
$bcm->gpio_fsel($pin,RPI_PINMODE_OUTP);
#encendemos el led
$bcm->gpio_write( $pin, 1 );
#esperamos 5 segundos
$bcm->delay(5000);
#apagamos el led
$bcm->gpio_write( $pin, 0 );
Listo, si la libreria HIPI se instalo correctamente, deberia funcionar dicho script. Espero les haya saludos, Do widzenia
Comentarios
Publicar un comentario