Pascal- sound

[en_6280]

Mam pytanie (nawet może bardzo noob'owskie) jak mam program taki:

 

uses crt;

begin

clrscr;

sound(1);

end.

 

to dźwięk który zostanie wydany przez komputer będzie na częstotliwości 1Hz??????????????????????

[gumex]

Tak.

[Marmot]

Radziłbym ci użycie nosound;, bo ten dźwięk będzie iść w nieskończoność. Oczywiście, po pewnym czasie, ustalasz go za pomocą delay() w milisekundach.

[Sylwester]

Marmot.

Czy jest coś czego nie wiesz/nie potrafisz?;]

[Marmot]

Proxx, po prostu kiedyś dużo pisałem w Pascalu zanim poznałem Game Makera xd .

[en_6280]

Wielkie Dzx. :D Z tym nosound to wiem, najlepiej jak sie da sound(9999) bez nosound :D

Teraz moge sobie sprawdzic moim programem na jakich częstotliwościach słysze :D

[Boro Casso]

Przepraszam ze odświeżam temat ale muszę coś dodać ;)

 

Jak napiszesz sound(9999) komputer nadal będzie wydawał dźwięki tylko nie słyszalne dla ludzkiego ucha.

[Ludzix]

Warto uważać, bo niektóre dźwięki niesłyszalne dla ucha (zwłaszcza te przy granicy słyszalności) mogą je poważnie uszkodzić ;x

[Boro Casso]

A jeżeli chcesz sprawdzić ile maxymalny uda ci się usłyszeć można zastosować taki algorytm :

 

Var a:byte;
Begin
repeat
a:=0;
a:=a+1;
sound(a);
Delay(6000)
nosound();
until (a=255)
End.

 

nie sprawdzałem czy działa.

[Pentalinio]

Gratuluje algorytmu, ale ta pętla będzie działać w nieskończoność.

[Boro Casso]

Mała pomyłka teraz będze dobrze ;)

 

Var a:byte;
Begin
a:=0;
repeat
a:=a+1;
sound(a);
Delay(6000)
nosound();
until (a=255)
End.

[Marmot]

Borocasso, nie znasz pętli for? Można to zrobić dzięki niej dużo prościej:

for i:=0 to 255 do
begin
sound(i);
Delay(6000)
nosound();
end;

[pager]

moze glupie pytanie, ale nie wiem czemu nie dziala mi pc speaker, jak uruchamiam wasze przyklady slysze tylko sygnal windowsa "ostrzezenie" ??

[Boro Casso]

musisz go albo podłączyć albo włączyć w biosie.

@Marmot

znam, ale tak też jest prosto przynajmniej dla mnie.