| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Нужна реальная альтернатива паскалевской Sound [D6, Win95/98, Win2k]

Sharik_212 ©   (2002-10-02 13:25:00) 

Нужна реальная альтернатива паскалевской Sound(HZ: Word). В форуме недавно было, но не то, а в FAQ нету

---

Vitaly_s   (2002-10-12 22:01:00) [1]

Проблема такая:
При написании ассемблерных вставок команда in или out
прерывает выполнение программы и выдает сообщение типа
EЗriveleget instruction.
У меня стоит Win2k а в 98 такой проблемы не возникало

---

Manulo   (2002-10-04 14:00:00) [2]

handra © (02.10.02 14:35)
uses Windows;

Beep(500,20);

Незнаю, как давно ты сам бипом пользовался... В 6-й делфе этот метод не проканал... Спасибо мастерам, дали исходник на асме!

---

handra   (2002-10-02 14:35:00) [3]

uses Windows;

Beep(500,20);

---

Sharik_212   (2002-10-02 14:27:00) [4]

Спа за прочтение, но сам же и нашел. На всякий случай.
procedure sound(frequency:word);
label stop,j1;
begin
asm
mov bx, frequency
mov ax, 34DDh
mov dx, 0012h
cmp dx, bx
jnb stop
div bx
mov bx, ax
in al, 61h
test al, 3
jne j1
or al, 3
out 61h, al
mov al, 0B6h
out 43h, al
j1: mov al, bl
out 42h, al
mov al, bh
out 42h, al
stop:
end;//asm
end;

procedure nosound;
begin
asm in al,61H
and al, 0fcH
out 61H, al
end;
end;

---

Sharik_212   (2002-10-02 13:27:00) [5]

Заранее огромное спасибо за ответ с исходником

---

Наверх