Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
msx:basic_dialogue_programming_language:006 [2022-09-17 16:39] GreyWolf [VI.4. Примеры музыкальных программ] |
msx:basic_dialogue_programming_language:006 [2023-02-19 16:19] (текущий) GreyWolf |
||
---|---|---|---|
Строка 6: | Строка 6: | ||
<WRAP group 99%> | <WRAP group 99%> | ||
<WRAP half column> \\ </WRAP> | <WRAP half column> \\ </WRAP> | ||
- | <WRAP half column><WRAP justify> | + | <WRAP half column><WRAP right> |
У меня под руками оказался жалкий спинет; и вскоре я начал писать ноты, вот и все. | У меня под руками оказался жалкий спинет; и вскоре я начал писать ноты, вот и все. | ||
<WRAP rightalign> | <WRAP rightalign> | ||
Строка 348: | Строка 348: | ||
<WRAP group 99%> | <WRAP group 99%> | ||
<WRAP half column> \\ </WRAP> | <WRAP half column> \\ </WRAP> | ||
- | <WRAP half column><WRAP justify> | + | <WRAP half column><WRAP right> |
А Вы ноктюрн сыграть могли бы\\ | А Вы ноктюрн сыграть могли бы\\ | ||
На флейте водосточных труб? | На флейте водосточных труб? | ||
Строка 445: | Строка 445: | ||
<code> | <code> | ||
10 PLAY A$,B$,C$ | 10 PLAY A$,B$,C$ | ||
- | 20 IF PLAY(0) THEN 20 ELSE READ A$:PLAY A$'Выполнение программы не продолжится, пока музыка не будет сыграна! | + | 20 IF PLAY(0) THEN 20 ELSE READ A$:PLAY A$ |
+ | 'Выполнение программы не продолжится, пока музыка не будет сыграна! | ||
</code> | </code> | ||
Строка 625: | Строка 626: | ||
20 '"Во саду ли,в огороде" (Русская народная песня). | 20 '"Во саду ли,в огороде" (Русская народная песня). | ||
30 FOR I=1 TO 2 | 30 FOR I=1 TO 2 | ||
- | 40 PLAY"T100sm800O6L8ffeedddeffeedddR8ccO5bbaaabO6ccO5bbaaa","T100sm800O4L8dfaedfdfdfaedfaR8aeeg+aeaeaeeg+aee","O4L8T100sm800daac+dadadaac+dafR8acebacacacebacc" | + | 40 PLAY"T100sm800O6L8ffeedddeffeedddR8ccO5bbaaabO6ccO5bbaaa", |
- | 50 A$="T100s2m2000O5L16fedfedc+edO4abO5c+dc+defedfedc+eddddcO4BaO5CO4bag+baef+g+ag+abO5cO4baO5cO4bag+bA4" | + | "T100sm800O4L8dfaedfdfdfaedfaR8aeeg+aeaeaeeg+aee", |
+ | "O4L8T100sm800daac+dadadaac+dafR8acebacacacebacc" | ||
+ | 50 A$="T100s2m2000O5L16fedfedc+edO4abO5c+dc+defedfedc+eddddcO4BaO5CO4bag+ | ||
+ | baef+g+ag+abO5cO4baO5cO4bag+bA4" | ||
60 B$="t100s2m2000O4L16ddffaaeeddffddffddffaaeeddffaaeeeeg+g+aaeeaaeeaaeeeeg+g+ccee" | 60 B$="t100s2m2000O4L16ddffaaeeddffddffddffaaeeddffaaeeeeg+g+aaeeaaeeaaeeeeg+g+ccee" | ||
70 C$="t100s2m2000O4L16ddaaR16r16c+c+ddaaddaaddaaR16r16c+c+ddaaaacceebbaaccaaccaacceebbeecc" | 70 C$="t100s2m2000O4L16ddaaR16r16c+c+ddaaddaaddaaR16r16c+c+ddaaaacceebbaaccaaccaacceebbeecc" | ||
Строка 639: | Строка 643: | ||
50 C$="sm2000t150O3L8f+4f+4r8er8aR8AR8AR8ER8AR8AR8A" | 50 C$="sm2000t150O3L8f+4f+4r8er8aR8AR8AR8ER8AR8AR8A" | ||
60 PLAY A$,B$,C$ | 60 PLAY A$,B$,C$ | ||
- | 70 A$="O4L8f+ef+dO3aO4df+aL16gf+geL8D4ggB4aO5cO4B4":B$="O3L8ac+df+df+df+ac+d4gbO4g4f+f+g4":C$="O3L8r8ER8AR8AR8AR8EF+4R8DD4dAD4" | + | 70 A$="O4L8f+ef+dO3aO4df+aL16gf+geL8D4ggB4aO5cO4B4":B$="O3L8ac+df+df+df+ac+d4gbO4g4f+f+g4": |
+ | C$="O3L8r8ER8AR8AR8AR8EF+4R8DD4dAD4" | ||
80 PLAY A$,B$,C$ | 80 PLAY A$,B$,C$ | ||
- | 90 A$="O4L8bO5d4O4bO5l16cdcO4al8bgdgb4aO5cO4b4bO5d4O4bO5cO4B16A16g4":B$="O4L8gb4O3bdf+g4df+O4g4O3df+O4g4gO3bgbdf+O4d4":C$="O3L8gO4g4O3ddad4gdO4d4dad4gdgdR8ab4" | + | 90 A$="O4L8bO5d4O4bO5l16cdcO4al8bgdgb4aO5cO4b4bO5d4O4bO5cO4B16A16g4": |
+ | B$="O4L8gb4O3bdf+g4df+O4g4O3df+O4g4gO3bgbdf+O4d4": | ||
+ | C$="O3L8gO4g4O3ddad4gdO4d4dad4gdgdR8ab4" | ||
100 PLAY A$,B$,C$ | 100 PLAY A$,B$,C$ | ||
110 NEXT- | 110 NEXT- | ||
Строка 1161: | Строка 1168: | ||
30 FOR I=6 TO 13:READ A:SOUNDI,A:NEXT | 30 FOR I=6 TO 13:READ A:SOUNDI,A:NEXT | ||
40 DATA 31,7,16,16,16,250,5,14 | 40 DATA 31,7,16,16,16,250,5,14 | ||
- | 50 FOR M=5 TO 2 STEP -1:RESTORE 70:FOR J=1 TO 12:FOR I=1 TO 200:NEXT:READ A:SOUND 11,A:SOUND 12,M:NEXT:NEXT | + | 50 FOR M=5 TO 2 STEP -1:RESTORE 70:FOR J=1 TO 12:FOR I=1 TO 200:NEXT:READ A: |
- | 60 SOUND 7,&B00001100:SOUND 0,78:SOUND 1,6:SOUND 2,78:SOUND 3,6:SOUND 13,14:SOUND 11,11:SOUND 12,0:FOR L=1 TO 1500:NEXT:BEEP:END | + | SOUND 11,A:SOUND 12,M:NEXT:NEXT |
+ | 60 SOUND 7,&B00001100:SOUND 0,78:SOUND 1,6:SOUND 2,78:SOUND 3,6:SOUND 13,14: | ||
+ | SOUND 11,11:SOUND 12,0:FOR L=1 TO 1500:NEXT:BEEP:END | ||
70 DATA 225,200,180,160,150,125,100,80,50,40,20,10 | 70 DATA 225,200,180,160,150,125,100,80,50,40,20,10 | ||
80 SOUND 0,156:SOUND 1,12:SOUND 2,156:SOUND 3,12:SOUND 4,115:SOUND 5,9:RETURN | 80 SOUND 0,156:SOUND 1,12:SOUND 2,156:SOUND 3,12:SOUND 4,115:SOUND 5,9:RETURN | ||
Строка 1241: | Строка 1250: | ||
Ok | Ok | ||
2 FOR I=1 TO 2 | 2 FOR I=1 TO 2 | ||
- | 3 PLAY"sm15000l8t180o4a4a4a4a2o5dc+","s1m15000l8t180o4f+4f+4f+4f+4f+4f+4","s1m15000l8t180o4d4d4d4d4d4d4" | + | 3 PLAY"sm15000l8t180o4a4a4a4a2o5dc+", |
+ | "s1m15000l8t180o4f+4f+4f+4f+4f+4f+4", | ||
+ | "s1m15000l8t180o4d4d4d4d4d4d4" | ||
4 PLAY"o5c+o4bbo5ggo4bbaa4.o5a","l4o4ggggf+","l4o4ddddd" | 4 PLAY"o5c+o4bbo5ggo4bbaa4.o5a","l4o4ggggf+","l4o4ddddd" | ||
5 PLAY"o5agg4.f+","l8ago5d4c+4","l8ago4b4a4" | 5 PLAY"o5agg4.f+","l8ago5d4c+4","l8ago4b4a4" | ||
Строка 1363: | Строка 1374: | ||
130 DEF FNPW(X,K)=1.5+(-1)^K*(X-1.5) | 130 DEF FNPW(X,K)=1.5+(-1)^K*(X-1.5) | ||
140 DEF FNR(X,K)=2*INT(1/(4-X))+INT((X+1)*(K+1)/16)+1 | 140 DEF FNR(X,K)=2*INT(1/(4-X))+INT((X+1)*(K+1)/16)+1 | ||
- | 150 DEF FNF(X,K)=FNF1(FNPW(X,K))+FNS1(K)*FNF2(FNPW(X,K))+FNS2(K)*FNF3(FNPW(X,K))+FNS3(K)*FNF4(FNPW(X,K)) | + | 150 DEF FNF(X,K)=FNF1(FNPW(X,K))+FNS1(K)*FNF2(FNPW(X,K))+ |
+ | FNS2(K)*FNF3(FNPW(X,K))+FNS3(K)*FNF4(FNPW(X,K)) | ||
160 M$="" | 160 M$="" | ||
170 FOR K=0 TO 3 | 170 FOR K=0 TO 3 |