rotary encoder paylaşım

[cuneytsezmis1]

rotary encoder sayıcısı hakkında yazılan yazılar vardı.ben de bu konu hakkında farklı bir yol söylemek istiyorum.eğer bunu daha önce söyleyen arkadaşlar varsa onlardan da özür dilerim.herkese kolay gelsin.

Dim SAYAC As Word
Dim YENI As Byte
Dim ESKI As Byte
Symbol GIRIS_A=PORTB.0
Symbol GIRIS_B=PORTB.1     

YENI=%00000011 & PORTB
ESKI=YENI 
 
BASLA:    
    YENI=%00000011 & PORTB
    If YENI=ESKI Then BASLA       
        
        If ESKI.0=YENI.1 Then
          inc SAYAC
          Else
          dec SAYAC
        EndIf
        ESKI=YENI
GOTO BASLA

[Maxim]

fark nerede ,açıklayabilirmisiniz ?
interrupt kullanmak daha iyi olmazmı ?