当サイト関連記事：
・【プチコンmkII】食堂のおばちゃんの「ありがとうございました～」をDSiに発声させるプログラム
・ヤマハ音楽教室CMのレッスン曲をニンテンドーDSiに歌わせるプログラムを作りました。（プチコンmkII）
・プチコンmkIIでジャンケンゲームを作りました。「ゲロップ君のジャンケンポイ」
プチコンmkII内蔵の取扱説明書や関連サイトにある資料では、曲・効果音・音声発声については、音の雰囲気の説明が書かれているだけなので、プログラムを作るうえで不便でした。
■10 サウンド関係の表
実行モードでひとつずつ入力して試していくのがつらかったんです。
そんなわけで、BGMPLAY／BEEP／TALKサンプル試聴プログラムを作りました。
タッチパネルでBGMPLAY／BEEP／TALKのモードを選びます。[←][→]でパラメータ変更、[Ａ]ボタンで音が鳴ります。BGMPLAYは30種類の曲があります。
BEEPは70種類の音があります。
TALKモードのみ、[↑][↓]で@H（イントネーション）／@S（話者）／@E（感情）を選べます。（サウンド関係の表参照）
[Ｘ]ボタンで終わると、最終設定のパラメータが表示されるので、メモするなりして使います。（追記2013.3.10 : 下に掲載するQRコードを読み込んでから「プログラムを作る」モードでLOAD"BBTSAMPL"[Enter]、RUN[Enter]で実行してください。「作品を見る」モードで実行すると最終設定のパラメータは一瞬しか表示されません）
■BGMPLAY／BEEP／TALK命令サンプル試聴プログラム（プチコンmkII） - YouTube
TALKモードでしゃべる「あさおきて ひるねして よるねた」というセリフは、てんとう虫コミックス「ドラえもん」第10巻46ページの、のび太の日記を引用しました。好きなシーンというだけで特に意味はありません(笑)。
@E16の「歌うように」の設定では、わかりやすいように普通の発声の後に音程を付けて発声させてます。音階は「ドレミファソ・レミファソラ・ソラシド」です。
QRコードは下の2枚です。順番に読み込んでください。
ファイル名は「BBTSAMPL」です。
関連：蘇るBASICプログラミング プチコン公式活用テクニック
（Amazon）動けばいいという楽な方向で作ったのでぐちゃぐちゃなプログラムになってしまいました。
ボタンの反応がにぶいなど改善の余地が大ありですが、こちらがプログラムリストです。参考にならないと思うのであまり見ないほうがいいです(笑)。
’────────────
’ＢＧＭ／ＢＥＥＰ／ＴＡＬＫ シチョウ
’２０１３．３
’ｂｙ ｕｒｏｎｐｏｉ
’────────────
ＣＬＥＡＲ：ＣＬＳ：ＧＣＬＳ
Ｔ＄＝”＠Ｈ０＠Ｓ０＠Ｅ０”
ＰＮＬＴＹＰＥ ”ＯＦＦ”
’─── シタカ゛メン ヒ゛ョウカ゛
ＧＰＡＧＥ １
ＧＦＩＬＬ ０，３０，２５５，１９１，６
ＧＦＩＬＬ ８５，３０，１７０，１９１，７
ＧＦＩＬＬ １７１，３０，２５５，１９１，８
ＰＮＬＳＴＲ ２，１３，”ＢＧＭＰＬＡＹ”，１
ＰＮＬＳＴＲ １４，１３，”ＢＥＥＰ”，１
ＰＮＬＳＴＲ ２５，１３，”ＴＡＬＫ”，１
ＰＮＬＳＴＲ ８，１，”タッチシテ エランテ゛クタ゛サイ”，１５
’─── ウエカ゛メン ヒ゛ョウカ゛
ＧＯＳＵＢ ＠ＢＧＭ
ＧＯＳＵＢ ＠ＢＥＥＰ
ＧＯＳＵＢ ＠ＴＡＬＫ
ＧＯＳＵＢ ＠ＫＥＹＳ
ＧＯＳＵＢ ＠ＢＥＥＰＣ
ＧＯＳＵＢ ＠ＴＡＬＫＣ
ＧＰＡＧＥ ０
ＬＯＣＡＴＥ ２４，１４：ＰＲＩＮＴ ”┌─┐┌─┐
ＬＯＣＡＴＥ ２４，１５：ＰＲＩＮＴ ”│↑││↓│
ＬＯＣＡＴＥ ２４，１６：ＰＲＩＮＴ ”└─┘└─┘
’─── ＢＧＭＰＬＡＹ ホ゛タン＆タッチハ゜ネル
＠ＢＧＭＬＯＯＰ
Ａ＝ＢＵＴＴＯＮ（）
ＩＦ Ａ＝＝８ ＡＮＤ Ｍ＜２９ ＴＨＥＮ Ｍ＝Ｍ＋１：ＢＧＭＳＴＯＰ
ＩＦ Ａ＝＝４ ＡＮＤ Ｍ＞０ ＴＨＥＮ Ｍ＝Ｍ－１：ＢＧＭＳＴＯＰ
ＩＦ Ａ＝＝１６ ＴＨＥＮ ＢＧＭＰＬＡＹ Ｍ
ＩＦ Ａ＝＝６４ ＴＨＥＮ ＢＧＭＳＴＯＰ：ＣＬＳ：ＧＣＬＳ：ＧＰＡＧＥ １：ＧＣＬＳ：ＣＯＬＯＲ １５：ＧＯＴＯ ＠ＴＥＸＴ
ＩＦ ＴＣＨＳＴ＝＝ＴＲＵＥ ＡＮＤ ＴＣＨＸ＞８５ ＡＮＤ ＴＣＨＸ＜１７０ ＴＨＥＮ ＧＯＳＵＢ ＠ＢＧＭＣ：ＧＯＳＵＢ ＠ＢＥＥＰ：ＧＯＴＯ ＠ＢＥＥＰＬＯＯＰ
ＩＦ ＴＣＨＳＴ＝＝ＴＲＵＥ ＡＮＤ ＴＣＨＸ＞１７０ ＴＨＥＮ ＧＯＳＵＢ ＠ＢＧＭＣ：ＧＯＳＵＢ ＠ＴＡＬＫ：ＧＯＴＯ ＠ＴＡＬＫＬＯＯＰ
ＣＯＬＯＲ １：ＬＯＣＡＴＥ ２０，５：ＰＲＩＮＴ Ｍ；” ”
ＶＳＹＮＣ １５
ＧＯＴＯ ＠ＢＧＭＬＯＯＰ
’─── ＢＥＥＰ ホ゛タン＆タッチハ゜ネル
＠ＢＥＥＰＬＯＯＰ
Ａ＝ＢＵＴＴＯＮ（）
ＩＦ Ａ＝＝８ ＡＮＤ Ｎ＜６９ ＴＨＥＮ Ｎ＝Ｎ＋１
ＩＦ Ａ＝＝４ ＡＮＤ Ｎ＞０ ＴＨＥＮ Ｎ＝Ｎ－１
ＩＦ Ａ＝＝１６ ＴＨＥＮ ＢＥＥＰ Ｎ
ＩＦ Ａ＝＝６４ ＴＨＥＮ ＣＬＳ：ＧＣＬＳ：ＣＯＬＯＲ １５：ＧＯＴＯ ＠ＴＥＸＴ
ＩＦ ＴＣＨＳＴ＝＝ＴＲＵＥ ＡＮＤ ＴＣＨＸ＜８５ ＴＨＥＮ ＧＯＳＵＢ ＠ＢＥＥＰＣ：ＧＯＳＵＢ ＠ＢＧＭ：ＧＯＴＯ ＠ＢＧＭＬＯＯＰ
ＩＦ ＴＣＨＳＴ＝＝ＴＲＵＥ ＡＮＤ ＴＣＨＸ＞１７０ ＴＨＥＮ ＧＯＳＵＢ ＠ＢＥＥＰＣ：ＧＯＳＵＢ ＠ＴＡＬＫ：ＧＯＴＯ ＠ＴＡＬＫＬＯＯＰ
ＣＯＬＯＲ １：ＬＯＣＡＴＥ １７，１０：ＰＲＩＮＴ Ｎ；” ”
ＶＳＹＮＣ １５
ＧＯＴＯ ＠ＢＥＥＰＬＯＯＰ
’─── ＴＡＬＫ ホ゛タン＆タッチハ゜ネル
＠ＴＡＬＫＬＯＯＰ
Ａ＝ＢＵＴＴＯＮ（）
ＩＦ Ｐ＝＝０ ＡＮＤ Ａ＝＝８ ＡＮＤ Ｈ＜３ ＴＨＥＮ Ｈ＝Ｈ＋１
ＩＦ Ｐ＝＝０ ＡＮＤ Ａ＝＝４ ＡＮＤ Ｈ＞０ ＴＨＥＮ Ｈ＝Ｈ－１
ＩＦ Ｐ＝＝１ ＡＮＤ Ａ＝＝８ ＡＮＤ Ｓ＜１１ ＴＨＥＮ Ｓ＝Ｓ＋１
ＩＦ Ｐ＝＝１ ＡＮＤ Ａ＝＝４ ＡＮＤ Ｓ＞０ ＴＨＥＮ Ｓ＝Ｓ－１
ＩＦ Ｐ＝＝２ ＡＮＤ Ａ＝＝８ ＡＮＤ Ｅ＜１６ ＴＨＥＮ Ｅ＝Ｅ＋１
ＩＦ Ｐ＝＝２ ＡＮＤ Ａ＝＝４ ＡＮＤ Ｅ＞０ ＴＨＥＮ Ｅ＝Ｅ－１
ＩＦ Ａ＝＝１ ＡＮＤ Ｐ＞０ ＴＨＥＮ Ｐ＝Ｐ－１：ＧＯＳＵＢ ＠ＴＡＬＫＰＣ
ＩＦ Ａ＝＝２ ＡＮＤ Ｐ＜２ ＴＨＥＮ Ｐ＝Ｐ＋１：ＧＯＳＵＢ ＠ＴＡＬＫＰＣ
ＩＦ Ａ＝＝１６ ＡＮＤ Ｅ＝＝１６ ＧＯＴＯ ＠ＴＡＬＫＥ１６
ＩＦ Ａ＝＝１６ ＴＨＥＮ ＧＯＳＵＢ ＠ＴＡＬＫＯＮ
ＩＦ Ａ＝＝６４ ＴＨＥＮ ＣＬＳ：ＧＣＬＳ：ＣＯＬＯＲ １５：ＧＯＴＯ ＠ＴＥＸＴ
ＩＦ ＴＣＨＳＴ＝＝ＴＲＵＥ ＡＮＤ ＴＣＨＸ＜８５ ＴＨＥＮ ＧＯＳＵＢ ＠ＴＡＬＫＣ：ＧＯＳＵＢ ＠ＢＧＭ：ＧＯＴＯ ＠ＢＧＭＬＯＯＰ
ＩＦ ＴＣＨＳＴ＝＝ＴＲＵＥ ＡＮＤ ＴＣＨＸ＞８５ ＡＮＤ ＴＣＨＸ＜１７０ ＴＨＥＮ ＧＯＳＵＢ ＠ＴＡＬＫＣ：ＧＯＳＵＢ ＠ＢＥＥＰ：ＧＯＴＯ ＠ＢＥＥＰＬＯＯＰ
ＧＯＳＵＢ ＠ＴＡＬＫ
ＶＳＹＮＣ １５
ＧＯＴＯ ＠ＴＡＬＫＬＯＯＰ
’─── ＴＡＬＫ”＠Ｅ１６”ノ ハ゛アイ ノミ ウタウ
＠ＴＡＬＫＥ１６
ＧＯＳＵＢ ＠ＴＡＬＫＯＮ
＠ＴＡＬＫＣＨＫ
ＩＦ ＴＡＬＫＣＨＫ（）＝＝ＴＲＵＥ ＧＯＴＯ ＠ＴＡＬＫＣＨＫ
Ｔ１＄＝”＠Ｔ２００＠Ｎ１４４７ア＠Ｎ１５５９サ＠Ｎ１６８６オ＠Ｎ１７４５キ＠Ｎ１８５８テ＠Ｎ１５５９ヒ＠Ｎ１６８６ル＠Ｎ１７４５ネ＠Ｎ１８５８シ＠Ｎ１９７１テ
Ｔ２＄＝”＠Ｎ１８５８ヨ＠Ｎ１９７１ル＠Ｎ２０９３ネ＠Ｎ２１３７タ－”
Ｔ＄＝”＠Ｈ”＋ＳＴＲ＄（Ｈ）＋”＠Ｓ”＋ＳＴＲ＄（Ｓ）＋”＠Ｅ１６”＋Ｔ１＄＋Ｔ２＄
ＴＡＬＫ Ｔ＄
ＧＯＴＯ ＠ＴＡＬＫＬＯＯＰ
’─── ＥＮＤショリ サイシュウ ノ セッテイ ヒョウシ゛
＠ＴＥＸＴ
ＰＲＩＮＴ ”ＢＧＭＰＬＡＹ ”；Ｍ
ＰＲＩＮＴ
ＰＲＩＮＴ ”ＢＥＥＰ ”；Ｎ
ＰＲＩＮＴ
ＰＲＩＮＴ ”ＴＡＬＫ ”＋ＣＨＲ＄（３４）＋Ｔ＄＋ＣＨＲ＄（３４）
ＥＮＤ
’─── シャヘ゛ル
＠ＴＡＬＫＯＮ
Ｔ＄＝”＠Ｈ”＋ＳＴＲ＄（Ｈ）＋”＠Ｓ”＋ＳＴＲ＄（Ｓ）＋”＠Ｅ”＋ＳＴＲ＄（Ｅ）
ＴＡＬＫ Ｔ＄＋”アサオキテ ヒルネシテ ヨルネタ”
ＲＥＴＵＲＮ
’─── ウエカ゛メン
’─── ＢＧＭＰＬＡＹ ヒョウシ゛
＠ＢＧＭ
ＧＰＡＧＥ ０
ＧＦＩＬＬ ７０，３０，１９０，６０，６
ＣＯＬＯＲ １：ＬＯＣＡＴＥ １２，５
ＰＲＩＮＴ ”ＢＧＭＰＬＡＹ ”；Ｍ
ＲＥＴＵＲＮ
’─── ＢＧＭＰＬＡＹ ク゛レ－テ゛ＯＦＦヒョウシ゛
＠ＢＧＭＣ
ＧＰＡＧＥ ０
ＧＦＩＬＬ ７０，３０，１９０，６０，１３
ＲＥＴＵＲＮ
’─── ＢＥＥＰ ヒョウシ゛
＠ＢＥＥＰ
ＧＰＡＧＥ ０
ＧＦＩＬＬ ７０，７０，１９０，１００，７
ＣＯＬＯＲ １：ＬＯＣＡＴＥ １２，１０
ＰＲＩＮＴ ”ＢＥＥＰ ”；Ｎ
ＲＥＴＵＲＮ
’─── ＢＥＥＰ ク゛レ－テ゛ＯＦＦヒョウシ゛
＠ＢＥＥＰＣ
ＧＰＡＧＥ ０
ＧＦＩＬＬ ７０，７０，１９０，１００，１３
ＲＥＴＵＲＮ
’─── ＴＡＬＫ ヒョウシ゛
＠ＴＡＬＫ
ＧＰＡＧＥ ０
ＧＦＩＬＬ ７０，１１０，１９０，１４０，８
ＣＯＬＯＲ １：ＬＯＣＡＴＥ １２，１４
ＰＲＩＮＴ ”ＴＡＬＫ ＠Ｈ”；Ｈ
ＣＯＬＯＲ １：ＬＯＣＡＴＥ １２，１５
ＰＲＩＮＴ ” ＠Ｓ”；Ｓ；” ”
ＣＯＬＯＲ １：ＬＯＣＡＴＥ １２，１６
ＰＲＩＮＴ ” ＠Ｅ”；Ｅ；” ”
ＣＯＬＯＲ １３：ＬＯＣＡＴＥ ２１，１４＋Ｐ
ＰＲＩＮＴ ”←”
ＲＥＴＵＲＮ
’─── ＴＡＬＫ ク゛レ－テ゛ＯＦＦヒョウシ゛
＠ＴＡＬＫＣ
ＧＰＡＧＥ ０
ＧＦＩＬＬ ７０，１１０，１９０，１４０，１３
ＲＥＴＵＲＮ
’─── ＴＡＬＫ＠Ｈ＠Ｓ＠Ｅ ヤシ゛ルシ ケス
＠ＴＡＬＫＰＣ
ＬＯＣＡＴＥ ２１，１４：ＰＲＩＮＴ ” ”
ＬＯＣＡＴＥ ２１，１５：ＰＲＩＮＴ ” ”
ＬＯＣＡＴＥ ２１，１６：ＰＲＩＮＴ ” ”
ＲＥＴＵＲＮ
’─── ソウサ セツメイ
＠ＫＥＹＳ
ＣＯＬＯＲ １５
ＬＯＣＡＴＥ ０，１９：ＰＲＩＮＴ ”┌─┐┌─┐ ┌─┐ ┌─┐”
ＬＯＣＡＴＥ ０，２０：ＰＲＩＮＴ ”│←││→│Ｎｏ．ＳＥＬＥＣＴ │Ａ│ＳＯＵＮＤ │Ｘ│ＥＮＤ”
ＬＯＣＡＴＥ ０，２１：ＰＲＩＮＴ ”└─┘└─┘ └─┘ └─┘”
ＲＥＴＵＲＮ
- 関連記事
-
- 【プチコンmkII】BGMPLAY／BEEP／TALK命令のサンプルを試聴するプログラムを作りました。
- 【プチコンmkII】テキスト文字拡大表示サブルーチンの5文字バージョンを作りました。
- 【プチコンmkII】テキスト文字拡大表示サブルーチンを改変しました。
