VPF::Гудок нужен :) - Форум программистов

Ruterian

Дата 18.7.2004, 01:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 9.1.2004
Где: Вязьма, Минск

Репутация: нет
Всего: нет

Ни у кого не завалялась процедура подачи короткого звучка через спикер? Нужно чтоб звук этот был красивым, а не монотонным, как при выводе 08h. Хочу им озвучить некоторые события в программке

YAA

Дата 18.7.2004, 11:01 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 89
Регистрация: 18.7.2004
Где: Russia< Kuzbas s->Kemerovo.

Репутация: нет
Всего: нет

Привет. Я - YAA.
А код такой:
[code]
Beep PROC
pusha
mov al, 10110110b
out 43h, al
mov ax, 1000
out 42h, al
mov al, ah
out 42h, al
in al, 61h
mov ah, al
or al, 3
out 61h, al
sub cx, cx
mov ah, 0
int 1ah
push dx
mov bp, sp
@@KillTime: mov ah, 0
int 1ah
sub dx, word ptr [bp]
cmp dx, 2 ; 1/9 sec.
jl short @@KillTime
pop dx

mov al, ah
out 61h, al
popa
ret
ENDP
[code]
P.S. На TASM`е.

Chingachguk

Дата 18.7.2004, 13:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1232
Регистрация: 25.3.2002
Где: Москва

Репутация: нет
Всего: 18

Или (тоже самое почти):

Код


PROCEDURE SOUND_ON(FREC:WORD);
 BEGIN
   ASM
    MOV  AL,0B6h
    OUT  43h,AL
    MOV  AX,4F38h
    MOV  DX,14h
    DIV  FREC
    OUT  42h,AL
    MOV  AL,AH
    OUT  42h,AL
    IN   AL,61h
    OR   AL,3
    OUT  61h,al
   END;
 END;
PROCEDURE SOUND_OFF;
 BEGIN
   ASM
    IN   AL,61h
    AND  AL,11111100b
    OUT  61h,AL
   END;
 END;

--------------------

I don't like the drugs (but the drugs like me). M.Manson.

Ruterian

Дата 18.7.2004, 21:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 9.1.2004
Где: Вязьма, Минск

Репутация: нет
Всего: нет

YAA
Chingachguk
Огромное спасибо!

YAA

Дата 19.7.2004, 09:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 89
Регистрация: 18.7.2004
Где: Russia< Kuzbas s->Kemerovo.

Репутация: нет
Всего: нет

Всегда пжалуста!!!

Jin X

Дата 27.7.2004, 19:56 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 157
Регистрация: 5.3.2004

Репутация: 1
Всего: 1

http://filezzz.nm.ru/pub/asm/sound.htm
Там и про ноты есть

--------------------

Бойся своей мечты, ибо она осуществима!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Asm: Общие вопросы \| Следующая тема »