投稿プログラム : 音楽再生機 (BGM Player)

パンくずリスト

このページの最終更新 : 2022/09/20 (火) 12:44:18

公式アーカイブのリンク:http://wiki.hosiken.jp/petc/html/Toukou/BGM20-Player.html

概要
- 操作
スクリーンショット・動画
QR コード
プログラムリスト
CHECKER FLAG (ひとことコメント)

2012年 9月29日投稿 / 2012年10月11日更新 / 投稿者 : BASIC-Ishida / タグ : 投稿プログラム実用ツール QRコード mkII専用

概要

音楽プレイヤー風のプログラムです。
動作がとても重いので、改善のため何かアドバイスをください。

操作

操作	動作
←→	BGMの変更
↑↓	音量の変更

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

動作しているところを撮影した写真や動画があれば貼り付けてください。

QR コード

PRG:S_PLAYER

プログラムリスト

’－－－－－－－－－－－－－－－－
’　　Ｓｏｕｎｄ　Ｐｌａｙｅｒ　　
’－－－－－－－－－－－－－－－－
ＡＣＬＳ
ＣＬＥＡＲ
ＢＧＭＳＴＯＰ
ＶＯＬ＝１００
ＤＩＭ　Ｋ＄（３１）
ＲＥＳＴＯＲＥ　＠ＤＡＴＡ
ＦＯＲ　Ｉ＝０　ＴＯ　３０
　ＲＥＡＤ　Ｋ＄（Ｉ）
　Ｋ＄（Ｉ）＝Ｋ＄（Ｉ）＋”．ｗａｖ”
ＮＥＸＴ

ＶＯ＝２：ＯＰ＄＝”Ｓｏｕｎｄ　Ｐｌａｙｅｒ”

Ｃ（０）＝１：Ｃ（１）＝１４：Ｃ（２）＝２：Ｃ（３）＝１５：Ｃ（４）＝０：Ｃ（９）＝１：Ｃ（８）＝１４：Ｃ（７）＝２：Ｃ（６）＝１５：Ｃ（５）＝０
Ｗ（０）＝５：Ｗ（１）＝５：Ｗ（２）＝５：Ｗ（３）＝５：Ｗ（４）＝５０：Ｗ（５）＝５：Ｗ（６）＝５：Ｗ（７）＝５：Ｗ（８）＝５：Ｗ（９）＝５
ＦＯＲ　Ｃ＝０　ＴＯ　９
　ＦＯＲ　Ｘ＝０　ＴＯ　ＬＥＮ（ＯＰ＄）－１
　　ＧＰＵＴＣＨＲ　２５５／２－（ＬＥＮ（ＯＰ＄）－１）／２＊８＊ＶＯ＋Ｘ＊８＊ＶＯ，１９１／２－（８＊ＶＯ／２），”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＯＰ＄，Ｘ，Ｘ＋１）），Ｃ（Ｃ），ＶＯ
　ＮＥＸＴ
　ＷＡＩＴ　Ｗ（Ｃ）
ＮＥＸＴ
ＷＡＩＴ　１０
ＧＣＬＳ　
＠ＬＯＯＰ
ＦＯＲ　ＸＸ＝８　ＴＯ　－１＊ＬＥＮ（Ｋ＄（ＢＧＭ））　ＳＴＥＰ　－０．０５
　ＷＡＩＴ　１
　ＬＯＣＡＴＥ　０，１５：？”　”＊３１
　ＧＦＩＬＬ　０，９８，２５５，９８＋８＊４，０
　ＧＦＩＬＬ　０，８２，６＋４＊８＊２，８２＋８＊２，０
　ＧＦＩＬＬ　２００，２，２１０，１２，０
　ＧＯＳＵＢ　＠ＢＵＴＴＯＮ
　ＧＯＳＵＢ　＠ＰＲＩＮＴ
ＮＥＸＴ
ＧＯＴＯ　＠ＬＯＯＰ

＠ＢＵＴＴＯＮ
’Ｂ＝ＢＵＴＴＯＮ（２）
Ａ＝Ｃ：Ｃ＝ＢＵＴＴＯＮ（）：Ｂ＝Ｃ＊（Ｃ！＝Ａ）　
ＢＧＣ＝ＢＧＭＣＨＫ（０）
ＢＧＭＶＯＬ　ＶＯＬ＊１．２７
　ＩＦ　Ｂ＝＝　１　ＡＮＤ　ＶＯＬ＜１００　ＴＨＥＮ　ＶＯＬ＝ＶＯＬ＋１
　ＩＦ　Ｂ＝＝　２　ＡＮＤ　ＶＯＬ＞　　０　ＴＨＥＮ　ＶＯＬ＝ＶＯＬ－１
　ＩＦ　Ｂ＝＝　４　ＡＮＤ　ＢＧＭ＞　　０　ＴＨＥＮ　ＢＧＭ＝ＢＧＭ－１：ＸＸ＝８：ＢＧＭＳＴＯＰ　０，０：ＲＥＴＵＲＮ
　ＩＦ　Ｂ＝＝　４　ＡＮＤ　ＢＧＭ＝＝　０　ＴＨＥＮ　ＢＧＭ＝２９　　　：ＸＸ＝８：ＢＧＭＳＴＯＰ　０，０：ＲＥＴＵＲＮ
　ＩＦ　Ｂ＝＝　８　ＡＮＤ　ＢＧＭ＜　２９　ＴＨＥＮ　ＢＧＭ＝ＢＧＭ＋１：ＸＸ＝８：ＢＧＭＳＴＯＰ　０，０：ＲＥＴＵＲＮ
　ＩＦ　Ｂ＝＝　８　ＡＮＤ　ＢＧＭ＝＝２９　ＴＨＥＮ　ＢＧＭ＝０　　　　：ＸＸ＝８：ＢＧＭＳＴＯＰ　０，０：ＲＥＴＵＲＮ
　ＩＦ　Ｂ＝＝１６　ＡＮＤ　ＢＧＣ＝＝　０　ＴＨＥＮ　ＢＧＭＰＬＡＹ　０，ＢＧＭ，ＶＯＬ
　ＩＦ　Ｂ＝＝１６　ＡＮＤ　ＢＧＣ＝＝　１　ＴＨＥＮ　ＢＧＭＳＴＯＰ　０，０
　ＩＦ　Ｂ＝＝１０２４　ＴＨＥＮ　ＢＧＭＳＴＯＰ　０，０：ＡＣＬＳ：ＣＬＥＡＲ：ＥＮＤ
ＲＥＴＵＲＮ

＠ＰＲＩＮＴ
　Ｄ＄＝ＤＡＴＥ＄
　Ｔ＄＝ＴＩＭＥ＄
　ＩＦ　ＢＧＭ＜１０　ＴＨＥＮ　ＢＧＭ＄＝”０”＋ＳＴＲ＄（ＢＧＭ）　ＥＬＳＥ　ＢＧＭ＄＝ＳＴＲ＄（ＢＧＭ）
　Ｙ＄＝ＢＧＭ＄＋”／２９”
　ＩＦ　ＶＯＬ＜１０　ＴＨＥＮ　ＶＯＬ＄＝”００”＋ＳＴＲ＄（ＶＯＬ）
　ＩＦ　ＶＯＬ＜１００　ＡＮＤ　ＶＯＬ＞＝１０　ＴＨＥＮ　ＶＯＬ＄＝”０”＋ＳＴＲ＄（ＶＯＬ）
　ＩＦ　ＶＯＬ＞＝１００　ＴＨＥＮ　ＶＯＬ＄＝ＳＴＲ＄（ＶＯＬ）
　ＬＯＣＡＴＥ　１４，２：？Ｄ＄
　ＬＯＣＡＴＥ　１４，４：？Ｔ＄
　ＬＯＣＡＴＥ　４，０：？ＶＯＬ＄
　ＧＰＵＴＣＨＲ　１６，１６，”ＢＧＦ”，ＡＳＣ（””），０，８
　ＧＢＯＸ　８，８，１６＋８＊８，１６＋８＊８，１５
’　ＦＯＲ　Ｘ＝０　ＴＯ　ＬＥＮ（Ｄ＄）－１
’　　ＧＰＵＴＣＨＲ　９０＋Ｘ＊８＊２，１６，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（Ｄ＄，Ｘ，Ｘ＋１）），０，２
’　ＮＥＸＴ
’　ＦＯＲ　Ｘ＝０　ＴＯ　ＬＥＮ（Ｔ＄）－１
’　　ＧＰＵＴＣＨＲ　９０＋Ｘ＊８＊２，１６＋８＊２，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（Ｔ＄，Ｘ，Ｘ＋１）），０，２
’　ＮＥＸＴ
　ＦＯＲ　Ｘ＝０　ＴＯ　ＬＥＮ（Ｙ＄）－１
　　ＧＰＵＴＣＨＲ　６＋Ｘ＊８＊２，１８＋８＊８，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（Ｙ＄，Ｘ，Ｘ＋１）），０，２
　ＮＥＸＴ
’　ＬＯＣＡＴＥ　（３１－（ＬＥＮ（Ｋ＄（ＢＧＭ））－１））／２，１５：？Ｋ＄（ＢＧＭ）
　ＦＯＲ　Ｘ＝ＸＸ　ＴＯ　ＸＸ＋ＬＥＮ（Ｋ＄（ＢＧＭ））－１
　　ＧＰＵＴＣＨＲ　６＋Ｘ＊８＊４，１８＋８＊８＋８＊２，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（Ｋ＄（ＢＧＭ），Ｘ－ＸＸ，Ｘ＋１－ＸＸ）），０，４
　ＮＥＸＴ
　ＩＦ　ＢＧＣ＝＝０　ＴＨＥＮ　ＧＦＩＬＬ　２００，２，２１０，１２，１５
　ＩＦ　ＢＧＣ＝＝１　ＴＨＥＮ　ＧＬＩＮＥ　２００，２，２００，１２，２：ＧＬＩＮＥ　２００，２，２１０，７，２：ＧＬＩＮＥ　２００，１２，２１０，７，２：ＧＰＡＩＮＴ　２０５，６，２
ＲＥＴＵＲＮ


＠ＤＡＴＡ
’－－－キョクメイ　テ゛－タ－－－
ＤＡＴＡ　”ソウカイナキョク”
ＤＡＴＡ　”シメッタカンシ゛ノキョク”
ＤＡＴＡ　”キンチョウカンタカマルキョク”
ＤＡＴＡ　”ハケ゛シクアッフ゜テンホ゜ナキョク”
ＤＡＴＡ　”スタ－トシ゛ンク゛ル”
ＤＡＴＡ　”クリアシ゛ンク゛ル”
ＤＡＴＡ　”ケ゛－ムオ－ハ゛－”
ＤＡＴＡ　”メニュ－セレクト”
ＤＡＴＡ　”ケッカハッヒ゜ョウ”
ＤＡＴＡ　”スタッフロ－ル”
ＤＡＴＡ　”スタッフロ－ル　ソノ２”
ＤＡＴＡ　”シ゛タ゛イケ゛キケ゛－ムフウ”
ＤＡＴＡ　”ケイカイナマ－チハ゛ント゛フウ”
ＤＡＴＡ　”ハケ゛シイロックフウ”
ＤＡＴＡ　”ケイカイナキョク　ソノ２”
ＤＡＴＡ　”ＷＯＮＤ”
ＤＡＴＡ　”カンカ゛エチュウ”
ＤＡＴＡ　”ＷＯＮＤ２”
ＤＡＴＡ　”ミライケイ”
ＤＡＴＡ　”ＢＡＬ”
ＤＡＴＡ　”ＢＡＬ＿２”
ＤＡＴＡ　”スハ゜イケイ”
ＤＡＴＡ　”ＳＣＩ”
ＤＡＴＡ　”シュ－ティンク゛”
ＤＡＴＡ　”ハ゜ット゛”
ＤＡＴＡ　”ＳＥＮ”
ＤＡＴＡ　”ヒ゜ュア”
ＤＡＴＡ　”ＲＯＡ”
ＤＡＴＡ　”ＣＵＲ”
ＤＡＴＡ　”ＦＩＧ”
ＤＡＴＡ　””

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

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

名無しさん : 曲名表示のGPUTCHRが重くてBUTTON(2)では取りこぼしが多く発生しているためそれをスプライトやBGに置き換えて軽くするのがベターだな (2012/10/11 (木) 04:28:06)
名無しさん : 変更を最小限にしてボタンの取りこぼしのみを無くすならば40行を A=C:C=BUTTON():B=C*(C!=A) とすればいい (2012/10/11 (木) 04:30:43)
ｍ : すげ (2012/11/03 (土) 19:24:21)
す : すごすぎる (2012/12/10 (月) 18:05:16)

プチコンまとめArchive

投稿プログラム : 音楽再生機 (BGM Player)

パンくずリスト

概要

操作

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

QR コード

プログラムリスト

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

メニュー

外部リンク

プチコン4

プチコン3号&BIG

プチコン初代&mkII