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

Вниз

PC Speaker   Найти похожие ветки 

← →
Seldon   (2002-08-24 21:25) [0]

Как пропищать звук заданнной частоты? В Turbo Pascal была функция Sound, а в Delphi её нет :(

---

← →
Anatoly Podgoretsky ©   (2002-08-24 21:35) [1]

Смотри в FAQ там есть код

---

← →
MBo ©   (2002-08-25 08:55) [2]

Windows.Beep

---

← →
Anatoly Podgoretsky ©   (2002-08-25 10:13) [3]

Это только для платформы НТ, надо брать пример их FAQ

---

← →
ValWhite   (2002-08-26 07:05) [4]

Посмотри тут:
http://www.sources.ru/delphi/system/speaker_control.shtml
и тут:
http://delphibase.endimus.com/?action=viewfunc&topic=mediasound&id=10124

---

← →
Serg123   (2002-08-26 15:29) [5]

Да, кк сожалению вариант под НТ: увытираешь sysutils из заголовка, а дальше beep(<длительность в милисекундах>,<частота в Гц>);

---

← →
Igor__ ©   (2002-08-27 04:50) [6]

У меня WinMe и у меня работает.
Точно знаю что работает и под Win98.

procedure sound(Hz:word);
begin
asm
MOV BX,Hz
MOV AX,34DCh
MOV DX,0012h
CMP DX,BX
JAE @SoundExit
DIV BX
MOV BX,AX
IN AL,61h
TEST AL,00000011b
JNZ @SetCount
{turn on speaker}
OR AL,00000011b
OUT 61h,AL
MOV AL,182
OUT 43h,AL
@SetCount:
MOV AL,BL
OUT 42h,AL
MOV AL,BH
OUT 42h,AL
@SoundExit:
end;
end;
procedure nosound;
begin
asm
IN AL,61h
AND AL,11111100b
OUT 61h,AL
end;
end;

---

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

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

Наверх

Память: 0.48 MB
Время: 0.043 c