Вход на сайт
Как программируется звук ?
961 просмотров
Перейти к просмотру всей ветки
в ответ Murr 17.09.10 18:03
В ответ на:
uses crt;
const
speaker_port=$61;
var
portval:byte;
Begin
portval:=port[speaker_port] and $FC;
while not keypressed do
begin
port[speaker_port]:=portval or 2;
delay(50);
port[speaker_port]:=portval;
delay(500);
end;
readkey;
End.
uses crt;
const
speaker_port=$61;
var
portval:byte;
Begin
portval:=port[speaker_port] and $FC;
while not keypressed do
begin
port[speaker_port]:=portval or 2;
delay(50);
port[speaker_port]:=portval;
delay(500);
end;
readkey;
End.
во, на паскале, не помню точно как, но пищит писихрюкером, судя по коду - один низкий один высокий, пока не нажать клавишу - чем не спец эффекты, почти гибдд из моствантед
могу конечно скинуть код по сложнее, там целая пианина, с диез бемолями ))