Инструменты пользователя
msx:basic_dialogue_programming_language:006
Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
msx:basic_dialogue_programming_language:006 [2022-09-17 16:41] 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 | ||
msx/basic_dialogue_programming_language/006.1663422070.txt.gz · Последние изменения: 2022-09-17 16:41 — GreyWolf
Инструменты страницы
Если не указано иное, содержимое этой вики предоставляется на условиях следующей лицензии: CC Attribution-Noncommercial-Share Alike 4.0 International
