Tras leer varios post en el foro al respecto, sigo sin poder hacer funcionar esto.
Estoy utilizando un pic16f628a. Lo que quiero hacer es que al pulsar un boton en el puerto A0, vaya ejecutando comandos. Por ejemplo:
Apreto el boton 1 vez, enciende 1 led en A0.
Apreto el boton otra vez, enciendo otro led en A1.
Apreto denuevo, enciende otro led en A2.
etc...
Usando un post del foro, llegue a hacer esto
TRISA = %11111111
TRISB = %00000000
Dim boton As Byte
PORTA = 0
PORTB = 0
boton = 0
inicio:
If PORTA.0 = 1 Then Goto botonmas1
Goto inicio
botonmas1:
boton = boton + 1
If boton = 1 Then Goto comando1
If boton = 2 Then Goto comando2
If boton = 3 Then Goto comando3
If boton = 4 Then boton = 0
Goto inicio
comando1:
PORTB.0 = 1
Goto inicio
comando2:
PORTB.2 = 1
Goto inicio
comando3:
PORTB.4 = 1
Goto inicio
End
Pero no funciona, no hace absolutamente nada.
Estoy usando picbasic ide.
Desde ya les agradezco por la ayuda.