obsługa enkodera obrotowego przez attiny2313 Bascom

      $regfile = "attiny2313.dat"
$crystal = 4000000

Cha Alias Pind.2
Chb Alias Pind.3

Config Cha = Input
Config Chb = Input
Config Pind.6 = Output

Config Int0 = Falling
Const Debouncetime = 1

Dim Wtime As Byte
Dim Encounter As Integer

Set Chb

On Int0 Getencoder

Cls

Wtime = 100
Encounter = 0

Enable Interrupts
Enable Int0

Do
  Set Portd.6
  Waitms Wtime
  Upperline
  Lcd "encounter: " ; Encounter ; "     "
  Reset Portd.6
  Waitms Wtime
Loop

Getencoder:
  Waitms Debouncetime
  If Cha = 0 Then
    If Chb = 0 Then Incr Encounter Else Decr Encounter
  End If
  Gifr = 64
Return

End

 $regfile = "attiny2313.dat"
$crystal = 4000000


A Alias Pind.2
B Alias Pind.3

Config A = Input
Config B = Input
Dim Enkoder As Integer
Dim Nowy_klik As Bit
Dim Poprzedni_klik As Bit
Dim Kierunek As Byte
Config Int0 = Change
Config Int1 = Change
On Int0 Akanal
On Int1 Bkanal

Do
 Upperline
  Lcd "encounter: " ; Enkoder ; "     "
Loop

Akanal:
Nowy_klik = A
If Poprzedni_klik = A Then                                  'zmiana kierunku
If Kierunek = 1 Then Kierunek = 0 Else Kierunek = 1
Elseif Kierunek = 1 Then Incr Enkoder Else Decr Enkoder
End If
Poprzedni_klik = Klik
Return

Bkanal:
Nowy_klik = B
If Poprzedni_klik = B Then                                  'zmiana_kierunku
If Kierunek = 1 Then Kierunek = 0 Else Kierunek = 1
Elseif Kierunek = 1 Then Incr Enkoder Else Decr Enkoder
End If
Poprzedni_klik = Nowy_klik
Return

$regfile = "attiny2313.dat"
$crystal = 4000000

' usunąć linijkę $sim jeżeli kompilacja do procesora
$sim

Config Lcd = 16 * 2

A Alias Pind.2
B Alias Pind.3

Config A = Input
Config B = Input

Dim Enkoder As Integer
Dim Nowy_klik As Bit                 ' nowe przerwanie - z jakiego kanału
Dim Poprzedni_klik As Bit           ' zapamiętanie przerwania z jakiego było kanału
Dim Kierunek As Byte

Const Cha = 1                           ' flaga przerwania z kanału A
Const Chb = 0                           ' flaga przerwania z kanału B

Config Int0 = Change
Config Int1 = Change

On Int0 Akanal
On Int1 Bkanal

Enable Int0
Enable Int1

Enable Interrupts

Do
  Upperline
  Lcd " Licznik:  " ; Enkoder ; "     "
  Lowerline
  Lcd " Kierunek: " ; Kierunek ; "     "
Loop

Akanal:
Nowy_klik = Cha
If Poprzedni_klik = Cha Then     
' jeżeli wcześniejsze przerwanie z tego samego kanału to zmiana kierunku
   If Kierunek = 1 Then
      Kierunek = 0
   Else
      Kierunek = 1
   End If
Else ' jeżeli poprzednie przerwanie z innego kanału wówczas +/- Enkoder
   If Kierunek = 1 Then
      Incr Enkoder
   Else
      Decr Enkoder
   End If
End If
Poprzedni_klik = Nowy_klik
Return

Bkanal:
Nowy_klik = Chb
If Poprzedni_klik = Chb Then  
'  jeżeli poprzednie przerwanie z tego samego kanału to zmiana kierunku
   If Kierunek = 1 Then
      Kierunek = 0
   Else
      Kierunek = 1
   End If
Else ' jeżeli poprzednie przerwanie z innego kanału wówczas +/- Enkoder
   If Kierunek = 1 Then
      Incr Enkoder
   Else
      Decr Enkoder
   End If
End If
Poprzedni_klik = Nowy_klik
Return

End ' koniec programu

  $regfile = "attiny2313.dat"
$crystal = 4000000

$baud = 19200                                               ' use baud rate

$hwstack = 32                                               ' default use 32 for the hardware stack

$swstack = 10                                               ' default use 10 for the SW stack

$framesize = 40                                             ' default use 40 for the frame space





Print "Encoder test"

Dim B As Byte

'we have dimmed a byte because we need to maintain the state of the encoder




Portd = &B11111111                                          ' activate pull up registers
Portb = &B00000000



Do

   B = Encoder(pind.2 , Pind.3 , Links , Rechts , 0)

   '                                               ^--- 1 means wait for change which blocks programflow

   '                               ^--------^---------- labels which are called

   '              ^-------^---------------------------- port PINs


Loop

End




'so while you can choose PINB0 and PINB7,they must be both member of PINB

'this works on all PIN registers




Links:

   Cls
  Lcd "lewo"
  Wait 1
  Cls
Return




Rechts:
   Cls
  Lcd "prawo"
  Wait 1
  Cls
Return







End

Getencoder:                                                 'Wywołane przez przerwanie zboczem narastającym (Config Int0 = Rising)
   Waitus 100
   If Pind.1 = 1 Then
      Decr Steps
      If Steps > 999 Then Steps = 0
   Else
      Incr Steps
      If Steps > 999 Then Steps = 999
   End If
Return