投稿プログラム : 光奏器
2012年4月8日投稿 / 投稿者 : hoy@kayama / タグ : 投稿プログラム 色調合 QRコード 初代対応
概要
フルカラーLEDと３つのスライドボリュームを組み合わせて、色を自在に光らせる電子工作を作り、光奏器（こうそうき）と名づけました。(写真参照） ＤＳでソフト化したいと考えていたら、プチコンに出会い、久々にプログラミングしました。
用途
- きれいな色を作って、友達に見せてあげる
- 光の三原色の学習ツール
- コンサートで観客が振るペンライト
- カラオケを盛り上げる光り物（鳴り物の代わり）
- 光によるモールス通信機
操作
タッチパネルで赤、緑、青のバーを上下して、好みの色を作ります。
- Ａボタン：画面のオフ、オン
- Ｘボタン：ＲＧＢ値の表示／非表示
- Ｙボタン：画面のオン、オフのリバース
- ↑↓←→：メモリー色の表示
- Ｂボタン＋↑↓←→：現在の表示色の記録
スクリーンショット・動画
QR コード
プチコンmkII 向けの QR コードです。
| 1/3 | 2/3 | 3/3 |
|---|---|---|
 |  |  |
プログラムリスト
- ’ ─────────────────────
- ’−−−−−−−−−−−−−−−−−−−−−
- ’｜ Ｋｏｕｓｏｕｋｉ ｜
- ’｜ Ｃｏｌｏｒ Ｐｌａｙｅｒ ｜
- ’｜ ２０１１．０６．３０ ｂｙ ｈｏｙ ｜
- ’−−−−−−−−−−−−−−−−−−−−−
- ＧＯＳＵＢ ＠ＩＮＩＴ
- ？
- ？” Ｋｏｕｓｏｕｋｉ ｖｅｒ１．２”
- ？
- ？” Ｃｏｌｏｒ Ｐｌａｙｅｒ”
- ？
- ？” ｂｙ ｈｏｙ ２０１１．０６．３０”
- ？
- ？
- ？” Ｓｌｉｄｅ Ｂａｒｓ ｗｉｔｈ Ｐｅｎ．”
- ？
- ？
- ？” Ａ： ＯＮ／ＯＦＦ”
- ？” Ｙ： ＯＦＦ／ＯＮ Ｒｅｖｅｒｓｅ”
- ？” Ｘ： ＲＧＢ ＶｏＬ ＯＮ／ＯＦＦ”
- ？
- ？” ↑↓←→： Ｓｈｏｗ Ｃｏｌｏｒｓ”
- ？” Ｂ＋↑↓←→： Ｍｅｍｏｒｙ”
- ？
- ＠ＭＡＴＩ
- Ｂ＝ＢＵＴＴＯＮ（）
- ＩＦ Ｂ！＝０ ＴＨＥＮ ＧＯＴＯ ＠ＥＸＩＴ
- ＩＦ ＴＣＨＳＴ＝＝ＦＡＬＳＥ ＴＨＥＮ ＧＯＴＯ ＠ＭＡＴＩ
- ＠ＥＸＩＴ
- ＣＬＳ
- ＧＯＳＵＢ ＠ＰＵＴＣＯＬ
- ＧＯＳＵＢ ＠ＵＰＤＷＮ
- ’−−−−− ＭＡＩＮ ＬＯＯＰ −−−−
- ＠ＬＯＯＰ
- Ｂ＝ＢＵＴＴＯＮ（）
- ＩＦ Ｂ＝＝６４ ＴＨＥＮ ＧＯＳＵＢ ＠ＮＵＭＯＦＦ
- ＩＦ Ｂ＝＝１６ ＡＮＤ ＦＬＡＧ＝＝１ ＴＨＥＮ ＶＩＳＩＢＬＥ １，１，１，１，１，１
- ＩＦ Ｂ＝＝１６ ＡＮＤ ＦＬＡＧ＝＝−１ ＴＨＥＮ ＶＩＳＩＢＬＥ １，１，１，１，１，０
- ＩＦ Ｂ＝＝０ ＡＮＤ ＦＬＡＧ＝＝１ ＴＨＥＮ ＶＩＳＩＢＬＥ １，１，１，１，１，０
- ＩＦ Ｂ＝＝０ ＡＮＤ ＦＬＡＧ＝＝−１ ＴＨＥＮ ＶＩＳＩＢＬＥ １，１，１，１，１，１
- ＩＦ Ｂ＝＝１２８ ＴＨＥＮ ＧＯＳＵＢ ＠ＲＥＶＥＲＳＥ
- ＩＦ Ｂ＝＝１ ＴＨＥＮ ＧＯＳＵＢ ＠ＰＵＴ１
- ＩＦ Ｂ＝＝２ ＴＨＥＮ ＧＯＳＵＢ ＠ＰＵＴ２
- ＩＦ Ｂ＝＝４ ＴＨＥＮ ＧＯＳＵＢ ＠ＰＵＴ４
- ＩＦ Ｂ＝＝８ ＴＨＥＮ ＧＯＳＵＢ ＠ＰＵＴ８
- ＩＦ Ｂ＝＝３３ ＴＨＥＮ ＧＯＳＵＢ ＠ＳＥＴ１
- ＩＦ Ｂ＝＝３４ ＴＨＥＮ ＧＯＳＵＢ ＠ＳＥＴ２
- ＩＦ Ｂ＝＝３６ ＴＨＥＮ ＧＯＳＵＢ ＠ＳＥＴ４
- ＩＦ Ｂ＝＝４０ ＴＨＥＮ ＧＯＳＵＢ ＠ＳＥＴ８
- ＴＳＴ＝ＴＣＨＳＴ
- ＩＦ ＴＳＴ＝＝ＦＡＬＳＥ ＴＨＥＮ ＧＯＴＯ ＠ＬＯＯＰ
- Ｘ＝ＴＣＨＸ：Ｙ＝ＴＣＨＹ
- ＩＦ ＦＬＡＧ２＝＝−１ ＴＨＥＮ ＶＩＳＩＢＬＥ ０，１，１，１，１，１
- ＩＦ ＦＬＡＧ２＝＝１ ＴＨＥＮ ＶＩＳＩＢＬＥ １，１，１，１，１，１
- ＩＦ Ｘ＞１５ ＡＮＤ Ｘ＜５５ ＴＨＥＮ ＧＯＳＵＢ ＠Ｒ
- ＩＦ Ｘ＞７５ ＡＮＤ Ｘ＜１１５ ＴＨＥＮ ＧＯＳＵＢ ＠Ｇ
- ＩＦ Ｘ＞１３５ ＡＮＤ Ｘ＜１７５ ＴＨＥＮ ＧＯＳＵＢ ＠Ｂ
- ＩＦ Ｘ＞１８５ ＴＨＥＮ ＧＯＳＵＢ ＠３ＵＰＤＷＮ
- ＧＯＴＯ ＠ＬＯＯＰ
- ’−−−−− ＳＵＢ −−−−
- ＠Ｒ
- ＹＲ＝ＦＬＯＯＲ（（１９０−Ｙ）＊２５６／１８６）−１
- ＩＦ ＹＲ＞２５５ ＴＨＥＮ ＹＲ＝２５５
- ＩＦ ＹＲ＜０ ＴＨＥＮ ＹＲ＝０
- ＧＯＳＵＢ ＠ＣＯＬＯＲＳＥＴ
- ＧＯＳＵＢ ＠ＢＡＲＲ
- ＲＥＴＵＲＮ
- ＠Ｇ
- ＹＧ＝ＦＬＯＯＲ（（１９０−Ｙ）＊２５６／１８６）−１
- ＩＦ ＹＧ＞２５５ ＴＨＥＮ ＹＧ＝２５５
- ＩＦ ＹＧ＜０ ＴＨＥＮ ＹＧ＝０
- ＧＯＳＵＢ ＠ＣＯＬＯＲＳＥＴ
- ＧＯＳＵＢ ＠ＢＡＲＧ
- ＲＥＴＵＲＮ
- ＠Ｂ
- ＹＢ＝ＦＬＯＯＲ（（１９０−Ｙ）＊２５６／１８６）−１
- ＩＦ ＹＢ＞２５５ ＴＨＥＮ ＹＢ＝２５５
- ＩＦ ＹＢ＜０ ＴＨＥＮ ＹＢ＝０
- ＧＯＳＵＢ ＠ＣＯＬＯＲＳＥＴ
- ＧＯＳＵＢ ＠ＢＡＲＢ
- ＲＥＴＵＲＮ
- ＠ＡＬＬＵＰ
- ＹＲ＝ＹＲ＋２：ＩＦ ＹＲ＞２５５ ＴＨＥＮ ＹＲ＝２５５
- ＹＧ＝ＹＧ＋２：ＩＦ ＹＧ＞２５５ ＴＨＥＮ ＹＧ＝２５５
- ＹＢ＝ＹＢ＋２：ＩＦ ＹＢ＞２５５ ＴＨＥＮ ＹＢ＝２５５
- ＧＯＳＵＢ ＠ＰＵＴＣＯＬ
- ＲＥＴＵＲＮ
- ＠ＡＬＬＤＷＮ
- ＹＲ＝ＹＲ−１：ＩＦ ＹＲ＜０ ＴＨＥＮ ＹＲ＝０
- ＹＧ＝ＹＧ−１：ＩＦ ＹＧ＜０ ＴＨＥＮ ＹＧ＝０
- ＹＢ＝ＹＢ−１：ＩＦ ＹＢ＜０ ＴＨＥＮ ＹＢ＝０
- ＧＯＳＵＢ ＠ＰＵＴＣＯＬ
- ＲＥＴＵＲＮ
- ＠３ＵＰＤＷＮ
- ＩＦ Ｙ＜９６ ＴＨＥＮ ＧＯＳＵＢ ＠ＡＬＬＵＰ
- ＩＦ Ｙ＞９６ ＴＨＥＮ ＧＯＳＵＢ ＠ＡＬＬＤＷＮ
- ＲＥＴＵＲＮ
- ’−−−−−−−−
- ＠ＣＯＬＯＲＳＥＴ
- Ｒ＄＝ＨＥＸ＄（ＹＲ）
- Ｇ＄＝ＨＥＸ＄（ＹＧ）
- Ｂ＄＝ＨＥＸ＄（ＹＢ）
- ＩＦ ＬＥＮ（Ｒ＄）＝＝１ ＴＨＥＮ Ｒ＄＝”０”＋Ｒ＄
- ＩＦ ＬＥＮ（Ｇ＄）＝＝１ ＴＨＥＮ Ｇ＄＝”０”＋Ｇ＄
- ＩＦ ＬＥＮ（Ｂ＄）＝＝１ ＴＨＥＮ Ｂ＄＝”０”＋Ｂ＄
- Ｃ＄＝Ｒ＄＋Ｇ＄＋Ｂ＄
- ＧＰＡＧＥ ０
- ＣＯＬＳＥＴ ”ＧＲＰ”， １００， Ｃ＄
- ＧＰＡＧＥ １
- ＣＯＬＳＥＴ ”ＧＲＰ”， １００， Ｃ＄
- ＣＬＳ
- ＩＦ ＦＬＡＧ２＝＝−１ ＧＯＴＯ ＠ＳＫＩＰ
- ＬＯＣＡＴＥ ３，２２
- ？”＜Ｒ＞ ＜Ｇ＞ ＜Ｂ＞ ”
- ＬＯＣＡＴＥ ３，２０ ： ？ ＹＲ；
- ＬＯＣＡＴＥ １０，２０ ： ？ ＹＧ；
- ＬＯＣＡＴＥ １７，２０ ： ？ ＹＢ；
- ＠ＳＫＩＰ
- ＲＥＴＵＲＮ
- ’−−−−−−−
- ＠ＢＡＲＲ
- ＧＬＩＮＥ １５，ＯＬＤＹＲ，５５，ＯＬＤＹＲ，１００
- ＧＬＩＮＥ １５，Ｙ，５５，Ｙ，４
- ＯＬＤＹＲ＝Ｙ
- ＲＥＴＵＲＮ
- ＠ＢＡＲＧ
- ＧＬＩＮＥ ７５，ＯＬＤＹＧ，１１５，ＯＬＤＹＧ，１００
- ＧＬＩＮＥ ７５，Ｙ，１１５，Ｙ，４
- ＯＬＤＹＧ＝Ｙ
- ＲＥＴＵＲＮ
- ＠ＢＡＲＢ
- ＧＬＩＮＥ １３５，ＯＬＤＹＢ，１７５，ＯＬＤＹＢ，１００
- ＧＬＩＮＥ １３５，Ｙ，１７５，Ｙ，４
- ＯＬＤＹＢ＝Ｙ
- ＲＥＴＵＲＮ
- ＠ＲＥＶＥＲＳＥ
- ＦＬＡＧ＝ＦＬＡＧ＊−１
- ＦＯＲ Ｉ ＝ ０ ＴＯ １００００
- ＮＥＸＴ Ｉ
- ＲＥＴＵＲＮ
- ＠ＮＵＭＯＦＦ
- ＦＬＡＧ２＝ＦＬＡＧ２＊−１
- ＣＬＳ
- ＧＯＳＵＢ ＠ＣＯＬＯＲＳＥＴ
- ＦＯＲ Ｉ ＝ ０ ＴＯ １００００
- ＮＥＸＴ Ｉ
- ＲＥＴＵＲＮ
- ＠ＰＵＴＣＯＬ
- ＧＯＳＵＢ ＠ＣＯＬＯＲＳＥＴ
- Ｙ＝ＦＬＯＯＲ（１９０−（ＹＲ＋１）＊１８６／２５６）
- ＧＯＳＵＢ ＠ＢＡＲＲ
- Ｙ＝ＦＬＯＯＲ（１９０−（ＹＧ＋１）＊１８６／２５６）
- ＧＯＳＵＢ ＠ＢＡＲＧ
- Ｙ＝ＦＬＯＯＲ（１９０−（ＹＢ＋１）＊１８６／２５６）
- ＧＯＳＵＢ ＠ＢＡＲＢ
- ＲＥＴＵＲＮ
- ＠ＵＰＤＷＮ
- ＧＬＩＮＥ ２０５，７６，２２０，５６，４
- ＧＬＩＮＥ ２２０，５６，２３５，７６，４
- ＧＬＩＮＥ ２０５，１１６，２２０，１３６，４
- ＧＬＩＮＥ ２２０，１３６，２３５，１１６，４
- ＲＥＴＵＲＮ
- ＠ＰＵＴ１
- ＹＲ＝ＭＥＭＯＲＹ（０，０）
- ＹＧ＝ＭＥＭＯＲＹ（０，１）
- ＹＢ＝ＭＥＭＯＲＹ（０，２）
- ＧＯＳＵＢ ＠ＰＵＴＣＯＬ
- ＲＥＴＵＲＮ
- ＠ＰＵＴ２
- ＹＲ＝ＭＥＭＯＲＹ（１，０）
- ＹＧ＝ＭＥＭＯＲＹ（１，１）
- ＹＢ＝ＭＥＭＯＲＹ（１，２）
- ＧＯＳＵＢ ＠ＰＵＴＣＯＬ
- ＲＥＴＵＲＮ
- ＠ＰＵＴ４
- ＹＲ＝ＭＥＭＯＲＹ（２，０）
- ＹＧ＝ＭＥＭＯＲＹ（２，１）
- ＹＢ＝ＭＥＭＯＲＹ（２，２）
- ＧＯＳＵＢ ＠ＰＵＴＣＯＬ
- ＲＥＴＵＲＮ
- ＠ＰＵＴ８
- ＹＲ＝ＭＥＭＯＲＹ（３，０）
- ＹＧ＝ＭＥＭＯＲＹ（３，１）
- ＹＢ＝ＭＥＭＯＲＹ（３，２）
- ＧＯＳＵＢ ＠ＰＵＴＣＯＬ
- ＲＥＴＵＲＮ
- ＠ＳＥＴ１
- ＭＥＭＯＲＹ（０，０）＝ＹＲ
- ＭＥＭＯＲＹ（０，１）＝ＹＧ
- ＭＥＭＯＲＹ（０，２）＝ＹＢ
- ＲＥＴＵＲＮ
- ＠ＳＥＴ２
- ＭＥＭＯＲＹ（１，０）＝ＹＲ
- ＭＥＭＯＲＹ（１，１）＝ＹＧ
- ＭＥＭＯＲＹ（１，２）＝ＹＢ
- ＲＥＴＵＲＮ
- ＠ＳＥＴ４
- ＭＥＭＯＲＹ（２，０）＝ＹＲ
- ＭＥＭＯＲＹ（２，１）＝ＹＧ
- ＭＥＭＯＲＹ（２，２）＝ＹＢ
- ＲＥＴＵＲＮ
- ＠ＳＥＴ８
- ＭＥＭＯＲＹ（３，０）＝ＹＲ
- ＭＥＭＯＲＹ（３，１）＝ＹＧ
- ＭＥＭＯＲＹ（３，２）＝ＹＢ
- ＲＥＴＵＲＮ
- ＠ＩＮＩＴ
- ＣＬＥＡＲ
- ＶＩＳＩＢＬＥ １，１，１，１，１，１
- ＣＯＬＯＲ ２
- ＧＰＡＧＥ ０
- ＧＣＬＳ １００
- ＰＮＬＴＹＰＥ ”ＯＦＦ”
- ＧＰＡＧＥ １
- ＧＣＬＳ １００
- ＤＡＴＡ ５８，１３，３１，４８，１３６，１６１
- ＤＡＴＡ ２１１，７１，０，３０，６８，１８
- ＤＩＭ ＭＥＭＯＲＹ（４，３）
- ＦＯＲ Ｉ＝ ０ ＴＯ ３
- ＦＯＲ Ｊ ＝ ０ ＴＯ ２
- ＲＥＡＤ ＭＥＭＯＲＹ（Ｉ，Ｊ）
- ＮＥＸＴ Ｊ
- ＮＥＸＴ Ｉ
- ＦＬＡＧ＝−１ ： ＦＬＡＧ２＝１
- ＹＲ＝１３１ ： ＹＧ＝２１ ： ＹＢ＝３９
- ＧＯＳＵＢ ＠ＰＵＴＣＯＬ
- ＧＯＳＵＢ ＠ＵＰＤＷＮ
- ＣＬＳ
- ＲＥＴＵＲＮ
- ’−−− ＥＮＤ −−−
CHECKER FLAG (ひとことコメント)
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
- 三毛乱ジェロ : これをゲームに転用すると面白いかも。目的の色を探し出すタイムを競うとか色んな「原色」を混ぜて目的の色を作るとか。 (2012/04/08 (日) 23:59:02)
- 名無しさん : これ MEM のところに保存できるようになるといいと思う (2012/04/09 (月) 14:09:25)
- hoy : コメントありがとう。ゲーム化しました。−＞「ペンキ屋さん」 (2012/04/28 (土) 13:42:49)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.119 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:12 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30