proyecto lcd

LCD practica 2
 
' Instrucciones necesarias para utilizar el modulo LCD
dim LCD_RS as sbit at RB4_bit     ' declara los pines en que se va leer, escribir o habilitar la LCD
    LCD_EN as sbit atRB5_bit
    LCD_D4 as sbit at RB0_bit     ' como vamos a transmitir los datos unicamente por cuatro bits
    LCD_D5 as sbit at RB1_bit     ' lo hacemos desde el pin 0 hasta el pin 3 del puerto B
   LCD_D6 as sbit at RB2_bit
    LCD_D7 as sbit at RB3_bit
 
    LCD_RS_Direction as sbit at TRISB4_bit
    LCD_EN_Direction as sbit at TRISB5_bit
    LCD_D4_Direction as sbit at TRISB0_bit
   LCD_D5_Direction as sbit at TRISB1_bit
    LCD_D6_Direction as sbit at TRISB2_bit
    LCD_D7_Direction as sbit at TRISB3_bit
' finaliza la declaración de la conexion de la LCD
 
dim x    as byte    i    as byte                 ' variable de conteo
 
sub procedure Move_Delay()       ' subprocedimiento que contiene un retardo, no era necesario pero se incluyo por didactica
  Delay_ms(100)                 ' Retardo en la velocidad del mensaje
end sub
 
main:
 
  TRISB = 0
  PORTB = 0x00
 
  Lcd_Init()                     ' Inicializa LCD
  Lcd_Cmd(_LCD_CLEAR)            'Limpia LCD
  Lcd_Cmd(_LCD_CURSOR_OFF)       ' si no se coloca esta instrucción se observaria el cursor. apagando el cursor (guion bajo), PRUEBEN QUITAR ESTA INSTRUCCION!!!!
  
 Lcd_Out(1,4,"Generacion")        ' Escribe lo que hay entre comillas en la linea 1 y columna 4
  Lcd_Out(2,7,"2012")              ' Escribe lo que hay entre comillas en la linea 2 y columna 7
  delay_ms(2000)
 Lcd_Cmd(_LCD_CLEAR)            ' Limpia LCD display
  
  Lcd_Out(1,5,"Apellido 1")       ' Escribe lo que hay entre comillas en la linea 1 y columna 5
  Lcd_Out(2,6,"Nombre 1")         ' Escribe lo que hayentre comillas en la linea 2 y columna 6
  Delay_ms(2000)
  
  for x=0 to 11                  ' Ciclo que repite 12 veces la instruccion de moverse hacia la derecha(a la izquierda del observador)...