Администрация форума не несёт ответственности за достоверность информации и оставляет за собой право редактировать или в особых случаях даже удалять посты без предупреждения. Спасибо за понимание.

Программирование ATMEL в BASCOM.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Программирование ATMEL в BASCOM. » Вопросы - ответы » ищу исходник генерации звука через ШИМ


ищу исходник генерации звука через ШИМ

Сообщений 1 страница 6 из 6

1

Доброго дня
потерял часть данных на своём винчестере,
не могу на форуме найти исходник на BASCOM генерации звука с использованием ШИМ
Помню, что тут качал

там были расписаны и алгоритм, и работа с таймерами
Поиском найти за 2 дня не удалось
Может кто помнит ту тему...?
как назло потребовалось

надо несколько фраз выдать, есть мега128 и нога PB4 (OC0)

0

2

Помню говорилку.
AN #165 - RC2 sound  говорилка
http://bascom.at.ua/publ/sintezator_rechi_wav/1-1-0-82

0

3

решил сам, в сети искал

Код:
Open "1.wav" For Binary As #9
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down

Do
   Waitus 95                     ' wav 8000Hz
   Get #9 , Mybyte
   Pwm1a = Mybyte
Loop Until Eof(#9) <> 0

Pwm1a = 1
Seek #9 , Pwm1a
Config Timer1 = Timer , Prescale = 1 , Compare A Pwm = Disconnect , Clear Timer = 1
Close #9

0

4

С участком кода Do- Loop всё понятно, идёт поочерёдное считывание байтов и присвоение значения ШИМа.
А зачем этот кусок кода?

Код:
Pwm1a = 1
Seek #9 , Pwm1a
Config Timer1 = Timer , Prescale = 1 , Compare A Pwm = Disconnect , Clear Timer = 1
Close #9

0

5

Pwm1a = 1
Config Timer1 = Timer , Prescale = 1 , Compare A Pwm = Disconnect , Clear Timer = 1

отключить ШИМ, чтобы не шипел динамик, а то писк разрдражал

Close #9
закрыть файл, от греха подальше... :)

seek - случайно осталось от другой версии

на ноге 15 у мега128
oc1a (вроде)

звук приемлем для голоса. Еще записать на студии и нормализацию по амплитуде - и вообще конфетка )

Отредактировано Александр Д. (2014-10-31 10:04:51)

0

6

Вот этот самый seek и смущал... :)

0


Вы здесь » Программирование ATMEL в BASCOM. » Вопросы - ответы » ищу исходник генерации звука через ШИМ