Bascom Rotary Encoder

Gast #44074
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
Gast #44075
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

Antwort schreiben

Eine eigene Frage? Dieser Thread ist über 23 Jahre alt. Stell sie in einem eigenen Thread – dort lesen mehr Leute mit, und sie wird öfter und schneller beantwortet.

Neuen Thread starten

Eine Lösung, Ergänzung oder Rückmeldung zu diesem Thread? Dann antworte hier.

Formatierung
  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] – Link zu einem Artikel
  • Verweis auf einen anderen Beitrag: Rechtsklick auf dessen Beitrags-ID (#8078628), „Adresse kopieren“, in den Text einfügen

Mehr zur Formatierung

Längeren Sourcecode als Anhang, nicht in den Text. JPG nur für Fotos und Scans; Zeichnungen und Screenshots als PNG oder GIF. Siehe Bildformate.

Schon registriert? Anmelden

Wird nicht angezeigt. Wir schicken dir einen Link; sobald du damit bestätigst, erscheint dein Beitrag.

Mit dem Abschicken legst du einen kostenlosen Account an und erkennst die Nutzungsbedingungen und die Datenschutzerklärung an.