Drehgeber mit 2 Spuren handlen?

[EDatabaseError]

ahh ich habe da eine idee

Pseudocode:

 A as Bit
 B as Bit

 SpurA as INT0
 SpurB as INT1

 OnSpurA:
  A = 1
  if B = 1 then
   -1
   a = 0
   b = 0
  end if
 return

 OnSpurB:
  B = 1
  if a = 1 then
   +1
   a = 0
   b = 0
  end if
 return