Hola, hace poco que estoy estudiando esta aplicacion "PIC SIMULATOR IDE" y sus alcances gracias a una revista sobre electronica llamada uControl que conocí hace poco y decidi hacer unos ejemplos ahi ilustrados. Como he aprendido ya lo que explicaba la revista he decidido hacer mis propios proyectos con LCD´s 2x16. Como ejemplo de ello expongo el siguiente programa hecho por mi:
//////////////////////////////////////////////////////////////
AllDigital
Define LCD_BITS = 8
Define LCD_DREG = PORTB
Define LCD_DBIT = 0
Define LCD_RSREG = PORTD
Define LCD_RSBIT = 1
Define LCD_EREG = PORTD
Define LCD_EBIT = 3
Define LCD_RWREG = PORTD
Define LCD_RWBIT = 2
Dim var1 As Byte
Lcdinit 0
loop:
Lcdout "DISCOVERY"
For var1 = 0 To 6 'Desplaza a derecha
Lcdcmdout LcdShiftRight
WaitMs 3
Next var1
AllDigital
Define LCD_BITS = 8
Define LCD_DREG = PORTB
Define LCD_DBIT = 0
Define LCD_RSREG = PORTD
Define LCD_RSBIT = 1
Define LCD_EREG = PORTD
Define LCD_EBIT = 3
Define LCD_RWREG = PORTD
Define LCD_RWBIT = 2
Dim var1 As Byte
Lcdinit 0
loop:
Lcdout "DISCOVERY"
For var1 = 0 To 6 'Desplaza a derecha
Lcdcmdout LcdShiftRight
WaitMs 3
Next var1
Lcdcmdout LcdClear
Lcdcmdout LcdLine2Pos(8) 'Cambio de linea
Lcdout "DISCOVERY"
For var1 = 6 To 0 Step -1
Lcdcmdout LcdShiftLeft 'Desplaza a la izquierda
WaitMs 3
Next var1
Lcdcmdout LcdClear
Lcdcmdout LcdLine1Home 'Cambio de linea
Goto loop
For var1 = 6 To 0 Step -1
Lcdcmdout LcdShiftLeft 'Desplaza a la izquierda
WaitMs 3
Next var1
Lcdcmdout LcdClear
Lcdcmdout LcdLine1Home 'Cambio de linea
Goto loop
////////////////////////////////////////////////////////////////
En resumen el programa toma la palabra DISCOVERY y la desplaza atravez del display en sentido horario hasta llegar al principio.
La inquietud que tengo es:
En esta parte del codigo mostrado abajo, donde limpio el contenido del lcd, ubico el puntero en la linea de abajo en la posicion 8 y ahi escribo el texto discovery. ¿Es posible hacerla moviento directamente la palabra "DISCOVERY" de la linea superior a la linea inferior y viceversa?
///////////////////////////////////////////////////////////
/// Lcdcmdout LcdClear ///
/// Lcdcmdout LcdLine2Pos(8) 'Cambio de linea ///
/// Lcdout "DISCOVERY" ///
//////////////////////////////////////////////////////////
Aquella persona que pueda colaborarme a resolver esta incognita le estare muy agradecido.
//////////////////////////////////////////////////////////////
AllDigital
Define LCD_BITS = 8
Define LCD_DREG = PORTB
Define LCD_DBIT = 0
Define LCD_RSREG = PORTD
Define LCD_RSBIT = 1
Define LCD_EREG = PORTD
Define LCD_EBIT = 3
Define LCD_RWREG = PORTD
Define LCD_RWBIT = 2
Dim var1 As Byte
Lcdinit 0
loop:
Lcdout "DISCOVERY"
For var1 = 0 To 6 'Desplaza a derecha
Lcdcmdout LcdShiftRight
WaitMs 3
Next var1
AllDigital
Define LCD_BITS = 8
Define LCD_DREG = PORTB
Define LCD_DBIT = 0
Define LCD_RSREG = PORTD
Define LCD_RSBIT = 1
Define LCD_EREG = PORTD
Define LCD_EBIT = 3
Define LCD_RWREG = PORTD
Define LCD_RWBIT = 2
Dim var1 As Byte
Lcdinit 0
loop:
Lcdout "DISCOVERY"
For var1 = 0 To 6 'Desplaza a derecha
Lcdcmdout LcdShiftRight
WaitMs 3
Next var1
Lcdcmdout LcdClear
Lcdcmdout LcdLine2Pos(8) 'Cambio de linea
Lcdout "DISCOVERY"
For var1 = 6 To 0 Step -1
Lcdcmdout LcdShiftLeft 'Desplaza a la izquierda
WaitMs 3
Next var1
Lcdcmdout LcdClear
Lcdcmdout LcdLine1Home 'Cambio de linea
Goto loop
For var1 = 6 To 0 Step -1
Lcdcmdout LcdShiftLeft 'Desplaza a la izquierda
WaitMs 3
Next var1
Lcdcmdout LcdClear
Lcdcmdout LcdLine1Home 'Cambio de linea
Goto loop
////////////////////////////////////////////////////////////////
En resumen el programa toma la palabra DISCOVERY y la desplaza atravez del display en sentido horario hasta llegar al principio.
La inquietud que tengo es:
En esta parte del codigo mostrado abajo, donde limpio el contenido del lcd, ubico el puntero en la linea de abajo en la posicion 8 y ahi escribo el texto discovery. ¿Es posible hacerla moviento directamente la palabra "DISCOVERY" de la linea superior a la linea inferior y viceversa?
///////////////////////////////////////////////////////////
/// Lcdcmdout LcdClear ///
/// Lcdcmdout LcdLine2Pos(8) 'Cambio de linea ///
/// Lcdout "DISCOVERY" ///
//////////////////////////////////////////////////////////
Aquella persona que pueda colaborarme a resolver esta incognita le estare muy agradecido.
