Звук через 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com