Код: Выделить всё
Power Adcnoise
vanyap1 писал(а):хотелось бы узнать как отключить все возможные функции МК при оцифровке сигнала? Чтобы не наводили помехи на АЦП.
Код: Выделить всё
$regfile = "m324pdef.dat" 'для чипа ATMega324p
'$regfile = "m644def.dat" 'для чипа ATMega644
Dim Dadc As Word 'данные АЦП (внутреннего)
Dim Ua As Single 'временное значение
Dim Ub As Single 'временное значение
On Adcc Adc_int Nosave 'вектор прерывания от АЦП
'...
' АЦП
'Admux = &B00011111 'внешняя опора АЦП со входа AREF, внутренняя выключена
'измерение на закороченном входе
'...
' измерение с помощью внутреннего АЦП. результат в Ua, выраженный в Вольтах шкалы
Adcsr = &B10001110 'разрешить АЦП с частотой тактирования F / 64
'в режиме с естественным положением битов, прерывание разрешено
'-------
For Tmpb = 1 To 16 'произвести 16 измерений
Set Adcsr.6 'запустить АЦП
Rdiadc1:
Idle 'останов
If B_adc = 0 Then 'есть данные внутреннего АЦП?
Goto Rdiadc1 'нет - повторить
End If
Next Tmpb
Adcsr = &B00000110 'запретить АЦП
Dadc = Dadc - 25 'коррекция смещения нуля
Ua = Dadc : Dadc = 0 'в формат с плавающей точкой, а исходный очистить
Ua = Ua * 0.0003052 'привести к шкале 0...5 В
Return
'обработка прерывания от внутреннего АЦП
Adc_int:
$asm
Push R31 'сохраним регистры
In R31 , Sreg
Push R31
Push R30
Push R29
'-----
'считать данные внутреннего АЦП
lds R29 , {Dadc} 'считать сумму
Lds R30 , {Dadc + 1}
' In R31 , Adcl 'считать показания (M32)
lds R31 , Adcl 'считать показания (M644)
Add R29 , R31 'добавить к сумме показания АПЦ
' In R31 , Adch ' (M32)
LDS R31 , Adch ' (M644)
Adc R30 , R31
Sts {Dadc} , R29
Sts {Dadc + 1} , R30
'-----
Ldi R31 , 255 'есть данные внутреннего АЦП
Sts {B_adc} , R31
'-----
Adcinte:
Pop R29 'восстановим регистры
Pop R30
Pop R31
Out Sreg , R31
Pop R31
Reti
$end Asm
ReturnКод: Выделить всё
$regfile = "m16def.dat"
$crystal = 4000000
Config Porta = Output
Config Portb = Output
Config Timer1 = Timer , Prescale = 1024 , Capture Edge = Rising
Dim Timercounter As Word
Dim Out1 As Byte
On Capture1 Captmr
Timercounter = 0
Enable Interrupts
Enable Capture1
Do
Set Portb.0
For Out1 = 0 To 3
Set Porta. Out1
Waitus Timercounter
Reset Porta. Out1
Waitus Timercounter
Next Out1
Reset Portb.0
Loop
Captmr:
Timercounter = Capture1
Timer1 = 0
Return
EndАрт писал(а):Вот код, но не работает в Протеусе.
Арт писал(а):Вот код, но не работает в Протеусе.
Код: Выделить всё
$regfile = "m16def.dat"
$crystal = 4000000
' конфигурация дисплея
Config Lcdpin = Pin , Rs = Portb.1 , E = Portb.2 , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Config Lcd = 16 * 2
Config Timer1 = Timer , Prescale = 1024 , Capture Edge = Rising
On Capture1 Captmr
Dim Timercounter As Word
Timercounter = 0
Enable Interrupts
Enable Capture1
Cls
Cursor Off
Do
Locate 1 , 1
Lcd "KOTOB: " ; Timercounter ; " "
Loop
Captmr:
Timercounter = Capture1
Timer1 = 0
Return
End
cattus писал(а):Непонятно как отключать будильник
cattus писал(а):то на 7 ноге будет логический ноль, то есть включится
edm2007 писал(а):Да понять-то понял, просто ослоумничаю.cattus писал(а):то на 7 ноге будет логический ноль, то есть включится
Мда? А судя по распиновке, ноги 5 - 12 никуда не подключены, и должны быть посажены на землю.
Код: Выделить всё
$regfile = "m32def.dat" ' тип МК
$crystal = 16000000 ' выбор кристала для расчета задержек
'*****************************************[Определение переменных и констант]************************************
Dim Count As Byte ' переменная для работы с индикацией
Dim Ledout As Byte ' переменная 1 для загрузки в регистры сдвига
Dim Ledout2 As Byte ' переменная 2 для загрузки в регистры сдвига
Dim Number(4) As Byte ' значения 4 разрядов
Dim H_flag(4) As Byte ' флаги точек 4 разрядов
Dim Blink_count As Word ' счетчик времени мигания
Dim Blink_flag(4) As Byte ' флаги мигания разрядов
'***********************************************[Инициализация портов]*******************************************
Ddrc = &B11111111 'порт С на выход
'*********************************************[Инициализация прерываний]*****************************************
Config Timer0 = Timer , Prescale = 64 ' конфигурируем таймер индикации
On Ovf0 Refresh ' метка на прерывание индикации
Enable Interrupts ' разрешаем прерывания
Enable Ovf0 ' и для индикации в частности
'********************************************[Присвоение уникальных имен]****************************************
595clock Alias Portc.0 : 595data Alias Portc.1 ' выводы 74HC595
'*********************************************[Начало основной программы]****************************************
Number(1) = 1 '
Number(2) = 2
Number(3) = 3
Number(4) = 4
Blink_flag(1) = 1 ' мигаем первым и шестым разрядом
'Blink_flag(4) = 1
'----------
Do
Loop
'***********************************[Процедуры обработки подпрограмм и прерываний]*******************************
Refresh: ' прерывание таймера Т0
If Blink_flag(count) = 1 And Blink_count > 200 Then ' если флаг мигания выставлен и счетчик > 200
Ledout = Lookup(1 , Rank) ' выключаем разряд
Else ' иначе (флаг не выставлен, либо счетчик < 200)
Ledout = Lookup(count , Rank) ' забираем в переменную номер разряда
End If
Shiftout 595data , 595clock , Ledout , 1 ' закидываем в регистр
'----------
Incr Count : If Count > 4 Then Count = 1 ' выбираем разряд для загрузки
Incr Blink_count : If Blink_count > 400 Then Blink_count = 1 ' длительность мигания
Ledout = Lookup(number(count) , Digits) ' забираем в переменную код цифры
If H_flag(count) = 1 Then ' управление точками индикатора
Ledout = Ledout Xor &B11011111
End If
Shiftout 595data , 595clock , Ledout , 1 ' закидываем в регистр
'----------
Ledout2 = Lookup(number(count) , Digits) ' забираем в переменную код цифры
If H_flag(count) = 1 Then ' управление точками индикатора
Ledout2 = Ledout2 Xor &B11011111
End If
Shiftout 595data , 595clock , Ledout , 1 ' закидываем в регистр
Pulseout Portc , 2 , 20 ' защелкиваем данные (для 8МГц импульс 5мкс)
Return
'******************************************************[DATA]****************************************************
Digits: ' цифры
Data &B11000000 , &B11111100 , &B10100100 , &B10110000 , &B10011001 ' 0 1 2 3 4
'----------
Rank: ' разряды
'Data &B00000000 ' выкл
Data &B00000001 , &B00000010 , &B00000100 ' 1 2 3
Data &B00001000 , &B00010000 , &B00100000 ' 4 5 6
edm2007 писал(а):Проект протеуса будьте добры.
Что же касаемо динамической индикации, то для восьми разрядов достаточно ДВУХ регистров. Сегментов 8 + разрядов 8 = 16 ног. И вообще, этот вариант писался специально для Attiny45, у которой всего 5 рабочих ног. Тут же можно например, сегменты посадить на регистр, а разрядами рулить уже с МК. Ну ног-то куча. В этом случае и обработка будет проще, и регистр будет вообще ОДИН. Вы наверное про эти расчеты Pulseout Portc , 2 , 20
edm2007 писал(а):А, ну это Вы вообще все изменили.
Код: Выделить всё
If Blink_flag(count) = 1 And Blink_count > 200 Then ' если флаг мигания выставлен и счетчик > 200
Ledout = Lookup(1 , Rank) ' выключаем разряд
Else ' иначе (флаг не выставлен, либо счетчик < 200)
Ledout = Lookup(count , Rank) ' забираем в переменную номер разряда
End If
Shiftout 595data , 595clock , Ledout , 1 ' закидываем в регистрВообще два регистра способны обслужить 8 разрядов, но в моем распоряжении были только такие индикаторы.
Код: Выделить всё
Data &B00010001 , &B00100010 , &B01000100 ' 1 2 3
Data &B10001000 ' 4