Всем привет!
Вопрос к гуру. На порту D  Мега8 у меня "весят" сегменты индикатора. Потребовалось завести внешнее прерывание на ноги (PD2.PD3). Можно было бы использовать порт B, но там подцеплен кварц. Можно перекинуть пару сегментов на другой порт, но не могу додуматься как ими управлять. Или проще вывести сегменты через регистр 595 ?

кусок кода

'динамическая инд на 2 цифры

ind:
If Mm < 10 Then : A = 0 : Else : A = 1 : End If

Digit(1) = Mm Mod 10 : Digit(2) = Mm / 10
Portb = 255
Incr s : If s > A Then s = 0
Portd = Lookup(digit(s + 1) , Data1)
Reset Portb.s
Return

Data1:
Data &H10 , &H73 , &H48 , &H41 , &H23 , &H81 , &H80 , &H53 , &H0 , &H1

Отредактировано tolnov (2016-09-15 06:46:22)