Ir al contenido



Foto

Free Pascal en BeagleBone Black Rev C.


  • Por favor identifícate para responder
1 respuesta en este tema

#1 jdepaz

jdepaz

    Advanced Member

  • Miembros
  • PipPipPip
  • 260 mensajes
  • LocationMedellín Colombia

Escrito 10 noviembre 2014 - 11:06

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
  1. Program leds;
  2. {$mode objfpc}
  3.  
  4. Uses
  5. Sysutils;
  6.  
  7. Var
  8. LEDBrightness:TextFile;
  9. it:Integer;
  10. Begin
  11. WriteLn('LED Flash Start');
  12. Assign(LEDBrightness, '/sys/class/leds/beaglebone:green:usr0/brightness');
  13.  
  14. For it:=1 To 10 Do
  15. Begin
  16.   Append(LEDBrightness);
  17.   Writeln(LEDBrightness,'1');
  18.   CloseFile(LEDBrightness);
  19.   Sleep(1000);
  20.  
  21.   Append(LEDBrightness);
  22.   Writeln(LEDBrightness,'0');
  23.   CloseFile(LEDBrightness);
  24.   Sleep(1000);
  25. End;
  26.  
  27. WriteLn('LED Flash End');
  28. End.



Los materiales utilizados son:



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







Saludos
  • 0

#2 poliburro

poliburro

    Advanced Member

  • Administrador
  • 4.933 mensajes
  • LocationMéxico

Escrito 11 noviembre 2014 - 09:14

Muchas gracias por el aporte.
  • 0