roboforum.ru

Технический форум по робототехнике.

Помогите настроить "ИК-бампер"

Программирование микроконтроллеров AVR, PIC, ARM.
Разработка и изготовление печатных плат для модулей.

Помогите настроить "ИК-бампер"

Сообщение VIRUS_V8 » 21 июн 2008, 23:11

Вот программа
тсоп 1736
Код: Выделить всёРазвернуть
$regfile = "attiny2313.dat"
$crystal = 1000000           

Config Timer1 = Counter , Edge = Rising , Prescale = 8 , Compare A = Toggle
                                         
' тактовая частота (kHz) / частота TSOPa (kHz) / 2 = Compare
' 10000 / 36 / 2 = 139

Compare1a = 139

'Portb.3 - выход сигнала
'Pind.4 - считываем состояние TSOPa
'Portb.1 - сигнальный светодиод

Config Pinb.3 = Output
Config Portb.1 = Output
Config Pind.4 = Input

Start Timer1
Do
If Pind.4 = 0 Then
Portb.1 = 1
Else
Portb.1 = 0
End If
Loop

End


При направлении на тсоп ик-излучателя появляется сигнал и пропадает. И чтобы появился сигнал снова приходиться убирать изучатель в сторону и направлять на тсоп заново. Вопрос. так и должно быть? или нет? Если излучатель и тсоп ставишь рядом и направляеш на какое либо препятствие сигнала нет. Помогите дайте совет что делать дальше?
VIRUS_V8
 
Сообщения: 170
Зарегистрирован: 06 май 2008, 18:33
Откуда: г. Щигры, Курская обл.
прог. языки: Delphi, BASCOM-AVR(basic)
ФИО: Павел

Re: Помогите настроить "ИК-бампер"

Сообщение FireFly » 21 июн 2008, 23:30

$regfile = "attiny2313.dat"
$crystal = 1000000

Config Timer1 = Counter , Edge = Rising , Prescale = 8 , Compare A = Toggle

' тактовая частота (kHz) / частота TSOPa (kHz) / 2 = Compare
' 10000 / 36 / 2 = 139

Compare1a = 139


Ну дык ты расчет не правильно сделал
вот так попробуй - 1000/36/2=14
Домашняя робототехника - RoboZone.SU
горючее...- пиво... много... :)
Аватара пользователя
FireFly
 
Сообщения: 1576
Зарегистрирован: 19 июн 2005, 18:27
Откуда: Камышин

Re: Помогите настроить "ИК-бампер"

Сообщение VIRUS_V8 » 22 июн 2008, 01:55

кажется я лишний нолик поставил. прошу прощения

Добавлено спустя 3 минуты 50 секунд:
при обнаружении препятствия сигнал должен быть постоянно
VIRUS_V8
 
Сообщения: 170
Зарегистрирован: 06 май 2008, 18:33
Откуда: г. Щигры, Курская обл.
прог. языки: Delphi, BASCOM-AVR(basic)
ФИО: Павел

Re: Помогите настроить "ИК-бампер"

Сообщение EdGull » 22 июн 2008, 02:25

Config Portb.1 = Output

должно быть
Config Pinb.1 = Output
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Re: Помогите настроить "ИК-бампер"

Сообщение VIRUS_V8 » 22 июн 2008, 12:28

большое спасибо за помощь. всё работает на расстоянии 10 см видит препятствие. надо подпаять второй излучатель думаю препятствие тогда будет замечено на большем расстоянии
VIRUS_V8
 
Сообщения: 170
Зарегистрирован: 06 май 2008, 18:33
Откуда: г. Щигры, Курская обл.
прог. языки: Delphi, BASCOM-AVR(basic)
ФИО: Павел

Re: Помогите настроить "ИК-бампер"

Сообщение Master » 23 июн 2008, 09:09

Еще можно препятствие перекрасить в белый цвет, тогда его будет дальше видно. :)
Аватара пользователя
Master
 
Сообщения: 4468
Зарегистрирован: 21 дек 2006, 19:56
Откуда: Украина, г.Одесса
прог. языки: Delphi и С


Вернуться в Микроконтроллеры

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 13