Непонял с динамиком - Общие вопросы Delphi

Михаил Юрьевич · 27.01.2008, 22:57

Нужно что бы при нажатии на Button срабатывал встроенный
динамик PC Speaker,я уже задавал такой вопрос ,
ответили функция Beep,но не могу разобраться куда ее
написать,если можно поподробнее или рабочий исходничок

Terran · 27.01.2008, 23:05

procedure TForm1.Button1Click(Sender: TObject);
begin
Windows.Beep(900,300);
end;

где 900 это частота с которой будет пищать системный динамик, а 300 это время которое он будет пищать.=)
Всё просто.

Ermiss · 27.01.2008, 23:13

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

AlDelta · 27.01.2008, 23:20

Так в той теме и нужно было спрашивать, хотя там дан аналогичный ответ, осталось только пошевелить мозгом.
Кросс постинг не приветствуется и Михаил Юрьевич должен был это заметить.

Почитайте какую-нибудь книгу по дельфям, будет очень кстати.

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

Лубышев · 27.01.2008, 23:26

А это Windows.Beep(900,300); хорохая вешь.
А я долго думал как воспроизвести звук через системный динамик!
Мне давали невероятнейшие коды на асемблере. а тут просто бип и все

Stilet · 28.01.2008, 08:33

Ответ на вопрос дан полностью и исчерпывающе.
Тему закрываю, тем более что такая уже была

27.01.2008, 22:57	#1
Михаил Юрьевич Форумчанин Регистрация: 25.12.2007 Сообщений: 655	Непонял с динамиком Нужно что бы при нажатии на Button срабатывал встроенный динамик PC Speaker,я уже задавал такой вопрос , ответили функция Beep,но не могу разобраться куда ее написать,если можно поподробнее или рабочий исходничок За частые поиски был забанен во всех известных поисковых системах!

27.01.2008, 23:05	#2
Terran Участник клуба Регистрация: 28.11.2007 Сообщений: 1,521	procedure TForm1.Button1Click(Sender: TObject); begin Windows.Beep(900,300); end; где 900 это частота с которой будет пищать системный динамик, а 300 это время которое он будет пищать.=) Всё просто. Всегда рад помочь!

27.01.2008, 23:20	#4
AlDelta Реанимируюсь... Участник клуба Регистрация: 19.07.2007 Сообщений: 1,445	Так в той теме и нужно было спрашивать, хотя там дан аналогичный ответ, осталось только пошевелить мозгом. Кросс постинг не приветствуется и Михаил Юрьевич должен был это заметить. Почитайте какую-нибудь книгу по дельфям, будет очень кстати. Для того, что бы что-то было впрок, нужно хоть немного самостоятельных действий. Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте. Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с) название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"

27.01.2008, 23:26	#5
Лубышев Участник клуба Регистрация: 23.07.2007 Сообщений: 1,054	А это Windows.Beep(900,300); хорохая вешь. А я долго думал как воспроизвести звук через системный динамик! Мне давали невероятнейшие коды на асемблере. а тут просто бип и все Писано по д'Эльфийски Последний раз редактировалось Лубышев; 27.01.2008 в 23:29.

28.01.2008, 08:33	#6
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Ответ на вопрос дан полностью и исчерпывающе. Тему закрываю, тем более что такая уже была I'm learning to live...

27.01.2008, 23:13	#3
Ermiss Пользователь Регистрация: 31.10.2007 Сообщений: 62	Прикольная вещь, можно сделать несколько записей и мелодию какую нить состряпать. У знакомого была подобная, что она на каждый час играла Гимн России старый