без компараторов както ширше, чо запрограмил то и будет
а с компараторами выходит что функционал ограничен железной схемой
roboforum.ruТехнический форум по робототехнике. |
|
|
|
Реклама | ||||
|
|
|||
=DeaD= писал(а):Ну как-то выделять из общей дорожки нам звук надо ведь будет? Или только выстрелы распознавать собираемся?
Myp писал(а):без компараторов както ширше, чо запрограмил то и будет
а с компараторами выходит что функционал ограничен железной схемой
Myp писал(а):без компараторов както ширше, чо запрограмил то и будет
а с компараторами выходит что функционал ограничен железной схемой
Реклама | ||||
|
|
|||
Myp писал(а):я лично вобще хз зачем эта фича нужна...
разве что пищать громко а потом отражённый звук 3мя микрофонами ловить и на основании этого сразу строить примерный план окружающего пространства...
Myp писал(а):я чото както не в курсах там в меге компараторов хватит на наши микрофоны то?
blindman писал(а):Это-то понятно. Но вот как именно определять что за звук слышим? БПФ делать? Не забываем, что память-то унас ограничена. Даже если разделять память с переменными, используемыми для файловой системы, имеем 2KiB максимум. Хватит, чтобы насэмплить 3 канала, и потом все это обработать? С 3 компараторами можно попытаться задержки считать аппаратно, и на их основе делать выводы. Супер-точность все равно не нужна
EdGull писал(а):я предлагал компараторы потому что считаю что ими быстрей пики звука вычислять
в смысле от куда быстрей сработало
но можно и без компараторов если хотите
EdGull писал(а):0. для начала заполни свой город
1. вот собери резисторный ковокс и прочувствуй разницу
2. с чего эт ты решил??? конкретные цены и объемы в студию!
Sub Say(byval Filename As String * 12 )
Local Sample As Byte ' Сэмпл
Local Busy As Byte ' Занято
If Filename = "" Then Exit Sub ' если файлика нету - то выходим
If Diskinitialized = True Then ' Диск доступен?
Chdir "" ' Да, двигаемся в поддиректорию, где файло лежит "SPEECH"
Chdir "SPEECH" '
Filename = Filename + ".RAW" ' Полное имя файла с расширением
Open Filename For Binary As #3 ' Открываем файл
While Eof(#3) <> 255 ' Пока не достигнут конец файла...
Get #3 , Sample ' Достаем байт из файла
Waitus 60 ' задержка для дискретизации (вспоминаем теорему Котельникова)
Pwm1a = Sample ' отправляем байтик в ШИМ
Wend '
Close #3 ' Закрываем файл
Else
Call Beep() 'если файла нету - бибикаем
End If
Waitms 100
End Sub
Config Timer1 = Pwm , Prescale = 1 , Compare A Pwm = Clear Down , Pwm = 8
FireFly писал(а)::D даже знаю откуда взял
yakuzaa писал(а):<skip>
можно хоть до 44100 Гц частоту повысить - все только упирается в скорость аппаратного SPI, а он как вродь на 2 МГц работает.
<skip>
EdGull писал(а):а кто мешает постранично без AVR-DOS SD-card юзать?
я вон в вике даже всё готовое выложил
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0