Не играют звуки в Turbo Pascal и Free Pascal

@Dinchanin · Регистрация: 06.07.2010

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Uses CRT;
Procedure mi;
  Begin sound(659); Delay(500); nosound; Delay(20); End;
Procedure do1;
  Begin sound(523); Delay(500); nosound; Delay(20); End;
Procedure fa;
  Begin sound(698); Delay(500); nosound; Delay(20); End;
Procedure re;
  Begin sound(587); Delay(500); nosound; Delay(20); End;
Procedure sol;
  Begin sound(784); Delay(500); nosound; Delay(20); End;
Procedure lya;
  Begin sound(880); Delay(500); nosound; Delay(20); End;
Procedure si;
  Begin sound(988); Delay(500); nosound; Delay(20); End;
     BEGIN
        mi; do1; mi; do1; fa; mi; re; sol; sol; lya; si; do1; do1; do1;
  ReadLn;
     End.

Почему в Turbo Pascal 7.0, а так же Free Pascal не работают эти звуковые процедуры?

В Turbo Pascal ничего не слышно ВООБЩЕ, а в Free Pascal играет каждый раз звук на каждой ноте, точно по коду, но этим звуком охарактеризовали ошибки в windows, то есть каждую ноту воспроизводит, такую же как при допущении ошибки, при этом в коде синтаксических ошибок программы не обнаружили...

Добавлено через 1 час 52 минуты
никто не знает, в чём проблема?

@Puporev · 13.07.2010, 20:39

Не знаю, дело не в программе, у меня нормально играет Чижик=пыжик.

Добавлено через 3 минуты
Это в Турбо Паскале. Во Фрее не играет совсем, но там наверное что-то поменять нужно.

Добавлено через 56 секунд
Во Фрее нужно CRT заменить на WINCRT

Добавлено через 1 минуту
Кстати высота и тон звуков в Турбо и Фрее отличаются.

@Dinchanin · 15.07.2010, 00:18 **[ТС]**

а не нужно указывать в настройках Паскаля что-то типа звуковых драйверов? просто я с Вашего сайта скачал TP 7 от Puporev и там путь к графическому драйверу указан и поэтому всё работает с графикой. а со звуком ни в какую! нужно ли для звука что-то конкретное ещё прописывать?

Добавлено через 4 минуты
я поставил windows xp sp3 и всё равно не работает!(был windows 7)

@Puporev · 15.07.2010, 07:41

Для того чтобы работал звук, нужен только модуль crt в Турбо Паскале или модуль wincrt в Фрее Паскале.
Никакие пути к ним прописывать не нужно, это не драйвера, они просто должны быть в папке с программой.

@WolfCF · 15.07.2010, 07:51

Не по теме:

Puporev, а звук от встроенного динамика идёт?

@Puporev · 15.07.2010, 07:52

Wolf, Ну конечно, откуда же еще в Досе?
Это тот же beep

@Dinchanin · 15.07.2010, 11:07 **[ТС]**

а что сделать можно то?

просто не пойму-всё же верно прописано в коде! динамики прекрасно работают...

Добавлено через 5 минут
Puporev, а сможешь скинуть свою папку с TP7, только не ту,которую можно скачать с главной страницы (без программ, написанных тобой)? мало ли, вдруг заработает...

Jabbson · 15.07.2010, 14:32

Сообщение от Dinchanin

динамики

тут вроде как встроенный "бипер", а не динамики.

А Вы уверены, что стоят все и парвильные драйвера для материнской платы?
Проводок от спикера идет куда надо? (Свериться с мануалом к плате)
В реестре HKEY_CURRENT_USER\Control Panel\Sound\Beep=yes ?

Для WIN7

откройте диспетчер устройств, в меню Вид выберите Показать скрытые устройства. Далее, в разделе Драйверы несамонастраиваемых устройств найдите Beep или Dynamic Volume Manager. Щелкните правой кнопкой мыши - Свойства - Драйвер. Убедитесь, что тип автозагрузки - Загрузка.

В XP
Диспетчер устройств (Device Manager) - Системные устройства (System Devices) - Системный спикер (System Speaker) уточнить не отключено ли.

У меня у самого в TP не работает звук. Во Фри Паскале - с WINCRT работает на ура.

@Puporev · 15.07.2010, 15:36

Сообщение от Jabbson

тут вроде как встроенный "бипер", а не динамики.

Ну я это и имел ввиду когда написал встроенный динамик.

Добавлено через 1 минуту
Dinchanin, Если у тебя неполадки в компьютере, то хоть 10 Паскалей ставь. А там ссылка именно на мой Паскаль и есть, у меня нет другого.

@Mad_Dog · 15.07.2010, 15:44

Вот обычная пищалка... Если внутренний динамик работает, то наслаждайтесь...

Pascal
1
2
3
4
5
6
7
Program Beeper;
Uses Crt;
Begin
  repeat
    write(#7)
  until KeyPressed
End.

Причем интересно то, что запускаю из среды - пищит, из под Винды - не пищит...
Сделал ярлык программы и запускаю в полноэкранном режиме - пищит...

@Puporev · 15.07.2010, 15:51

Mad_Dog, У меня это как ни странно никогда не работало...

Jabbson · 15.07.2010, 15:54

Сообщение от Puporev

Mad_Dog, У меня это как ни странно никогда не работало...

а у меня с crt не работает, а с wincrt пищит, но фиг заткнешь - вешается напрочь и верещит. Только тремя пальцами.

@Mad_Dog · 15.07.2010, 15:55

А я, когда работал под Dos'ом в еще те далекие времена, частенько этой фигней пользовался...
А вот это работает в любом режиме

Pascal
1
2
3
4
5
6
7
8
9
10
11
Program Beeper;
Uses Crt;
Begin
  repeat
    {write(#7)}
    Sound(1000);
    delay(1000);
    nosound;
    delay(1000)
  until KeyPressed
End.

@Puporev · 15.07.2010, 16:08

Это работает, хотя по идее и #7 должно работать, но ......

@Mad_Dog · 15.07.2010, 16:22

Единственное, что приходит на ум - это различные процедуры управления таймером и каналом управления встроенным динамиком в этих sound и #7... (По крайней мере в Винде)

@Dinchanin · 20.07.2010, 17:44 **[ТС]**

Сообщение от Puporev

Это работает, хотя по идее и #7 должно работать, но ......

...но... до сих пор у меня звук не работает!

Добавлено через 5 минут
Я создал мини-программу. Хочу попробовать воспроизвести звук на другом компьютере. Какие файлы нужно перенести с собой, что бы работала графика и звук? На втором ПК не стоит Паскаль и подобное. И эти файлы нужно будет оставить вместе с *.exe файлом в одной и той же папке? Надо ли специально путь к этим файлам прописывать?

@Puporev · 20.07.2010, 19:24

Dinchanin, Для звука ничего не нужно, только файл .exe.
Для графики модуль Egаvga.bgi и файл .exe. все в одной папке, из нее и запускать.

Новые блоги и статьи Все статьи Все блоги /
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	13.07.2010, 20:39
	Не знаю, дело не в программе, у меня нормально играет Чижик=пыжик. Добавлено через 3 минуты Это в Турбо Паскале. Во Фрее не играет совсем, но там наверное что-то поменять нужно. Добавлено через 56 секунд Во Фрее нужно CRT заменить на WINCRT Добавлено через 1 минуту Кстати высота и тон звуков в Турбо и Фрее отличаются. 1

@Dinchanin 0 / 0 / 0 Регистрация: 06.07.2010 Сообщений: 28
	15.07.2010, 00:18 [ТС]
	а не нужно указывать в настройках Паскаля что-то типа звуковых драйверов? просто я с Вашего сайта скачал TP 7 от Puporev и там путь к графическому драйверу указан и поэтому всё работает с графикой. а со звуком ни в какую! нужно ли для звука что-то конкретное ещё прописывать? Добавлено через 4 минуты я поставил windows xp sp3 и всё равно не работает!(был windows 7) 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	15.07.2010, 07:41
	Для того чтобы работал звук, нужен только модуль crt в Турбо Паскале или модуль wincrt в Фрее Паскале. Никакие пути к ним прописывать не нужно, это не драйвера, они просто должны быть в папке с программой. 0

@WolfCF
	15.07.2010, 07:51
	Не по теме: Puporev, а звук от встроенного динамика идёт? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	15.07.2010, 07:52
	Wolf, Ну конечно, откуда же еще в Досе? Это тот же beep 1

@Dinchanin 0 / 0 / 0 Регистрация: 06.07.2010 Сообщений: 28
	15.07.2010, 11:07 [ТС]
	а что сделать можно то? просто не пойму-всё же верно прописано в коде! динамики прекрасно работают... Добавлено через 5 минут Puporev, а сможешь скинуть свою папку с TP7, только не ту,которую можно скачать с главной страницы (без программ, написанных тобой)? мало ли, вдруг заработает... 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	15.07.2010, 15:51
	Mad_Dog, У меня это как ни странно никогда не работало... 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	15.07.2010, 16:08
	Это работает, хотя по идее и #7 должно работать, но ...... 0

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	15.07.2010, 16:22
	Единственное, что приходит на ум - это различные процедуры управления таймером и каналом управления встроенным динамиком в этих sound и #7... (По крайней мере в Винде) 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	20.07.2010, 19:24
	Dinchanin, Для звука ничего не нужно, только файл .exe. Для графики модуль Egаvga.bgi и файл .exe. все в одной папке, из нее и запускать. 1