Как заставить под Линуксом играть спикер ?

Вопросы программирования на Free Pascal, использования компилятора и утилит.

Модератор: Модераторы

Ответить
Александр

Сообщение Александр »

Как заставить под Линуксом играть спикер ?
cranium
постоялец
Сообщения: 143
Зарегистрирован: 08.05.2005 03:59:45
Откуда: Санкт-Петербург

Сообщение cranium »

На практике не проверял, но в документации говорится следующее:

3.3.17 Sound
Synopsis: Sound system speaker
Declaration: procedure Sound(Hz: Word)
Visibility: default
Description: Sound sounds the speaker at a frequency of hz. Under Windows, a system sound is played and the
frequency parameter is ignored. On other operating systems, this routine may not be implemented

Program Example16 ;
uses Cr t ;
{ Program to demonstrate the Sound and NoSound f u n c t i o n . }
var
i : l o n g i n t ;
begin
WriteLn ( ’You w i l l hear some tones from your speaker ’ ) ;
while ( i <15000) do
begin
inc ( i , 5 0 0 ) ;
Sound ( i ) ;
Delay ( 1 0 0 ) ;
end ;
WriteLn ( ’ Quiet now! ’ ) ;
NoSound ; { Stop noise }
end .
Александр

Сообщение Александр »

Не, это у меня не работало. А вообще линукс в каких то системных
случаях пищит. Про CRT я знал. При попытке пробраться в порты
под рутом тоже ничего не вышло.
Аватара пользователя
noch
постоялец
Сообщения: 145
Зарегистрирован: 07.06.2005 09:45:49
Откуда: Armenia
Контактная информация:

Сообщение noch »

Дело в том, что в некоторых дистрибутивах линукс-а типа RedHat и Fedora начиная с версии 2 родной компьютерный динамик вырублен.
То есть скорее всего если перекомпилируете ядро заработает.
У меня работало, я даже турбопаскалевскую программу антикомарин запускал ;)
Было здорово!

Точно работает ;)

Только ядро пересобрать нужно в твоем случае
Ответить