Телесистемы
 Разработка, производство и продажа радиоэлектронной аппаратуры
На главную   | Карта сайта | Пишите нам | В избранное
Требуется программист в Зеленограде
- обработка данных с датчиков; ColdFire; 40 тыс.
e-mail:jobsmp@pochta.ru

Телесистемы | Электроника | Конференция «Микроконтроллеры и их применение»

Как то давно рихтовал себе мелодии с сайтов для Нокии 3310

Отправлено СТАС 07 мая 2008 г. 14:23
В ответ на: Я тут пару дней назад искал мелодии для МК (не программу, а именно мелодии). Кажись, нашел: отправлено <font color=gray>vinogradov</font> 07 мая 2008 г. 11:55

Tones - цифирка, загружаемая в таймер
примерно так: TCNT=Tones[M1[i]]
в массиве мелодии первые 2 байта - темп мелодии.

flash char Tones[37]={0,34,47,58,70,80,90,99,108,116,124,131,138,145,151,157,162,168,
172,177,182,186,190,193,197,200,203,206,209,211,214,216,218,
220,222,224,226};
#define p 0
#define c1 1
#define c1d 2
#define d1 3
#define d1d 4
#define e1 5
#define f1 6
#define f1d 7
#define g1 8
#define g1d 9
#define a1 10
#define a1d 11
#define b1 12

#define c2 13
#define c2d 14
#define d2 15
#define d2d 16
#define e2 17
#define f2 18
#define f2d 19
#define g2 20
#define g2d 21
#define a2 22
#define a2d 23
#define b2 24

#define c3 25
#define c3d 26
#define d3 27
#define d3d 28
#define e3 29
#define f3 30
#define f3d 31
#define g3 32
#define g3d 33
#define a3 34
#define a3d 35
#define b3 36

//Mission Impossible
flash char M1[]={(char)2000,(char)(2000>>8),16,g2,8,p,16,g2,8,p,16,f2,16,p,16,f2d,
16,p,16,g2,8,p,16,g2,
8,p,16,a2d,16,p,16,c3,16,p,16,g2,8,p,16,g2,8,p,16,f2,16,p,16,f2d,
16,p,16,g2,8,p,16,g2,8,p,16,a2d,16,p,16,c3,16,p,16,a2,16,g2,2,d2,32,p,
16,a2d,16,g2,2,c2d,32,p,16,a2d,16,g2,2,c2,16,p,16,a1d,16,c2,0};
//Генералы песчаных
flash char M2[]={(char)1000,(char)(1000>>8),4,d2,4,f2,4,g2,4,a2,4,g2,4,f2,4,e2,2,d2,
4,a2,8,f2,1,g2,4,f2,4,a2,8,g2,1,f2,4,e2,4,g2,8,f2,1,e2,4,d2,4,f2,4,g2,
4,a2,4,g2,4,f2,4,e2,2,d2,2,d3,1,c3,4,a2,4,d3,8,c3,1,a2d,4,g2,4,c3,8,a2d,
1,a2,4,d2,4,f2,4,g2,4,a2,4,g2,4,f2,4,e2,2,d2,4,a2,8,f2,1,g2,4,f2,
4,a2,4,g2,4,f2,4,e2,4,g2,4,f2,2,e2,2,f2,0};
flash char M3[]={(char)2500,(char)(2500>>8),8,e2,16,c2,8,b1,8,a1,8,e2,8,b1,16,b1,
8,c2,8,b1,2,a1,8,a1,16,a1,8,a1,8,a1,8,a1,8,a1,16,c2d,8,e2,8,g2,2,f2,
8,d2,16,d2,8,d2,8,d2,8,g2,8,f2,8,e2,8,d2,8,e2,8,e2,16,e2,8,d2,8,c2,
4,a1,8,p,8,b1,8,b1,8,g2,8,f2,8,e1,16,e1,8,e2,8,c2,8,b1,2,a1,0};
//Не думай о секундах..
flash char M4[]={(char)2000,(char)(2000>>8),16,e1,8,a1,8,a1,16,b1,16,c2,8,d2,8,d2,
16,c2,16,d2,2,e2,4,p,16,e1,8,a1,16,a1,8,a1,16,a1,8,d2,16,d2,8,d2,
16,g1,8,g2,16,g2,2,g2,16,e2,8,f2,16,f2,8,f2,16,f2,8,a2,8,a2,16,g2,
16,f2,2,e2,4,p,16,a1,16,g2,16,f2,8f2,16,p,16,a1,16,e2,16,d2,8,d2,
16,p,16,f1,8,c2,16,b1,2,b1,0};
//Чиж & Co - На поле танки грохотали
flash char M5[]={(char)1500,(char)(1500>>8),8,e1,8,a1,8,e1,8,a1,8,e1,8,a1,8,b1,8,c2,16,
b1,16,a1,4,g1,8,p,8,g1,8,c2,8,d2,8,e2,8,c2,8,d2,8,b1,8,c2,8,g2,8,f2,
8,e2,8,d2,8,a1,2,f2,8,e2,8,d2,8,c2,8,b1,4,a1,8,p,8,b1,8,c2,8,d2,8,e2,
8,d2,8,c2,8,b1,2,a1,0};
// Потому, потому что мы пилоты...
flash char M6[]={(char)1500,(char)(1500>>8),8,d1d,8,d1d,4,c2,8,c2,8,a1d,8,g1d,8,g1d,
8,g1,8,g1d,4,a1d,4,f1,4,p,8,f1,8,f1,4,a1d,8,a1d,8,g1d,8,g1,8,d1d,8,f1,
8,d1d,2,c2,4,p,8,c2,8,c2d,8,d2d,8,c2d,8,c2,8,a1d,8,a1,8,f1,8,c2d,
8,c2,4,a1d,4,f1,4,p,8,g2d,8,g2,8,c3,8,c3,8,c3,8,g1d,8,a1,8,a1d,8,g1d,
8,g1,2,f1,0};
//к/ф "Шерлок Холмс"
flash char M7[]={(char)1500,(char)(1500>>8),8,g1,16,c2,16,p,16,c2,16,p,16,c2,16,p,8,g1,
16,f2,16,p,16,f2,16,p,16,f2,16,p,8,g1,16,d2d,16,p,16,d2d,16,p,16,d2d,
16,d2,16,c2,16,d2,8,d2d,8,g1,8,d2,16,p,0};
//м/ф "Просто так..." (...-А за что? -Просто так! Пам-пам-пам...)
flash char M8[]={(char)2000,(char)(2000>>8),8,c2d,8,e2,8,b2,8,p,8,a2,8,c2d,8,p,8,e2,
8,a2,8,p,8,g2d,8,c2d,8,p,8,e2,8,f2d,8,g2d,8,a2,8,g2d,8,p,8,f2d,4,d2,
4,p,8,d2,8,f2d,8,c2d,8,p,8,b2,8,d2,8,p,8,f2d,8,b2,8,p,8,a2,8,d2,8,p,
8,d2,8,e2,8,f2d,8,g2d,8,f2d,8,p,8,e2,4,c2d,0};
//Наша служба и опасна и трудна...
flash char M9[]={(char)1000,(char)(1000>>8),8,c3,8,p,8,c3,8,d3,8,p,8,c3,8,b2,8,p,8,a2,
8,a2,8,p,8,g2d,8,g2d,8,p,8,a2,8,b2,2,p,8,d3,8,p,8,d3,8,e3,8,p,8,d3,
8,c3,8,p,8,b2,8,b2,8,p,8,a2,8,a2,8,p,8,b2,8,c3,0};
//Europe - The Final Contdown
flash char M10[]={(char)1500,(char)(1500>>8),16,b2,16,a2,4,b2,4,e2,4,p,8,p,16,c3,16,b2,
8,c3,8,b2,4,a2,4,p,8,p,16,c3,16,b2,4,c3,4,e2,4,p,8,p,16,a2,16,g2,8,a2,
8,g2,8,f2d,8,a2,4,g2,8,p,16,f2d,16,g2,4,a2,8,p,16,g2,16,a2,8,b2,8,a2,
8,g2,8,f2d,4,e2,4,c3,2,b2,4,p,16,b2,16,c3,16,b2,16,a2,1,b2,0};
//Mission Impossible
/*flash char M16[]={(char)1500,(char)(1500>>8),8,a1d,8,a1d,8,a1d,8,c2d,8,d2d,8,a1d,8,a1d,
8,a1d,8,g1d,8,a1,8,a1d,8,a1d,8,a1d,8,c2d,8,d2d,8,a1d,8,a1d,8,a1d,8,g1d,
16,a1,16,c2d,16,a2d,2,f2,16,c2d,16,a2d,2,e2,16,c2d,16,a2d,2,d2d,16,c2d,
2,d2d,16,c2d,16,a2d,2,a2d,16,c2d,16,a2d,2,a2,16,c2d,16,a2d,2,g2d,
16,g2,2,f2d,16,c2d,16,a2d,2,f2,16,c2d,16,a2d,2,e2,16,c2d,16,a2d,0};*/
//Борис Гребенщиков - Город золотой
flash char M16[]={(char)1500,(char)(1500>>8),8,c2d,4,d2,4,c2d,4,b1,4,a1d,4,b1,8,c2d,8,d2,
4,b1,8,p,8,f1d,4,f2d,4,e2,4,d2,4,c2d,4,d2,8,d2,8,e2,4,f2,4,b1,4,g2,8,p,
8,f2d,4,e2,8,p,8,d2,8,c2d,8,d2,4,e2,4,p,8,f2d,8,g2,4,f2d,4,e2,4,d2,4,e2,
4,c2d,4,f1d,4,f2d,0};
//Игорь Корнелюк - Криминальный Петербург (Адвокат) (припев)
flash char M17[]={(char)2000,(char)(2000>>8),4,a1,8,f1,16,g1,8,a1,8,d2,8,e2,16,f2,2,a1d,
8,p,8,d2,8,e2,16,f2,2,a1d,8,p,16,d2,8,g2,8,d2,2,f2,2,e2,4,a1,8,f1,16,g1,
8,a1,8,d2,8,e2,16,f2,2,a1d,8,p,8,d2,8,e2,16,f2,2,a1d,8,p,16,d2,8,g2,8,d2,
2,f2,2,e2,16,d2,16,e2,16,f2,16,e2,8,d2,8,a1,8,g1,16,f1,16,f1,8,e1,
8,f1,1,d1,0};
//БИ2 - Полковнику никто не пишет
flash char M18[]={(char)1500,(char)(1500>>8),8,d1,8,g1,8,c2,8,a1d,8,g1,2,d1,4,p,4,d1,4,d1d,
2,d1,4,f1,16,d1d,4,p,8,d1,8,g1,8,c2,8,a1d,8,g1,2,d1,4,p,4,d1,4,d1d,2,d1,
8,a1d,2,a1d,8,a1,2,a1,8,a1d,2,a1d,8,a1,2,a1,0};


Составить ответ | Вернуться на конференцию

Ответы


Отправка ответа
Имя*: 
Пароль: 
E-mail: 
Тема*:

Сообщение:

Ссылка на URL: 
URL изображения: 

если вы незарегистрированный на форуме пользователь, то
для успешного добавления сообщения заполните поле, как указано ниже:
поделите 6 на два:

Перейти к списку ответов | Конференция | Раздел "Электроника" | Главная страница | Карта сайта

Rambler's Top100 Рейтинг@Mail.ru
 
Web telesys.ru