hola que tal este es mi primer mensaje. Estoy usando un pic 16f648a y tengo 3 leds uno de encendido (indica que el pic esta ok) conectado al pic B0 .
El PROBLEMA es el siguinte tengo un puslador conectado al pin B4 y uno conectado al pin A1 el tema es que cuando presiono el pulsador conectado al pic B4 se apaga el led conectado al pin A2 pero cuando pulso el pulsador del pic A1 no se apaga el led conectado al pin A3, no se porque pareciera que no tomara al pulsador los puertos A. Alguna idea?
Desde ya muchisimas gracias
El PROBLEMA es el siguinte tengo un puslador conectado al pin B4 y uno conectado al pin A1 el tema es que cuando presiono el pulsador conectado al pic B4 se apaga el led conectado al pin A2 pero cuando pulso el pulsador del pic A1 no se apaga el led conectado al pin A3, no se porque pareciera que no tomara al pulsador los puertos A. Alguna idea?
Código:
Define ONINT_USED 1
DEFINE CHAR_PACING 1000
Include "modedefs.bas"
click var byte
trisb.0 = 0
trisa.2 = 0
trisa.3 = 0
trisa.1 = 1
trisb.4 = 1
portb.0 = 1
porta.2 = 0
porta.3 = 0
porta.1 = 0
portb.4 = 0
click = "1"
inicio:
high portb.0
'
if porta.1 !=1 then
high porta.3
'
if click =="1" then
serout portb.2,T2400,[#1]
click = "2"
endif
'
endif
'
'
'
'
if porta.1 != 0 then
low porta.3
'
if click =="2" then
serout portb.2,T2400,["a"]
click = "1"
endif
'
endif
'
'
if portb.4 !=1 then
high porta.2
'
if click =="1" then
serout portb.2,T2400,[#1]
click = "2"
endif
'
endif
'
'
'
'
if portb.4 != 0 then
low porta.2
'
if click =="2" then
serout portb.2,T2400,["a"]
click = "1"
endif
'
endif
'
'
goto inicio
Desde ya muchisimas gracias