プチコンまとめArchive

投稿プログラム : ミニドラム演奏

パンくずリスト

このページの最終更新 : 2022/09/20 (火) 12:44:15
公式アーカイブのリンク:http://wiki.hosiken.jp/petc/html/Toukou/A5-DF-A5-CB-A5-C9-A5-E9-A5-E0-B1-E9-C1-D5-.html

2011年04月03日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム MML ドラムマシン 音楽

概要

ゲームへの組み込みに使えるぐらい軽いドラムマシン。

用途

ゲーム内で単純なリズムを演奏させたい場合にご利用下さい。 音程変化、音の長さ等には対応しないことで処理を単純化しています。

プログラム解説

  • 音色定義の部分でアルファベット1文字ごとの音色を定義
  • RESTOREで演奏データを準備し@DRSETで演奏初期化
  • メインループ内で@DRPLAYを呼び出す
  • トラック(TRMAX)を1つにすればさらに軽くなります
  • MSTEPで1音ごとの長さを調整できます
  • 音色定義のところは見やすさ優先でASC("A")としていますが数値でも問題ありません

スクリーンショット・動画

ありません。

プログラムリスト

  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. ＲＥＴＵＲＮ

トラックを1つだけにする場合

  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. ＲＥＴＵＲＮ

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

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

  • すいか : ４５がエラーになります (2011/11/27 (日) 08:45:43)
  • すいか : ４５がエラーになります (2011/11/27 (日) 08:55:29)
  • わぁぃ@ : ↑なんというエラーですか？ (2011/11/27 (日) 11:27:18)
  • すいか : syntax error (45）です トラック一つだけのやつも同じエラーで(34､ASC)とでます (2011/11/27 (日) 13:51:27)
  • バイカウントメルビル : ↑Ｆ​Ｏ​Ｒ​　​Ｉ​＝​０​　​Ｔ​Ｏ​　​Ｔ​Ｒ​Ｍ​Ａ​Ｘ​－​１がＦ​Ｏ​Ｒ​　​１＝​０​　​Ｔ​Ｏ​　​Ｔ​Ｒ​Ｍ​Ａ​Ｘ​－​１になってたりとかしてませんか？ (2011/11/27 (日) 18:06:49)
  • バイカウントメルビル : あと括弧忘れとか (2011/11/27 (日) 20:05:44)
  • 名無しさん : ＩＦ　ＭＯＦＳ＞ＭＬＥＮ　ＴＨＥＮ　ＭＯＦＳ＝０　にしてるんじゃ？　ちゃんと　＞＝　にしないとそのエラーになりますよ。 (2012/02/06 (月) 22:53:19)
  • わぁぃ@ : 投稿プログラム,音楽のタグをつけておきました。 (2012/02/11 (土) 14:47:31)
  • ''’’　：　＜ｓｐａｎ　ｃｌａｓｓ＝"ｂａｓｉｃ－ｔｅｘｔ"＞ＱＲコート゛＜／ｓｐａｎ＞　（＆ａｍｐ；ｎｅｗ｛２０１２／０６／０６　（水）　１６：２１：３３)
  • 名無しさん : ↑名前を&BASICにしたらこうなった　言いたいことは、ＱＲコート゛カ゛ホシイ (2012/06/06 (水) 16:22:46)
  • BASIC : ニチチムフチヒフツカヒヌむちへ！てすふれのきたもつ (2012/09/19 (水) 07:15:58)
  • 名無しさん : 普通にpetiteditor使え (2012/09/19 (水) 07:33:38)
  • 名無しさん : これはプチコン初代用です。mkIIにはmmlがあります。 (2012/09/19 (水) 11:30:21)
  • 名無しさん : 結構役立つかも。 (2012/10/21 (日) 20:59:49)