Ejemplo Lcd Grafico

UNIVERSIDAD POLITECNICA SALESIANA GLCD GRAFICO Integrantes: Jairo Castillo Jorge Morales Jonathan Tipán ESQUEMA

5. Programa de ejemplo para el uso de display grafico, solo para la familia 18fXX, (utilice un 18f452 o 18f4520) program GLCDGRAFICO include "__Lib_images" 'librería de imágenes mikroBasic dim j, k as byte main: Glcd_Init(PORTB, 0, 1, 2, 3, 4, 5, PORTD) do Glcd_Set_Font(@FontSystem5x8, 5, 8, 32) Glcd_Image(mikro_logo_bmp) Delay_ms(4000) 'Draw circles Glcd_Fill(0) 'Clearscreen Glcd_Set_Font(@FontSystem5x8, 5, 8, 32) delay_ms(1000) Glcd_Write_Text("Circulos", 0, 0,1) j=4 while j < 31 Glcd_Circle(63, 31,j, 2) j=j+4 wend Delay_ms(4000) 'Draw boxes Glcd_Fill(0) 'Clearscreen Glcd_Set_Font(@FontSystem5x8, 5, 8, 32) Glcd_Write_Text("Rectangulos",0, 0, 1) delay_ms(1000) Glcd_Fill(0) j=0 while j< 31 Glcd_Box(j, 0, j + 20, j + 25, 2) j=j+4 wend Delay_Ms(4000)

Glcd_Fill(0) 'Clearscreen Glcd_Set_Font(@FontSystem5x8, 5, 8, 32) Glcd_Write_Text("Lineas", 0, 0,1) delay_ms(1000) Glcd_Fill(0) for j = 0 to 15 k=j*4+3 Glcd_Line(0, 0, 127, k, 2) next j for j = 0 to 31 k=j*4 + 3 Glcd_Line(0, 63, k, 0, 2) Next j Delay_ms(4000) loop until FALSE end. module My_images ' -----------------------------------------------------' GLCD Picture name: mikro_logo.bmp ' GLCD Model: KS0108 128x64 ' -----------------------------------------------------const mikro_logo_bmp as byte[1024] = ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,192,224,112,176,176,176,176,176,176,176,176, 176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176, 176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176, 176,176,176,176,176,176,176,176,176, 96,224,128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,255,255, 0,255,255,255, 3, 35, 49, 49, 49, 49, 49, 49, 49, 51, 3,199,255,127, 31, 31, 15, 7, 7, 3, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 7, 7, 15, 15, 31,127,255,255,255,255,255,255, 0,255,255, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,255,255, 0,255,255,255, 7, 6, 6, 14, 30,

30, 30, 30, 30,254,255,255, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,252,255,255,255,254, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7,255,255,255,255, 0,255,255, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,255,255, 0,255,255,255, 17, 51, 3, 3, 15, 7, 3, 3, 17,255,255,255, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,129,129,129,129,128,128,128,128,128,128,128,128, 128,128,128,128,128,255,255,255,255, 0,255,255, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,255,255, 0,255,255,255, 98,127,111, 99, 99, 99, 99, 99, 99,255,255,255, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,255,255,255,255,255,255, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,255,255,255,255, 0,255,255, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,255,255, 0,255,255,255, 8,140,140,140,140, 140,140,140,140,141,159,255,240,192, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 31, 63, 31, 31, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0,128,192,248,255,255,255,255, 0,255,255, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,127,255,128,127,127,127,112,113,113,113,113, 113,113,113,113,113,113,113,113,115,119,126,124,124,120,120,112, 112,112,112,112,112,112,112,112,112,112,112,112,112,120,120,124, 126,127,127,127,127,127,127,127, 63,192,255,127, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 1, 0, 0, 0, 0, 0, 0 ) end. *Todo el código debe ir en un solo proyecto *.pbas Esquema

Mediante la herramienta para generación de arreglos para mapa de bits GLCD Bitmap Editor. Creamos un código para cualquier archivo bmp monocromático.

Aparece la siguiente pantalla, podemos escoger tres tipos de controladores, y también el tamaño de resolución de la pantalla; en la parte inferior debe estar seleccionado la opción mikrobasic

Damos clic en Load BMP picture, damos clic en la carpeta 128x64, escogemos el archivo mikro_logo y damos un clic en abrir.

Copiamos el código y lo pegamos a continuación del programa. *La instrucción Module my_images se debe escribir en el inicio del código ya que el programa GLCD Bitmap Editor no lo crea.

6. Mediante un lcd grafico dibuje una onda sinusoidal, se debe incluir ejes, en el eje y debe ir la etiqueta voltios y en el eje x la etiqueta segundos. program GLCDGRAFICO include "my_images0" include "my_images2" include "my_images3" include "my_images4" include "my_images5" dim j, k as byte main:

Glcd_Init(PORTB, 0, 1, 2, 3, 4, 5, PORTD) do Glcd_Set_Font(@FontSystem5x8, 5, 8, 32) Glcd_Fill(0) Glcd_Image(mikro_logo3_bmp) Delay_ms(4000) Glcd_Set_Font(@FontSystem5x8, 5, 8, 32) Glcd_Fill(0) Glcd_Image(emo2_bmp) Delay_ms(4000) Glcd_Set_Font(@FontSystem5x8, 5, 8, 32) Glcd_Fill(0) Glcd_Image(patricio2_bmp) Delay_ms(4000) Glcd_Set_Font(@FontSystem5x8, 5, 8, 32) Glcd_Fill(0) loop until FALSE end.

La instrucción include permite incluir subprogramas. En este caso se crea un programa (no proyecto) denominado my_images0.pbas que se guardará en la misma carpeta en la que se encuentra el proyecto GLCDGRAFICO. Se crea un nuevo programa y aparece:

Mediante la herramienta para generación de arreglos para mapa de bits GLCD Bitmap Editor. Creamos un código para cualquier archivo bmp monocromático.

Aparece la siguiente pantalla, podemos escoger tres tipos de controladores, y también el tamaño de resolución de la pantalla; en la parte inferior debe estar seleccionado la opción mikrobasic

Damos clic en Load BMP picture, damos clic en la carpeta 128x64, escogemos el archivo mikro_logo3 que previamente hemos creado en paint y guardado en la carpeta 128x64 de mikroBasic, y damos un clic en abrir.

*No es necesario guardar la imagen en la carpeta 128x64 se la puede guardar en cualquier carpeta y cargarla desde el programa GLCD Bitmap Editor.

Lo importante es que debe ser una imagen que tenga de atributos: sea *.bmp (mapa de bits), dimensiones 128x64 y que sea monocromática.

Aparece la siguiente pantalla:

Copiamos el código y lo pegamos en el archivo until.pbas lo compilamos y guardamos como my_images0.pbas

*El código Module my_images se debe escribir en el inicio del código ya que el programa GLCD Bitmap Editor no lo crea.