▷ Imprimir y desplazar texto en lcd 16x2 con PIC - microcode

Materiales:

• PIC 16F628A
• LCD 16X2

Diagrama de conexiones.

Código:

;Definimos dos variables, estas variables las utilizaremos para el desplazamiento de los caracteres en el lcd. 

X VAR BYTE
X1 VAR BYTE    

;Definimos en que pines del pic ira conectado el lcd 

DEFINE LCD_DREG PORTB 
DEFINE LCD_DBIT 4   
DEFINE LCD_RSREG PORTB 
DEFINE LCD_RSBIT 2 
DEFINE LCD_EREG PORTB 
DEFINE LCD_EBIT 3 

;Abrimos un ciclo.

ciclo: 

; Creamos un ciclo for que ira de 0 a 6. 
; Si queremos que todo el texto desaparezca del lcd cuando el desplazamiento es hacia la izquierda tendremos que cambiar el valor a 16
; El ciclo for se va a repetir 6 veces, en cada una de estas repeticiones el texto se ira desplazando un espacio a la vez. 

  FOR X = 0 TO  6 

   LCDOUT $FE, 1 ; limpia la pantalla y coloca el cursor al comienzo 
   ; Aquí es donde realizamos el desplazamiento del texto hacia la derecha.
   LCDOUT $FE, $80 + X, "Hola Mundo"; El valor de X cambia el valor de $80 por ejemplo si x = 5; $84
   LCDOUT $FE, $C0 + X, "1234567890"; El valor de X cambia el valor de $C0 por ejemplo si x = 5; $C4
   PAUSE 100

  NEXT 

  ; Aquí es donde realizamos el desplazamiento del texto hacia la izquierda.
  ; Creamos otro ciclo for pero con otra variable. 

  FOR X1 = 0 TO 5 

   ; En este momento el valor de x = 6. Entonces, para que el texto se desplace hacia la izquierda tenemos que restar esa variable. 

   x = x - 1 
   LCDOUT $FE, 1; limpia la pantalla y coloca el cursor al comienzo 
   LCDOUT $FE, $80 + X, "Hola Mundo"; El valor de X cambia el valor de $80 por ejemplo si x = 5; $84  
   LCDOUT $FE, $C0 + X, "1234567890"; El valor de X cambia el valor de $C0 por ejemplo si x = 5; $C4 
   PAUSE 100

  NEXT 

  ; Cerramos el ciclo 

GOTO ciclo: