Bascom Rotary Encoder

[Dirk (Gast)]

Hi,

um eine Menufuehrung fuer einige Sachen kompfortabler zumachen dachte
ich mir ich nehme einen Encoder + Knopffunktion. Den Kopf auslesen
geht, aber ich scheitere an dem Encoder. Ich habe entwas im Inet
gefunden leider im zusammenhang mit einem I/O Expander. Falls jemand
helfen kann mit kleinen Hilfen oder sogar einem Prg waere ich sehr
dankbar.

Mfg

Dirk

[Gerhard Humer (Gast)]

Hi,
hier ein Code-Beispiel für einen 2313er .
Reagiert auf steigende u. fallende Flanken
an beiden Signaleingängen , also
4-fach Auswertung !!

 Gruss Gerhard







Dim Wert As Integer
  Wert = 0
  Config Portd = Input
  Portd = 255
  Enc_a Alias Pind.3
  Enc_b Alias Pind.2
  Mcucr = &B00001111
  On Int0 Encoder0
  On Int1 Encoder1
  Enable Int0
  Enable Int1
  Enable Interrupts

  Do
  Loop

  End

  Encoder1:
  Toggle Mcucr.isc10
  If Enc_a <> Enc_b Then
    Decr Wert
  Else
    Incr Wert
  End If
  Return

  Encoder0:
  Toggle Mcucr.isc00
  If Enc_a = Enc_b Then
    Decr Wert
  Else
    Incr Wert
  End If
  Return

[Dirk (Gast)]

Hi,

danke schoen

Mfg

Dirk

[Dirk (Gast)]

Hi,

noch eine kleine frage geht es auch ohne interrupts?

Mfg

Dirk

[Andreas S. (andreas) (Admin)]

Ja, es geht:
http://dse-faq.elektronik-kompendium.de/dse-faq.htm

[Dirk (Gast)]

danke schoener link

mfg

Dirk