BASCOM AVR в вопросах и ответах

[vem566]

Тут каждый кулик .... Я, например юзаю протеус. Рисовалка схем, эмуляция и печатные платы в одном флаконе. Большой плюс в том, что нарисовав схему и отправив её в трассировщик, не возможно случайно не правильно развести. Программа ругается, как базарная баба. И вопросы типа "проверьте плату" отпадают. Опять же на выходе весь пакет файлов. И для сверловки и для маски.

[radio-kot]

А это про что топик? спринт лейаут конечно же. или eagle

[Алексей_Константинов]

А это про что топик? спринт лейаут конечно же. или eagle

radio-kot,

а чем лучше твои программы чем тот же протеус?

[Gordon Shumway]

Доброго времени суток, уважаемые Коты !

Есть такая проблема: есть говорящий девайс. Источник взял тут и переделал под свои нужды. Устройство складывает из слов предложения и говорит время. Фразы записаны на SD-карте, используются библиотеки "Config_MMC.bas" и "Config_AVR-DOS.BAS". А вопрос такой: при складывании фраз между словами всегда есть заметный треск, щелчки.

Кусочек кода вывода звука:

Спойлер

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

'Saytime:

Select Case Ho

Case 0 : Sayho = "0h.wav"
Case 1 : Sayho = "1h.wav"
Case 2 : Sayho = "2h.wav"
Case 3 : Sayho = "3h.wav"
Case 4 : Sayho = "4h.wav"
Case 5 : Sayho = "5h.wav"
Case 6 : Sayho = "6h.wav"
Case 7 : Sayho = "7h.wav"
Case 8 : Sayho = "8h.wav"
Case 9 : Sayho = "9h.wav"
Case 10 : Sayho = "10h.wav"
Case 11 : Sayho = "11h.wav"
Case 12 : Sayho = "12h.wav"
Case 13 : Sayho = "13h.wav"
Case 14 : Sayho = "14h.wav"
Case 15 : Sayho = "15h.wav"
Case 16 : Sayho = "16h.wav"
Case 17 : Sayho = "17h.wav"
Case 18 : Sayho = "18h.wav"
Case 19 : Sayho = "19h.wav"
Case 20 : Sayho = "20h.wav"
Case 21 : Sayho = "21h.wav"
Case 22 : Sayho = "22h.wav"
Case 23 : Sayho = "23h.wav"

End Select

S = "vremya.wav"    'говорим фразу "точное время"

Open S For Binary As #1
Do
Get #1 , B
Pwm1a = B

Waitus 32

Loop Until Eof(#1) <> 0
Pwm1a = 0
Close #1

S = Sayho                'говорим часы

Open S For Binary As #1
Do
Get #1 , B
Pwm1a = B

Waitus 32

Loop Until Eof(#1) <> 0
Pwm1a = 0
Close #1

'----------

Select Case Mi                  

Case 0 : Saymi = "0m.wav"
Case 1 : Saymi = "1m.wav"
Case 2 : Saymi = "2m.wav"
Case 3 : Saymi = "3m.wav"
Case 4 : Saymi = "4m.wav"
Case 5 : Saymi = "5m.wav"
Case 6 : Saymi = "6m.wav"
Case 7 : Saymi = "7m.wav"
Case 8 : Saymi = "8m.wav"
Case 9 : Saymi = "9m.wav"
Case 10 : Saymi = "10m.wav"
Case 11 : Saymi = "11m.wav"
Case 12 : Saymi = "12m.wav"
Case 13 : Saymi = "13m.wav"
Case 14 : Saymi = "14m.wav"
Case 15 : Saymi = "15m.wav"
Case 16 : Saymi = "16m.wav"
Case 17 : Saymi = "17m.wav"
Case 18 : Saymi = "18m.wav"
Case 19 : Saymi = "19m.wav"
Case 20 : Saymi = "20m.wav"
Case 21 : Saymi = "21m.wav"
Case 22 : Saymi = "22m.wav"
Case 23 : Saymi = "23m.wav"
Case 24 : Saymi = "24m.wav"
Case 25 : Saymi = "25m.wav"
Case 26 : Saymi = "26m.wav"
Case 27 : Saymi = "27m.wav"
Case 28 : Saymi = "28m.wav"
Case 29 : Saymi = "29m.wav"
Case 30 : Saymi = "30m.wav"
Case 31 : Saymi = "31m.wav"
Case 32 : Saymi = "32m.wav"
Case 33 : Saymi = "33m.wav"
Case 34 : Saymi = "34m.wav"
Case 35 : Saymi = "35m.wav"
Case 36 : Saymi = "36m.wav"
Case 37 : Saymi = "37m.wav"
Case 38 : Saymi = "38m.wav"
Case 39 : Saymi = "39m.wav"
Case 40 : Saymi = "40m.wav"
Case 41 : Saymi = "41m.wav"
Case 42 : Saymi = "42m.wav"
Case 43 : Saymi = "43m.wav"
Case 44 : Saymi = "44m.wav"
Case 45 : Saymi = "45m.wav"
Case 46 : Saymi = "46m.wav"
Case 47 : Saymi = "47m.wav"
Case 48 : Saymi = "48m.wav"
Case 49 : Saymi = "49m.wav"
Case 50 : Saymi = "50m.wav"
Case 51 : Saymi = "51m.wav"
Case 52 : Saymi = "52m.wav"
Case 53 : Saymi = "53m.wav"
Case 54 : Saymi = "54m.wav"
Case 55 : Saymi = "55m.wav"
Case 56 : Saymi = "56m.wav"
Case 57 : Saymi = "57m.wav"
Case 58 : Saymi = "58m.wav"
Case 59 : Saymi = "59m.wav"

End Select              

S = Saymi                            'говорим минуты

Open S For Binary As #1
Do
Get #1 , B
Pwm1a = B

Waitus 32

Loop Until Eof(#1) <> 0
Pwm1a = 0
Close #1

Wait 1

Gifr = 64

Return

Пробовал убрать в конце каждого цикла Pwm1a = 0, но не помогает. Судя по всему щелчок появляется при открытии файла и при закрытии.

Как бы это победить ?

[ИС-пытатель]

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

[Gordon Shumway]

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

Динамик на время тестирования подключен к ОС1А через электролит. Потом тут будет схема вывода звука в тел. линию.
Мне кажется, что щелчки возникают в моменты включения/выключения таймера. По идее нужно как-то объяснить микроконтроллеру, что не нужно выключать после каждого слова, но пока ничего не получилось. Маленькую емкость пробовал - не помогло.

[ИС-пытатель]

Тогда надо делать без использования библиотек. ручками. Потому что библиотека скорее всего приводит все в исходное состояние, которое было до обращения к ней. Или еще вариант - НЧ фильтр перед динамиком (хотя бы ту же RC-цепь)

[Gordon Shumway]

Что-то опять немного завис...

А как реализовать часы на асинхронном таймере на Меге32 ? Опыта с ней немного, что-то разобраться не могу. Куда кварц 32768 подключать ? Какой таймер использовать ? ОС1А уже занят - выводит голос.
DS1307 от трех вольт не работает (вернее спит).
Дайте умный пинок плз !

[ИС-пытатель]

Асинхронник 8-битный. И обычно таймер 2. Там 2 ноги должны быть TOSC2 и TOSK1
С прошлой-то проблемой разобрались?

[Gordon Shumway]

С прошлой-то проблемой разобрались?

Спасибо ! Пока отложил, чтобы мозги освежились. У меня такое бывает - потом неожиданно решение придет.

[max50]

DS1307 от трех вольт не работает (вернее спит).

Возьмите DS1338Z, работает от 3 В.

[Gordon Shumway]

Возьмите DS1338Z, работает от 3 В.

Она похожа 1307, в Баскоме с ней проблемы нет ? Просто это как раз то, что нужно для проекта ! Спасибо !

[max50]

в Баскоме с ней проблемы нет ?

Сам с ней еще не работал(пока лежит до лучших времен), по описанию вроде все одинаково.

[pavel1979]

А как реализовать часы на асинхронном таймере на Меге32 ? Опыта с ней немного, что-то разобраться не могу. Куда кварц 32768 подключать ? Какой таймер использовать ?
Дайте умный пинок плз !

немного не так-кварц к РС6 и РС7 (выв 28 и 29),часы сами работают на прерывании,примерно так
$regfile = "m32def.dat" ' мега32
$crystal = 8000000 тут не важно,как стоит в вашей говорилке так и оставьте
Config Clock = Soft ' конфигурируем совтовые часы
_sec = 0 : _min = 0 : _hour = 0 ' задаем конкретные значения времени, с которого часы будут начинать считать при включении питания
ну а потом просто считываем _sec _min _hour ,более их нигде описывать не надо
и все!

[Gordon Shumway]

немного не так-кварц к РС6 и РС7 (выв 28 и 29),часы сами работают на прерывании,примерно так
$regfile = "m32def.dat" ' мега32
$crystal = 8000000 тут не важно,как стоит в вашей говорилке так и оставьте
Config Clock = Soft ' конфигурируем совтовые часы
_sec = 0 : _min = 0 : _hour = 0 ' задаем конкретные значения времени, с которого часы будут начинать считать при включении питания
ну а потом просто считываем _sec _min _hour ,более их нигде описывать не надо
и все!

Спасибо, уже наковырял код, даже работает ! Но тут посоветовали решение на DS1338 - оно мне всё-таки удобнее. Сейчас в Чип поеду...

[pavel1979]

ох и завидую вам-магазин рядом,у меня в радиусе 200 км ничего кроме батареек
насчет DS1338-хорошее и правильное на мой взгляд решение,поставил резервную батарейку и она тикает сама по себе,у меня на PCF8583 собраны часы,сама микросхема с обвязкой и резервной батарейкой на отдельной плате
результат ждем!!!
попробовал скомпилировать исходник от говорилки,ругается на 2 строчки
$include "Config_MMC.bas"
V = Gbdriveerror
как это исправить?

[Gordon Shumway]

попробовал скомпилировать исходник от говорилки,ругается на 2 строчки
$include "Config_MMC.bas"
V = Gbdriveerror
как это исправить?

Подключаемые библиотеки должны быть в одной папке с вашей программой. Они изначально находятся в папке с Баскомом, в какой-то из подпапок.

[pavel1979]

скопировал оба,ругается на строчку
Dim Abfilehandles(c_filehandlessize) As Integer в программе Config_AVR-DOS.BAS,версия 1.11.9

[Gordon Shumway]

ругается на строчку
Dim Abfilehandles(c_filehandlessize) As Integer в программе Config_AVR-DOS.BAS,версия 1.11.9

А какая ошибка ? И какой камень используете ?

[pavel1979]

камень не менял,мега32,вообще в программе ничего не менял
ошибка-out of sram space=выход за пределы памяти
если ставить мегу128 то все нормально компилируется...