aquí hay un código de como anexar animaciones en el pbp
DEFINE OSC 20 'Oscilador de 20 MHz
'*******************************************************************************
ADCON1 = 00001110 'Definir algunos puertos como Digitales
PAUSE 500 'Tiempo necesario para la iniciación del LCD
DEFINE LCD_DREG PORTB 'LCD PORT para envío de datos B
DEFINE LCD_DBIT 4 'LCD utiliza los Bit inferior 0 o superior 4
DEFINE LCD_RSREG PORTA 'LCD RS en el PORTA
DEFINE LCD_RSBIT 1 'LCD RS PORTA.1
DEFINE LCD_EREG PORTA 'LCD E en el PORTA
DEFINE LCD_EBIT 3 'LCD E PORTA.3
DEFINE LCD_BITS 4 'LCD se utilizan 4 o 8 bits para datos
DEFINE LCD_LINES 2 'LCD Numero de lineas del lcd
'*******************************************************************************
LCDOUT 254,64, 14 ,31 ,0, 10 ,0 ,17 ,14 ,0 'cgram posición 0
LCDOUT 254,72, 4 ,14 ,4, 14 ,21 ,21 ,10 ,10 'cgram posición 1
LCDOUT 254,80, 0 ,14 ,27, 31 ,3 ,31 ,14 ,0 'cgram posición 2
LCDOUT 254,88, 4 ,14 ,21, 4 ,4 ,4 ,4 ,0 'cgram posición 3
'*******************************************************************************
LCDOUT $FE, 1 'Borrado de la pantalla
LCDOUT " ",0 , 1,"MICROS ", 2, 3 'Imprimir en pantalla
'*******************************************************************************
END
hi mecatrodatos!!
Pase tu programa a proton ide y es el siguiente:
Device = 16F877A
XTAL=20 'DEFINE OSC 20 'Oscilador de 20 MHz
LCD_DTPIN = PORTD.4 'DEFINE LCD_DREG PORTD 'LCD PORT para envío de datos D
'DEFINE LCD_DBIT 4 'LCD utiliza los Bit inferior 0 o superior 4
LCD_RSPIN = PORTD.2 'DEFINE LCD_RSREG PORTD 'LCD RS en el PORTD
'DEFINE LCD_RSBIT 1 'LCD RS PORTD.2
LCD_ENPIN = PORTD.3 ' DEFINE LCD_EREG PORTD 'LCD E en el PORTD
'DEFINE LCD_EBIT 3 'LCD E PORTD.3
LCD_INTERFACE = 4 ' 4-bit Interface
LCD_LINES = 2 'LCD Numero de lineas del lcd
LCD_TYPE = 0 'lcd lm016 o sharp o imitacion de sharp
ALL_DIGITAL = True
'************************************************* ******************************
DelayMS 500
Print 254,64, 14 ,31 ,0, 10 ,0 ,17 ,14 ,0 'cgram posición 0
Print 254,72, 4 ,14 ,4, 14 ,21 ,21 ,10 ,10 'cgram posición 1
Print 254,80, 0 ,14 ,27, 31 ,3 ,31 ,14 ,0 'cgram posición 2
Print 254,88, 4 ,14 ,21, 4 ,4 ,4 ,4 ,0 'cgram posición 3
'************************************************* ******************************
Print $FE, 1 'Borrado de la pantalla
Print " ",0 , 1,"MICROS ", 2, 3 'Imprimir en pantalla
'************************************************* ******************************
End
y la simulacion en proteus es la siguiente que anexo:
Y pues algo anda mal, no me da algo cuerdo mm he tratadop de usar el lcd chr generator, mm pero tampoco, imprimiendo el cosigo que da, resulta satiscfactorio.
me podria ayudar, diciendome que me falta en mi programa o que tengo mal ?? porque el codigo es similar al que da el chr generator e iguoa al que tu me anexas
Gracias
