Форум.orn
Учеба => Треп студентов => Тема начата: Writeble от 24 Июня 2011, 23:27:53
-
Cинтаксических ошибок в программе нет. Так звук работает нормально. Кто знает из-за чего это может быть просьба написать причину. :(
-
:o
-
pcspeaker в системе не подключен или не предусмотрен ...
-
pcspeaker в системе не подключен или не предусмотрен ...
А не можешь ещё подсказать, как его поключить :-[
-
pcspeaker в системе не подключен или не предусмотрен ...
А не можешь ещё подсказать, как его поключить :-[
возможно потребуется установка виртуального драйвера или даунгрейд компьютера ..
Покажи исходный текст программы которая должна выдавать звук .. чтобы понять конкретно о чем идет речь ..
-
pcspeaker в системе не подключен или не предусмотрен ...
А не можешь ещё подсказать, как его поключить :-[
возможно потребуется установка виртуального драйвера или даунгрейд компьютера ..
Покажи исходный текст программы которая должна выдавать звук .. чтобы понять конкретно о чем идет речь ..
Например вот:
USES CRT;
PROCEDURE doo; BEGIN Sound(523); Delay(500); NoSound; Delay(20) END;
PROCEDURE re; BEGIN Sound(587); Delay(500); NoSound; Delay(20) END;
PROCEDURE mi; BEGIN Sound(659); Delay(500); NoSound; Delay(20) END;
PROCEDURE fa; BEGIN Sound(698); Delay(500); NoSound; Delay(20) END;
PROCEDURE sol; BEGIN Sound(784); Delay(500); NoSound; Delay(20) END;
PROCEDURE la; BEGIN Sound(880); Delay(500); NoSound; Delay(20) END;
PROCEDURE si; BEGIN Sound(988); Delay(500); NoSound; Delay(20) END;
PROCEDURE chijik;
BEGIN mi; doo; mi; doo; fa; mi; re; sol; sol; la; si; doo; doo; doo END;
BEGIN
WriteLn('Песня "Чижик-пыжик". 1 куплет');
chijik;
WriteLn('2 куплет');
chijik;
END.
-
Надо тебе разобрать системный блок и убедиться что pc speaker подключен.
Вот что это такое:
http://ru.wikipedia.org/wiki/%C4%E8%ED%E0%EC%E8%EA_%CF%CA
-
честно говоря, неудобная реализация. Проще написать функцию, в которую будет передаваться 2 параметра: имя ноты и ее длительность. Внутри самой функции задать массив с именами нот и тонами звуков, ну а дальше уже воспроизводить звук, заданный параметрами. Вот только не помню, есть ли в паскале ассоциативные массивы...
-
честно говоря, неудобная реализация. Проще написать функцию, в которую будет передаваться 2 параметра: имя ноты и ее длительность. Внутри самой функции задать массив с именами нот и тонами звуков, ну а дальше уже воспроизводить звук, заданный параметрами. Вот только не помню, есть ли в паскале ассоциативные массивы...
да просто массив рекордов пущай сделает
foreach конструкций там тоже нет
уж лучше учиться с си, как нормальные люди, чем с выкидышем вирта =D
-
ха! foreach - это просто упрощенный вариант цикла do while, так что ничего страшного. А насчет с чего лучше учиться - не соглашусь. Паскаль в стопицот раз проще Си, а следовательно с него проще начинать. Да и делфи по сути тот же самый паскаль. Вот захочешь ты на С написать программу под винду - будь добр сломать мозг об виндовс апи, а в делфи все намного проще. Но есть и обратная сторона - производительность. В этом вопросе конечно нет равных языку Си.
-
Надо тебе разобрать системный блок и убедиться что pc speaker подключен.
Вот что это такое:
[url]http://ru.wikipedia.org/wiki/%C4%E8%ED%E0%EC%E8%EA_%CF%CA[/url]
pc speakerа не было вообще, подключил его от старого компьютера. Появился писк при включении, а в паскале по прежнему всё тихо. :(
-
А windows какая ? возможно надо запускать turbo pascal в режиме совместимости более ранней операционки.
-
А windows какая ? возможно надо запускать turbo pascal в режиме совместимости более ранней операционки.
Попробовал, не звучит по прежнему. На нетбуке тоже не играет, видел в инете похожую тему там тоже 0 результатов. :(
http://www.cyberforum.ru/free-pascal/thread153467.html
-
А windows какая ? возможно надо запускать turbo pascal в режиме совместимости более ранней операционки.
Попробовал, не звучит по прежнему. На нетбуке тоже не играет, видел в инете похожую тему там тоже 0 результатов. :(
[url]http://www.cyberforum.ru/free-pascal/thread153467.html[/url]
Я думаю можно попробовать поставить виртуальную машину, например vmware и поставить под ней нормальный ms-dos, и уже в нем попробовать запустить программу ...
-
Кстати у меня есть такая машина, я сижу на линуксе и в консоли прекрасно срабатывает beep.
А вот на virtual box win xp звук не проигрывается ни в турбо паскале, ни в командной строке. У меня появился интерес к этой проблеме.
Попробуйте кто-нибудь сделать в командной строке следующее:
cd "%userprofile%\Рабочий стол"
copy con beep.bat
^G - это сочетание славиш CTRL + G, затем ENTER
^Z - это сочетание славиш CTRL + Z, затем ENTER
и потом запустите beep.bat на рабочем столе - раздастся звук?
http://www.youtube.com/watch?v=7EbnIqfWRSA
-
Я думаю можно попробовать поставить виртуальную машину, например vmware и поставить под ней нормальный ms-dos, и уже в нем попробовать запустить программу ...
Спасибо за помощь, буду пробовать :)