roboforum.ru

2EdGull: Собственно вопрос наверное к тебе - снимал диаграмму? На каком расстоянии какие препятствия определяет? В какой области перед роботом?


2All: Кто-нибудь эти датчики использовал в своих проектах?

пробовал припаянный к плате тсоп 1836 запустить - нифига не олучилось. Уж иваши старые коды в форуме нашел, два часа и так и этак. Может не припаялся нормально. Сегодня хочу через разъемы подцепить (купил пульт от Витязя RC5)
еще прикол. прочитал, что этот тсоп "aka TSOP1736", купил с такой маркировкой. У него не круглое, а вытянутое окошко. Припаял, не глядя в даташит. Запускаю - нифига не работает. Потрогал тсоп - нагрелся. Оказалось, что распиновка вообще другая
диаграмма тсопов в даташите есть, только не знаю насколько реальная

2=DeaD= ТСОП он ив африке ТСОП. Чё его пробывать?
2SMT ну а мне чё не свистнул, не уж-то б я не помог?

Я их так и не впаял. Собственно из-за этого опрос бамперов и получение кода с пульта лежат в TODO…
Есть только большие 1736 на 5В, но не до них — у меня акк подыхает: 5 мин покататься и все, и к тому же так и не вышло заставить нормально кататься, стандартное шасси не очень удачное.

EdGull писал(а):2SMT ну а мне чё не свистнул, не уж-то б я не помог?

да решил нормально все спаять - там с кодом все вроде понятно. вот только что закончил разъемы распаивать - через час буду пробовать.

2EdGull: А какая диаграмма реакции на препятствие у нормального ТСОПа и разнесенного с ним ИК-диода в сторону?
Я такой не встречал

Vooon писал(а):у меня акк подыхает: 5 мин покататься и все

попробуй просто включить движки к заряженному акб. и озвучь время.

Добавлено спустя 1 минуту 15 секунд:

=DeaD= писал(а):Я такой не встречал

в смысле выложить ДШ?

EdGull писал(а):в смысле выложить ДШ?

Нет, в том смысле что мне диаграмму направленности не ТСОПа надо, а пары - ТСОП + ИК-диод, причем на конкретном расстоянии между собой

Я конечно интуитивно догадываюсь что будет что-то похожее на пересечение их диаграмм направленности но раз уж это серьезный робот - можно и готовую выложить заодно и проверить - правда ли это просто пересечение диаграмм приёмника и излучателя.

для минибота-1 это делть уже поздно, кончились они.
у минибота-2 тсоп и ик будут на разъеме, выноси и разноси как хочешь.

Ок, значит считаем как попало бамперы.

А на каком расстоянии то срабатывало примерно?

ну ты меня удивляшь...
ты никогда ик-бампер не делал?
растояние зависит от частоты, ее двигают чтобы как раз и определить рстояние

неа, не делал у меня ИК-дальномеры SHARP, я ИК-бамперы в своём робототехническом развитии пропустил как-то

блин, не работают тсопы. Может дохлые.
код ниже (известный в общем то)
обы тсопа имеют питание около 4 вольт и примерно столько же на сигнальной ноге всегда.
один тсоп TSOP1736, другой TSOP1836SS3V
оксилогафа нет. Частоту менял. то, что мигают светодиоды - проверил (промежуток между вкл\выкл увеличивал)
делал D3 выходом и "моргал" им - значит работает. Что-то туплю, наверное.

Код: Выделить всё

$regfile = "m32def.dat"                                     ' файл спецификации Меги32
$crystal = 8000000                                          ' указываем на какой частоте будем работать
$baud = 19200

'----------------------------------------------------------------------------
Config Pinc.2 = Output : Drl Alias Portc.2                  'ногу сконфигурировали как выход и обозвали Drl
Config Pinc.3 = Output : Drr Alias Portc.3                  'ногу сконфигурировали как выход и обозвали Drr
Config Pind.2 = Input : Backtsop Alias Portd.2
Config Pind.3 = Input : Tsop Alias Portd.3

Config Pinb.0 = Output : Radarbacklight Alias Portb.0       'ногу сконфигурировали как выход и обозвали RadarLeftLight
Config Pinb.1 = Output : Radarrightlight Alias Portb.1      'ногу сконфигурировали как выход и обозвали RadarLeftLight
Config Pinb.3 = Output : Radarleftlight Alias Portb.3       'ногу сконфигурировали как выход и обозвали RadarLeftLight
Config Pinc.5 = Output : Lightrightgreen Alias Portc.5
Config Pinc.7 = Output : Lightleftgreen Alias Portc.7

'----------------------------------------------------------------------------

Radarbacklight = 1
Radarrightlight = 1
Radarleftlight = 1
Lightrightgreen = 0
Lightleftgreen = 0

Do
  Gosub Checkirradar

  If Tsop = 1 Or Backtsop = 1 Then
     Lightleftgreen = 0
  Else
     Lightleftgreen = 1
  End If
   Waitms 500
Loop
Return

Checkirradar:
Dim Temp As Byte
For Temp = 1 To 14
  Radarleftlight = 0
  Radarrightlight = 0
  Waitus 14
  'Waitms 200
  Radarleftlight = 1
  Radarrightlight = 1
  Waitus 14
  'Waitms 200
Next
Waitus 100
Return

Код: Выделить всё

Config Pind.3 = Input : Tsop Alias Portd.3

так нельзя писать, нужно писать

Код: Выделить всё

Config Pind.3 = Input : Tsop Alias Pind.3

Добавлено спустя 3 минуты 57 секунд:
дальше, если нет осцила, то нужно делать так:

Код: Выделить всё

  If Tsop = 1 Or Backtsop = 1 Then
     Lightleftgreen = 0
   Waitms 500
  Else
     Lightleftgreen = 1
   Waitms 500
  End If


иначе ничего не успеешь заметить

2EdGull:офигеть - да ты Великий Шаман! заработало чуть не забыл - спасибо!
а сам думаю: "да, фигово так тормозить"