Tutorial de PROTON manejo de GLCD 128x64 pixeles

Electrobicho Mar Abr 24, 2012 2:55 pm

Los GLCD de 128×64 pixeles son de vital importancia cuando se requiere tener algo mas que un simple LCD, se pueden integrar fuentes y caracteres especiales que no posee un LCD de 16×2, sin contar que también soportan imágenes y son capaces de realizar trazos geométricos, no tienen límite según sea la imaginación, lamentablemente son algo costosos, al rededor de $35 Dolares, en las primeras aplicaciones e mostraran como insertar texto, imagen y como imprimir una variable, después se pretende realizar una estación meteorológica que sera presentada en la sección de proyectos, aquí el código, muy simple.

Código:: Device = 16F877A Xtal = 4 All_Digital= TRUE LCD_DTPort = PORTD LCD_RSPin = PORTB.1 LCD_ENPin = PORTB.0 LCD_RWPin = PORTB.2 LCD_CS1Pin = PORTB.5 LCD_CS2Pin = PORTB.4 LCD_Type = GRAPHIC Internal_Font = On Font_Addr = 0 Cls DelayMS 500 BASLA: Print At 0,5,”PIC 16F877A” DelayMS 1000 Print At 2,5,”Uso de GLCD” DelayMS 1000 Print At 4,8,”PROTON” DelayMS 1000 Print At 6,3,”128*64 PIXELES” DelayMS 1000 GoTo BASLA End Include “font.inc”

Como ven son básicamente las mismas instrucciones que se han visto con anterioridad solo que esta vez se agregan coordenadas por decirlo de alguna manera, así como también las declaraciones para el uso del GLCD.

Tutorial de PROTON manejo de GLCD 128x64 pixeles Nueva-imagen-1

Ya les mostre ejemplos de texto, pero no creo que sea factible meter solo texto a un GLCD, así que veamos como hacer unos cuantos trazos, en si el comando es lo único que cambia, todo es simple, solo escribir coordenadas y a dibujar, les presento unos ejemplos con PIC 16F877A y GLCD 128X64 Pixeles.

Código:: DIBUJAR UN CIRCULO Device = 16F877A Xtal = 4 All_Digital= TRUE LCD_DTPort = PORTD LCD_RSPin = PORTB.1 LCD_ENPin = PORTB.0 LCD_RWPin = PORTB.2 LCD_CS1Pin = PORTB.5 LCD_CS2Pin = PORTB.4 LCD_Type = GRAPHIC Internal_Font = On Font_Addr = 0 Dim Xpos As Byte Dim Ypos As Byte Dim Radius As Byte Dim SetClr As Byte Xpos = 63 ‘ Inicio en pixeles Ypos = 32 ‘ Inicio en posición Y Radius = 20 SetClr = 1 ‘ Esta variable sirve para Borrar=0 o dibujar=1 Inicio: DelayMS 100 ‘ Tiempo para procesar el GLCD Cls ‘ Circle SetClr, Xpos, Ypos, Radius ‘ Dibujar el circulo Stop GoTo Inicio End

Tutorial de PROTON manejo de GLCD 128x64 pixeles Nueva-imagen46

Código:: DIBUJAR UN CUADRO Device = 16F877A Xtal = 4 All_Digital= TRUE LCD_DTPort = PORTD LCD_RSPin = PORTB.1 LCD_ENPin = PORTB.0 LCD_RWPin = PORTB.2 LCD_CS1Pin = PORTB.5 LCD_CS2Pin = PORTB.4 LCD_Type = GRAPHIC Internal_Font = On Font_Addr = 0 Dim Xpos As Byte Dim Ypos As Byte Dim Size As Byte Dim SetClr As Byte DelayMS 100 Cls Xpos = 63 Ypos = 32 Size = 20 SetClr = 1 inicio: Box SetClr, Xpos, Ypos, Size Stop GoTo inicio End

Tutorial de PROTON manejo de GLCD 128x64 pixeles Nueva-imagen47

Código:: DIBUJANDO LINEAS Device = 16F877A Xtal = 4 All_Digital= TRUE LCD_DTPort = PORTD LCD_RSPin = PORTB.1 LCD_ENPin = PORTB.0 LCD_RWPin = PORTB.2 LCD_CS1Pin = PORTB.5 LCD_CS2Pin = PORTB.4 LCD_Type = GRAPHIC Internal_Font = On Font_Addr = 0 Dim Xpos_Start As Byte Dim Xpos_End As Byte Dim Ypos_Start As Byte Dim Ypos_End As Byte Dim SetClr As Byte DelayMS 100 Cls Xpos_Start = 0 Ypos_Start = 0 Xpos_End = 120 Ypos_End = 34 SetClr = 1 inicio: Line SetClr, Xpos_Start, Ypos_Start, Xpos_End, Ypos_End GoTo inicio End

Tutorial de PROTON manejo de GLCD 128x64 pixeles Nueva-imagen49