プチコンまとめWiki (初代/mkII)

パンくずリスト

• トップ
• Toukou
• DSの蓋を2秒閉じたら終了するプログラム

2013年6月10日投稿 / 投稿者 : 猫姫 / タグ : 投稿プログラム mkII専用

内容

小ネタみたいなものです。
第２回プチコン大喜利のノミネート作品の中に
「蓋を閉じて、開くとスタート」
というのがあり、
どうしたらそんなことが、できるのかなと
電子説明書とにらめっこした結果です。

遊び方

プログラムをRUNさせたら、
蓋を２秒閉じて、開けてください。終了してます。

使用例

何に使うの？を受けての紹介です。入力のかわりに使うことができます。
たとえば、ボタンを押す。タッチパネルに触れる。そういった入力と同じように、
DSの蓋を開け閉めが入力として使えます。

A SHOT

隠しコマンドとして実装しています。デバッグモードに切り替わります

SPEED SUIJAKU

ゲームスタートの入力として実装しています。}

クリックコメント

選択肢	投票
おもしろい	6
目からウロコ	9
参考になりました！	32

訪問者
トータル:4860人
今日:1人

QR コード

プチコンmkII 向けの QR コードです。

プログラムリスト

+

プログラムリスト解説

短いプログラムですが一応 ポイントは、 [スリープ状態になると、プログラムは止まるが、 DSの時計は動いている] ということです。 2行目:変数Qに、起動時の秒数を代入しています。 TIME$は、現在のDSの時計を、00:00:00という、８文字の文字変数で返すので、 RIGHT$で、秒数部分の文字を抜き出し、VALで、数字の変数にしてます。 以降、この秒数を変数として、条件に使っていきます。 3行目のFORから、9行目のNEXTが、ループ部分です。 終了条件を満たすことで、このループから抜けるようにプログラムを組んでいきます。 6行目:変数Rに、現在の秒数を数字変換して代入してます。 8行目は、終了条件を満たさなかった場合に、QをRの値にします。 こうすることによって、プログラムが動いている間は、R-Qの値は、常に０か１(もしくは、-59)となります。 7行目:終了条件です。 蓋を2秒以上閉じておくと、変数Qと、開いた瞬間に代入される変数Rの差が大きくなるので、 R-Q>=2を満たすことになります。 FOR変数IにNEXTを抜ける１を代入して、その周回でループを抜けてます。 なお、上記の事もあり、秒数が58,59秒の時に蓋を閉じても、このままでは成立しません。 コナミコマンドのような裏技に仕込むなら、これぐらいの精度でもいいかもしれませんが、 ゲーム操作に組み込むなら、対策が必要になると考えます。

課題

じつは、６０秒のうち、ある２秒だけ、止まらないタイミングがあります。
このプログラムを利用したゲームを、この下にアップしてあります。
上記、2/60の問題も、解決してあります。

応用ゲーム　NO KEY JUMP

QRコード&スクリーンショット

+

プログラムリスト

ＡＣＬＳ：ＣＬＥＡＲ：ＭＥＭ＄＝””：ＳＹＳＢＥＥＰ＝ＦＡＬＳＥ ＤＩＭ　Ｉ＄（３） ＤＩＭ　ＤＡＹ＄（５），ＨＳＣＯＲＥ＄（５），ＨＳＣＯＲＥ（５） ＦＯＲ　Ｉ＝０　ＴＯ　４ ＤＡＹ＄（Ｉ）＝”−−−−／−−／−−” ＨＳＣＯＲＥ＄（Ｉ）＝”３００” ＨＳＣＯＲＥ（Ｉ）＝３００ ＮＥＸＴ ＧＯＳＵＢ　＠ＬＯＡＤ　 ＰＮＬＴＹＰＥ　”ＯＦＦ” ＳＰＳＥＴ　０，１１４，０，０，０，０ ＳＰＨＯＭＥ　０，８，８ ＳＰＡＮＧＬＥ　０，９０ ＠ＧＡＭＥ ＢＧＭＰＬＡＹ　４ ＧＯＳＵＢ　＠ＯＰＮＩＮＧ ＭＸ＝１６：ＭＹ＝１００ ＳＰＣＨＲ　０，１１４，０，０，０，０ ＳＰＡＮＩＭ　０，２，３０ ＳＰＯＦＳ　０，ＭＸ，ＭＹ ＦＯＲ　Ｉ＝０　ＴＯ　５０ ＢＧＰＵＴ　１，ＲＮＤ（６４），ＲＮＤ（６４），８５９，３，０，０ ＢＧＰＵＴ　１，ＲＮＤ（６４），ＲＮＤ（６４），８９１，３，０，０ ＮＥＸＴ ＧＰＲＩＯ　１ ＧＦＩＬＬ　０，０，１６，２００，７ ＧＣＩＲＣＬＥ　２００，５０，３０，１２ ＧＰＡＩＮＴ　２００，５０，１２ ＧＣＩＲＣＬＥ　２１０，４０，３０，０ ＧＰＡＩＮＴ　２１０，４０，０ Ｐ＝０ Ｑ＝ＶＡＬ（ＲＩＧＨＴ＄（ＴＩＭＥ＄，２）） ＦＯＲ　Ｉ＝０　ＴＯ　１：Ｉ＝０ ＶＳＹＮＣ　１ Ｐ＝（Ｐ＋１）＊（Ｐ！＝１００） ＣＯＬＯＲ　１３ ＬＯＣＡＴＥ　５，２０：ＰＲＩＮＴ　”╂”＊２０ ＣＯＬＯＲ　３ ＬＯＣＡＴＥ　５，２０：ＰＲＩＮＴ　”┿”＊ＦＬＯＯＲ（Ｐ／５） ＣＯＬＯＲ　０ Ｒ＝ＶＡＬ（ＲＩＧＨＴ＄（ＴＩＭＥ＄，２）） ＩＦ　ＲーＱ＜０　ＴＨＥＮ　Ｒ＝Ｒ＋６０：ＣＨ＝ＴＲＵＥ ＩＦ　ＲーＱ＞＝２　ＴＨＥＮ　Ｉ＝１ Ｇ＝ＲーＱ ＧＧ＝ＡＢＳ（５ーＧ） ＩＦ　ＣＨ＝＝ＴＲＵＥ　ＴＨＥＮ　Ｒ＝Ｒ−６０：ＣＨ＝ＦＡＬＳＥ Ｑ＝Ｒ ＮＥＸＴ ＰＯ＝ＦＬＯＯＲ（（ＰーＰ＊ＧＧ／２０）＊９） ＳＣＯＲＥ＝ＰＯ ＤＡＹ＄＝ＤＡＴＥ＄ ＬＯＣＡＴＥ　５，２０：ＰＲＩＮＴ　”　”＊２０ ＳＰＣＨＲ　０，１２１，０，０，０，０ ＳＰＡＮＩＭ　０，１，０ Ｘ＝１０ ＢＥＥＰ　５ ＦＯＲ　Ｉ＝０　ＴＯ　Ｘ ＶＳＹＮＣ　１ ＭＸ＝ＭＸ＋５：ＰＯ＝ＰＯー１ ＳＰＯＦＳ　０，ＭＸ，ＭＹ ＩＦ　ＰＯ＜＝０　ＴＨＥＮ　Ｉ＝Ｘ ＮＥＸＴ　Ｉ ＩＦ　ＰＯ＜＝０　ＴＨＥＮ　＠ＥＮＤ＿ＬＯＯＴＩＮ ＧＦＩＬＬ　０，０，１６，２００，０ ＦＯＲ　Ｉ＝０　ＴＯ　ＰＯ ＶＳＹＮＣ　１ ＳＰ＝ＦＬＯＯＲ（（ＰＯーＩ）／１００）＋１ ＩＦ　ＳＰ＞＝３　ＴＨＥＮ　ＳＰ＝３ ＢＸ＝（ＢＸ＋ＳＰ） ＢＧＯＦＳ　１，ＢＸ，０ ＮＥＸＴ ＠ＥＮＤ＿ＬＯＯＴＩＮ ＢＥＥＰ　６ ＦＯＲ　Ｉ＝０　ＴＯ　１００ ＶＳＹＮＣ　１ ＭＸ＝ＭＸー１ ＳＰＯＦＳ　０，ＭＸ，ＭＹ ＮＥＸＴ Ｉ＄＝”０００”＋ＳＴＲ＄（ＳＣＯＲＥ） Ｉ＄＝ＲＩＧＨＴ＄（Ｉ＄，３） ＦＯＲ　Ｉ＝０　ＴＯ　２ Ｉ＄（Ｉ）＝ＭＩＤ＄（Ｉ＄，Ｉ，１） ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　２ ＲＥＳＴＯＲＥ　”＠”＋Ｉ＄（Ｉ） ＲＥＡＤ　Ａ＄，Ｂ＄，Ｃ＄ ＢＥＥＰ　５７ ＬＯＣＡＴＥ　２５，５＋４＊Ｉ：ＰＲＩＮＴ　Ａ＄ ＬＯＣＡＴＥ　２５，６＋４＊Ｉ：ＰＲＩＮＴ　Ｂ＄ ＬＯＣＡＴＥ　２５，７＋４＊Ｉ：ＰＲＩＮＴ　Ｃ＄ ＷＡＩＴ　１５ ＮＥＸＴ ＢＥＥＰ　５７ ＬＯＣＡＴＥ　２５，１７：ＰＲＩＮＴ　”┿┿┿┿” ＬＯＣＡＴＥ　２５，１８：ＰＲＩＮＴ　”　　┝┸” ＬＯＣＡＴＥ　２５，１９：ＰＲＩＮＴ　”　　┥┰” ＬＯＣＡＴＥ　２５，２０：ＰＲＩＮＴ　”┿┿┿┿” ＷＡＩＴ　１００ ＢＥＥＰ　６４ ＧＯＳＵＢ　＠ＨＳＣＯＲＥ ＣＬＳ ＧＯＴＯ　＠ＧＡＭＥ ＠０ ＤＡＴＡ　”┿┿┿┿┿” ＤＡＴＡ　”┿　　　┿” ＤＡＴＡ　”┿┿┿┿┿” ＠１ ＤＡＴＡ　”　　　　　” ＤＡＴＡ　”　　　　　” ＤＡＴＡ　”┿┿┿┿┿” ＠２ ＤＡＴＡ　”┿┿┿　┿” ＤＡＴＡ　”┿　┿　┿” ＤＡＴＡ　”┿　┿┿┿” ＠３ ＤＡＴＡ　”┿　┿　┿” ＤＡＴＡ　”┿　┿　┿” ＤＡＴＡ　”┿┿┿┿┿” ＠４ ＤＡＴＡ　”　　┿┿┿” ＤＡＴＡ　”　　┿　　” ＤＡＴＡ　”┿┿┿┿┿” ＠５ ＤＡＴＡ　”┿　┿┿┿” ＤＡＴＡ　”┿　┿　┿” ＤＡＴＡ　”┿┿┿　┿” ＠６ ＤＡＴＡ　”┿┿┿┿┿” ＤＡＴＡ　”┿　┿　┿” ＤＡＴＡ　”┿┿┿　┿” ＠７ ＤＡＴＡ　”　　┿┿┿” ＤＡＴＡ　”　　　　┿” ＤＡＴＡ　”┿┿┿┿┿” ＠８ ＤＡＴＡ　”┿┿┿┿┿” ＤＡＴＡ　”┿　┿　┿” ＤＡＴＡ　”┿┿┿┿┿” ＠９ ＤＡＴＡ　”┿　┿┿┿” ＤＡＴＡ　”┿　┿　┿” ＤＡＴＡ　”┿┿┿┿┿” ＠ＯＰＮＩＮＧ 　ＰＮＬＳＴＲ　０，０，”┌───────────┐ 　ＰＮＬＳＴＲ　０，１，”│ＮＯ　ＫＥＹ　ＪＵＭＰ│ 　ＰＮＬＳＴＲ　０，２，”└───────────┘ 　ＰＮＬＳＴＲ　０，３，”１：タテニ　モッテ　アソヒ゛マス 　ＰＮＬＳＴＲ　０，４，”２：ハ゜ワ−メ−タ−　カ゛　タマッテイル 　ＰＮＬＳＴＲ　０，５，”　　トキニ　ＤＳ　ノ　フタ　ヲ　トシ゛マス 　ＰＮＬＳＴＲ　０，６，”３：５ヒ゛ョウ　タッタラ　フタヲ　アケマス 　ＰＮＬＳＴＲ　０，７，”４：シ゛ャンフ゜　シマス 　ＰＮＬＳＴＲ　０，８，” 　ＰＮＬＳＴＲ　０，９，”┌────────────┐ ＰＮＬＳＴＲ　０，１０，”│タカク　トフ゛　タメニハ│ ＰＮＬＳＴＲ　０，１１，”└────────────┘ ＰＮＬＳＴＲ　０，１２，”１：ハ゜ワ−メ−タ−　カ゛　オオイ　ホト゛ ＰＮＬＳＴＲ　０，１３，”　　タカク　トヘ゛マス ＰＮＬＳＴＲ　０，１４，”２：ＤＳ　ノ　フタヲ　トシ゛テイル　シ゛カンカ゛ ＰＮＬＳＴＲ　０，１５，”　　５ヒ゛ョウ　ニ　チカイ　ホト゛　タカク　トヘ゛マス ＰＮＬＳＴＲ　０，１６，”　　タタ゛シ　２　ヒ゛ョウ　トシ゛テ　オカナイト ＰＮＬＳＴＲ　０，１７，”　　トヘ゛マセン ＰＮＬＳＴＲ　０，１８，” ＰＮＬＳＴＲ　０，１９，”ケ゛−ム　ハ　ＳＥＬＥＣＴ　ホ゛タン　テ゛ ＰＮＬＳＴＲ　０，２０，”シュウリョウ　シマス ＲＥＴＵＲＮ ＠ＨＳＣＯＲＥ ＣＬＳ ＦＯＲ　Ｉ＝０　ＴＯ　４ ＩＦ　ＳＣＯＲＥ＜ＨＳＣＯＲＥ（Ｉ）　ＴＨＥＮ　＠ＳＫＳＣ ＳＷＡＰ　ＳＣＯＲＥ，ＨＳＣＯＲＥ（Ｉ） ＳＷＡＰ　ＤＡＹ＄，ＤＡＹ＄（Ｉ） ＨＳＣＯＲＥ＄（Ｉ）＝”０００”＋ＳＴＲ＄（ＨＳＣＯＲＥ（Ｉ）） ＨＳＣＯＲＥ＄（Ｉ）＝ＲＩＧＨＴ＄（ＨＳＣＯＲＥ＄（Ｉ），３） ＨＳＣ＝ＴＲＵＥ ＠ＳＫＳＣ ＮＥＸＴ ＰＮＬＳＴＲ　５，１，”ＨＩ＿ＳＣＯＲＥ ＰＮＬＳＴＲ　５，５，”１ＳＴ　”＋ＤＡＹ＄（０）＋”　　”＋ＨＳＣＯＲＥ＄（０） ＰＮＬＳＴＲ　５，８，”２ＮＤ　”＋ＤＡＹ＄（１）＋”　　”＋ＨＳＣＯＲＥ＄（１） ＰＮＬＳＴＲ　５，１１，”３ＲＤ　”＋ＤＡＹ＄（２）＋”　　”＋ＨＳＣＯＲＥ＄（２） ＰＮＬＳＴＲ　５，１４，”４ＴＨ　”＋ＤＡＹ＄（３）＋”　　”＋ＨＳＣＯＲＥ＄（３） ＰＮＬＳＴＲ　５，１７，”５ＴＨ　”＋ＤＡＹ＄（４）＋”　　”＋ＨＳＣＯＲＥ＄（４） ＷＡＩＴ　２００ ＩＦ　ＨＳＣ＝＝ＴＲＵＥ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＡＶＥ ＨＳＣ＝ＦＡＬＳＥ ＲＥＴＵＲＮ ＠ＳＡＶＥ　 ＭＥＭ＄＝”” ＦＯＲ　Ｉ＝０　ＴＯ　４ ＭＥＭ＄＝ＭＥＭ＄＋ＤＡＹ＄（Ｉ）＋ＨＳＣＯＲＥ＄（Ｉ） ＮＥＸＴ ＳＡＶＥ　”ＭＥＭ：ＮＨＰＪＧ” ＲＥＴＵＲＮ ＠ＬＯＡＤ ＬＯＡＤ　”ＭＥＭ：ＮＨＰＪＧ”，０ ＩＦ　ＶＡＬ（ＭＥＭ＄）＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ ＦＯＲ　Ｉ＝０　ＴＯ　４ ＤＡＹ＄（Ｉ）＝ＭＩＤ＄（ＭＥＭ＄，０＋１３＊Ｉ，１０） ＨＳＣＯＲＥ＄（Ｉ）＝ＭＩＤ＄（ＭＥＭ＄，１０＋１３＊Ｉ，３） ＨＳＣＯＲＥ（Ｉ）＝ＶＡＬ（ＨＳＣＯＲＥ＄（Ｉ）） ＮＥＸＴ ＲＥＴＵＲＮ

+

プログラムリスト解説

2行目ー3行目 配列宣言 I$(3):ゲームスコアの表示に使います。 DAY$(5),HSCORE$(5),HSCORE(5):ハイスコアの管理に使います。 21行目ー24行目 背景の星空を描いてます。 面倒なので、位置はランダムです。 25行目ー30行目 地面と月を描いてます。 月の描画は昔ながらの方法ですね。 塗りつぶした円を二つ重ねる手法です。 32行目 変数Qに、初期起動時の秒数を読み込みます。 33行目ー48行目 メインループです。 なお、スコアの計算も実質このループだけで成立しています。 3５行目 変数Pを変化させています。 ０から１００まで順番に足していって、100になったら、0に戻る処理です。 この、変数Pが、スコアの基本の値になります。 36行目ー40行目 ゲームの胆となる変数Pを視覚化しています。 私がよく使う、コンソールのメーターです。 4１行目 変数Rに現在の秒数を代入します。 変数Qと、変数Rの考え方は、上記、 「DSの蓋を2秒閉じたら終了するプログラム」の、リスト解説へ、 おねがいします。 42行目、46行目 秒数が58秒、59秒のときの対策です。 R-Qがマイナスになるときは、Rが繰り上がりリセットされたあとなので、 Rに60を足すことで、計算を成立させています。 ただ、Rをこのまま、このあとの計算につかえないので、変数CHでフラグだてをおこない、 ４６行目で、Rの値を戻しています。 4５行目 変数GGの代入です。この値は、蓋を閉じている時間が５秒にどれだけ近いかを求めています。 48行目でループを抜けると、あとはジャンプの演出プログラムになります。 50行目、5１行目 スコアの計算式です。 SCORE=(P-PxGG/20)x9 基本値は、Pの最大値100x9で、最大900 閉じている時間が5秒に近いほど、減点値が、０に近づくという計算にしてみました。 つまり、理論上の最大値は、900mになっています。 二行に分けた理由は、このあとの処理に使う変数POと、スコアを分離して調整するためでしたが、 結局は全くのノータッチとなりました。 56行目ー64行目 ジャンプの１段階目 spキャラを画面中央辺りまでジャンプさせます。 ジャンプの距離になるPOの値があまりにも小さいと、 ここでジャンプ処理を終わらせます。(62行目、64行目) 6５行目ー73行目 ジャンプの2段階目 地面の描画を削除し(65行目) BG画面を動かすことで、擬似的な上昇を演出しています。 変数POの大きさで、背景の速度も変えて、高得点の期待を演出しています。(69行目) 74行目―80行目 ジャンプの最高点に到達したので、spキャラをフレームアウトさせます。 82行目ー102行目 スコア表示のルーチンです。 スコアの百位、十位、一位それぞれを読み取って、(84ー86) それに対するDATA文を、文字変数に読み込み、 それぞれの位置にWAITをかけつつ、表示させています(87ー95) 最後にmを書き込んで、一連の演出は終了します。 107行目ー146行目 スコア表示に使う文字列です。 7セグ表示を参考に作ってます。 148行目ー170行目 下画面、タイトルと説明書がわりを表示させるサブルーチンです。 172行目ー192行目 ハイスコアの管理と、表示を行うサブルーチンです。 1stスコアから順に、スコア判定させて、もし、SCORE>HSCOREならば、 SWAP命令で変数を入れ換えます。 こうすると、当然下位のスコアもSCORE>HSCOREになるため、順に順位が繰り下がります。 (174ー182) 194行目ー200行目 SAVE処理のサブルーチンです。 日付とスコアを順番に記録してます。 202行目ー210行目 LOAD処理のサブルーチンです。 204行目は、1行目のMEM$のリセットと組み合わせて、MEMデータの無い初回起動時の、 読み込みエラーを回避しています。

遊び方

パワーメーターが上下しています。
できるだけ、高い位置で、DSの蓋を閉じてください。
その後、５秒待って、蓋を開けると、
大ジャンプします？

高得点のコツ

蓋が閉じられてから、スリープモードになるまでに、
多少の誤差があるようです。
そこも考慮に入れないと、なかなか高得点はでません。

NO KEY JUMP NEO

1ゲームとして作り組んでみました。
NO KEY JUMP NEO

応用プログラム　スリープ状態になっていた秒数を1/100秒まで表示するプログラム

QRコード&スクリーンショット

+

プログラムリスト

ＡＣＬＳ：ＣＬＥＡＲ Ｑ＝ＶＡＬ（ＲＩＧＨＴ＄（ＴＩＭＥ＄，２）） ＦＯＲ　Ｉ＝０　ＴＯ　１：Ｉ＝０ ＶＳＹＮＣ　１ Ｒ＝ＶＡＬ（ＲＩＧＨＴ＄（ＴＩＭＥ＄，２）） ＩＦ　ＲーＱ＝＝１　ＴＨＥＮ　Ｉ＝１ ＮＥＸＴ Ｑ＝ＶＡＬ（ＲＩＧＨＴ＄（ＴＩＭＥ＄，２）） ＣＮＴ１＝ＭＡＩＮＣＮＴＬ ＦＯＲ　Ｉ＝０　ＴＯ　１：Ｉ＝０ Ｈ＝Ｈ＋１ Ｒ＝ＶＡＬ（ＲＩＧＨＴ＄（ＴＩＭＥ＄，２）） ＩＦ　ＲーＱ＝＝１　ＴＨＥＮ　Ｉ＝１ ＮＥＸＴ ＣＮＴ２＝ＭＡＩＮＣＮＴＬ Ｍ＿ＦＰＳ＝ＣＮＴ２ーＣＮＴ１ Ｈ＝０ Ｑ＝ＶＡＬ（ＲＩＧＨＴ＄（ＴＩＭＥ＄，２）） ＣＮＴ１＝ＭＡＩＮＣＮＴＬ ＦＯＲ　Ｉ＝０　ＴＯ　１：Ｉ＝０ Ｒ＝ＶＡＬ（ＲＩＧＨＴ＄（ＴＩＭＥ＄，２）） ＣＮＴ２＝ＭＡＩＮＣＮＴＬ ＩＦ　ＣＮＴ２ーＣＮＴ１＝＝１　ＴＨＥＮ　Ｈ＝（Ｈ＋１）＊（Ｈ！＝Ｍ＿ＦＰＳ） ＣＮＴ１＝ＣＮＴ２ Ｈ２＝ＦＬＯＯＲ（Ｈ／Ｍ＿ＦＰＳ＊１００）／１００ ＩＦ　ＲーＱ＝＝１　ＴＨＥＮ　Ｍ＿ＦＰＳ２＝ＨＨ：ＨＨ＝０ ＩＦ　ＲーＱ＜０　ＴＨＥＮ　Ｒ＝Ｒ＋６０：ＣＨ＝ＴＲＵＥ ＩＦ　ＲーＱ＞＝２　ＴＨＥＮ　Ｉ＝１ ＩＦ　ＣＨ＝＝ＴＲＵＥ　ＴＨＥＮ　Ｒ＝Ｒ−６０：ＣＨ＝ＦＡＬＳＥ Ｃ＿ＳＥＣ＝Ｑ：Ｃ＿Ｈ＝Ｈ２：Ｏ＿ＳＥＣ＝Ｒ Ｑ＝Ｒ ＬＯＣＡＴＥ　４，４：ＰＲＩＮＴ　Ｒ＋Ｈ２ ＬＯＣＡＴＥ　４，５：ＰＲＩＮＴ　Ｍ＿ＦＰＳ ＬＯＣＡＴＥ　４，６：ＰＲＩＮＴ　Ｍ＿ＦＰＳ２ ＮＥＸＴ Ｑ＝ＶＡＬ（ＲＩＧＨＴ＄（ＴＩＭＥ＄，２）） ＣＮＴ１＝ＭＡＩＮＣＮＴＬ Ｈ＝０ ＦＯＲ　Ｉ＝０　ＴＯ　１：Ｉ＝０ Ｒ＝ＶＡＬ（ＲＩＧＨＴ＄（ＴＩＭＥ＄，２）） ＣＮＴ２＝ＭＡＩＮＣＮＴＬ ＩＦ　ＣＮＴ２−ＣＮＴ１＝＝１　ＴＨＥＮ　Ｈ＝（Ｈ＋１）＊（Ｈ！＝Ｍ＿ＦＰＳ） ＣＮＴ１＝ＣＮＴ２ ＩＦ　ＲーＱ＝＝１　ＴＨＥＮ　Ｉ＝１ Ｑ＝Ｒ ＮＥＸＴ Ｏ＿Ｈ＝ＦＬＯＯＲ（Ｈ／Ｍ＿ＦＰＳ＊１００）／１００ ＣＬＯＳＥＴＩＭＥ＝Ｃ＿ＳＥＣ＋Ｃ＿Ｈ ＯＰＥＮＴＩＭＥ＝Ｏ＿ＳＥＣ−Ｏ＿Ｈ ＩＦ　ＯＰＥＮＴＩＭＥ−ＣＬＯＳＥＴＩＭＥ＜０　ＴＨＥＮ　ＯＰＥＮＴＩＭＥ＝ＯＰＥＮＴＩＭＥ＋６０ ＳＬＥＥＰＴＩＭＥ＝ＯＰＥＮＴＩＭＥ−ＣＬＯＳＥＴＩＭＥ ＩＦ　ＯＰＥＮＴＩＭＥ＜０　ＴＨＥＮ　ＯＰＥＮＴＩＭＥ＝ＯＰＥＮＴＩＭＥ＋６０ ＬＯＣＡＴＥ　４，４：ＰＲＩＮＴ　”ＣＬＯＳＥ：　”ＣＬＯＳＥＴＩＭＥ ＬＯＣＡＴＥ　４，５：ＰＲＩＮＴ　”ＯＰＥＮ　：　”ＯＰＥＮＴＩＭＥ ＬＯＣＡＴＥ　４，６：ＰＲＩＮＴ　”ＳＬＥＥＰ：　”ＳＬＥＥＰＴＩＭＥ

+

プログラムリスト解説

2-7行目 秒数がカウントアップするまで待っています。 9-17行目 一秒間に、MAINCNTLが何カウントするかを求めています。 求めた値は、変数M_FPSに代入しています。(17) 18-36行目 プログラムのメイン。「DSの蓋を2秒閉じたら終了するプログラム」の部分です。 1/100秒の部分は、MAINCNTLのカウント数を百分率換算しています。(26) また、このループで、蓋が閉じられた時の秒数:C_SEC。蓋が閉じられた時の1/100秒数:C_H。蓋が開いたときの秒数:0_SEC。を求めています。(31) 38-48行目 蓋が空いてから、秒数がカウントアップするまでの、MAINCNTLカウント数を数えています。 50行目 カウント数を、1/100秒数に換算して、変数O_Hに代入しています。 以下、閉めたときの時間を、C_SEC+C_H。開けたときの時間を、O_SEC-O_H。 スリープしていた時間を、その差から求めています。

遊び方

プログラムを起動させたら、しばらくするとカウントが始まります。
蓋を閉じて、2秒以上まって、蓋をあけると、
閉じたときの秒数、開けたときの秒数、スリープ状態だった時間が表示されます。
注意)タイム表示後にウエイト系の処理を入れ忘れています。
できたら、プログラムモードから、NHPTOOL2をロード&ランしてください。

課題

今回も秒数しか処理に使っていないので、１分以上の値はループになってしまいます。
1/100秒カウントは、MAINCNTLから出しているので、プチコンを2時間ほど起動しっぱなしにしておくと、つかえません。
蓋の開け閉め判断は、やっぱり2秒は必要です。

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

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

• .EXE : 凄い (2013/06/11 (火) 07:00:04)
• キービィ : いいアイデアだコレ (2013/06/11 (火) 07:18:11)
• ヤッフー : うわ、目から鱗だ (2013/06/11 (火) 16:21:04)
• Shiftキー : OSもどきで蓋を閉じて自動ロックにいいかも (2013/06/11 (火) 19:21:22)
• シトリン : それいいかも>Shiftキー (2013/06/11 (火) 20:59:59)
• 猫姫 : 分や、時も秒に直してプログラムを組むと、もっと精度があがります。今回は何分も閉じておくことは想定していないので、秒数しか使っていません。 (2013/06/12 (水) 01:30:24)
• 名無しさん : 1フレーム単位で閉じた時間を調べることは可能？ (2013/06/12 (水) 05:26:39)
• 名無しさん : ↑　できるよ (2013/06/12 (水) 12:25:32)
• 名無しさん : でも1秒未満は無理そう (2013/06/12 (水) 15:27:47)
• Shiftキー : ストップウオッチ使ってチートしたのに100mもいかねぇ (2013/06/12 (水) 17:13:17)
• Shiftキー : 100mは超えたけどランキングには入らん (2013/06/12 (水) 17:15:30)
• .EXE : 使わせてもらってもよろしいですか? (2013/06/12 (水) 17:33:52)
• がんばる卓球部 : 上に同じく、(開発中のBASICOS FINALに)使わせてもらってもよろしいでしょうか。 (2013/06/12 (水) 19:05:48)
• 名無しさん : これは前から (2013/06/12 (水) 19:38:43)
• 名無しさん : ある技術っちゃ技術だな (2013/06/12 (水) 19:38:55)
• 名無しさん : ↑7　できるよ (2013/06/12 (水) 19:40:33)
• 名無しさん : ↑どのように？ (2013/06/12 (水) 19:54:38)
• 猫姫 : まあ、上述のとおり、私も「できる」ということが確定している状態での開発ですから(←再現が適当かな?)。 (2013/06/12 (水) 20:07:47)
• 猫姫 : １フレーム単位の取得<できるというか、このプログラム自体、１フレーム毎に実際取得しています。ただ、質問者さんの意図は違うっぽいですね。1/100秒みたいな意味なら、出来ない(思い付いてない)です。チャレンジはしたんですけどね。 (2013/06/12 (水) 20:13:51)
• 猫姫 : Shiftキーさん>100ﾒｰﾄﾙくらいということは、そもそも、閉じるときのメーターがオーバーランしています。閉じてからスリープになるまでのラグがあるので、まずは、早すぎるくらいに閉じてみてください。<このゲームの入力方法としては、向いてないともいう。 (2013/06/12 (水) 20:21:27)
• 猫姫 : いろいろ考えているのですが、レギュレーションが。スリープ状態で、MAINCTLも止まっているようなので、閉じていることを処理にどうしてもくみこめません。 (2013/06/12 (水) 20:45:55)
• 猫姫 : もし、DSが１/100秒までカウントしていて、それを取得する裏コードがプチコンにあれば、もっと細かくできます。 (2013/06/12 (水) 20:48:52)
• 猫姫 : あ、利用はどうぞご自由に。プチコンテクニックみたいなものですし。 (2013/06/12 (水) 20:52:01)
• 名無しさん : そうなんですかTIMEだから1秒未満閉じても取得できないと思っていました (2013/06/12 (水) 21:06:23)
• 猫姫 : １フレーム単位の閉じた時間<あ、閉じた時間だけなら出来ます。１秒間のフレーム数を計算式でだしておいて、上記プログラムリストの変数Rを取得したときのフレーム数を取得すればいいです。ということは、開いたときもいけますね。開いてから、時間が１秒上がるまでのフレーム数をだして、引けばいいわけです。開いた瞬間の処理とはいきませんが。 (2013/06/12 (水) 21:09:24)
• 猫姫 : ↑と、いうことで、試作を上げておきます。(2013/06/13 (木) 00:42:39)
• 名無しさん : stop&cont (2013/06/14 (金) 09:06:06)
• 名無しさん : を使ったら楽勝♪ (2013/06/14 (金) 09:06:36)
• Shiftキー : 900mとかチートしただろ (2013/06/14 (金) 20:03:28)
• 猫姫 : ジャンプゲーム<今上がってるのは、閉じるタイミングで８割はスコアが決まるので、簡単とはいいませんが、最高点でますよ。その下の、1/100秒取得と組み合わせると、最高点は無理ゲーになるかも…<おもしろくなるかな?? (2013/06/15 (土) 00:12:36)
• .EXE : 上手くＯＳもどきに組み込めた。 (2013/06/17 (月) 23:35:59)
• Shiftキー : OSもどきの自動ロックできた (2013/06/28 (金) 19:32:54)
• 名無しさん : この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ) (2013/06/28 (金) 20:14:16)
• 名無しさん : この作品を組み込んだんだと思うから (2013/06/28 (金) 20:19:42)
• 名無しさん : 十分関係あると思うけど (2013/06/28 (金) 20:19:55)
• Shiftキー : ↑そうだよ (2013/06/28 (金) 20:21:02)
• .EXE : ↑↑そうだよ (2013/06/28 (金) 20:43:12)
• 猫姫 : 自動ロック<役に立って何よりです。一方UP主は、ゲームに組み込むことばかり考えてます。閉じる→スリープまでのタイムラグが。やはりネックです。行き着く先は、占いゲームか、「挑戦状」の2pマイク(笑 (2013/06/28 (金) 22:09:20)
• がんばる卓球部 : 僕もFTLOCKと組み合わせて使わせてもらいました。ありがとうございます。 (2013/06/28 (金) 23:19:44)
• 名無しさん : .EXEさんや、Shiftキーさん、がんばる卓球部さんと言ってることがかぶりますけど、僕もOSもどき作ってるので、使わせていただきます。 (2013/07/06 (土) 08:13:15)
• ヤッフー : ↑と同じくｗ (2013/07/11 (木) 15:54:46)
• ( ^ω^ ) : 794m行けた (2013/09/01 (日) 12:24:04)
• 名無しさん : 2秒問題解決バージョンのサブルーチン欲しい (2013/09/02 (月) 16:28:49)
• 名無しさん : ↑同じく (2013/09/16 (月) 21:02:27)
• 今は名無し : QRコードをDLしました (2013/11/09 (土) 18:57:04)

お名前: