Wie kann ich in TurboPascal eine bestimmte Frequenz wie beim Sound(); Befehl auf der Soundkarte ausgeben???
Und wie frage ich den Mikrofonkanal ab?
Danke für Antworten!
Wie kann ich in TurboPascal eine bestimmte Frequenz wie beim
Sound(); Befehl auf der Soundkarte ausgeben???
{------------------------------------------------------------------------------}
procedure _SysSoundOn(TonHoehe: word);
begin
asm
mov al, 182 { prepare timer to start generating sound }
out 43h, al
mov ax, TonHoehe { Definition TonHoehe = 1193180 / Frequenz }
out 42h, al { send low byte to port 42h }
mov al, ah
out 42h, al { send high byte to port 42h }
in al, 61h { get current value of port 61h }
or al, 3 { set lowest two bits of 61h „on“ – activate speaker }
out 61h, al { rewrite to port 61h }
end;
end;
{------------------------------------------------------------------------------}
procedure _SysSoundOff;
begin
{ This code turns off the speaker: }
asm
in al, 61h { set lowest two bits of 61h „off“ – deactive speaker }
and al, 252 { this line turns the lowest two bits „off“ }
out 61h, al
end;
end;
_SysSoundOn(1200);
Deleay(250);
_SysSoundOff;
Bye
Markus