Skocz do zawartości
en_6280

Pascal- sound

Rekomendowane odpowiedzi

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??????????????????????

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

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.

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

Marmot.

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

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

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

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

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

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

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.

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

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

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

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.

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

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.

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

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;

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

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

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

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

@Marmot

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

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Tylko zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się tutaj.

Zaloguj się tutaj

  • Przeglądający   0 użytkowników

    Brak zarejestrowanych użytkowników, przeglądających tę stronę.

×