'счетчик импульсов от валкодера с индикацией на 3-х разр. семисегмент.
'в минус 999-998-997 и т.д. в плюс 001-002-003 и т.д

$regfile = "2313def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32
'$sim

Config Portb = Output                   'порт В выход для семисегмент

Ddrd = &B11000111                       '1=выход 0=вход  назначаем входы\выходы
Portd = &B00111000                      'подтяжка входов внутренними резисторами
                      '1=резистор подтянут 0=резистора нет

Dim W As Word
Dim N1 As Byte
Dim N2 As Byte
Dim N3 As Byte
Dim Imp As Byte

Dim M1 As Integer
Dim M2 As Integer
Dim M3 As Integer

Config Int1 = Falling                   ' прерывание INT1 по нисходящему фронту (c + на -)
On Int1 Encod                           ' если прерывание идем на метку encod

Enable Interrupts                       'включаем прерывания
Enable Int1                             'вкл прерывание на INT1

Do                    ' в главном цикле отображаем количество импульсов

Portd = &B1111011

Select Case N1
Case 0 : Portb = &B11000000
Case 1 : Portb = &B11111001
Case 2 : Portb = &B10100100
Case 3 : Portb = &B10110000
Case 4 : Portb = &B10011001
Case 5 : Portb = &B10010010
Case 6 : Portb = &B10000010
Case 7 : Portb = &B11111000
Case 8 : Portb = &B10000000
Case 9 : Portb = &B10010000
End Select

Waitms 4

Portd = &B1111110

Select Case N2
Case 0 : Portb = &B11000000
Case 1 : Portb = &B11111001
Case 2 : Portb = &B10100100
Case 3 : Portb = &B10110000
Case 4 : Portb = &B10011001
Case 5 : Portb = &B10010010
Case 6 : Portb = &B10000010
Case 7 : Portb = &B11111000
Case 8 : Portb = &B10000000
Case 9 : Portb = &B10010000
End Select

Waitms 4

Portd = &B1111101

Select Case N3
Case 0 : Portb = &B11000000
Case 1 : Portb = &B11111001
Case 2 : Portb = &B10100100
Case 3 : Portb = &B10110000
Case 4 : Portb = &B10011001
Case 5 : Portb = &B10010010
Case 6 : Portb = &B10000010
Case 7 : Portb = &B11111000
Case 8 : Portb = &B10000000
Case 9 : Portb = &B10010000
End Select

Waitms 4

Loop
End

Encod:                    ' тут узнаем в каком направлении вращают ручку энкодера

    Waitms 4                    ' ждем пока утихнет дребезг контактов
    If Pind.5 = 1 Then                     ' если на ноге единица (импульс не пришел) тогда
    Incr W                    ' инкременируем переменную (увеличиваем на 1)
    If W > 1000 Then                       'если крутим в + и переменная больше 1000(три разряда потому 1000)
    W = 0                    'то сбрасываем переменную 0
    End If
    Else                    ' в обратном случае
    Decr W
    If W > 1000 Then
    W = 999
    End If                    ' декрементируем переменную (уменьшаем на 1)
    End If

Gifr = 64                    ' сбрасываем регистр хранения прерывания INT0

' а тут готовим переменную к выводу на дисплей

M3 = W
M2 = M3
M1 = M3

M1 = M1 / 100                           ' обработка первого разряда
N1 = Abs(m1)

M2 = M2 Mod 100                         ' обработка второго разряда
M2 = M2 / 10
N2 = Abs(m2)

M3 = M3 Mod 10                          ' обработка третьего разряда
N3 = Abs(m3)

Return
End