http://arv.radioliga.com/content/view/101/49/kip96 писал(а):Подскажите, кто как реализовывал регулировку яркости придинамической индикации?
Ну генерация на выводе-то нам зачем? Сейчас покажу. Убрал всякие порты и прочее, и так понятно. Цифры включаются в прерывании по совпадению, индикация обновляется каждые 4 мс (250 Гц). При чем, частота остается стабильной что бы нибыло записано в регистр сравнения. Потому как что от 10 до 10 и что от 250 до 250 - все равно 255 тиков. А вот в прерывании переполнения индикатор гасится. Таким образом при одинаковой частоте обновления регулируем время свечения. Допустим, в регистре сравнения записано 10. Таймер считает, при 10 уходим и зажигаем цифру. А при 255 (переполнение) - ее гасим. Горела она от 10 до 255. То бишь яркость почти максимальная. Теперь загружаем 230. Таймер считает, но цифра включится только при 230. И гореть будет от 230 до 255. Затем погаснет. Яркость почти минимальная. Главное, при совпадении не сбрасывать счетный регистр.kip96 писал(а):Идею понял, но никак не врублюсь , как в баскоме это сделать. Как таймер на два прерывания оформить?, при Compare a управляется вывод OC1A.
Код: Выделить всё
$regfile = "attiny2313.dat" ' тип МК
$crystal = 4000000 ' выбор кристала для расчета задержек
'***[Определение переменных и констант]***
Dim Count As Byte
Dim I(3) As Byte ' три разряда
'***[Инициализация прерываний]***
' конфигурируем таймер (ТАЙМЕР ПРИ СОВПАДЕНИИ НЕ СБРАСЫВАЕМ)
Config Timer0 = Timer , Prescale = 64 , Clear Timer = 0
On Oc0a Refresh ' обзываем прерывание индикации
On Ovf0 Res_ind ' гашение индикации
Ocr0a = 100 ' регистр совпадения
Enable Interrupts ' разрешаем все прерывания
Enable Oc0a ' и для таймера в частности
Enable Ovf0
'***[Присвоение уникальных имен]***
Dig1 Alias Portd.4 ' обзываем разряды
Dig2 Alias Portd.5
Dig3 Alias Portd.6
'***[Начало основной программы]***
I(1) = 3
I(2) = 2
I(3) = 1
Do
Loop
End
'***[Процедуры обработки прерываний]***
Refresh: ' прерывание индикации (каждые 4 мс)
Reset Dig1 : Reset Dig2 : Reset Dig3
Incr Count : If Count > 3 Then Count = 1
Portb = Lookup(i(count) , Digits)
Select Case Count
Case 1 : Set Dig1
Case 2 : Set Dig2
Case 3 : Set Dig3
End Select
Return
'-------------------------
Res_ind: ' прерывание по переполнению
Reset Dig1 : Reset Dig2 : Reset Dig3
Return
У меня , кстати так и вышло, я ж сначало индикацию сделал, а потом яркость мудрилedm2007 писал(а):Можно кстати наоборот по переполнению сделать индикацию (как обычно) а по совпадению - гашение
Да, все верно, в баскоме TIMER0 это то же самое что OVF0 (overflow - переполнение).kip96 писал(а):On Ovf0 Res_ind а эт, я так понял, равно как On Timer0 Res_ind.
Код: Выделить всё
$regfile = "m48def.dat" ' тип МК
$crystal = 400000 ' выбор кристала для расчета задержек
'*****************************************[Определение переменных и констант]************************************
Dim I(8) As Byte ' 8 разрядов
Dim Count As Byte ' переменная для работы с индикацией
Dim Ledout As Byte ' переменная для загрузки в регистры сдвига
Dim F As Integer , F1 As Integer
F = 0
'***********************************************[Инициализация портов]*******************************************
Config Portb = Output
'*********************************************[Инициализация прерываний]*****************************************
Config Int1 = Rising
On Int1 Schet
Config Timer1 = Timer , Prescale = 64
On Timer1 Frequency
Config Timer0 = Timer , Prescale = 64 ' конфигурируем таймер индикации (~250 Гц)
On Timer0 Refresh ' обзываем прерывание
Enable Interrupts ' разрешаем все прерывания
Enable Int1
Enable Timer0 ' и для таймера в частности
Enable Timer1
'********************************************[Присвоение уникальных имен]****************************************
595data Alias Portb.1 : 595takt Alias Portb.2 : 595latch Alias Portb.0 ' выводы 74HC595
'*********************************************[Начало основной программы]****************************************
Do
Loop
'***********************************[Процедуры обработки подпрограмм и прерываний]*******************************
Schet:
Incr F
Return
Frequency:
Stop Timer1
I(1) = F / 10000000
I(2) = F / 1000000
I(3) = F / 100000
I(4) = F / 10000
I(5) = F / 1000
I(6) = F / 100
I(7) = F / 10
I(8) = F Mod 10
Timer1 = &HCFFF
Start Timer1
F = 0
Return
Refresh: ' прерывание таймера Т0 (переполнение каждые ~4 мс)
Incr Count : If Count > 8 Then Count = 1 ' выбираем какой разряд сейчас включать
Ledout = Lookup(i(count) , Digits) ' забираем код цифры
If Count = 2 Or Count = 5 Or Count = 8 Then ' в 2, 5 и 8 разряде ставим точки
Ledout = Ledout Xor &B00000001
End If
Shiftout 595data , 595takt , Ledout ' закидываем в регистр
Ledout = Lookup(count , Rank) ' забираем номер разряда
Shiftout 595data , 595takt , Ledout ' закидываем в регистр
Set 595latch ' защелкиваем всю эту кучу
Reset 595latch
Return
'******************************************************[DATA]****************************************************
Digits: ' цифры
Data &B11111100 , &B01100000 , &B11011010 , &B11110010 , &B01100110 ' 0 1 2 3 4
Data &B10110110 , &B10111110 , &B11100000 , &B11111110 , &B11100110 ' 5 6 7 8 9
'-------------------------
Rank: ' разряды
Data &B11111111 ' выкл
Data &B11111110 , &B11111101 , &B11111011 , &B11110111 ' 1 2 3 4
Data &B11101111 , &B11011111 , &B10111111 , &B01111111 ' 5 6 7 8
'****************************************************************************************************************
Код: Выделить всё
I(7) = F / 10
Кварц исправил на 8МГц, с типом данных в массиве разобрался. А вот с этим что делать:
не соображу. Как правильно раскинуть по разрядам?Разумеется, ерунду будет показывать. Ты как по разрядам-то раскидываешь? Если переменная F равна 1234, например?
Код:
I(7) = F / 10
Что он по указателю 123 считает?
Рисуем на бумажке число 12345678 и думаем как нужное выдрать. Мне вот такой вариант в голову пришел, например:Код: Выделить всё
For S = 8 To 2 Step -1 ' заполняем разряды, начиная с конца
I(s) = F Mod 10 ' выдергиваем последнюю цифру в массив
F = F / 10 ' далее, отсекаем ее
Next
I(1) = F ' а тут уже останется только один разряд
Код: Выделить всё
Timer1 = &HCFFF