Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
6 / 6 / 2
Регистрация: 02.06.2012
Сообщений: 208
1

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

10.09.2012, 21:57. Показов 2488. Ответов 6
Метки нет (Все метки)

Подскажите пожалуйста, где-то здесь видел тему, в ней было объяснено как заменить данные операторы в PascalABC .Net, потому что они в нём просто не работают. Искал искал, ну никак найти не могу, и гугл не помогает. Но я точно видел тут эту информацию, даже баловался со звуком как-то)
Помню, одно, оператор имеет вид
оператор (х:у) - где х - это частота, а у - длительность, или наоборот))
и начинается вроде бы на b.что-то там
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.09.2012, 21:57
Ответы с готовыми решениями:

Не могу понять почему у меня не работает sound,delay,nosound....
Не могу понять почему у меня не работает sound,delay,nosound.... Пишет ошибку Unitms.cpp(7):...

использование sound() nosound()
#include <iostream> #include <dos.h> void main() { sound(7); delay(1000); nosound(); } ...

Win2012R2 RDP sound random delay
Здравствуйте, ребята. Нужна помощь в решении проблемы, есть терминальный сервер под управлением...

Замена Delay на выводе на LCD экран
Здравствуйте, простите за глупый вопрос. Прочел замену Delay на millis, посмотрел примеры со...

6
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
10.09.2012, 22:24 2
Mix@siK, возможно, так
Pascal
1
2
3
begin
system.Console.Beep(500,1000);
end.
2
6 / 6 / 2
Регистрация: 02.06.2012
Сообщений: 208
10.09.2012, 22:38  [ТС] 3
да да да, оно самое)) спасибо большое))
0
6 / 6 / 2
Регистрация: 02.06.2012
Сообщений: 208
11.09.2012, 22:41  [ТС] 4
а ещё такой вопрос, как организовать оператор Delay?)) вот через system.Console.Beep можно задавать частоту и время звучания, а как паузу сделать между двуми system.Console.Beep? а то они без всяких пауз проигрываются) есть конечно вариант поставить очень высокую частоту, например 30000, человеческое ухо по идее не слышит её, и задать время, и получится что-то вроде паузы, но это уже танцы с бубном, я думаю есть другой выход))
0
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.09.2012, 22:48 5
Pascal
1
2
3
4
5
begin
system.Console.Beep(500,1000);
sleep(1000);
system.Console.Beep(500,1000);
end.
1
6 / 6 / 2
Регистрация: 02.06.2012
Сообщений: 208
11.09.2012, 22:52  [ТС] 6
спасибо) ну а как понимаю в операторе выполняющем функцию турбо паскалевского NoSound тут просто нет смысла?) это в ТП7 спикер начинал пищать при операторе Sound (300) к примеру что его можно было заткнуть только перезагрузом или командой NoSound. Тут ничего похожего нет?)
0
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.09.2012, 23:13 7
Mix@siK, тут я пас =(
можно еще попробовать с вот такой конструкцией, но у меня старовата версия, только скромный "пик" и все...
Pascal
1
2
3
4
5
6
7
8
9
var
zvuk: system.Media.SoundPlayer;
begin
zvuk:= new system.Media.SoundPlayer;
zvuk.SoundLocation:='I:\1.wav';
zvuk.Play;
{ остановка, параметров не знаю
zvuk.Stop; } 
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.09.2012, 23:13

Замена friend-операторов для ref class
Если в ref-классе написать friend operator+(double _Left, MyClass ^_Right), высвечивается ошибка...

Замена операторов if и case для определения четности числа
Нужно сделать задачу без использования операторов if и case. (Задано число n. Если n четное, то...

Задача с использованием логических операторов и операторов ветвления
Вот вам задачка, чтоб голову поломать :D Вася работает программистом и получает 50$ за каждые...

Требуется разработать две программы (или одну с двумя циклами) с использованием операторов повтора (циклических операторов) WHILE и REPEAT
расчитать \sum_{\propto }^{n=1}{-1}^{n}\frac{1}{n(2n+1)} c точностью \alpha 0,001 Нужно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru