roboforum.ruТехнический форум по робототехнике. |
|
|
|
Реклама | ||||
|
|
|||
'Пример работы инфракрасного датчика препятствия на основе TSOP2136
$regfile = "m32def.dat" 'используем Mega32
$crystal = 8000000 'частота кварцевого резонатора 8mHz
'Генерация частоты 36kHz
'Настраиваем Timer1
Config Timer1 = Counter , Edge = Rising , Prescale = 8 , Compare A = Toggle
' Расчитываем Compare1a
' тактовая частота (kHz) / частота TSOPa (kHz) / 2 = Compare
' 8000 / 36 / 2 = 111
Compare0 = 111
'PortB.3 - выход сигнала
'PinB.1 - считываем состояние TSOPa
'PortC.7 - сигнальный светодиод
Config PinB.3= Output
Config PortC.7 = Output
Config PinB.1 = Input
Start Timer1
Do
If PinA.6 = 0 Then
PortC.7 = 1
Else
PortC.7 = 0
End If
Loop
End
Реклама | ||||
|
|
|||
EdGull писал(а):
кулер 23 выкладывай схему и обводи красным то, что тебе не понятно.
$regfile = "m32DEF.dat" ' указываем компилятору что у нас Мега32
$crystal = 8000000 ' указываем компилятору что тактовая частота Меги32 8МГц
Config Pinc.4 = Output : Led Alias Portc.4
Config Pind.2 = Input
Do
Led = 0
Do
If Pind.2 = 0 Then
Set Led
End If
Loop Until Pind.2 = 1
Loop
End
Вернуться в МиниБот — национальный класс роботов
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5