Текущий архив: 2003.01.27;
Скачать: CL | DM;

Вниз

Нужна реальная альтернатива паскалевской Sound   Найти похожие ветки 

← →
Sharik_212   (2002-10-02 13:25) [0]

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

---

← →
Sharik_212   (2002-10-02 13:27) [1]

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

---

← →
Sharik_212   (2002-10-02 14:27) [2]

Спа за прочтение, но сам же и нашел. На всякий случай.
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;

---

← →
handra ©   (2002-10-02 14:35) [3]

uses Windows;

Beep(500,20);

---

← →
Manulo ©   (2002-10-04 14:00) [4]

handra © (02.10.02 14:35)
uses Windows;

Beep(500,20);

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

---

← →
Vitaly_s   (2002-10-12 22:01) [5]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.01.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.02 c