Форум: "Игры";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];
ВнизА вот это как?? Найти похожие ветки
← →
deema123 (2002-11-29 19:30) [0]Люди, как сгенерить звук по типу авто??А как Регулировать его силу??Please!
← →
Ich Hasse (2002-11-29 20:23) [1]Это уже обсуждалось в других форумах, но чтоб не затруднять тебя - приведу код из этого форума:
procedure TForm1.Sound(Tone: Word; Delay: Integer);
begin
asm
mov al, 0b6H
out 43H, al
mov ax,Tone
out 42h,al
ror ax,8
out 42h,al
in al, 61H
or al, 03H
out 61H, al
end;
sleep(Delay);
asm
in al, 61H
and al, 0fcH
out 61H, al
end;
end;
Используй так:
procedure TForm1.Button1Click(Sender: TObject);
begin
Sound(550,300);
end;
Страницы: 1 вся ветка
Форум: "Игры";
Текущий архив: 2003.05.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c