intento hacer correr un simple programe donde al usar el pulsador salga otro mensaje pero no se que pasa,compila bien en el CODE ESTUDIO corre normal en proteus en la practica el RA.2 se mantiene en 0 logicoo y se raya y hace de cuenta que el pulsador este presionado este es el codigo para picbasic
CMCON=7
define osc 4
' DEFINICIÓN DE REGISTROS PARA EL LCD
DEFINE LCD_DREG PORTB 'UTILIZAR 4 BITS DEL PUERTO B PARA TX DE DATOS
DEFINE LCD_DBIT 4 'DESDE EL BIT B.4 AL BIT B.7
DEFINE LCD_RSREG PORTB'UTILIZAR EL REGISTRO DE CONTROL/DATOS EN EL PUERTO B
DEFINE LCD_RSBIT 1 'EN EL BIT B.1
DEFINE LCD_EREG PORTB 'UTILIZAR EL ENABLE EN EL PUERTO B
DEFINE LCD_EBIT 2 'EN EL BIT B.2
TRISB=0 'ESTABLECER EL PUERTO B COMO SALIDA
PAUSE 500 ' PAUSE DE MEDIO SEGUNDO
inicio:
LCDOUT $FE, 1 ' LIMPIAR VISOR
LCDOUT $FE, 1, "WWW.gop.COM" 'ESCRIBIR EN LA PRIMER LÍNEA
LCDOUT $FE, $C0, "ELECTRONICA" 'ESCRIBIR EN LA SEGUNDA LÍNEA
pause 1000
if portA.2 = 1 then
LCDOUT $FE, 1 ' LIMPIAR VISOR
LCDOUT $FE, 1, "paso " 'ESCRIBIR EN LA PRIMER LÍNEA
LCDOUT $FE, $C0, "la prueva" 'ESCRIBIR EN LA SEGUNDA LÍNEA
pause 1000
else
goto inicio
endif
CMCON=7
define osc 4
' DEFINICIÓN DE REGISTROS PARA EL LCD
DEFINE LCD_DREG PORTB 'UTILIZAR 4 BITS DEL PUERTO B PARA TX DE DATOS
DEFINE LCD_DBIT 4 'DESDE EL BIT B.4 AL BIT B.7
DEFINE LCD_RSREG PORTB'UTILIZAR EL REGISTRO DE CONTROL/DATOS EN EL PUERTO B
DEFINE LCD_RSBIT 1 'EN EL BIT B.1
DEFINE LCD_EREG PORTB 'UTILIZAR EL ENABLE EN EL PUERTO B
DEFINE LCD_EBIT 2 'EN EL BIT B.2
TRISB=0 'ESTABLECER EL PUERTO B COMO SALIDA
PAUSE 500 ' PAUSE DE MEDIO SEGUNDO
inicio:
LCDOUT $FE, 1 ' LIMPIAR VISOR
LCDOUT $FE, 1, "WWW.gop.COM" 'ESCRIBIR EN LA PRIMER LÍNEA
LCDOUT $FE, $C0, "ELECTRONICA" 'ESCRIBIR EN LA SEGUNDA LÍNEA
pause 1000
if portA.2 = 1 then
LCDOUT $FE, 1 ' LIMPIAR VISOR
LCDOUT $FE, 1, "paso " 'ESCRIBIR EN LA PRIMER LÍNEA
LCDOUT $FE, $C0, "la prueva" 'ESCRIBIR EN LA SEGUNDA LÍNEA
pause 1000
else
goto inicio
endif