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

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

Beep на спикер

ruslanyd ©   (2003-06-26 17:05:00) 

Подскажите, плз, как в win2000 подать сигнал на спикер?

---

ruslanyd   (2003-06-26 18:42:00) [1]

Всем спасибо
Нашел тот же код, что предоставил Wizard_Ex :)
.... только без комментариев

---

Wizard_Ex   (2003-06-26 18:09:00) [2]

MyBeep работает в W9x, NT, W2K, WXP
в любых окнах в общем

---

Wizard_Ex   (2003-06-26 18:06:00) [3]

procedure Phone;
begin
MyBeep(560,25);
Delay(10);
MyBeep(800,55);
MyBeep(770,20);
Delay(5);
MyBeep(560,25);
Delay(10);
MyBeep(800,55);
MyBeep(770,20);
Delay(5);
MyBeep(560,25);
Delay(10);
MyBeep(800,55);
MyBeep(770,20);
Delay(5);
MyBeep(560,25);
Delay(10);
MyBeep(800,55);
MyBeep(770,20);
Delay(5);
end;

---

Wizard_Ex   (2003-06-26 18:04:00) [4]


procedure Delay(msecs : Longint);
var
FirstTick:Longint;
begin
FirstTick:=GetTickCount;
repeat
Application.ProcessMessages;
{для того чтобы не "завесить" Windows}
until GetTickCount - FirstTick >= msecs;
end;

function IsNT : boolean;
begin
case Win32Platform of
VER_PLATFORM_WIN32_NT: Result:=True;
else Result:=False;
end;
end;
procedure myBeep(Freq, Duration: Integer);
begin
if IsNT then begin windows.Beep(Freq, Duration); exit end;
// ;---рарешение канала 2 установкой порта B
asm
IN AL, 61h //чтение его значения
OR AL,3 //установка двух младших битов
OUT 61h, AL //посылаем байт в порт B
//;---установка регистров ввода/вывода
MOV AL, 182 // для канала 2
OUT 43h, AL //засылка в командный регистр
//---засылка счетчика в задвижку
sub edx, edx
mov eax, 1190000
xor ecx, ecx //очистка от "мусора"
mov ecx, Freq
div ecx //счетчик = 1190000/Freq
OUT 42h, AL //посылаем младший байт
MOV AL, AH //сдвигаем младший байт в AL
OUT 42h, AL //посылаем старший байт
( Duration)


procedure Delay(msecs : Longint);
var
FirstTick:Longint;
begin
FirstTick:=GetTickCount;
repeat
Application.ProcessMessages;
{для того чтобы не "завесить" Windows}
until GetTickCount - FirstTick >= msecs;
end;

function IsNT : boolean;
begin
case Win32Platform of
VER_PLATFORM_WIN32_NT: Result:=True;
else Result:=False;
end;
end;
procedure myBeep(Freq, Duration: Integer);
begin
if IsNT then begin windows.Beep(Freq, Duration); exit end;
// ;---рарешение канала 2 установкой порта B
asm
IN AL, 61h //чтение его значения
OR AL,3 //установка двух младших битов
OUT 61h, AL //посылаем байт в порт B
//;---установка регистров ввода/вывода
MOV AL, 182 // для канала 2
OUT 43h, AL //засылка в командный регистр
//---засылка счетчика в задвижку
sub edx, edx
mov eax, 1190000
xor ecx, ecx //очистка от "мусора"
mov ecx, Freq
div ecx //счетчик = 1190000/Freq
OUT 42h, AL //посылаем младший байт
MOV AL, AH //сдвигаем младший байт в AL
OUT 42h, AL //посылаем старший байт
end;
Delay(Duration);
asm //выключение звука
IN AL, 61h //получаем байт из порта B
AND AL, 252 //сбрасываем два младших бита
OUT 61h, AL //посылаем байт обратно
end;
end;


---

Skier   (2003-06-26 17:24:00) [5]

Мда...не туда...

---

Игорь Шевченко   (2003-06-26 17:18:00) [6]

Skier © (26.06.03 17:12)

...на звуковую карту...

---

Skier   (2003-06-26 17:12:00) [7]

А эта...Beep ?

---

Наверх