Buenos dias a todos. Estoy haciendo un teclado con lcd y tengo un porblema. Cuando apreto el 1,2,3 (lo otros botones no los hice todabia! es para probar) puse que en el LCD me ponga un Asteritisco cuando apreto el 1, 2 asterisco cuando apreto el 2 y asi sucesivamente... Bueno el problema que tengo es que cuando apreto el 1 el asterisco en LCD dura medio segundo y se borra no quiero eso.. quiero q quedo hasta que yo lo borre o aprete otra tecla.
Este es el codigo:
program Prueva
'Variables
dim key as byte
dim keyt as string[2]
main:
Keypad_Init(PORTB)
Lcd_Config(PORTD,3,2,1,0,PORTD,4,5,6)
Lcd_Cmd(LCD_CLEAR)
Lcd_Cmd(LCD_CURSOR_OFF)
'Configuraciones
'Comienza a correr el programa
lcd_out(1,1,"Tecla:") 'ver la tecla en el lcd
while TRUE
key = 0
while key = 0
'key = Keypad_Released
key = Keypad_Read
wend
if key > 10 then
key = key + 54
else
key = key + 47
end if
select case key
case "0"
lcd_out(2,1,"*")
goto Scanear
case "1"
lcd_out(2,1,"**")
goto Scanear
case "2"
lcd_out(2,1,"***")
goto Scanear
end select
wend
end.
ESpero que me puedan ayudar... Saludos