- Код: Выделить всё
Compare0a = 555 : Compare0b = 555
А здесь проблем нет:
- Код: Выделить всё
Compare1a = 555 : Compare1b = 555
Подскажите как написать так чтобы таймер0 работал также как таймер1. Прога под 4 ик-бампера как бы, если конечно получится настроить тамер0. Если нет тогда под 2 , а мне минимум их 3 надо
- Код: Выделить всё
'************************
$regfile = "attiny2313.dat" 'используем ATtiny2313
$crystal = 16000000 'частота кварцевого резонатора 16mHz
'************************
'*******************************************
'Генерация частоты 36kHz
'Настраиваем Timer0 и Timer1
Config Timer0 = Counter , Edge = Rising , Prescale = 8 , Compare A = Toggle , Compare B = Toggle
Config Timer1 = Counter , Edge = Rising , Prescale = 8 , Compare A = Toggle , Compare B = Toggle
'*******************************************
'*******************************************
'Расчитываем Compare
'тактовая частота (kHz) / частота TSOPa (kHz) / 2 = Compare
Compare0a = 555 : Compare0b = 555
Compare1a = 555 : Compare1b = 555
'*******************************************
'**********************
'Настраиваем порты
'выход сигнала (на плате ик -бампера вывод обозначен In):
Config Pind.5 = Output
Config Pinb.2 = Output
Config Pinb.3 = Output
Config Pinb.4 = Output
'**********************
'*******************************************
'Для считывания состояния TSOPa (на плате ик-бампера вывод обозначен Out):
Config Pind.4 = Output : помеха_п Alias Pind.4
Config Pind.6 = Output : помеха_л Alias Pind.6
Config Pinb.0 = Output : помеха_зп Alias Pinb.0
Config Pinb.1 = Output : помеха_зл Alias Pinb.1
'*******************************************
'*******************************************
'Выходной сигнал на основной мк:
Config Pind.0 = Output : Sig0 Alias Pind.0
Config Pind.1 = Output : Sig1 Alias Pind.1
Config Pind.2 = Output : Sig2 Alias Pind.2
Config Pind.3 = Output : Sig3 Alias Pind.3
'*******************************************
'***************************
'Запускаем таймер0 и таймер1
Start Timer0
Start Timer1
'***************************
'*******************************************
'Начало цикла основной программы
Do
If помеха_п = 0 Then : Sig0 = 0 : Else : Sig0 = 1 : End If
If помеха_л = 0 Then : Sig1 = 0 : Else : Sig1 = 1 : End If
If помеха_зп = 0 Then : Sig2 = 0 : Else : Sig2 = 1 : End If
If помеха_зл = 0 Then : Sig3 = 0 : Else : Sig3 = 1 : End If
Loop
End
'*******************************************