Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Мультимедиа \ Аудио \ Звук через Beeper

Звук через Beeper

Приведенный ниже пример кода позволяет получить доступ к системному ди-
намику. В самом начале две процедуры напрямую работают с внешними устр-
ойствами.

Вывод в порт внешнего устройства с адресом-ADR, байта-data:
procedure OutPort(adr: word; data: byte); 
begin 
  asm 
    mov dx,adr 
    mov al,data 
    out dx,al 
  end; 
end; 

Ввод из порта внешнего устройства с адресом-ADR:
function InPort(adr: word):byte; 
begin 
  asm 
    mov dx,adr 
    in al,dx 
    mov @result,al 
  end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var
  B: Byte; 
  N: Word;
  M: Word; 
begin 
  B := Inport ($61); 
  For N := 1 to 200 do
    begin
      {n:=200 - длительность звучания} 
      {m:=700 - частота звучания} 
      for m:=1 to 700 do Outport($61,b and not(2)); {установить 2-ой бит в 0} 
      for m:=1 to 700 do Outport($61,b or 2); {установить 2-ой бит в 1} 
    end; 
end;

Название: Звук через Beeper
Дата публикации: 2004-01-29 (3266 Прочтено)

 
 

 

Page generation 0.032 seconds