Поиск:

Ответ в темуСоздание новой темы Создание опроса
> работа с beep(), срочно 
:(
    Опции темы
maxkap
Дата 26.5.2009, 01:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 7.2.2007
Где: Луганская обл.

Репутация: нет
Всего: -1
короче такая беда:
пишу небольшую игрушку типа "побег из тюрьмы"
для прикола хочу добавить "Мурку" из системного динамика.
если можно киньте  ссылочки какие то, ну или в идеале код.
(в гугл писал, он ничего не ответил).
PM MAIL   Вверх
586
Дата 26.5.2009, 07:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2243
Регистрация: 8.5.2006

Репутация: 57
Всего: 146
Beep(440, 100);
440 -- частота
100 -- длительность (миллисекунды)

У ноты "Ля", например, частота 440 Гц.

Это сообщение отредактировал(а) 586 - 26.5.2009, 07:44
PM   Вверх
maxkap
Дата 30.5.2009, 21:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 7.2.2007
Где: Луганская обл.

Репутация: нет
Всего: -1
да это то я знаю.......
но может кто-то знает какой-то сайт с такими мелодиями ?

и еще вопрос:
как мне сделать так что б можно было играть и параллельно воспроизводилась музыка из сис. динамика? smile 
PM MAIL   Вверх
A5uKa
Дата 30.5.2009, 23:38 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


TЋ♥s F1rȜ iƧ BurȠiƞg
***


Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: 2
Всего: 16
Цитата

сайт с такими мелодиями


user posted image
 smile 

Цитата

как мне сделать так что б можно было играть и параллельно воспроизводилась музыка из сис. динамика?


думаю потоки... new thread...  smile 

п.с. выложи код мелодии как закончишь  smile 
PM   Вверх
maxkap
Дата 31.5.2009, 16:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 7.2.2007
Где: Луганская обл.

Репутация: нет
Всего: -1
 smile 
мама родная!!!
как же мне эту хрень в бипер переводить...............
да я еще и частоты нот не знаю, да и вообще и обозначения нот для меня далекое дело.....
ну продолжу поиск, как разберусь обязательно выложу!
PM MAIL   Вверх
Dmi3ev
Дата 31.5.2009, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
Цитата

да я еще и частоты нот не знаю, да и вообще и обозначения нот для меня далекое дело.....

http://svv.on.ufanet.ru/notes.htm
у меня есть прога для новичков в гитаре, там вполне подробно рассказывается о нотах и объединении их в аккорды, если надо, то пиши в личку, кину на мыло...


--------------------
PM MAIL   Вверх
A5uKa
Дата 31.5.2009, 16:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


TЋ♥s F1rȜ iƧ BurȠiƞg
***


Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: 2
Всего: 16
П.с. smile советую новый тип ввести до ре и тд )
П.с.с. думаю тут не одна октава + ещё чёрные кнопки и педаль , но точно не знаю
П.с.с.с. жаль что update-ы сломали мне 6илдер :(

 smile 
скажите как его чинить ? можно-ли от старой rtl120.bpl впихнуть в систему ?

Это сообщение отредактировал(а) A5uKa - 31.5.2009, 16:58
PM   Вверх
Dmi3ev
Дата 31.5.2009, 17:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
для прикола набросал начало елочки... строго не судить... никакие частоты я не знаю...
просто взял тюнер в руки, взял гитару, сыграл елочку и все (потом просто посмотрел, что выдает тюнер)...
слушай, мне эта штука понравилась, поэтому мурку я сделаю, только попозже немного, может завтра...
Код

Beep(247, 500);
Beep(417, 500);
Beep(417, 500);
Beep(370, 500);
Beep(417, 500);
Beep(329, 500);
Beep(247, 500);
Beep(247, 500);


Добавлено через 3 минуты и 19 секунд
думаю смогу подобрать моно версию мурки ))) попробую, думаю, получится ))) идея понравилась, честно говоря, первый раз такое делаю... весело, а то все на гитаре, да на гитаре, а на системном динамике играть тоже надо уметь )))


--------------------
PM MAIL   Вверх
Dmi3ev
Дата 31.5.2009, 17:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
Код

Beep(247, 500);
Beep(417, 500);
Beep(417, 500);
Beep(370, 500);
Beep(417, 500);
Beep(329, 500);
Beep(247, 500);
Beep(247, 500);
Beep(247, 500);
Beep(417, 500);
Beep(417, 500);
Beep(370, 500);
Beep(417, 500);
Beep(497, 500);
Beep(497, 500);
Beep(277, 500);
Beep(277, 500);
Beep(440, 500);
Beep(440, 500);
Beep(417, 500);
Beep(370, 500);
Beep(329, 500);
Beep(247, 500);
Beep(417, 500);
Beep(417, 500);
Beep(370, 500);
Beep(417, 500);
Beep(329, 500);

вот полная елочка, можно подрихтовать немного, но вполне нормальный набросок...

Добавлено @ 17:47
потом добавить повторение последнего куска, а потом это все зациклить и все готово, будет играть...

Добавлено @ 17:49
если что-то не так, то извиняйте, гитару специально не настраивал, это все она виновата  smile 
ну чего? прикольно получилось???  smile 

Это сообщение отредактировал(а) Dmi3ev - 31.5.2009, 18:34


--------------------
PM MAIL   Вверх
AngelDominantes
Дата 31.5.2009, 21:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 29.5.2009

Репутация: нет
Всего: нет
Отлично получилось) но вот в момент когда пается: . . .В лесу она росла. Зимой и летом стройная . . .небольшой косяк) а так понравилось
PM MAIL   Вверх
Dmi3ev
Дата 31.5.2009, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
Цитата

Отлично получилось) но вот в момент когда пается: . . .В лесу она росла. Зимой и летом стройная . . .небольшой косяк) а так понравилось

да, сам заметил, исправил, нужно паузу добавить, вот код:
Код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Beep(247, 500);
Beep(417, 500);
Beep(417, 500);
Beep(370, 500);
Beep(417, 500);
Beep(329, 500);
Beep(247, 500);
Beep(247, 500);


Beep(247, 500);
Beep(417, 500);
Beep(417, 500);
Beep(370, 500);
Beep(417, 500);
Beep(497, 500);

Sleep(500);

Beep(497, 500);
Beep(277, 500);
Beep(277, 500);
Beep(440, 500);
Beep(440, 500);
Beep(417, 500);
Beep(370, 500);
Beep(329, 500);

Beep(247, 500);
Beep(417, 500);
Beep(417, 500);
Beep(370, 500);
Beep(417, 500);
Beep(329, 500);
}

так вроде нормально...

Добавлено через 2 минуты и 8 секунд
прикольная тема, не задумывался об игре с помощью системного динамика, мне понравилось... сама идея, ясно, что можно записать любую музыку и воспроизводить мр3 или еще что, но так как-то прикольно получается... меня порадовала идея, зацепила так сказать... не знаю почему, поэтому прошу не обращать внимания на количество постов в этой теме, просто порадовало... что сделаешь...

Добавлено через 5 минут и 25 секунд
я понял, что это мне напомнило... есть музыкальные кружки, поднимаешь ее и музыка начинает играть, ставишь, музыки нет... так вот, не знаю как сейчас, но когда они только появились, музыка была точно такая же, как с помощью динамика когда делаешь...


--------------------
PM MAIL   Вверх
Dmi3ev
Дата 31.5.2009, 22:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
Код

Beep(163, 500);
Sleep(100);
Beep(163, 500);
Beep(154, 500);
Beep(163, 500);
Beep(173, 500);
Beep(163, 500);
Sleep(200);

Beep(146, 500);
Beep(130, 500);
Beep(122, 500);
Beep(130, 500);
Beep(122, 500);
Beep(219, 500);
Sleep(200);

Beep(219, 500);
Sleep(100);
Beep(219, 500);
Beep(208, 500);
Beep(219, 500);
Beep(247, 500);
Beep(219, 500);
Beep(208, 500);
Beep(219, 500);
Beep(247, 500);
Sleep(200);

Beep(262, 500);
Beep(246, 500);
Beep(219, 500);
Beep(208, 500);
Beep(247, 500);
Beep(219, 500);
Sleep(100);
Beep(219, 500);
Beep(247, 500);
Beep(173, 500);
Beep(163, 500);
Beep(247, 500);
Beep(173, 500);
Sleep(100);

Beep(163, 500);
Beep(163, 500);
Beep(194, 500);
Beep(173, 500);
Beep(163, 500);
Beep(145, 500);
Beep(130, 500);
Beep(123, 500);
Beep(110, 500);

вот мурка, тоже есть пару косяков, первую часть старался, вторую лень было делать хорошо, но вполне покатит...
слушайте! вроде нормально... можно уловить мелодию!


--------------------
PM MAIL   Вверх
Dmi3ev
Дата 31.5.2009, 23:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
Хочешь модный рингтон на свой PC? Отправь смс со словом BeepDmi3ev на номер 4342 и наслаждайся нереальным качеством звука  smile 
стоимость услуги 256 рублей без НДС. Для граждан Вьетнама скидки. Для граждан Аргентины ваще бесплатно.


 smile  smile  smile 

Это сообщение отредактировал(а) Dmi3ev - 31.5.2009, 23:41


--------------------
PM MAIL   Вверх
AngelDominantes
Дата 1.6.2009, 02:00 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 29.5.2009

Репутация: нет
Всего: нет
user posted image

Ыч )

Это сообщение отредактировал(а) AngelDominantes - 1.6.2009, 02:11
PM MAIL   Вверх
Dmi3ev
Дата 1.6.2009, 02:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
Цитата

user posted image

Ыч ) 

чЯво?


--------------------
PM MAIL   Вверх
Dmi3ev
Дата 1.6.2009, 14:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
AngelDominantes, уже пиратские копии сделал  smile как быстро работают эти воротилы пиратского бизнеса...  smile 


--------------------
PM MAIL   Вверх
A5uKa
Дата 1.6.2009, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


TЋ♥s F1rȜ iƧ BurȠiƞg
***


Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: 2
Всего: 16
хаха ))) а где ссылка "Качать" , нафига мне кнопки на рисунке smile Они не тыкаются
PM   Вверх
Dmi3ev
Дата 1.6.2009, 15:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
Цитата

хаха ))) а где ссылка "Качать" , нафига мне кнопки на рисунке smile Они не тыкаются 

Ссылка появится только после отправки смс   smile 
Вот Ёлочка лучше получилась гораздо, чем Мурка... может попробую еще моно вариант подобрать потом, пока надоело ))) не задумывался, что так легко и просто можно играть на системном динамике, 5 минут и мелодия готова... ваще круто, меня порадовала сама идея... спасибо автору темы...


--------------------
PM MAIL   Вверх
A5uKa
Дата 1.6.2009, 17:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


TЋ♥s F1rȜ iƧ BurȠiƞg
***


Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: 2
Всего: 16
Dmi3ev опиши как ты это быстро делаешь )  у меня пара других идей есть 

п.с. что будет если запустить 2 одновременно :/

Это сообщение отредактировал(а) A5uKa - 1.6.2009, 17:25
PM   Вверх
Dmi3ev
Дата 1.6.2009, 18:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41
Цитата

Dmi3ev опиши как ты это быстро делаешь )  у меня пара других идей есть 

п.с. что будет если запустить 2 одновременно :/

я делаю это так
1) беру в руки гитару
2) открываю на компе прогу тюнер Музлэнда, самый хороший гитарный и бесплатный тюнер... с сайта Музлэнда
3) дальше начинаю играть мелодию на гитаре (по нотам, но можно и по табам, если с нотами туго), только после каждой сыгранной струны смотрю, что показывает тюнер (частоту) и записываю в столбик на бумажке
4) при этом примерно расставляю паузы
5) записываю это все программно
хотя есть идея создать программу, где уже будут заложены частоты каждой струны на каждом ладу, так будет быстрее... она будет генерить файл, который просто потом надо будет вставить на событие формы или еще на что-нибудь...
я делаю это вот так, и ёлочка очень даже получилась, больше старался, а вторую мелодию примерно сделал, потому как лень уже было...


--------------------
PM MAIL   Вверх
A5uKa
Дата 1.6.2009, 18:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


TЋ♥s F1rȜ iƧ BurȠiƞg
***


Профиль
Группа: Awaiting Authorisation
Сообщений: 1928
Регистрация: 30.8.2008

Репутация: 2
Всего: 16
Цитата

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


Давай  smile 

этого ещё не было
PM   Вверх
KostX
  Дата 1.4.2012, 11:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 30.4.2011

Репутация: нет
Всего: нет
Кому мож пригодится. Себе как-то набрал частоты нот в переменные. Так проще писать и переводить ноты в beep. Вот, делюсь=)

Присоединённый файл ( Кол-во скачиваний: 20 )
Присоединённый файл  Notes.h 2,27 Kb
PM MAIL   Вверх
KostX
  Дата 1.4.2012, 11:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 30.4.2011

Репутация: нет
Всего: нет
Пример использования:

Код

Beep(A_4, Speed);
     Beep(Cd5, Speed);
     Beep(Fd4, Speed);
     Beep(Cd5, Speed);
     Beep(A_4, Speed);
     Beep(Cd5, Speed);
     Beep(Fd4, Speed);
     Beep(Cd5, Speed);


     Beep(H_4, Speed);
     Beep(Dd5, Speed);
     Beep(Gd4, Speed);
     Beep(Dd5, Speed);
     Beep(H_4, Speed);
     Beep(Dd5, Speed);
     Beep(Gd4, Speed);
     Beep(Dd5, Speed);

     Beep(Cd4, Speed);
     Beep(Fd5, Speed);
     Beep(H_4, Speed);
     Beep(Fd5, Speed);
     Beep(Cd4, Speed);
     Beep(Fd5, Speed);
     Beep(H_4, Speed);
     Beep(Fd5, Speed);
     Beep(Cd4, Speed);
     Beep(Fd5, Speed);
     Beep(H_4, Speed);
     Beep(Fd5, Speed);
     Beep(Cd4, Speed);
     Beep(Fd5, Speed);
     Beep(H_4, Speed);
     Beep(Fd5, Speed);


Это сообщение отредактировал(а) KostX - 1.4.2012, 11:46
PM MAIL   Вверх
KostX
  Дата 1.4.2012, 11:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 30.4.2011

Репутация: нет
Всего: нет
А кто-нибудь знает, как программно включить динамик? Виндой, через некоторое время звук выключается, если музыка не играет (звуки не воспроизводятся). Так вот. У меня такой прикол: Если щелкнуть папку, или музыку включить - то звук в моей программе работает. А через несколько секунд винда выключает колонки (как звук исчезнет), а моим Beep()'ом звук не включаются. По-любому есть способ их включить, мож кто подскажет как врубить звук???

Это сообщение отредактировал(а) KostX - 1.4.2012, 11:45
PM MAIL   Вверх
xvr
Дата 2.4.2012, 15:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223
 smile 
Цитата(KostX @  1.4.2012,  11:45 Найти цитируемый пост)
А кто-нибудь знает, как программно включить динамик?

Неправильно вопрос задаешь - связи с темой нету. Надо так:

Цитата(KostX @  1.4.2012,  11:45 Найти цитируемый пост)
А кто-нибудь знает <beep>, как программно включить этот <beep> динамик? Этой <beep> Виндой, через некоторое время звук выключается на <beep>, если музыка не играет. 

 smile 

PS. Пардон, не удержался.



Это сообщение отредактировал(а) xvr - 2.4.2012, 15:27
PM MAIL   Вверх
KostX
Дата 2.4.2012, 15:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 30.4.2011

Репутация: нет
Всего: нет
Ты не правильно понял вопрос и не туда подставил <beep>. Это уже моя вина, согласен. под "динамиком" я имел ввиду выход аудиокарты.

ps: уже нашел решение проблемы. 
PM MAIL   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0873 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.