Замена операторов Sound, Delay, NoSound

@Mix@siK · Регистрация: 02.06.2012

Подскажите пожалуйста, где-то здесь видел тему, в ней было объяснено как заменить данные операторы в PascalABC .Net, потому что они в нём просто не работают. Искал искал, ну никак найти не могу, и гугл не помогает. Но я точно видел тут эту информацию, даже баловался со звуком как-то)
Помню, одно, оператор имеет вид
оператор (х:у) - где х - это частота, а у - длительность, или наоборот))
и начинается вроде бы на b.что-то там

@КонецСвета · 10.09.2012, 22:24

Mix@siK, возможно, так

Pascal

1
2
3

begin
system.Console.Beep(500,1000);
end.

@Mix@siK · 10.09.2012, 22:38 **[ТС]**

да да да, оно самое)) спасибо большое))

@Mix@siK · 11.09.2012, 22:41 **[ТС]**

а ещё такой вопрос, как организовать оператор Delay?)) вот через system.Console.Beep можно задавать частоту и время звучания, а как паузу сделать между двуми system.Console.Beep? а то они без всяких пауз проигрываются) есть конечно вариант поставить очень высокую частоту, например 30000, человеческое ухо по идее не слышит её, и задать время, и получится что-то вроде паузы, но это уже танцы с бубном, я думаю есть другой выход))

@КонецСвета · 11.09.2012, 22:48

Pascal

begin
system.Console.Beep(500,1000);
sleep(1000);
system.Console.Beep(500,1000);
end.

@Mix@siK · 11.09.2012, 22:52 **[ТС]**

спасибо) ну а как понимаю в операторе выполняющем функцию турбо паскалевского NoSound тут просто нет смысла?) это в ТП7 спикер начинал пищать при операторе Sound (300) к примеру что его можно было заткнуть только перезагрузом или командой NoSound. Тут ничего похожего нет?)

@КонецСвета · 11.09.2012, 23:13

Mix@siK, тут я пас =(
можно еще попробовать с вот такой конструкцией, но у меня старовата версия, только скромный "пик" и все...

Pascal

var
zvuk: system.Media.SoundPlayer;
begin
zvuk:= new system.Media.SoundPlayer;
zvuk.SoundLocation:='I:\1.wav';
zvuk.Play;
{ остановка, параметров не знаю
zvuk.Stop; } 
end.

@Mix@siK 6 / 6 / 2 Регистрация: 02.06.2012 Сообщений: 208
		1
	Замена операторов Sound, Delay, NoSound 10.09.2012, 21:57. Показов 2488. Ответов 6 Метки нет (Все метки) Подскажите пожалуйста, где-то здесь видел тему, в ней было объяснено как заменить данные операторы в PascalABC .Net, потому что они в нём просто не работают. Искал искал, ну никак найти не могу, и гугл не помогает. Но я точно видел тут эту информацию, даже баловался со звуком как-то) Помню, одно, оператор имеет вид оператор (х:у) - где х - это частота, а у - длительность, или наоборот)) и начинается вроде бы на b.что-то там __________________ Помощь в написании контрольных, курсовых и дипломных работ здесь 0

@Mix@siK 6 / 6 / 2 Регистрация: 02.06.2012 Сообщений: 208
	10.09.2012, 22:38 [ТС]	3
	да да да, оно самое)) спасибо большое)) 0

@Mix@siK 6 / 6 / 2 Регистрация: 02.06.2012 Сообщений: 208
	11.09.2012, 22:41 [ТС]	4
	а ещё такой вопрос, как организовать оператор Delay?)) вот через system.Console.Beep можно задавать частоту и время звучания, а как паузу сделать между двуми system.Console.Beep? а то они без всяких пауз проигрываются) есть конечно вариант поставить очень высокую частоту, например 30000, человеческое ухо по идее не слышит её, и задать время, и получится что-то вроде паузы, но это уже танцы с бубном, я думаю есть другой выход)) 0

@Mix@siK 6 / 6 / 2 Регистрация: 02.06.2012 Сообщений: 208
	11.09.2012, 22:52 [ТС]	6
	спасибо) ну а как понимаю в операторе выполняющем функцию турбо паскалевского NoSound тут просто нет смысла?) это в ТП7 спикер начинал пищать при операторе Sound (300) к примеру что его можно было заткнуть только перезагрузом или командой NoSound. Тут ничего похожего нет?) 0

Опции темы