プチコン3号＆BIGまとめWiki

投稿プログラム : 万能MMLプレイヤー

パンくずリスト

2017年01月15日投稿 投稿者 : DieMatsmot タグ : BGM

概要

MMLプレイヤーは作成する方によってデザインなどが異なりますが
このMMLプレイヤーは一味違います。
なんと！
使われている楽器名やテンポを確認することができます！
さらに！
テンポは自由に変更することが可能です！
そして！
曲の追加が比較的簡単です！

遊び方

…普通のMMLプレイヤーなので操作も何も。 十字キーで選曲、Aで再生というオーソドックスなタイプ。

下画面タッチでテンポの変更

公開キー

プチコン3号用の公開キーです。トップメニューの「作品公開とダウンロード」から公開キーを入力すると、作品をダウンロードすることができます。

プチコン3号/BIG 公開キー
A5V4784E

謝辞

このプログラムを作成するにあたり幾つかのお気に入り曲を使用させていただいています。

プログラムリスト

特徴：変数名が無駄に長い OPTIONは練習のため。

  1. ＡＣＬＳ：ＸＳＣＲＥＥＮ　２：ＢＧＭＣＬＥＡＲ：ＢＧＭＳＴＯＰ
  2. ＯＰＴＩＯＮ　ＳＴＲＩＣＴ
  3. ＤＩＭ　ＢＧＭＦＩＬＥＮＡＭＥ＄［０］
  4. ＤＩＭ　ＲＥＮＥＷＭＭＬＤＡＴＡ＄［３］
  5. ＤＩＭ　ＢＧＭ＿ＭＭＬＤＡＴＡ＄［０］
  6. ＤＩＭ　Ｉ，Ｐ，Ｊ
  7. ＤＩＭ　ＴＴ，ＴＸ，ＴＹ
  8. ＤＩＭ　ＣＨＫＦＬＧ
  9. ＤＩＭ　ＮＥＷＴＥＭＰＯ
  10. ＤＩＭ　ＴＩＴＬＥ＄［０］，ＣＯＭＰＯＳＥＲ＄［０］，ＴＥＸＴ＄［０］，ＭＭＬ＄［０］
  11. ＤＩＭ　＿ＴＩＴＬＥ＄，＿ＣＯＭＰＯＳＥＲ＄，＿ＴＥＸＴ＄，＿ＭＭＬ＄
  12. ＤＩＭ　ＣＡＮＰＬＡＹＢＧＭＦＩＬＥ＄［０］
  13. ＤＩＭ　ＰＲＩＮＴＢＧＭＬＩＳＴ＄［１０］
  14. ＤＩＭ　ＣＨＡＮＮＥＬＶＯＬＵＭＥ＄［１８］
  15. ＤＩＭ　ＣＯＮＴＦＬＧ
  16. ＤＩＭ　ＮＥＩＲＯ＄，ＰＡＲＴ＄，ＴＥＭＰＯ＄，ＶＯＬ＄，ＶＯＬＰＡＲＴ＄
  17. ＤＩＭ　ＣＨＫ
  18. ＤＩＭ　ＰＯＩＮＴ
  19. ＤＩＭ　ＳＥＲＣＨ＝０，ＳＥＲＣＨＶＯＬ，ＧＭ＝０，ＧＭ＄［１７］
  20. ＤＩＭ　ＧＭＮＡＭＥ＄＝ＬＯＡＤ（”ＴＸＴ：ＧＭＮＡＭＥ．ＴＸＴ”，０）
  21. ＤＩＭ　ＧＭＮＡＭＥＳ＄［０］
  22. ＷＨＩＬＥ　１
  23. Ｊ＝ＩＮＳＴＲ（Ｉ，ＧＭＮＡＭＥ＄，ＣＨＲ＄（１０））
  24. ＩＦ　Ｊ＝＝−１　ＴＨＥＮ　ＢＲＥＡＫ
  25. ＿ＴＥＸＴ＄＝ＭＩＤ＄（ＧＭＮＡＭＥ＄，Ｉ，Ｊ−Ｉ）
  26. ＩＦ　＿ＴＥＸＴ＄＝＝””　ＴＨＥＮ　＿ＴＥＸＴ＄＝”（ＢＥＥＰ）”
  27. ＰＵＳＨ　ＧＭＮＡＭＥＳ＄，＿ＴＥＸＴ＄
  28. Ｉ＝Ｊ＋１
  29. ＷＥＮＤ
  30. ＿ＴＥＸＴ＄＝””
  31. ＩＦ　ＣＨＫＦＩＬＥ（”ＴＸＴ：＠ＢＡＣＫＵＰ．ＰＲＧ”）　ＴＨＥＮ　ＤＥＬＥＴＥ　”＠ＢＡＣＫＵＰ．ＰＲＧ”
  32. ＦＩＬＥＳ　”ＴＸＴ：”，ＢＧＭＦＩＬＥＮＡＭＥ＄
  33. ＮＥＩＲＯ＄＝ＳＨＩＦＴ（ＢＧＭＦＩＬＥＮＡＭＥ＄）
  34. ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（ＢＧＭＦＩＬＥＮＡＭＥ＄）−１
  35. ＢＧＭＦＩＬＥＮＡＭＥ＄［Ｉ］＝ＲＩＧＨＴ＄（ＢＧＭＦＩＬＥＮＡＭＥ＄［Ｉ］，ＬＥＮ（ＢＧＭＦＩＬＥＮＡＭＥ＄［Ｉ］）−１）
  36. ＮＥＸＴ
  37. ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（ＢＧＭＦＩＬＥＮＡＭＥ＄）−１
  38. ＩＦ　ＢＧＭＦＩＬＥＮＡＭＥ＄［Ｉ］＝＝”ＧＭＮＡＭＥ．ＴＸＴ”ＴＨＥＮ　ＣＯＮＴＩＮＵＥ
  39. ＬＯＡＤ　”ＰＲＧ１：”＋ＢＧＭＦＩＬＥＮＡＭＥ＄［Ｉ］，ＦＡＬＳＥ
  40. ＣＨＫＦＬＧ＝ＦＡＬＳＥ
  41. ＵＳＥ　１
  42. ＣＨＫＦＬＧ＝ＣＨＫＬＡＢＥＬ（”１：＠ＢＧＭ”＋ＦＯＲＭＡＴ＄（”％０３Ｄ”，Ｉ），１）
  43. ＩＦ　ＣＨＫＦＬＧ　ＴＨＥＮ　
  44. ＲＥＳＴＯＲＥ　”１：＠ＢＧＭ”＋ＦＯＲＭＡＴ＄（”％０３Ｄ”，Ｉ）
  45. ＲＥＡＤ　＿ＴＩＴＬＥ＄，＿ＣＯＭＰＯＳＥＲ＄，＿ＴＥＸＴ＄，＿ＭＭＬ＄
  46. ＰＵＳＨ　ＴＩＴＬＥ＄，＿ＴＩＴＬＥ＄
  47. ＰＵＳＨ　ＣＯＭＰＯＳＥＲ＄，＿ＣＯＭＰＯＳＥＲ＄
  48. ＰＵＳＨ　ＴＥＸＴ＄，＿ＴＥＸＴ＄
  49. ＰＵＳＨ　ＭＭＬ＄，＿ＭＭＬ＄
  50. ＰＵＳＨ　ＣＡＮＰＬＡＹＢＧＭＦＩＬＥ＄，ＢＧＭＦＩＬＥＮＡＭＥ＄［Ｉ］
  51. ＩＮＣ　Ｐ
  52. ＥＮＤＩＦ
  53. ＮＥＸＴ
  54. ＣＬＳ
  55. Ｐ＝０
  56. ＤＩＭ　Ｂ
  57. ＤＩＳＰＬＡＹ　０
  58. ＧＯＳＵＢ　＠ＭＭＬＤＡＴＡＳＨＯＷ
  59. ＷＨＩＬＥ　１
  60. ＧＯＳＵＢ　＠ＣＨＥＣＫ＿ＢＵＴＴＯＮ
  61. ＧＯＳＵＢ　＠ＰＲＩＮＴ＿ＢＧＭＤＡＴＡ
  62. ＧＯＳＵＢ　＠ＵＮＤＥＲＤＩＳＰＬＡＹ
  63. ＶＳＹＮＣ
  64. ＷＥＮＤ
  65. ＠ＣＨＥＣＫ＿ＢＵＴＴＯＮ
  66. Ｂ＝ＢＵＴＴＯＮ（１）
  67. ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　ＤＥＣ　Ｐ
  68. ＩＦ　Ｂ　ＡＮＤ　２　ＴＨＥＮ　ＩＮＣ　Ｐ
  69. ＩＦ　Ｂ　ＡＮＤ　４　ＴＨＥＮ　ＤＥＣ　Ｐ，５
  70. ＩＦ　Ｂ　ＡＮＤ　８　ＴＨＥＮ　ＩＮＣ　Ｐ，５
  71. ＩＦ　Ｐ＜０　ＴＨＥＮ　Ｐ＝０
  72. ＩＦ　Ｐ＞ＬＥＮ（ＣＡＮＰＬＡＹＢＧＭＦＩＬＥ＄）−１　ＴＨＥＮ　Ｐ＝ＬＥＮ（ＣＡＮＰＬＡＹＢＧＭＦＩＬＥ＄）−１
  73. ＩＦ　Ｂ　ＡＮＤ　１６　ＴＨＥＮ　ＢＧＭＰＬＡＹ　ＭＭＬ＄［Ｐ］：ＷＡＩＴ　２０：ＣＯＮＴＦＬＧ＝０
  74. ＩＦ　（Ｂ＝＝＃Ｂ）　ＡＮＤ　　ＣＯＮＴＦＬＧ　ＴＨＥＮ　ＢＧＭＣＯＮＴ　　０：ＣＯＮＴＦＬＧ＝ＦＡＬＳＥ
  75. ＩＦ　（Ｂ＝＝＃Ｘ）　ＡＮＤ　！ＣＯＮＴＦＬＧ　ＴＨＥＮ　ＢＧＭＰＡＵＳＥ　０，０．５：ＣＯＮＴＦＬＧ＝ＴＲＵＥ
  76. ＩＦ　Ｂ　ＴＨＥＮ　ＣＬＳ　ＧＯＳＵＢ　＠ＭＭＬＤＡＴＡＳＨＯＷ
  77. ＲＥＴＵＲＮ
  78. ＠ＰＲＩＮＴ＿ＢＧＭＤＡＴＡ
  79. ＬＯＣＡＴＥ　０，０：ＣＯＬＯＲ　＃ＴＭＡＧＥＮＴＡ
  80. ＰＲＩＮＴ　”ＴＲＡＣＫ　”＋ＦＯＲＭＡＴ＄（”％０３Ｄ”，Ｐ）
  81. ＬＯＣＡＴＥ　２，２：ＣＯＬＯＲ　＃ＴＹＥＬＬＯＷ
  82. ＰＲＩＮＴ　ＴＩＴＬＥ＄［Ｐ］；”　”＊４０
  83. ＬＯＣＡＴＥ　３，３：ＣＯＬＯＲ　＃ＴＣＹＡＮ
  84. ＰＲＩＮＴ　”作曲　”；ＣＯＭＰＯＳＥＲ＄［Ｐ］；”　”＊４０
  85. ＬＯＣＡＴＥ　３，５：ＣＯＬＯＲ　＃ＴＷＨＩＴＥ
  86. ＰＲＩＮＴ　”・”；ＴＥＸＴ＄［Ｐ］；”　”＊４０
  87. ＬＯＣＡＴＥ　３，７
  88. ＲＥＴＵＲＮ
  89. ＠ＭＭＬＤＡＴＡＳＨＯＷ
  90. ＳＥＲＣＨ＝０：ＧＭ＝０：ＰＯＩＮＴ＝０：ＦＩＬＬ　ＧＭ＄，””：ＦＩＬＬ　ＣＨＡＮＮＥＬＶＯＬＵＭＥ＄，””
  91. ＬＯＣＡＴＥ　０，９
  92. ＷＨＩＬＥ　１
  93. ＰＯＩＮＴ＝ＳＥＲＣＨ
  94. ＳＥＲＣＨ＝ＩＮＳＴＲ（ＰＯＩＮＴ，ＭＭＬ＄［Ｐ］，”：”）
  95. ＩＦ　ＳＥＲＣＨ！＝−１　ＴＨＥＮ　ＳＥＲＣＨ＝ＩＮＳＴＲ（ＳＥＲＣＨ，ＭＭＬ＄［Ｐ］，”＠”）
  96. ＩＦ　ＳＥＲＣＨ！＝−１　ＴＨＥＮ
  97. ＮＥＩＲＯ＄＝ＭＩＤ＄（ＭＭＬ＄［Ｐ］，ＳＥＲＣＨ，４）
  98. ＳＥＲＣＨＶＯＬ＝ＩＮＳＴＲ（ＳＥＲＣＨ，ＭＭＬ＄［Ｐ］，”Ｖ”）
  99. ＩＦ　ＳＥＲＣＨＶＯＬ！＝−１　ＴＨＥＮ　
  100. ＶＯＬ＄　　＝ＭＩＤ＄（ＭＭＬ＄［Ｐ］，ＳＥＲＣＨＶＯＬ，４）
  101. ＥＮＤＩＦ
  102. ＦＯＲ　Ｉ＝１　ＴＯ　３
  103. ＰＡＲＴ＄＝ＭＩＤ＄（ＮＥＩＲＯ＄，Ｉ，１）
  104. ＶＯＬＰＡＲＴ＄＝ＭＩＤ＄（ＶＯＬ＄，Ｉ，１）
  105. ＩＦ　ＡＳＣ（ＰＡＲＴ＄）＞４７　＆＆　ＡＳＣ（ＰＡＲＴ＄）＜５８　ＴＨＥＮ
  106. ＧＭ＄［ＧＭ］＝ＧＭ＄［ＧＭ］＋ＰＡＲＴ＄
  107. ＣＨＫ＝ＴＲＵＥ
  108. ＥＮＤＩＦ
  109. ＩＦ　ＡＳＣ（ＶＯＬＰＡＲＴ＄）＞４７　＆＆　ＡＳＣ（ＶＯＬＰＡＲＴ＄）＜５８　ＴＨＥＮ
  110. ＣＨＡＮＮＥＬＶＯＬＵＭＥ＄［ＧＭ］＝ＣＨＡＮＮＥＬＶＯＬＵＭＥ＄［ＧＭ］＋ＶＯＬＰＡＲＴ＄
  111. ＥＮＤＩＦ
  112. ＮＥＸＴ
  113. ＩＦ　ＣＨＫ　ＴＨＥＮ　ＩＮＣ　ＧＭ：ＣＨＫ＝ＦＡＬＳＥ
  114. ＥＬＳＥ
  115. ＢＲＥＡＫ
  116. ＥＮＤＩＦ
  117. ＷＥＮＤ
  118. ＣＯＬＯＲ　＃ＴＬＩＭＥ
  119. ＰＲＩＮＴ　”使用音源　　”；
  120. ＣＯＬＯＲ　＃ＴＭＡＲＯＯＮ
  121. ＰＲＩＮＴ　”※ＭＭＬ表記のしかたによって、実際の音源と異なる表示をする場合があります。”
  122. ？
  123. ＣＯＬＯＲ　＃ＴＷＨＩＴＥ
  124. ＦＯＲ　Ｉ＝０　ＴＯ　１６
  125. ＩＦ　ＧＭ＄［Ｉ］＝＝””　ＴＨＥＮ　ＢＲＥＡＫ
  126. ？”　”＊３＋ＦＯＲＭＡＴ＄（”％０２Ｄ”，Ｉ）＋”：”＋ＦＯＲＭＡＴ＄（”％０３Ｄ”，ＶＡＬ（ＧＭ＄［Ｉ］））＋”　”＋ＧＭＮＡＭＥＳ＄［ＶＡＬ（ＧＭ＄［Ｉ］）］
  127. ＩＦ　ＣＨＡＮＮＥＬＶＯＬＵＭＥ＄［Ｉ］＝＝””　ＴＨＥＮ　ＣＨＡＮＮＥＬＶＯＬＵＭＥ＄［Ｉ］＝”（Ｕｎｄｉｆｉｎｅｄ）
  128. ＬＯＣＡＴＥ　３０，１１＋Ｉ：？”　Ｖ：”＋ＣＨＡＮＮＥＬＶＯＬＵＭＥ＄［Ｉ］
  129. ＮＥＸＴ
  130. ＳＥＲＣＨ＝ＩＮＳＴＲ（０，ＭＭＬ＄［Ｐ］，”Ｔ”）
  131. ＩＦ　ＳＥＲＣＨ！＝−１　ＴＨＥＮ
  132. ＮＥＩＲＯ＄＝ＭＩＤ＄（ＭＭＬ＄［Ｐ］，ＳＥＲＣＨ，４）
  133. ＴＥＭＰＯ＄＝””
  134. ＦＯＲ　Ｉ＝１　ＴＯ　３
  135. ＰＡＲＴ＄＝ＭＩＤ＄（ＮＥＩＲＯ＄，Ｉ，１）
  136. ＩＦ　ＡＳＣ（ＰＡＲＴ＄）＞４７　＆＆　ＡＳＣ（ＰＡＲＴ＄）＜５８　ＴＨＥＮ
  137. ＴＥＭＰＯ＄＝ＴＥＭＰＯ＄＋ＰＡＲＴ＄
  138. ＥＮＤＩＦ
  139. ＮＥＸＴ
  140. ＥＬＳＥ　
  141. ＴＥＭＰＯ＄＝”１２０”
  142. ＥＮＤＩＦ
  143. ＲＥＴＵＲＮ
  144. ＠ＵＮＤＥＲＤＩＳＰＬＡＹ
  145. ＤＩＳＰＬＡＹ　１
  146. ＴＯＵＣＨ　ＯＵＴ　ＴＴ，ＴＸ，ＴＹ
  147. ＩＦ　ＴＴ　ＴＨＥＮ　
  148. ＩＦ　ＴＸ＞２４　＆＆　ＴＸ＜７２　＆＆　ＴＹ＞２５＊８　＆＆　ＴＹ＜２７＊８ＴＨＥＮ
  149. ＩＮＰＵＴ　”ご希望のテンポを入力”；ＮＥＷＴＥＭＰＯ
  150. ＳＥＲＣＨ＝ＩＮＳＴＲ（ＭＭＬ＄［Ｐ］，”Ｔ”）
  151. ＩＦ　ＳＥＲＣＨ！＝−１　ＴＨＥＮ　
  152. ＲＥＮＥＷＭＭＬＤＡＴＡ＄［０］＝ＬＥＦＴ＄（ＭＭＬ＄［Ｐ］，ＳＥＲＣＨ）
  153. ＲＥＮＥＷＭＭＬＤＡＴＡ＄［１］＝ＲＩＧＨＴ＄（ＭＭＬ＄［Ｐ］，ＬＥＮ（ＭＭＬ＄［Ｐ］）−ＬＥＮ（ＲＥＮＥＷＭＭＬＤＡＴＡ＄［０］）−ＬＥＮ（ＴＥＭＰＯ＄）−１）
  154. ＭＭＬ＄［Ｐ］＝ＲＥＮＥＷＭＭＬＤＡＴＡ＄［０］＋”Ｔ”＋ＳＴＲ＄（ＮＥＷＴＥＭＰＯ）＋ＲＥＮＥＷＭＭＬＤＡＴＡ＄［１］
  155. ＥＬＳＥ　
  156. ＤＩＡＬＯＧ””ＭＭＬ＄［Ｐ］＝”Ｔ”＋ＳＴＲ＄（ＮＥＷＴＥＭＰＯ）＋ＭＭＬ＄［Ｐ］
  157. ＥＮＤＩＦ
  158. ＥＮＤＩＦ
  159. ＥＮＤＩＦ
  160. ＤＩＳＰＬＡＹ　０
  161. ＲＥＴＵＲＮ
  162. ※一部を割愛しています

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • takumi : 凄い…… (2020/02/18 (火) 18:27:36)

メニュー 【3号】

ヘルプ

リンク

最近の更新

最近の人気ページ

オンライン情報

  • 現在同時に 1 人がこのサイトを見ています
  • このページはこれまでに 1960 回、本日は 1 回、昨日は 0 回閲覧されました

ページの先頭に戻る

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.089 秒 | このページの最終更新 : 2022/09/20 (火) 12:49:01 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30