decoding quadrature encoders

[ietcyberwolf]

Hi Ioannis exactly i'm using PIC16f877a i have the same problem that ice i cant see my count on my LCD and i cant see using pbp
only add my count never sub my count do you know what's my problem?

i tried all in my hands but i continue with same errors
My code is:

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : .                                                            *
'*  Notice  : Copyright (c) 2011 [Ing..]  *
'*          : All Rights Reserved                               *
'*  Date    : 19/04/2011                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
'Parte de configuraciÛn de LCD
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT  4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 1
DEFINE LCD_EREG  PORTB
DEFINE LCD_EBIT  3
DEFINE OSC 4

contador var byte
ON INTERRUPT GOTO SUMA
INTCON.4 = 1
INTCON.7 = 1
OPTION_REG.6 = 1  
CMCON=7
CVRCON=0

TRISB = %00000101
CONTADOR = 12

principal:
lcdout $FE,1,"ENCODER= ",#CONTADOR," VALOR "
pause 500
goto principal
DISABLE
end

SUMA:
IF PORTB.0 = 1 THEN
    OPTION_REG.6 = 0
    IF PORTB.2 = 1 THEN
    contador = contador + 1
    ENDIF
else
    OPTION_REG.6 = 1
    IF PORTB.2 = 1 THEN
    CONTADOR = CONTADOR - 1
    ENDIF
ENDIF
INTCON.1 = 0
RESUME
ENABLE

[Ioannis]

After interrupt you reset Option_Reg.6.

And then never set it again. Is it that what you want?

Ioannis

[ietcyberwolf]

...
else
    OPTION_REG.6 = 1
    IF PORTB.2 = 1 THEN
    CONTADOR = CONTADOR - 1
    ENDIF
ENDIF
INTCON.1 = 0
 OPTION_REG.6 = 0 'Here???
RESUME
ENABLE

My problem is the count never sub only add and add if the encoder turn left add and if the encoder turn right add too that's my problem


I'm working with
http://www.bourns.com/data/global/pdfs/pec11.pdf

[Ioannis]

Try this:

http://www.picbasic.co.uk/forum/cont...Rotary-Encoder

Ioannis

[ietcyberwolf]

Thank you so much Ioannis!!