サクラトップ 掲示板トップ ログイン

配列と乱数による環境音 - サクラ曲掲示板6

曲掲示板6にエディタ機能が追加されました！気軽に曲を作成してみましょう！
HiroChan（ひろちゃん）

配列と乱数による環境音

HiroChan（ひろちゃん）
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. /*
  2.  
  3. 配列と乱数による環境音
  4.  
  5.  
  6.  
  7. 慣らし材料替わり。
  8.  
  9. */
  10. //------------------------------------------------------------------------------
  11.  
  12. //音階の代わり
  13. Array Notes
  14. Notes(0)=("r")
  15. Notes(1)=("c")
  16. Notes(2)=("d")
  17. Notes(3)=("e-")
  18. Notes(4)=("f")
  19. Notes(5)=("g")
  20. Notes(6)=("a-")
  21. Notes(7)=("b-")
  22.  
  23. //和音
  24. Array Chd
  25. Chd(0)=("r")
  26. Chd(1)=("'cg>ce-<'")
  27. Chd(2)=("'da->df<'")
  28. Chd(3)=("'e-b->e-g<'")
  29. Chd(4)=("'f>cfa-<'")
  30. Chd(5)=("'<g>dfb'")
  31. Chd(6)=("'<a->e-a->c<'")
  32. Chd(7)=("'<b->fb->d-<'")
  33.  
  34. //低音
  35. Array Bs
  36. Bs(0)=("r")
  37. Bs(1)=("c")
  38. Bs(2)=("d")
  39. Bs(3)=("e-")
  40. Bs(4)=("f")
  41. Bs(5)=("<g>")
  42. Bs(6)=("<a->")
  43. Bs(7)=("<b->")
  44.  
  45. Int I
  46. Str Buffer
  47.  
  48. //------------------------------------------------------------------------------
  49.  
  50. //演奏用
  51.  
  52. ResetGM
  53.  
  54. /*
  55.  
  56. //比較用
  57. [8
  58.  
  59. TR(1) @77 o5 [4 l4 [4 Buffer=Buffer+Notes(Random(0,7)) ] Buffer=Buffer+" " ] Print("TR(1) "+Buffer) Buffer Buffer=""//ノート
  60. TR(2) @4 o4 [4 l1 Buffer=Buffer+Chd(Random(1,7)) Buffer=Buffer+" " ] Print("TR(2) "+Buffer) Buffer Buffer=""//和音
  61. TR(3) @34 o3 [4 l2 [2 Buffer=Buffer+Bs(Random(1,7)) ] Buffer=Buffer+" " ] Print("TR(3) "+Buffer) Buffer Buffer=""//低音
  62.  
  63. Print("")
  64.  
  65. ]
  66.  
  67. */
  68.  
  69. //リピート指定
  70. [16
  71.  
  72. //数値を振る
  73. I=Random(1,7)
  74.  
  75. /*
  76. //ノート
  77. TR(1)@72 CHO(0) REV(0) v90 o5 l4
  78. [4
  79. //Iの値で分岐
  80. Switch(I){
  81. Case(1){Buffer=Buffer+Notes(RandomSelect(1,3,5,0))}//文字列に連結
  82. Case(2){Buffer=Buffer+Notes(RandomSelect(2,4,6,0))}
  83. Case(3){Buffer=Buffer+Notes(RandomSelect(3,5,7,0))}
  84. Case(4){Buffer=Buffer+Notes(RandomSelect(4,6,1,0))}
  85. Case(5){Buffer=Buffer+Notes(RandomSelect(5,7,2,0))}
  86. Case(6){Buffer=Buffer+Notes(RandomSelect(6,1,3,0))}
  87. Case(7){Buffer=Buffer+Notes(RandomSelect(7,2,4,0))}
  88. Default{Buffer=Buffer+"r"}
  89. }
  90.  
  91. ]
  93. //Print(Buffer)//表示
  94. Buffer//演奏
  95. Buffer=""//空文字列でクリア
  96. */
  97.  
  98. //和音
  99. TR(2)@4 CHO(0) REV(0) v64 o4 l1
  100. [1
  101. Buffer=Buffer+Chd(I)
  102. ]
  103. //Print(Buffer
作者からのコメント
慣らし材料替わり。
作曲者
一応自作
ライセンス
🚫転載禁止商用利用 ×改変 ×作者に無断で使えません
転載
許可しない
推奨音源
GM互換
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2025-05-11 08:30
更新日時
2025-05-11 08:30
お気に入り
(^o^)/
ダウンロード数
95
タグ
タグはありません。
→この曲(id:2797)に問題がある場合こちらへ

感謝のコメント

感謝のコメント募集中です!!
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）