Życie Wieczne
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum Życie Wieczne Strona Główna
->
Offtopic
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie EET (Europa)
Skocz do:
Wybierz forum
----------------
Ogólna dyskusja
Kościół rzymsko katolicki
Biblia
Objawienia
Własne przemyślenia
Inne religie i ateizm
Nasza twórczość
Offtopic
Przegląd tematu
<table border="0" cellpadding="3" cellspacing="1" width="100%" class="forumline"> <tr> <th class="thCornerL" width="22%" height="26">Autor</th> <th class="thCornerR">Wiadomość</th> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 16:13, 15 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Wracając do wysyłania do ortu dwóch częstotliwości pod rząd w QuickBasicu... <br /> <br />8300 razy na sekundę - tyle par możemy zaprogramować w interperterze. <br /> <br />Przeliczając częstotliwość 8300 na bajty: <br /> <br />cz1 = 1193280 / 8300 = 143,762650602 <br /> <br />(lub przy dwukrotności liczby 8300, bo wysyłamy dwie wartości: 1193280 / 16600 = 71,884337349) <br /> <br />starszy bajt = 0 <br />młodszy bajt = 143 (lub 72) <br /> <br />Powyżej tych wartości, czyli poniżej częstotliwości 8300 interpreter QuickBasic ma już jakiś wpływ na to co zrobimy z dźwiękiem. <br /> <br />Większe częstotliwości możemy włączyć, ale nie zniekształcać.</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 13:12, 15 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">O co chodzi z tym zegarem? <br /> <br />OUT &H43, &HB6 ' get timer ready <br /> <br />(dziesiętnie:OUT 67, 182 ' uruchuromienie zagara) <br /> <br /> <br />Na razie doczytałem, że może chodzić o pracę z wysokimi częstotliwościami, lub w ogóle, że jest to dokładniejszy zegar niż DOS-owski. <br /> <br />------------------------------------------------------------ <br /> <br />QuickBasic potrafi zagrać pilki Wave. <br />Film na Youtube: <br /> <br />Playing Wave Files with PC Speaker (QBASIC) <br /> <br />Pod filmem kod programu.</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 10:47, 15 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Po skompilowaniu program wykonuje się przez 2 cyknięcia komórki 1132, czyli 9 razy szybciej niż robi to interpreter. <br /> <br />Trzeba pomyśleć o napisaniu procedury w języku C (opcja CDECL przy deklarowaniu procedury)</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 10:37, 15 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Wysłanie do portu czterech częstotliwości pod rząd, naprzemiennie, dwóch wysokich, dwóch niskich, powoduje inny efekt, niż gdyby były wysłane tylko dwie. <br />Wynika to z czasu, w jakim musi być wykonana kolejna pętla FOR. Czas ten ma duży wpływ. <br /> <br /> <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />FOR i = 1 TO 4500 <br />OUT 66, 0 <br />OUT 66, 1 <br />OUT 66, 64 <br />OUT 66, 2 <br />OUT 66, 0 <br />OUT 66, 1 <br />OUT 66, 64 <br />OUT 66, 2 <br /> <br />NEXT i <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />PRINT t0; t1, t1 - t0: PRINT : PRINT</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 10:28, 15 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Programik: <br /> <br />Ustawienie na sztywno wysłania do portu dwóch naprzemiennie wysokiej i niskiej częstotliwości. <br />Ponieważ dokonuje tego interpreter, wysokość efektu dźwiękowego zależy nawet od układu poleceń. <br />Inaczej brzmi dźwięk gdy rozkazy OUT są w jednej linii (wolniej), inaczej gdy w osobnych (szybciej). <br />Znaczenie dla spowolnienia ma także obecność komentarza REM. <br />Liczby podane szesnastkowo także mogą spowolnić programik. <br /> <br /> <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />FOR i = 1 TO 8300 <br />OUT 66, 6 <br />OUT 66, 1 <br />OUT 66, 3 <br />OUT 66, 9 <br />NEXT i <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />PRINT t0; t1, t1 - t0: PRINT : PRINT</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Czw 21:58, 14 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Wiedza o portach pochodzi z bazy wiedzy o Quick Basic: <br /> <br />jeffpar . github . io / kbarchive / id / mspl13_basic /</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Czw 21:53, 14 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Włączenie zegara może mieć znaczenie więc lepiej go włączyć. <br /> <br />Poniższy programik wykonuje szum wysokich częstotliwości na progu słyszalności. <br />Tylko część wylosowanych częstotliwości będzie słyszana. <br /> <br />Dźwięk trwa około 1 sekundy, czyli około 18 taktów komórki 1132. <br /> <br />Pętla wykonana jest aż 7500 razy <br /> <br />------------------------------------------------------------------------- <br /> <br /> <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />st.cz = 0 <br />t0 = PEEK(1132) <br />FOR i = 1 TO 7500 <br />ml.cz = RND(1) * 128 <br /> OUT 66, ml.cz ' wyslanie do portu mlodszego bajtu pierwszej czestotliwosci <br /> OUT 66, st.cz ' wyslanie do portu starszego bajtu pierwszej czestotliwosci <br /> <br />NEXT i <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />PRINT t0; t1, t1 - t0: PRINT : PRINT</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Czw 21:39, 14 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Przykład programu generującego szum wysokich częstotliwości <br />Starszy bajt ustalony na 1 (nie na 0, bo to zbyt wysokie czestotliwosci) <br />Młodszy losowo od 0 do 64 <br /> <br />------------------------------------------------ <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />st.cz = 1 <br />FOR i = 1 TO 10000 <br />ml.cz = RND(1) * 64 <br /> OUT 66, ml.cz ' wyslanie do portu mlodszego bajtu pierwszej czestotliwosci <br /> OUT 66, st.cz ' wyslanie do portu starszego bajtu pierwszej czestotliwosci <br /> <br />NEXT i <br /> <br />REM wylaczenie glosnika <br />OUT 97, stary.port</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Czw 21:27, 14 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Skrócony, ale działający programik. <br /> <br />Widać, że do tego samego portu muszą być wysłane kolejno: młodszy i starszy bajt <br /> <br />Poniższy dźwięk brzmi jakby ćwierkanie ptaka, gdyż użyte są wysokie częstotliwości <br /> <br />Wyższa wartość wysłana do portu-oznacza niższą częstotliwość <br /> <br />----------------------------------------------- <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />st.cz1 = 0 <br />FOR i = 1 TO 256 <br /> OUT 66, i ' wyslanie do portu mlodszego bajtu pierwszej czestotliwosci <br /> OUT 66, st.cz1 ' wyslanie do portu starszego bajtu pierwszej czestotliwosci <br />FOR a = 1 TO 10: NEXT a <br />NEXT i <br /> <br />REM wylaczenie glosnika <br />OUT 97, stary.port</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Czw 21:11, 14 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Jeszcze raz rozpisane: <br />------------------------------------------------------- <br /> <br />REM Zadana czestotliwosc 700 <br />cz1 = 1193280 / 700 <br /> <br />REM Zadana nieslyszalna czestotliwosc 100000 <br />cz2 = 1193280 / 100000 <br /> <br />REM obliczenie mlodszych bajtow <br /> <br />ml.cz1 = cz1 MOD 256 <br />ml.cz2 = cz2 MOD 256 <br /> <br />REM obliczenie starszych bajtow <br />st.cz1 = cz1 / 256 <br />st.cz2 = cz2 / 256 <br /> <br />REM uruchowanienie zegara? <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />FOR i = 1 TO 3 <br /> OUT 66, ml.cz1 ' wyslanie do portu mlodszego bajtu pierwszej czestotliwosci <br /> OUT 66, st.cz1 ' wyslanie do portu starszego bajtu pierwszej czestotliwosci <br />FOR x = 1 TO 400: NEXT x <br /> OUT 66, ml.cz2 ' wyslanie do portu mlodszego bajtu drugiej czestotliwosci <br /> OUT 66, st.cz2 ' wyslanie do portu mlodszego bajtu drugiej czestotliwosci <br />FOR x = 1 TO 400: NEXT x <br />NEXT i <br /> <br />REM wylaczenie glosnika <br />OUT 97, stary.port</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Czw 21:03, 14 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Nieco poprawiony programik, wytłumaczony po polsku, a porty podane dziesiętnie: <br /> <br />count1 = 1193280 / 700 ' 700 zadana czestotliwosc <br />count2 = 1193280 / 100000 ' 100,000 nieslyszalna zadana czestotliwosc <br /> <br />lo.count1 = count1 MOD 256 ' obliczenie mlodszych bajtow <br />lo.count2 = count2 MOD 256 <br />hi.count1 = count1 / 256 ' obliczenie starszych bajtow <br />hi.count2 = count2 / 256 <br /> <br />OUT 67, 182 ' uruchomienie zegara <br />old.port = INP(97) ' odczytanie wartosci portu 97 <br />new.port = (old.port OR 3) ' ustawienie wartosci "1" dla bitow 1 i 0 <br /> <br />OUT 97, new.port ' wlaczenie glosnika <br />FOR i = 1 TO 3 <br /> OUT 66, lo.count1 ' wyslanie do portu mlodszego bajtu pierwszej czestotliwosci <br /> OUT 66, hi.count1 ' wyslanie do portu starszego bajtu pierwszej czestotliwosci <br />FOR x = 1 TO 400: NEXT x <br /> OUT 66, lo.count2 ' wyslanie do portu mlodszego bajtu drugiej czestotliwosci <br /> OUT 66, hi.count2 ' wyslanie do portu mlodszego bajtu drugiej czestotliwosci <br />FOR x = 1 TO 400: NEXT x <br />NEXT i <br />OUT 97, old.port ' wylaczenie glosnika</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Czw 20:43, 14 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Znalazłem w sieci programik umożliwiający generowanie dźwięków bezpośrednio za pomocą portów. <br /> <br />Polecenie "OUT" w Quick Basicu umożliwia przesłanie danych do danego portu <br />"INP" - odczyt z portu <br /> <br /> <br />----------------------------------------------------------------------------- <br /> <br />' The following OUT statements alleviate the clicking sound while <br />' generating tones: <br /> <br />count1 = 1193280! / 700 ' 700 is the desired frequency <br />count2 = 1193280! / 100000 ' 100,000 is the desired inaudible frequency <br />lo.count1 = count1 MOD 256 ' calculate low-order byte values <br />lo.count2 = count2 MOD 256 <br />hi.count1 = count1 / 256 ' calculate high-order byte values <br />hi.count2 = count2 / 256 <br /> <br />OUT &H43, &HB6 ' get timer ready <br />old.port = INP(&H61) ' read the value at port 61H <br />new.port = (old.port OR &H3) ' set bits 0 and 1 <br />OUT &H61, new.port ' turn speaker on <br />FOR i% = 1 TO 3 <br /> OUT &H42, lo.count1 ' load low-order byte for first frequency <br /> OUT &H42, hi.count1 ' load high-order byte for first frequency <br /> SLEEP 1 <br /> OUT &H42, lo.count2 ' load low-order byte for second frequency <br /> OUT &H42, hi.count2 ' load high-order byte for second frequency <br /> SLEEP 1 <br />NEXT <br />OUT &H61, old.port ' turn speaker off <br />END</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 21:02, 09 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Instrukcja PLAY gra nuty: <br /> <br />Gama: <br /> <br />PLAY "MB L8 O1 CDEFGAB O2 C" <br />PLAY ON <br /> <br />Kod MB pozwala na granie podczas wykonywania innych instrukcji. <br />L8 - długość nuty ustawiona na 8 <br />O1, O2 - numer gamy <br /> <br />Są też możliwe inne parametry. <br /> <br />----------------- <br /> <br />Jak wykorzystać PLAY do efektów dźwiękowych, aby na przykład działały w tle i nie spowalniały gry? <br /> <br />Tutaj przykład takiego efektu: <br /> <br />PLAY "MB L64 MS O3 C O4 C" <br />PLAY ON <br /> <br />L64 - ustawia grę na najkrótsze nuty, ponadto grane są tylko przez 3/4 czasu - to umożliwia komenda MS.</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 20:44, 09 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">16 kolejnych instrukcji SOUND także daje krótki efekt dźwiękowy: <br /> <br />Celowo unikam pętli FOR, aby nie angażować procesora w użycie zmiennej. <br /> <br />DEF SEG = 0 <br />x0 = PEEK(1132) <br /> <br />SOUND 2000, .0228 <br />SOUND 4000, .0228 <br />SOUND 6000, .0228 <br />SOUND 8000, .0228 <br /> <br />SOUND 10000, .0228 <br />SOUND 12000, .0228 <br />SOUND 14000, .0228 <br />SOUND 16000, .0228 <br /> <br />SOUND 18000, .0228 <br />SOUND 20000, .0228 <br />SOUND 22000, .0228 <br />SOUND 24000, .0228 <br /> <br />SOUND 26000, .0228 <br />SOUND 28000, .0228 <br />SOUND 30000, .0228 <br />SOUND 32000, .0228 <br /> <br />x1 = PEEK(1132) <br />PRINT x0, x1</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 20:39, 09 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Czas jest 0.0228 najniższy (słyszalny) także dla innych częstotliwości <br /> <br /> <br />32767 to najwyższa dopuszczalna częstotliwość <br /> <br /> <br /> ---------------------------------------------------- <br /> <br />Dolna granica czas trwania 0.0228 oznacza, że podczas jednego taktu zegara zmieszczą się około 44 różne dźwięki. Teoretycznie, bo instrukcja Sound także potrzebuje czasu procesora na jej rozpoznanie i wykonanie przez interpreter. <br /> <br /> <br />Ciąg kilku instrukcji SOUND może dać bardzo krótki efekt dźwiękowy: <br />DEF SEG = 0 <br />x0 = PEEK(1132) <br /> <br />SOUND 4000, .0228 <br />SOUND 8000, .0228 <br />SOUND 12000, .0228 <br />SOUND 16000, .0228 <br />SOUND 20000, .0228 <br />SOUND 24000, .0228 <br />SOUND 28000, .0228 <br />SOUND 32000, .0228 <br /> <br />x1 = PEEK(1132) <br />PRINT x0, x1</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> </table>
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj