1 respuesta en este tema

[jdepaz]

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:

delphi

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:

• BeagleBone Black Rev. C
• SO: Debian 7.7
• Free Pascal 2.6.4 para ARM http://freepascal.or...nux-austria.var

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







Saludos

[poliburro]

Muchas gracias por el aporte.