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
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
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.