Device 16F876A 'se pone el pic a usar
DECLARE XTAL
20 'se pone el cristal a usar
DECLARE LCD_INTERFACE
4 'coneccion de lcd a 4 lineas de datos DECLARE LCD_LINES
2 'se trata con un lcd de 2 filas DECLARE LCD_DTPIN PORTC.0
'(D0...3 del lcd a 4 lineas de dato) DECLARE LCD_ENPIN PORTC.4
'Enable lcd
'**************************************************************************************
'************************* GRABACION DE CARACTERES EN LCD *****************************
'**************************************************************************************
PRINT $FE
,$
40,$
1F,$
1F,$
1F,$
1F,$
1F,$
1F,$
1F,$
1F 'nivel 5
PRINT $FE
,$
48,$
00,$
1F,$
1F,$
1F,$
1F,$
1F,$
1F,$
1F 'nivel 4
PRINT $FE
,$
50,$
00,$
00,$
1F,$
1F,$
1F,$
1F,$
1F,$
1F 'nivel 3
PRINT $FE
,$
58,$
00,$
00,$
00,$
1F,$
1F,$
1F,$
1F,$
1F 'nivel 2
PRINT $FE
,$
60,$
00,$
00,$
00,$
00,$
1F,$
1F,$
1F,$
1F 'nivel 1
PRINT $FE
,$
68,$
00,$
00,$
00,$
00,$
00,$
1F,$
1F,$
1F 'nivel 0
'Decadencia de datos
PRINT At
1,1,0 : DelayMS
1000 :
PRINT At
1,2,1 : DelayMS
1000 :
PRINT At
1,3,2 : DelayMS
1000 PRINT At
1,4,3 : DelayMS
1000 :
PRINT At
1,5,4 : DelayMS
1000 INICIO:
nop
GOTO INICIO
[code=freebasic]