プチコンまとめArchive

投稿プログラム : 電子ピアノ

パンくずリスト

このページの最終更新 : 2021/07/12 (月) 12:36:20
公式アーカイブのリンク: http://wiki.hosiken.jp/petc/html/Toukou/C5-C5-BB-D2-A5-D4-A5-A2-A5-CE-.html

2012年01月21日投稿 / 投稿者 : 天郷思音（わぁぃ＠） / タグ : 投稿プログラム 音楽 QRコード 初代対応

概要

これは電子ピアノ（キーボード）です。

特徴

サンプルのものとは違い、鍵盤が表示されます。

付属機能

ワンキーモジュレーション

十字キー（左右）で半音上げ下げができます。

録音/再生

Aボタンで録音を開始/終了します。
13分39秒まで録音できます。
ＧＲＰにデータを書き出す構想はToukou/プログラムのマージを参考にさせていただきました。

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

電車の運転台みたいにいろいろとボタンがあるバージョン３

piano3.JPG

無理やり4オクターブ出せるようにした場合

PIANO_x2.JPG

幅が8ドットしかないのでかなり弾きにくい。

プログラムリスト

バージョン４ (QR コード)

12
qr0.pngqr1.png
3-
qr2.png

バージョン３

修正
  • "ＮＮ（）は音色だとしたらＩが２以上になるのはまずいのかな？"⇒修正しました。（Ｉ）ではなく（Ｎ）でした。(2012/02/17 (金) 22:52:08)
  • "VISIBLEのSPのパラメータは1にしなくてよいの？"⇒修正しました。(2012/02/17 (金) 22:52:08)
  • "カウンターのボタン表示らしきところに鍵盤を構成すべきＢＧが上書きされているような感じです。"⇒修正しました。(2012/02/17 (金) 22:52:08)
  • "ＮＮ（）については＠ＰＬＡＹ２のほう（１０３行）も修正したほうがよい"⇒修正しました。(2012/02/18 (土) 16:57:49)
  • "９６行目のＦＬＯＯＲ（（ＴＸ／１１２）－３２）→ＦＬＯＯＲ（（ＴＸ－３２）／１１２）にしないと"⇒修正しました。(2012/02/18 (土) 16:57:49)
  • "７２行目のＮ＝ＩＣ→Ｎ＝ＩＣ－１にしないと"⇒手元のプログラムに合わせました。（35～39行目もご確認ください。）(2012/02/18 (土) 16:57:49)
  • "７３行目あたりのＳＰのＸ座標チェックがあまいのか画面右端までいってしまう。深いほうのＩＦ文条件ＴＹ→ＴＸでは？"⇒修正しました。(2012/02/18 (土) 16:57:49)
  • "各ボタンに対応したところをタッチすると処理が戻ってこない"⇒修正しました。(2012/02/24 (金) 21:14:17)
  • "６７、６８行目のPNLSTRの座標が微妙に違う"⇒修正しました。(2012/02/24 (金) 21:14:17)
  • "５３行目のカッコが足りないのでは"⇒修正しました。(2012/02/24 (金) 21:14:17)
  • "色々やってみたけで今のソースのままだと上画面にP＄が表示されません"⇒修正しました。（誤って表示後に初期化しておりました。）(2012/02/24 (金) 21:14:17)
プログラムリスト
  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. ＥＮＤ


バージョン２

修正
  • "29行目，21文字目　｝｝が入っています。　39行目，22文字目＆40行目，49文字目　FALSEでは？"⇒修正しました。
  • "もうひとつすいません。39,40行目あたりのIF文の内容についてと、ボタン判定も一回だけ受け取る処理が必要かと思います。"⇒修正しました。ただし、ダブルIFは問題ありません。(2012/01/31 (火) 20:52:36)
  • "できれば再生プログラムをメインプログラムに吸収できないでしょうか？" ⇒追加しました。(2012/02/03 (金) 21:19:04)
  • システム変数（ＴＲＵＥ，ＦＡＬＳＥ）と普通の１，０が混在していたのを普通の１，０に統一しました。(2012/02/03 (金) 21:19:04)
  • "うまく再生できなかった"⇒修正しました。(2012/02/11 (土) 13:02:48)
  • "40行目のIFが文法エラーになる"⇒修正しました。(2012/02/11 (土) 13:02:48)
プログラムリスト
  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. ＥＮＤ

再生用ルーチン

組み込むプログラムのメインループにＶＳＹＮＣ　１が必要です。

  1. ＠ＰＬＡＹＢＧＭ　
  2. ＢＧＭ＝ＧＳＰＯＩＴ（ＢＧＭＴＩＭＥ％２５６，ＢＧＭＴＩＭＥ／２５６）　
  3. ＩＦ　ＢＧＭ＜２６　ＯＲ　ＢＧＭ＞７４　ＴＨＥＮ　ＲＥＴＵＲＮ　
  4. ＢＥＥＰ　２１，（ＢＧＭ－５０）＊４０９６／１２
  5. ＲＥＴＵＲＮ

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

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談はOFコーナーや掲示板で)
付属機能のご要望もどうぞ。

  • バイカウントメルビル : 録音機能なんかあったらおもしろいしつかえるなーと。 (2012/01/22 (日) 09:57:39)
  • わぁぃ@ : 追加しました。 (2012/01/22 (日) 14:23:19)
  • バイカウントメルビル : さっすがわぁいさん！仕事が早い！ (2012/01/22 (日) 19:07:57)
  • バイカウントメルビル : 音や音量を変えることができる機能や、エコーの機能（ON／OFF可）がつくといいと思います。 (2012/01/22 (日) 19:09:37)
  • わぁぃ@ : 音量と音はすぐできますが、エコーはちょっと難しいですね。とりあえず作ります。あと、保存はSAVE"GRP:○○でできます。(分かってるかもしれませんが) (2012/01/22 (日) 19:14:47)
  • バイカウントメルビル : グラフィックで保存とは画期的ですね(^^)参考にさせていただきます(笑) (2012/01/22 (日) 19:24:46)
  • わぁぃ@ : プログラムのマージの処理の応用ですから、そちらにもご挨拶いただければ幸いです。 (2012/01/22 (日) 20:56:12)
  • バイカウントメルビル : ほんとだ、ありがとうございます!(^^)! (2012/01/23 (月) 00:03:39)
  • RND 128 : 作曲機能とかほしいかも。　29行目，21文字目　｝｝が入っています。　39行目，22文字目＆40行目，49文字目　FALSEでは？ (2012/01/23 (月) 02:03:03)
  • RND 128 : もうひとつすいません。39,40行目あたりのIF文の内容についてと、ボタン判定も一回だけ受け取る処理が必要かと思います。 (2012/01/23 (月) 02:51:35)
  • わぁぃ@ : IF - THEN IF -THEN(個人的に”ダブルIF”と命名)は問題ありません。 (2012/01/27 (金) 15:58:46)
  • バイカウントメルビル : ↑へ～、知らなかった。でもANDでよくね？ｗ・・・と思ったけどその後が実行されないのかｗ (2012/01/27 (金) 18:43:05)
  • わぁぃ@ : 字数的には多くなりますが、必ず2回比較するより、1つ条件を満たしたときのみもう1回比較するようにしたほうが無駄がないという思考によるこだわり。 (2012/01/27 (金) 18:50:21)
  • わぁぃ@ : 他には、条件aか条件bを満たして、条件cを満たしていればBEEPという文がIF 条件a OR 条件b AND 条件c THEN BEEPがあっているか分からない場合などに使います。 (2012/01/27 (金) 18:54:59)
  • わぁい@ : キーの大きさを半分にすれば4オクターブ出せますが、非常に弾きにくいです。あとで画像載せます。 (2012/01/27 (金) 19:44:12)
  • 初心者 : Aボタンを押しても左上のカウンターが動作しないのですが、初心者で入力判定らしきものがよく解らず修正できません。（３９，４０行あたりですよね．．．） (2012/01/30 (月) 14:57:53)
  • わぁぃ@ : OLD処理忘れてました。すみません。 (2012/01/30 (月) 21:42:19)
  • わぁぃ@ : ↑修正しました。 (2012/01/31 (火) 20:54:43)
  • わぁぃ@ : ↑の修正が不完全なことが分かりました。再修正しますのでいましばらくお待ちください。 (2012/02/01 (水) 19:33:16)
  • わぁぃ@ : 再修正できました。 (2012/02/01 (水) 22:36:24)
  • 初心者 : ありがとうございました。録音はうまくいきました。できれば再生プログラムをメインプログラムに吸収できないでしょうか？あと再生を途中で停止するにはどのような処理を追加したらよいのでしょうか？ (2012/02/02 (木) 16:29:37)
  • 初心者 : もう一つ。押した鍵盤が光るとそれっぽくないですか？（自分で改良しようとしたが失敗してしまった…） (2012/02/02 (木) 16:51:42)
  • わぁぃ@ : 難しいうえ、重くなるので今のところ追加しません。 (2012/02/02 (木) 17:21:58)
  • わぁぃ@ : 録音しながら再生できるようにできました。プログラムリストは夕方ごろ更新します。 (2012/02/03 (金) 12:43:16)
  • わぁぃ@ : ↑更新しました。 (2012/02/04 (土) 12:00:44)
  • わぁぃ@ : どうでもいいバグ発見。録音中に鍵盤以外のところをタッチすると、値が12になる(黄色い先になる)本来は0だが、どっちみち範囲外ではじかれるので問題ない (2012/02/05 (日) 10:50:53)
  • わぁぃ@ : ↑1行目の最後の0を1にすると分かる (2012/02/05 (日) 10:52:23)
  • 初心者 : 待ている間に鍵盤を2段（４オクターブにしたくて…）にしようとして、ひっちゃかめっちゃかになってしまったのですが、これって実現可能ですか？ (2012/02/06 (月) 10:32:13)
  • 初心者 : 自動演奏っぽいことはできるのでしょうか？（セーブ・ロード機能を組み込まないとだめなのかな…） (2012/02/06 (月) 10:37:29)
  • 名無しさん : 40行目のIFが文法エラーになるんですけど何間違えてるんでしょうか… (2012/02/06 (月) 16:13:50)
  • わぁぃ@ : ↑=は2こでした。すみません。 (2012/02/06 (月) 17:31:10)
  • わぁぃ@ : >>初心者さん：2段化は可能です。作曲は乱数でどうぞ。 (2012/02/06 (月) 17:36:08)
  • 名無しさん : ↑３です、ありがとうございました。ボタンで音色変更出来るようにいじりたいんですがどうすればいいですかね…自力じゃどうにもわからなくて(汗 (2012/02/07 (火) 22:06:24)
  • わぁぃ@ : 週末に最新版を載せるので少々お待ちください。 (2012/02/08 (水) 17:06:06)
  • 名無しさん : ↑ありがとうございます！ (2012/02/08 (水) 18:13:36)
  • 初心者 : うまく再生できなかったので、４４行のＲ→Ｐ、６５行のＩ→Ｓと適当にいぎったら、とりあえずうまくいきました。これでよいのでしょうか？ (2012/02/10 (金) 11:16:23)
  • プチコン : 30行目のNの逆みたいなのの打ちかたが分からないのと0とOの区別がorz (2012/02/10 (金) 17:54:38)
  • プチコン : 30行目のNの逆みたいなのの打ちかたが分からないのと0とOの区別がorz (2012/02/10 (金) 17:55:03)
  • わぁぃ@ : ↑Nは右よりの｜です。あとOという変数は使ってないはずです。 (2012/02/10 (金) 19:07:27)
  • わぁぃ@ : ＞＞初心者さん：RはRECのRなのでちがいます。Ｉ→Ｓは正解です。 (2012/02/11 (土) 13:03:56)
  • 名無しさん : 毎回すいません、最新版打ち込んだら50行目のFORが文法エラーになったんですけど… (2012/02/13 (月) 09:29:20)
  • わぁぃ@ : FOR I=0 TO 31はエラー因子ないですよ。 (2012/02/13 (月) 15:50:51)
  • 初心者 : 最新版の鍵盤がまったく表示されないんですが、プログラムのどのあたりを確認したらよいのですか？（入力ミスはないと思います…） (2012/02/14 (火) 11:05:17)
  • 初心者 : それと実際の画面はどんな感じなのですか？（スプライトはボリュームかな…） (2012/02/14 (火) 11:07:09)
  • 七夜 : 40行目がundefind label(40,IF)と出るのですがどうしたら… (2012/02/14 (火) 19:50:53)
  • 七夜 : すみません自己解決しました。ただ、55行目が何回やってもエラーします。subscript out of range (55,ASC)と出ます。どうしたらいいですか？ (2012/02/14 (火) 20:21:18)
  • わぁぃ@ : 55行目、ASCないはず。VALでは？ (2012/02/14 (火) 21:42:14)
  • わぁぃ@ : 鍵盤出ない件は状況が分からないと。全く何も出ないですか？(他のパーツとかも) (2012/02/14 (火) 21:44:56)
  • 名無しさん : 55行目のエラーが出たときの変数Ｉの値が0～11の範囲内に収まってないように思います。エラーが出たら？I を実行して値を確認してみると何かわかるかもしれません。 (2012/02/14 (火) 22:24:21)
  • 名無しさん : 多分七夜さんが入力されたのはバージョン２なのではないかと思ったので書かせてもらいました。 (2012/02/14 (火) 22:34:41)
  • わぁぃ@ : バージョン2ですか？(処理が抜けてた記憶が・・・) (2012/02/14 (火) 22:38:48)
  • わぁぃ@ : 確認しましたが、ＩＦ　Ｉ＞１１　ＴＨＥＮ　ＲＥＴＵＲＮではじく仕様になっているので問題ないですね。 (2012/02/14 (火) 22:43:50)
  • 七夜 : ASCではないのですか。valにしてみたのですが、実行すると下に白い点線が出てきて、鍵盤の絵がなく、タッチすると音がなるんですが…バージョン2は修正版だと思ったら違うんですか…？ (2012/02/14 (火) 23:51:13)
  • わぁぃ@ : バージョン2ならASCであってます。上にかかれているようなコードが抜けていないか確認を。 (2012/02/15 (水) 17:15:58)
  • わぁぃ@ : いくらバージョンアップしても直接アップロードしない限り誤植は無くならないものです。 (2012/02/15 (水) 17:21:56)
  • 七夜 : あれ…下手したら55行目文字化けしてるかな…何回打ち直しても直らない…すみませんが55行目をコメントで書いてください… (2012/02/15 (水) 17:34:16)
  • 七夜 : あっちなみにバージョン2です。うまく起動しますかね (2012/02/15 (水) 17:37:55)
  • 名無しさん : IF CHKCHR(TCHX/8，TCHY/8)==ASC(RM$(I)) THEN @PLAY 以上55行目をコメントで打ってみました。ちゃんと表示されてるかな？ちなみに、55行目でエラーが出たから55行目に間違いがあるとは限らないですよ。 (2012/02/15 (水) 23:02:55)
  • 名無しさん : IF CHKCHR(TCHX/8，TCHY/8)==ASC(RM$(I)) THEN @PLAY 以上55行目をコメントで打ってみました。ちゃんと表示されてるかな？ちなみに、55行目でエラーが出たから55行目に間違いがあるとは限らないですよ。 (2012/02/15 (水) 23:32:30)
  • 名無しさん : 間違えて2度書きしてしまいました。ごめんなさい。 (2012/02/15 (水) 23:33:58)
  • 名無しさん : プチコンってやり方次次第で何でも出来るんですか。 (2012/02/16 (木) 00:07:30)
  • 名無しさん : ついでに私はまだ少６です。 (2012/02/16 (木) 00:11:00)
  • 初心者 : カウンターのボタン表示らしきところに鍵盤を構成すべきＢＧが上書きされているような感じです。録音用のカウンターは動くけれど鍵盤は表示されません。ちなみに「ＦＯＲ　Ｉ＝０　ＴＯ　７６７：？”　”；ＮＥＸＴ」をＶｅｒ２同様にＤＡＴＡ文のすぐ後にもっていくと、鍵盤は表示されるがタッチすると＠ＰＬＡＹのＢＥＥＰ文でエラーがでます。（内容はＮＮ（Ｉ）のＩの値が大きすぎるみたいな感じだと思います） (2012/02/16 (木) 12:41:56)
  • 初心者 : どうやら上画面に読み取るキャラがないような感じです…あとＮＮ（）は音色だとしたらＩが２以上になるのはまずいのかな？ (2012/02/16 (木) 12:50:04)
  • わぁぃ@ : 掲載時に手を加えたせいかな。(読み込みの配列を手元のプログラムと変えました。) (2012/02/16 (木) 18:33:57)
  • 名無しさん : やっぱり普通の人が書くと完全に無視されますね。 (2012/02/16 (木) 19:06:14)
  • わぁぃ@ : いえいえ。今日はコメントが多いもので。1つずつ返信しますね。金曜日には。 (2012/02/16 (木) 19:38:41)
  • わぁぃ@ : すみません。NN(I)→NN(N)ですね。 (2012/02/16 (木) 19:41:13)
  • わぁぃ@ : >>プチコンってやり方次第で(略)：通信以外自由にできますね。 (2012/02/16 (木) 19:43:49)
  • qa : 私は初心者だからプログラムとかそういうのはまったく分からんです講座とか見ても肝心なところがほとんど書かれてないし、、、 (2012/02/16 (木) 22:27:54)
  • 名無しさん : こういうコメントを書くのって色々大変じゃないですか？ (2012/02/16 (木) 22:30:11)
  • qa : すいません。。つけてませんでした。 (2012/02/16 (木) 22:34:39)
  • qa : すいません。。つけてませんでした。 (2012/02/16 (木) 22:37:35)
  • qa : 毎度すいません。二度書きしてました。本当すいません。 (2012/02/16 (木) 22:41:32)
  • 初心者 : VISIBLEのSPのパラメータは1にしなくてよいの？スプライトが表示されないのではないですか。ちなみにVer2はうまく動いてますよ！ (2012/02/17 (金) 12:20:18)
  • わぁぃ@ : ↑あー。確かに。 (2012/02/17 (金) 15:26:59)
  • わぁぃ@ : >>ＢＧが上書きされて：＊（ＡＳＣ（Ｃ＄）＞３２）が抜けていたようです。 (2012/02/17 (金) 22:48:28)
  • 名無しさん : 4オクターブのやつはもう少し大きく出来ますか? (2012/02/17 (金) 23:38:04)
  • 名無しさん : すいません···むりですよね。 (2012/02/17 (金) 23:39:43)
  • わぁぃ@ : ↑2段にすればできる。 (2012/02/18 (土) 08:42:42)
  • 名無しさん : あ、できました。結構やりやすいです。わぁいさん、ありがとうございます。 (2012/02/18 (土) 11:29:44)
  • 初心者 : 自分なりにいろいろ修正して動くようにしてみました。参考までに・・・①４０行目の画面をスペースでうめる処理はＤＡＴＡ文のすぐあと（おそらく２９行のあとでもだいじょうぶなのかな？）にしないと鍵盤が表示されないようです。②ＮＮ（）については＠ＰＬＡＹ２のほう（１０３行）も修正したほうがよいのでは。③９６行目のＦＬＯＯＲ（（ＴＸ／１１２）－３２）→ＦＬＯＯＲ（（ＴＸ－３２）／１１２）にしないと今回追加した右端の方をタッチするとオーバーフローするのでは。④７２行目のＮ＝ＩＣ→Ｎ＝ＩＣ－１にしないとシステムアイコンで音色を選択した時に結果がずれるのでは。⑤７３行目あたりのＳＰのＸ座標チェックがあまいのか画面右端までいってしまう。深いほうのＩＦ文条件ＴＹ→ＴＸでは？（未確認）⑥各ボタンに対応したところをタッチすると処理が戻ってこない？（確認中） (2012/02/18 (土) 13:05:04)
  • 初心者 : 長々とすいません。とりあえず①～④を修正すればＶｅｒ３も快調に動いています。それとエコーの実装を試みてみたが、言われたとおり処理が重くなってしまった。（半音さげて追っかけ再生じゃだめなのかな？ＶＳＹＮＣではなくてＭＡＩＮＣＮＴＬを使ってみたが、それでも処理落ちしてるみたい…） (2012/02/18 (土) 13:14:24)
  • わぁぃ@ : ＤＡＴＡ文の順序は調査中です。すみません。 (2012/02/18 (土) 16:58:37)
  • 初心者 : ↑↑⑥について９１行目のI=０のあとにG=０を追加することでかいけつしました。例えばタッチで録音を開始すると鍵盤が反応しなくなるみたいな…。修正はこれでよいのかな？ (2012/02/20 (月) 15:28:02)
  • 初心者 : ５３行目のカッコが足りないのでは？。C=（（（C＄～＜９）））＊（ASC～にしたらちゃんと動きました。 (2012/02/20 (月) 15:31:06)
  • 初心者 : あとは表示がらみなので別に修正しなくてもいいとおもうのですが一応…①５５行目の分岐条件の論理式にAND　C！＝０を追加しないと最初の画面表示の時、一瞬縦線が表示されるいたいです。（でも数字で上書きされるのできにしなくてもよいかも？）。②６７、６８行目のPNLSTRの座標が微妙に違う？スクリーンショットを参考に修正すると６７行→１，２　６８行→１２，２　となりそうですね。これをしないと①でうまく上書きされないようです。 (2012/02/20 (月) 15:38:20)
  • 初心者 : 以上でVer３も快調に動作しております。いろいろありがとうございました。 (2012/02/20 (月) 15:40:13)
  • 初心者 : あとひとつ。録音時の音色はいっしょに保存できないのですか？できたら本格的な演奏もできそうですね！！ (2012/02/20 (月) 15:50:00)
  • 初心者 : ↑×５　色々やってみたけで今のソースのままだと上画面にP＄が表示されません。Ver３で処理を変更したのかな？ (2012/02/20 (月) 15:59:36)
  • わぁぃ@ : いろいろ修正しました。ところで、このプログラムがどういう仕組みで動いているかご存知ですか？ (2012/02/24 (金) 21:23:12)
  • 初心者 : GRP画面を使用して録音＆再生をしているのはわかりました。鍵盤はタッチした座標を使って上画面のASCIIコードを読み取って音を鳴らしてるぐらいまでは何とか理解できました。他人のプログラムを読んでいくのは、なかなかたいへんですね。おそらく、今のままでは音色を一緒に保存するのはできないんですね。 (2012/02/27 (月) 12:17:58)
  • 初心者 : 知識がある方のプログラムは特殊な処理や論理式を多用しているので理解するのがたいへんですが、こちらでは細かい所までコメントしていただいたので参考になりました。 (2012/02/27 (月) 12:35:03)
  • わぁぃ@ : 最新版出来ました！メトロノームとエコーのような気がする機能追加。 (2012/03/05 (月) 22:55:14)
  • バイカウントメルビル : 是非ｍｋＩＩのＧＭとかに対応お願いします!(^^)! (2012/03/14 (水) 21:36:05)
  • 天郷思音 : すごい今更だけど、投稿者名の欄のフォーマットが標準から逸脱していたので修正しました。（ついでに最近の名前を併記） (2021/07/12 (月) 12:36:20)