Программирование ATMEL в BASCOM. |
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » Программирование ATMEL в BASCOM. » Таймеры, ШИМ и все про них » ищу исходник генерации звука через ШИМ
Доброго дня
потерял часть данных на своём винчестере,
не могу на форуме найти исходник на BASCOM генерации звука с использованием ШИМ
Помню, что тут качал
там были расписаны и алгоритм, и работа с таймерами
Поиском найти за 2 дня не удалось
Может кто помнит ту тему...?
как назло потребовалось
надо несколько фраз выдать, есть мега128 и нога PB4 (OC0)
решил сам, в сети искал
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
С участком кода Do- Loop всё понятно, идёт поочерёдное считывание байтов и присвоение значения ШИМа.
А зачем этот кусок кода?
Pwm1a = 1 Seek #9 , Pwm1a Config Timer1 = Timer , Prescale = 1 , Compare A Pwm = Disconnect , Clear Timer = 1 Close #9
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)
Вот этот самый seek и смущал...
Вы здесь » Программирование ATMEL в BASCOM. » Таймеры, ШИМ и все про них » ищу исходник генерации звука через ШИМ