Dzieńdobry . . .
-
Chciałem sobie w programie zrobić sygnalizacje błędów
przy pomocy procedury Beep. Niestety ku mojemu zdziwieniu
komputer nie wydaje żadnych dźwięków, pamiętam jak ostatnio
instalowałem system to wtedy działało. Co mam począć ? -
Znalazłem w module windows funkcję Beep która działa.
Tyle że dźwięki wychodzą gdzieś z obudowy komputera a nie
z głośników. Nawet mogło by być tylko zastanawia mnie czy
to będzie działać na każdym komputerze ? -
[OT] Ten Windows.Beep to jest fajna sprawa, oto i super
zakodowane pierwsze takty z Toccaty i Fugi e - moll :-D oczywiście
dzięki tablicy z wysokościami dźwięków ze strony pq.
var
i : Integer;
t, k : String;
begin
t := '330349369392415440493523587659698880';
k := 'A9A89786CAC8A6B5B5B5B5B47A747A73A3A3A3A2696' +
'269619897A9A89786876464346341';
for i := 1 to Length(k) do Windows.Beep(StrToInt(
Copy(t, (StrToInt('$0' + k[i]) * 3) - 2, 3)), 100);
end;