New approach to Rotary Encoder

[fratello]

Thanks for support !
"In the second, updated example, you never drive the common pin for the encoder at all."
But ..."keypadscan" don't do this ? Proteus show how "0" walk through portb 3,4,5.

[HenrikOlsson]

Hi,
Like I said earlier, I don't have any experience with that piece fo code but if I'd venture I guess (and I'm pretty certain I'm right) it scans the pins once each time you GOSUB the routine. This means it does NOT scan the pins during the time you GOSUB the encoder routine.

Does Proteus show that walking zero across the pins at the same time as you do newState = PortB & %00000111 - I'd say no.

If your inputs are pulled up with resistors then the common/wiper of the encoder must be LOW at the time you read the status of the port. You must understand and remember that the PIC executes the code sequentially, one instruction after another.

[fratello]

Step-by-step I think I begin to understand ...
The correct hardware it's this.
The software can be this :

@ DEVICE pic16F628A, XT_OSC, WDT_OFF, PWRT_ON, BOD_OFF, MCLR_ON, LVP_OFF

   Define   OSC 4           ' 4MHz 
   CMCON = 7                ' Disable on-chip comparator, PORTA in digital mode

include "alldigital.pbp"
include "C:\PBP\enc_KEY.BAS" 

TRISB = 000000
PORTB = 000000 

oldState VAR BYTE
newState VAR BYTE
DIR VAR BIT

UP CON 1
DN CON 0

Main_Loop: 
portb.5 = 1
gosub keypadscan
gosub check
goto main_loop

Check :
if dir = up then 
portb.0 = 1
pause 1000
portb.0 = 0
endif
if dir = dn then
portb.1 = 1
pause 1000
portb.1 = 0
endif
return

encoder:
portb.5 = 0
    newState = (porta & 000111)
If newState <> oldState THEN        ' Changed from last time?
  Select Case oldState
    Case 2
    If NewState = 4 THEN          ' Was 1 now 4 = Up
      DIR = up
    ELSE                          ' Was 1 now 2 = Down
      DIR = dn
    ENDIF
  
    Case 4
    If NewState = 1  THEN        ' Was 2 now 1 = Up
      DIR = up
    ELSE                           ' Was 2 now 4 = Down
      DIR = dn
    ENDIF
  
    Case 1
    If NewState = 2 THEN        ' Was 4 now 2 = Up
      DIR = up
    ELSE                       ' Was 4 now 1 = Down
      DIR = dn
    ENDIF
  END SELECT

  oldState = NewState 
endif
portb.5 = 1
Return

The question is : where to put "gosub encoder" ? Inside the "enc_key.bas" (it's keypad.bas addapted to 2 row/3 cols) ???

[HenrikOlsson]

Hi,
Now we're getting somewhere - that looks like it might work.
The keypad routine has nothing to do with reading the encoder. Put the GOSUB Encoder in the mainloop, before GOSUB check obviously....

And again, if it doesn't work then remove the keypad routine untill you get the encoder routine working - THEN try to make the two coexist. There's no guarantee that the encoder code works, I just posted it as one possible idea of how to read that kind of "encoder".

[fratello]

No matter what I do, portb.1 goes high and low .... portb.0 don't change ....

TRISB = 000000
PORTB = 000000 

oldState VAR BYTE
newState VAR BYTE
DIR VAR BIT

UP CON 1
DN CON 0

oldstate = (porta & 000111)

Main_Loop: 

gosub Encoder
gosub check
goto main_loop

Check :
if dir = up then 
portb.0 = 1
pause 1000
portb.0 = 0
endif
if dir = dn then
portb.1 = 1
pause 1000
portb.1 = 0
endif
return

encoder:
portb.5 = 1
    pause 100
    newState = (porta & 000111)
portb.5 = 0
If newState <> oldState THEN        ' Changed from last time?
  Select Case oldState
    Case 1
    If NewState = 4 THEN dir=up         
    If NewState = 2 THEN dir=dn
  
    Case 2
    If NewState = 4 THEN dir=up        
    If NewState = 1 THEN dir=dn
  
    Case 4
    If NewState = 1 THEN dir=up        
    If NewState = 2 THEN dir=dn
    
  END SELECT

oldstate=newstate
endif
Return

[HenrikOlsson]

Hi,
Since you have the inputs pulled high and the wiper "grounding" each input as it cycles thru them you can't use 1, 2 and 4 as the states since that "looks for" a '1' on the individual pins. You need to use 3, 5 and 6 instead.

[fratello]

Twillight zone ....

  Select Case oldState
    Case 3
    If NewState = 6 THEN dir=up         
    If NewState = 5 THEN dir=dn
  
    Case 5
    If NewState = 3 THEN dir=up        
    If NewState = 6 THEN dir=dn
  
    Case 6
    If NewState = 5 THEN dir=up        
    If NewState = 3 THEN dir=dn
  END SELECT

No matter what I do, portb.1 goes high and low .... portb.0 don't change ....