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

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

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

Сообщение Александр » 16.07.2005 00:58:26

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

Сообщение cranium » 19.07.2005 20:46:34

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

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 .
cranium
постоялец
 
Сообщения: 143
Зарегистрирован: 08.05.2005 03:59:45
Откуда: Санкт-Петербург

Сообщение Александр » 22.07.2005 14:52:22

Не, это у меня не работало. А вообще линукс в каких то системных
случаях пищит. Про CRT я знал. При попытке пробраться в порты
под рутом тоже ничего не вышло.
Александр
 

Сообщение noch » 25.07.2005 16:57:54

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

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

Только ядро пересобрать нужно в твоем случае
Аватара пользователя
noch
постоялец
 
Сообщения: 145
Зарегистрирован: 07.06.2005 09:45:49
Откуда: Armenia


Вернуться в Free Pascal Compiler

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 22

Рейтинг@Mail.ru