{"id":414,"date":"2023-04-24T08:00:00","date_gmt":"2023-04-24T07:00:00","guid":{"rendered":"https:\/\/jorgeturiel.es\/?p=414"},"modified":"2023-04-16T21:47:36","modified_gmt":"2023-04-16T20:47:36","slug":"raspberry-pi-pico-y-freepascal","status":"publish","type":"post","link":"https:\/\/jorgeturiel.es\/?p=414","title":{"rendered":"Raspberry Pi Pico y FreePascal"},"content":{"rendered":"\n

Raspberry Pi Pico, no es una Raspberry como otras placas de la fundaci\u00f3n Raspberry que son un microordenador. Sino que es una microcontrolador. La diferencia es que un microordenador es un microprocesador<\/a> con todos sus perif\u00e9ricos, tarjeta de v\u00eddeo, puertos usb, etc. En cambio un microcontrolador es solo un el microprocesador. <\/p>\n\n\n\n

FreePascal<\/a>, en sus versiones trunk o desarrollo, pr\u00f3ximas a publicarse, soporta gran cantidad de sistemas embebidos<\/a> entre ellos las nueva placa Raspberry Pi Pico.<\/p>\n\n\n\n\n\n\n\n

Introducci\u00f3n<\/h2>\n\n\n\n

Al programar un microcontrolador, como por ejemplo los famosos Arduinos<\/a>, se suele hacer en C, el cual es un lenguaje compilado. Lo que significa que el c\u00f3digo que escribamos ser\u00e1 traducido al lenguaje que entiende el microprocesador, y ejecutado. <\/p>\n\n\n\n

Raspberry Pi Pico, permite ser programada adem\u00e1s de en C, en Micropython, el cual es un lenguaje interpretado. La principal diferencia est\u00e1 en que un programa escrito en un lenguaje interpretado siempre tiene un rendimiento menor que un lenguaje compilado. Ya que lo que ocurre con los lenguajes interpretados es que son le\u00eddos l\u00ednea a l\u00ednea por un interprete, traducido a lenguaje del microcontrolador y ejecutado. Todo esto seg\u00fan se ejecuta nuestro programa, lo cual hace que el microprocesador tenga m\u00e1s trabajo. <\/p>\n\n\n\n

El lenguaje C, es un lenguaje con el cual, los programas al ejecutarse obtienen un gran rendimiento pero para muchas personas se hace complicado trabajar con \u00e9l, en gran medida por su sintaxis. Por otra parte Pascal en un lenguaje d\u00f3nde la sintaxis es m\u00e1s amigable, y como en C, los programas tiene un gran rendimiento.<\/p>\n\n\n\n

Preparando el entorno<\/h2>\n\n\n\n

Antes de nada debemos instalar FreePascal, y su entorno desarrollo, o IDE, llamado Lazarus. Tal como coment\u00e9, FreePascal en su versi\u00f3n actual no soporta Raspberry Pi Pico, pero si en su versi\u00f3n \u00abTrunk\u00bb o desarrollo. <\/p>\n\n\n\n

La mejor manera de instalar todo lo necesario es utilizar la aplicaci\u00f3n Fpcupdeluxe<\/a>. Descarga la \u00faltima versi\u00f3n desde su p\u00e1gina. Escoge la versi\u00f3n para tu sistema operativo.<\/p>\n\n\n

\n
\"\"
Aspecto de Fpcupdeluxe<\/figcaption><\/figure>\n<\/div>\n\n\n

Lo primero es seleccionar un carpeta d\u00f3nde realizar la instalaci\u00f3n, para ello pulsa en el bot\u00f3n Set InstallDir<\/em>. <\/p>\n\n\n

\n
\"\"
Seleccionar directorio<\/figcaption><\/figure>\n<\/div>\n\n\n

Ahora, abajo de todo. Pulsa sobre el bot\u00f3n que pone Pico<\/em> y que tiene una imagen de la placa Raspberry Pi Pico.<\/p>\n\n\n

\n
\"\"
Bot\u00f3n instalar Pico<\/figcaption><\/figure>\n<\/div>\n\n\n

Ahora, pulsa en Install\/Update<\/em> FPC+LAZ<\/em>. Ya solo queda esperar. Fpcupdeleuxe se encargar\u00e1 de descargar todos los archivos necesarios e instalarlos. El proceso pude tardar m\u00e1s o menos dependiendo de la conexi\u00f3n a internet y de tu ordenador.<\/p>\n\n\n\n

Una vez descargado e instalado todo, Fpcupdeleuxe crear\u00e1 un icono en el escritorio para iniciar Lazarus. Antes de abrir el programa, descarga los ejemplos de este github<\/a>. <\/p>\n\n\n\n

Algunos ajustes previos<\/h2>\n\n\n\n

Abre el entorno Lazarus, usando el acceso directo que se cre\u00f3 en el escritorio de tu pc. Por defecto aparece en ingl\u00e9s. Para cambiar el idioma, selecciona el men\u00fa Tool <\/em> y dentro de este Options<\/em>. En la ventana que aparece, selecciona General<\/em>, y selecciona Lenguage<\/em>.<\/p>\n\n\n

\n
\"\"
Cambiar el idioma.<\/figcaption><\/figure>\n<\/div>\n\n\n

Para que el cambio sea efectivo cierra Lazarus y vuelve a abrirlo. O desde el men\u00fa File<\/em>, selecciona Restart<\/em>.<\/p>\n\n\n

\n
\"\"
Reiniciar Lazarus<\/figcaption><\/figure>\n<\/div>\n\n\n

Primer programa<\/h2>\n\n\n\n

Como es tradici\u00f3n, vamos hacer parpadear un LED, en este caso es un LED, que viene integrado en la placa. <\/p>\n\n\n\n

Selecciona el men\u00fa Proyecto y dentro de este selecciona, Abrir proyecto.<\/em> Busca la carpeta d\u00f3nde hayas descargado los ejemplos y selecciona el proyecto Blinky.<\/em><\/p>\n\n\n

\n
\"\"
Abrir proyecto Blinky<\/figcaption><\/figure>\n<\/div>\n\n\n

Ahora, desde el men\u00fa Ejecutar<\/em> selecciona Compilar<\/em>. Tambi\u00e9n puedes usar el atajo Ctrl+F9<\/em>. Te recomiendo que recuerdes esta combinaci\u00f3n de teclas, ya que la usar\u00e1s mucho.<\/p>\n\n\n

\n
\"\"
Compilar programa<\/figcaption><\/figure>\n<\/div>\n\n\n

En la ventana de mensajes, puedes ver como se produce el proceso de compilado y el resultado del mismo. Si todo ha ido bien, mostrar\u00e1 un mensaje indicando que ha sido un \u00e9xito.<\/p>\n\n\n

\n
\"\"
Ventana mensajes.<\/figcaption><\/figure>\n<\/div>\n\n\n

Ahora solo queda cargar nuestro programa en la Raspberry Pi Pico. Conecta la placa a tu ordenador en un puerto usb. Mant\u00e9n pulsado el bot\u00f3n BOOTSEL, conecta el cable micro USB y suelta el bot\u00f3n BOOTSEL. En el ordenador se montar\u00e1 una unidad nueva llamada RPI-RP2<\/em>,como si fuera una unidad USB. <\/p>\n\n\n

\n
\"\"
Unidad RPI-RP2 montada al conectar la placa Pico<\/figcaption><\/figure>\n<\/div>\n\n\n

Para ello abre la carpeta d\u00f3nde est\u00e1 el programa que acabas de abrir. Dentro de este hay una carpeta llamada Bin<\/em>, dentro de esta \u00faltima hay un archivo llamado blinky.uf2<\/em>. C\u00f3pialo dentro de la la unidad RPI-RP2<\/em>. La placa Rasperry pi Pico se reiniciar\u00e1 y empezar\u00e1 a ejecutar el programa. En esta caso parpadear\u00e1 el Led de color verde que lleva incorporado.<\/p>\n\n\n\n

El programa que hemos cargado es muy sencillo, vamos a ver algunos detalles del mismo.<\/p>\n\n\n\n

program blinky;\n{$MODE OBJFPC}\n{$H+}\n{$MEMORY 10000,10000}\n\nuses\n  pico_gpio_c,\n  pico_timer_c;\n\nbegin\n  gpio_init(TPicoPin.LED);\n  gpio_set_dir(TPicoPin.LED,TGPIODirection.GPIO_OUT);\n  repeat\n    gpio_put(TPicoPin.LED,true);\n    busy_wait_us_32(500000);\n    gpio_put(TPicoPin.LED,false);\n    busy_wait_us_32(500000);\n  until 1=0;\nend.      <\/pre><\/div>\n\n\n\n
El primer detalle que debemos fijarnos es en la l\u00ednea cuatro. La directiva de compilaci\u00f3n {$MEMORY 10000,10000}<\/em> indica al compilador que debe reservar debe reservar 10000 bytes de la memoria para la el stack (pila) y otros 10000 para el heapsize (mont\u00edculo). Sino tienes claro para que sirve para cosa, te recomiendo que visites esta p\u00e1gina<\/a>. Recordar que estamos programando un microcontrolador, y no existe sistema operativo que gestione la memoria<\/p>\n\n\n\n
Las siguientes l\u00edneas indican las unidades o librer\u00edas que vamos usar, en este caso: pico_gpio_c <\/em>y pico_timer_c<\/em>.  Estas librer\u00edas fueron instaladas previamente.<\/p>\n\n\n\n
En las l\u00edneas 11 y 12, preparamos la salida. Primero inicializ\u00e1ndola y luego indicando que ser\u00e1 una salida. TPicoPin.LED <\/em> es una constante que contiene el n\u00famero de pin en el cual est\u00e1 conectado el LED que est\u00e1 incluido en la placa.<\/p>\n\n\n\n
Despu\u00e9s, entramos en un bucle en el cual se repetir\u00e1 hasta que sea cumpla la condici\u00f3n indicada en la l\u00ednea 18. La cual nunca se cumplir\u00e1 por lo cual siempre estar\u00e1 ejecut\u00e1ndose el c\u00f3digo que hay en el interior.<\/p>\n\n\n\n
La l\u00ednea 14, activa la salida que hemos definido antes. <\/p>\n\n\n\n
La l\u00ednea 15 espera 50000 microsegundos, osea 500 milisegundos.<\/p>\n\n\n\n
La l\u00ednea 16, desactiva la salida. <\/p>\n\n\n\n
La l\u00ednea 17 vuelve a esperar 50000 microsegundos.<\/p>\n\n\n\n
Con lo cual conseguimos que la salida est\u00e9 activa durante medio segundo, y desactivada otro medio segundo.<\/p>\n\n\n\n
Conclusi\u00f3n<\/h2>\n\n\n\n
De una manera sencilla podemos preparar el entorno para programar nuestra Raspberry Pi Pico, usando un lenguaje compilado, y aprovechar as\u00ed todo su potencial.<\/p>\n\n\n\n
Saludos.<\/p>\n","protected":false},"excerpt":{"rendered":"
FreePascal, en sus versiones trunk o desarrollo, pr\u00f3ximas a publicarse, soporta gran cantidad de sistemas embebidos entre ellos las nueva placa Raspberry Pi Pico.<\/p>\n","protected":false},"author":2,"featured_media":417,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[27,41,26,40],"tags":[43,32,23,42],"class_list":["post-414","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-lazarus","category-microcontroladores","category-programacion","category-stm32","tag-bluepill","tag-free-pascal","tag-lazarus","tag-stm32"],"_links":{"self":[{"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/posts\/414","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=414"}],"version-history":[{"count":5,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/posts\/414\/revisions"}],"predecessor-version":[{"id":430,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/posts\/414\/revisions\/430"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=\/wp\/v2\/media\/417"}],"wp:attachment":[{"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=414"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=414"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/jorgeturiel.es\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=414"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}