decoding quadrature encoders

[ietcyberwolf]

Hallo,
I completed the programm for testing and it works ok.
With the & ~ look in the manual it takes the not value of the bit.

here is the complete source and also the hex file

'PIC 16F628A test


@ DEVICE PIC16F628A,INTRC_OSC
@ DEVICE PIC16F628A,MCLR_OFF
@ DEVICE PIC16F628A,BOD_OFF
@ DEVICE PIC16F628A,LVP_OFF
@ DEVICE PIC16F628A,CPD_OFF
@ DEVICE PIC16F628A,PROTECT_OFF


DEFINE OSC 4




CMCON = 7
VRCON = 0
OPTION_REG.7 = 0

TRISA = %11111111
TRISB = %00000000


A_INPUT VAR PORTA.0
B_INPUT VAR PORTA.1

HULP1 VAR BIT
HULP2 VAR BIT

COUNTER VAR WORD

Clear

COUNTER = 128

START:


HULP2 = A_INPUT & ~ HULP1 'EVERY POSITIVE GOWING EDGE OF A_INPUT
HULP1 = A_INPUT 'GIVES A PULSE OF ONE PROGRAMM CYCLE

IF HULP2 = 1 AND B_INPUT = 1 Then 'MOTOR TURNS RIGHT
COUNTER = COUNTER + 1
EndIF

IF HULP2 = 1 AND B_INPUT = 0 Then 'MOTOR TURNS LEFT
COUNTER = COUNTER - 1
EndIF

PORTB = COUNTER
GoTo START

I'm trying to do the example with PIC16f877a but i have problems for example the VRCON = 0 my compiler says it's a bad instruction how can i probe with this pic

thanks

[Ioannis]

877A does not have VRCON register. Instead it has CVRCON.

Look in the P16F877A.inc file in the C:\Program Files\Microchip\MPASM Suite path.

Also pf of the chip you are using is a must.

Ioannis

[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!!