Форум РадиоКот

Код: Выделить всё

Number(1) = 1                                               ' на индикацию выводим 12345678
Number(2) = 2
Number(3) = 3
Number(4) = 4
Number(5) = 5
Number(6) = 6
Number(7) = 7
Number(8) = 8

....................

Refresh:                                                    ' прерывание таймера Т0

Incr Count : If Count > 4 Then Count = 1                    ' увеличиваем значение счетчика

Ledout = Lookup(count , Rank)                               ' забираем номер разряда
Shiftout 595data , 595clock , Ledout                        ' закидываем в регистр

Ledout = Lookup(number(count + 4) , Digits)                 ' забираем код цифры для ВТОРОГО индикатора
Shiftout 595data , 595clock , Ledout                        ' закидываем в регистр

Ledout = Lookup(number(count) , Digits)                     ' забираем код цифры для ПЕРВОГО индикатора
Shiftout 595data , 595clock , Ledout                        ' закидываем в регистр

Pulseout Portc , 2 , 10                                     ' защелкиваем данные (для 8МГц импульс 5мкс)

Return

Код: Выделить всё

$regfile = "m32def.dat"                                     ' тип МК
$crystal = 16000000                                         ' выбор кристала для расчета задержек

'*****************************************[Определение переменных и констант]************************************

Dim Count As Byte                                           ' переменная для работы с индикацией
Dim Ledout As Byte                                          ' переменная  для загрузки в регистры сдвига
Dim Number(8) As Byte                                       ' значения 6-ти разрядов
Dim H_flag(8) As Byte                                       ' флаги точек 6-ти разрядов
Dim Blink_count As Word                                     ' счетчик времени мигания
Dim Blink_flag(8) As Byte                                   ' флаги мигания разрядов

'***********************************************[Инициализация портов]*******************************************

Ddrc = &B11111111                                           'порт В на выход ' вывод SH_CP регистра (тактовые импульсы)

'*********************************************[Инициализация прерываний]*****************************************

Config Timer0 = Timer , Prescale = 256                      ' конфигурируем таймер индикации
On Ovf0 Refresh                                             ' метка на прерывание индикации

Enable Interrupts                                           ' разрешаем прерывания
Enable Ovf0                                                 ' и для индикации в частности

'********************************************[Присвоение уникальных имен]****************************************

595clock Alias Portc.0 : 595data Alias Portc.1              ' выводы 74HC595

'*********************************************[Начало основной программы]****************************************

Number(1) = 1                                               ' на индикацию выводим -tESt-
Number(2) = 2
Number(3) = 3
Number(4) = 4
Number(5) = 5
Number(6) = 6
Number(7) = 7
Number(8) = 8
'-------------------------

Do

Loop

'***********************************[Процедуры обработки подпрограмм и прерываний]*******************************

Refresh:                                                    ' прерывание таймера Т0
Incr Count : If Count > 8 Then Count = 1                    ' иначе (флаг не выставлен, либо счетчик < 200)
Ledout = Lookup(count , Rank)                               ' забираем в переменную номер разряда
Shiftout 595data , 595clock , Ledout , 1                    ' закидываем в регистр
'----------------------------------------------------------------------------------------------------------------

Ledout = Lookup(number(count) , Digits)                     ' забираем в переменную код цифры
Shiftout 595data , 595clock , Ledout , 1                    ' закидываем в регистр

Pulseout Portc , 2 , 20                                     ' защелкиваем данные (для 8МГц импульс 5мкс)

Return


'******************************************************[DATA]****************************************************

Digits:                                                     ' цифры

Data &B11000000 , &B11111001 , &B10100100 , &B10110000 , &B10011001       ' 0 1 2 3 4
Data &B10010010 , &B10000010 , &B11011000 , &B10000000 , &B10010000       ' 5 6 7 8 9

'-------------------------

Rank:                                                       ' разряды
Data &B00000000                                             ' выкл
Data &B00000001 , &B00000010 , &B00000100 , &B00001000      ' 1 2 3 4
Data &B00010000 , &B00100000 , &B01000000 , &B10000000      ' 5 6 7 8

'****************************************************************************************************************