lunes, 10 de noviembre de 2014

Free Pascal en BeagleBone Black Rev. C

Hola a todos, BeagleBone Black Rev C. es una placa con procesador Arm Cortex A8, las demás descripciones las pueden encontrar aca:  http://beagleboard.org/black

Como tal, en la página del fabricante se encuentran los ejemplos y codigos correspondientes a lenguajes como C++, Java, Python, entre otros.

Para Free Pascal es muy poco lo que se encuentra. Hay un ejemplo en C++ para encender y apagar un LED en específico, ahora realicé el respectivo ejemplo pero en Pascal:

Program leds;
{$mode objfpc}

Uses
 Sysutils;

Var
 LEDBrightness:TextFile;
 it:Integer;
Begin
 WriteLn('LED Flash Start');
 Assign(LEDBrightness, '/sys/class/leds/beaglebone:green:usr0/brightness');

 For it:=1 To 10 Do
 Begin
  Append(LEDBrightness);
  Writeln(LEDBrightness,'1');
  CloseFile(LEDBrightness);
  Sleep(1000);

  Append(LEDBrightness);
  Writeln(LEDBrightness,'0');
  CloseFile(LEDBrightness);
  Sleep(1000);
 End;

 WriteLn('LED Flash End');
End.


 Los materiales utilizados son:

 En el video podrán observar el funcionamiento (utilizo "sudo" porque el usuario no tiene permisos suficientes):

http://youtu.be/O9wvQYW5v-g

Hasta pronto

@_jdepaz

No hay comentarios: