Провел испытания водонепроницаемого датчика http://ali.onl/9k7 все работает как нужно, вот небольшой отчет https://www.youtube.com/watch?v=Ehf6dlI9o5s

Судя по описанию логики работы, один в один с hc-sr04. Но надо пробовать.

Хочу обратиться к автору, можно ли использовать вместо HC-SR04 вот такой модуль http://ali.onl/9k7

Собрал-работает. Только хотелось предупредить, у кого не верно показывает и т.д. -ФЮЗЫ!!! По умолчании в атмеге8 1 мГц, переставить на 8 мГц.

собрал во второй раз эту схему но уже на меге256, пришлось корректировать коэффициент при преобразовании (врал)
и еще странно-при вытащенной из беспаечной макетке датчике цифры на дисплее фиксируют приближение руки к проводам!
видимо ловит наводки.
рука в 7см -0
при дальнейшем приближении цифры доходят примерно до 223 (вплотную)

If S < 40 Then 'если растояние меньше заданного предела
Led = 1 'и мигнем светодиодом
Waitms 200
Led = 0
End If

Waitms 200 замени на else и будет гореть всё время при менее 40 см

sany2, спасибо
Вот какой код я прошил, взял частично из ветки http://avrproject.ru/forum/4-6-1
$regfile = "m8def.dat"
$crystal = 1000000

Config Portc.0 = Output
Config Portc.1 = Input
Config Portb = Output
Config Portd = Output
Config Portc.2 = Output
Config Portc.3 = Output 'конфигурация для подключения светодиода
Led Alias Portc.2
Led = 0

Dim N2 As Integer
Dim N3 As Integer
Dim N4 As Integer

Dim M2 As Integer
Dim M3 As Integer
Dim M4 As Integer

Dim A As Word
Dim S As Single

Config Timer1 = Timer , Prescale = 64
On Timer1 Sonar:

Enable Interrupts
Enable Timer1

Do

Portb = &B00000100
Portd = Lookup(m2 , Dat1)
Waitms 5

Portb = &B00000010
Portd = Lookup(m3 , Dat1)
Waitms 5

Portb = &B00000001
Portd = Lookup(m4 , Dat1)
Waitms 5
Loop

Sonar:

Portc.0 = 1
Waitus 15
Portc.0 = 0

Waitus 10
Pulsein A , Pinc , 1 , 1

S = A * 0.335 'для воды заменить на 0.69

M2 = S
M3 = S
M4 = S
M2 = M2 / 100 'сотки
N2 = Abs(m2)
M3 = M3 Mod 100 'десятки
M3 = M3 / 10
N3 = Abs(m3)
M4 = M4 Mod 10 'единицы
N4 = Abs(m4)

If S < 40 Then 'если растояние меньше заданного предела
Led = 1 'и мигнем светодиодом
Waitms 200
Led = 0
End If

Waitms 100

If S < 10 Then
Portc.3 = 1
Else
Portc.3 = 0
End If

Waitms 100

Return

End

Dat1:

Data &B11000000 '0
Data &B11111001 '1
Data &B10100100 '2
Data &B10110000 '3
Data &B10011001 '4
Data &B10010010 '5
Data &B10000010 '6
Data &B11111000 '7
Data &B10000000 '8
Data &B10010000 '9

Сделал с сегментами
Светодиод прицепил один на PORTC.2 другой на PORTC.3 но не могу заставить их гореть оба сначала один при расстоянии 40 см другой при расстоянии 10, но главное что уже в принципе, есть почти тот результат который я хотел.
Только вот у меня почему то при стандартной константе 0.172 неправильно измеряет расстояние до объекта. Пришлось экспериментально подбирать поставил 0,335

oleg105103

config portd.0=output

конец программы примерно такой при 10см

If S < 10 Then
Portd.0 = 1
Else
Portd.0 = 0
End If

Waitms 100
Loop
End

Просьба подсказть как реализовать подключение ещё одно свтодиода и его срабатывание при расстоянии менее чем 20 см до объекта ?
Пробовал но либо ошибка при коппиляции либо светодиод загорается и уже не тухнет даже при увеличении расстояния? просьба помочь с кодом

В продолжение использую AVR Studio 5.1

Уважаемые форумчане просьба помочь советом или практично
Собрал данное устройство но пока без жки. т.к. нет в наличии
Хочу приспособить под сегментник с общим анодом GNT-3631BG . Просьба подсказать можно ли слепить этот код с тем который есть уже в соседней ветке http://avrproject.ru/forum/4-6-1 чтоб заменить жки на сегменты ?
Если да, то прошу помочь т.к. в програмировании пока аматор.
И еще подскажите как код превратить в hex?
Заранее всем спасибо кто откликнется!

Ага, прально. Ну если хорошо изолировать может что и получится.

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

Ну прозрачность в видимом диапазоне не гарантирует прозрачность во всех остальных )) Видать там не простой пластик. Самое очевидно что приходит в голову, это сделать так чтобы с наружи остались только мембраны излучателя и приемника, их можно покрыть лаком от коррозии (как вариант).
Или, сделать механизм который будет на время парковки открывать крышку корпуса в котором стоит дальномер (можно применить сервомашинку для открывания)

такое дело. решил сделать парктроник. все собрал спаял. так как планировал что датчик просто будет прикреплен сзади чуть выше бампера надо было думать как обезопасить его от воды, грязи итд. решил засунуть в мал.квадратные корпус из оргстекла, НО вот Незадача ультразвук оказывается отражается даже от прозрачной передней панели)))) я в ступоре. есть ли такой материал который пропускает звук, но не пропустит влагу? ведь у автомобилей у датчики непроницаемые и кажись закрыты обычной пластмаской...

отличная статья!

koolleer, ну это не сверхточный прибор, метр от двух отличит, а больше от него требовать не стоит. Тут и от поверхности от которой отражается сигнал зависит и от самого исполнения сонара, так что считайте что это допускаемая погрешность. Если нужно получить точные показания то могу посоветовать скорректировать показания, построить график и на каждый диапазон ввести коэффициент который будет подгонять замеренные показания к действительным.

измерял не точно, ноо примерно вместотого где должно быть 20 показывает 24, на 10 показывает 13, а на 5 показывает 7. вместо 25 показывает на 30. т.е. чем дальше тем больше погрешность

Формула расчета взята из документации на этот модуль. Какие показания выдает ваш модуль?

А как получили данный коэффициент ? У меня почему то неверные показания выдает.

Нет, там прямое управление с микроконтроллера, на плате с сенсором уже все необходимое есть.

перед динамиком не надо ставить транзистор для безопасности порта микросхемы?

Ежели очень надо-возьмите здесь:
http://yadi.sk/d/BvR2OyO899gBK

А где взять прошивку в .hex ?

Яж говорю, это просто картинка, я тоже не умею создавать в нем модели). О симуляции речи не идет.

просто не знаю как смоделировать работу этого датчика в протеусе

Я обычно не сохраняю файл протеуса после того как нарисую схему. Самому нарисовать не сложно, прямоугольник и два круга:) Но это получится не работоспособная модель сонара, просто рисунок..

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

Никак, модели дальномера для протеуса не нашел. Если только самому создать..

Как реализовать данный дальномер на схеме в протеусе?