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

投稿プログラム : キッチンタイマー

パンくずリスト

2011年05月03日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム 実用ツール 初代対応 QRコード

概要

これは99分59秒まで測れるキッチンタイマーです。
表示が大きいので、制限時間を設けて(アナログな)ゲームをする時などに、全員が見えるタイマーとして使うこともできます。 というか、そういう目的で作りました。

使い方

実行すると時間設定状態になります。カーソルは1分の位に合っています。
十字キーの左右でカーソル移動、上下でタイマー設定の変更が可能です。
Aボタンを押すとカウントダウンを開始します。
Bボタンを押すとリセット(カーソル位置と時間のリセット)が行われます。
STARTボタンで終了です。

時間設定中の操作
↑↓時間の変更
←→カーソルの移動
Аカウントダウン開始
Б時間・カーソル位置のリセット
STARTプログラムの終了

カウントダウン中は、Bボタンを0.5秒程度押しているとカウントダウンを停止できます。

カウントダウン中の操作
Бカウントダウンの停止

カウントダウン中は以下の時にBEEP音がします。

  • 残りが1分の倍数ちょうど(秒表示が00)
  • 残りが60秒以下(30秒以下、10秒以下で変化) また、30秒以下、10秒以下になると画面表示の色も変化します。

残り時間が0になるとBGMが流れます。
BGMの再生が終わるか、BGMが流れている間にAボタンを押すと、時間設定状態になります。

参考にしたもの

プチコンでTRPG便利ツールを作ってみた ‐ ニコニコ動画(原宿)

上記リンク先で紹介されているタイマーツールと似たものを作りました。
プログラムリスト部分は潰れてて読めなかったため、自分で組みました。

QR コード

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

PRG:KTIMER
1/22/2
qr001.pngqr002.png

プログラムリスト

  1. ＣＬＥＡＲ：ＣＬＳ
  2. ＤＩＭ　ＮＵＭ＄（１０，８）
  3. ＲＥＳＴＯＲＥ　＠Ｃ０
  4. ＦＯＲ　Ｉ＝０　ＴＯ　９
  5. 　ＦＯＲ　Ｊ＝０　ＴＯ　７
  6. 　　ＲＥＡＤ　ＮＵＭ＄（Ｉ，Ｊ）
  7. 　ＮＥＸＴ
  8. ＮＥＸＴ
  10. ＴＩＭ＝０
  12. ＠ＳＥＴＴＩＮＧ
  13. ＣＵＲ＝１
  14. ＣＯＬＯＲ　０
  15. ＣＯＬＯＮ＝１
  17. ＠ＳＥＴＬＰ
  18. ＧＯＳＵＢ　＠ＤＴＩＭＥＲ
  19. ＧＯＳＵＢ　＠ＤＣＵＲ
  20. ＮＯＫ＝ＮＯＴ　Ｋ：Ｋ＝ＢＵＴＴＯＮ（）：ＮＯＫ＝ＮＯＫ　ＡＮＤ　Ｋ
  21. ＩＦ（ＮＯＫ　ＡＮＤ　４）ＴＨＥＮ　ＢＥＥＰ　２：ＣＵＲ＝（ＣＵＲ＋３）ＡＮＤ　３
  22. ＩＦ（ＮＯＫ　ＡＮＤ　８）ＴＨＥＮ　ＢＥＥＰ　２：ＣＵＲ＝（ＣＵＲ＋１）ＡＮＤ　３
  23. ＩＦ（ＮＯＫ　ＡＮＤ　１）ＴＨＥＮ　ＢＥＥＰ　９：ＧＯＳＵＢ　＠ＵＰ
  24. ＩＦ（ＮＯＫ　ＡＮＤ　２）ＴＨＥＮ　ＢＥＥＰ　９：ＧＯＳＵＢ　＠ＤＯＷＮ
  26. ＩＦ（ＮＯＫ　ＡＮＤ　１６）ＴＨＥＮ　ＣＬＳ：ＧＯＴＯ　＠ＣＤ
  27. ＩＦ（ＮＯＫ　ＡＮＤ　３２）ＴＨＥＮ　ＣＵＲ＝１：ＴＩＭ＝０
  28. ＩＦ（ＮＯＫ　ＡＮＤ　１０２４）ＴＨＥＮ　ＬＯＣＡＴＥ　０，２０：ＧＯＴＯ　＠ＬＡＳＴ
  30. ＧＯＴＯ　＠ＳＥＴＬＰ
  32. ＠ＵＰ
  33. ＧＯＳＵＢ　＠ＴＩＭ２Ｃ
  34. Ｃ（ＣＵＲ）＝（Ｃ（ＣＵＲ）＋１）％（６＋（ＣＵＲ！＝２）＊４）
  35. ＧＯＳＵＢ　＠Ｃ２ＴＩＭ
  36. ＲＥＴＵＲＮ
  38. ＠ＤＯＷＮ
  39. ＧＯＳＵＢ　＠ＴＩＭ２Ｃ
  40. ＴＭＰ＝（６＋（ＣＵＲ！＝２）＊４）
  41. Ｃ（ＣＵＲ）＝（Ｃ（ＣＵＲ）＋ＴＭＰ−１）％ＴＭＰ
  42. ＧＯＳＵＢ　＠Ｃ２ＴＩＭ
  43. ＲＥＴＵＲＮ
  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. ＩＦ　ＴＩＭ＞０　ＧＯＴＯ　＠ＣＬＰ
  73. ＠ＣＤＥＮＤ
  74. ＮＯＫ＝ＮＯＴ　Ｋ：Ｋ＝ＢＵＴＴＯＮ（）：ＮＯＫ＝ＮＯＫ　ＡＮＤ　Ｋ
  75. ＩＦ（ＮＯＫ　ＡＮＤ　１６）ＴＨＥＮ　ＢＧＭＳＴＯＰ
  76. ＩＦ　ＢＧＭＣＨＫ（）　ＧＯＴＯ　＠ＣＤＥＮＤ
  77. ＴＩＭ＝ＯＴＩＭ
  78. ＧＯＴＯ　＠ＳＥＴＴＩＮＧ
  80. ＠ＬＡＳＴ
  81. ＥＮＤ
  83. ＠ＴＩＭ２Ｃ
  84. Ｃ（３）＝ＴＩＭ％１０
  85. Ｃ（２）＝ＦＬＯＯＲ（（ＴＩＭ％６０）／１０）
  86. Ｃ（１）＝ＦＬＯＯＲ（ＴＩＭ／６０）％１０
  87. Ｃ（０）＝ＦＬＯＯＲ（ＴＩＭ／６００）
  88. ＲＥＴＵＲＮ
  90. ＠Ｃ２ＴＩＭ
  91. ＴＩＭ＝Ｃ（３）＋Ｃ（２）＊１０＋Ｃ（１）＊６０＋Ｃ（０）＊６００
  92. ＲＥＴＵＲＮ
  94. ＠ＤＴＩＭＥＲ
  95. ＧＯＳＵＢ　＠ＴＩＭ２Ｃ
  96. ＩＦ　ＣＯＬＯＮ　ＧＯＴＯ　＠ＤＣＯＬＯＮ
  97. 　ＬＯＣＡＴＥ　１５，６：？”　”
  98. 　ＬＯＣＡＴＥ　１５，９：？”　”
  99. 　ＧＯＴＯ　＠ＤＣＥＮＤ
  100. ＠ＤＣＯＬＯＮ
  101. 　ＬＯＣＡＴＥ　１５，６：？”＊”
  102. 　ＬＯＣＡＴＥ　１５，９：？”＊”
  103. ＠ＤＣＥＮＤ
  104. ＦＯＲ　Ｉ＝０　ＴＯ　３
  105. 　ＴＸ＝１＋Ｉ＊７＋（Ｉ　ＡＮＤ　２）
  106. 　ＦＯＲ　Ｊ＝０　ＴＯ　７
  107. 　　ＬＯＣＡＴＥ　ＴＸ，４＋Ｊ
  108. 　　？ＮＵＭ＄（Ｃ（Ｉ），Ｊ）
  109. 　ＮＥＸＴ
  110. ＮＥＸＴ
  111. ＲＥＴＵＲＮ
  113. ＠ＤＣＵＲ
  114. ＦＯＲ　Ｉ＝０　ＴＯ　３
  115. 　ＬＯＣＡＴＥ　１＋Ｉ＊７＋（Ｉ　ＡＮＤ　２），１３
  116. 　ＩＦ　Ｉ＝＝ＣＵＲ　ＧＯＴＯ　＠ＣＵＲＢ
  117. 　　？”　　　　　　”
  118. 　　ＧＯＴＯ　＠ＣＵＲＮ
  119. 　＠ＣＵＲＢ
  120. 　　？”−−−−−−”
  121. 　＠ＣＵＲＮ
  122. ＮＥＸＴ
  123. ＲＥＴＵＲＮ
  125. ＠Ｃ０
  126. ＤＡＴＡ”　００００　”
  127. ＤＡＴＡ”０　　　　０”
  128. ＤＡＴＡ”０　　　　０”
  129. ＤＡＴＡ”０　　　　０”
  130. ＤＡＴＡ”０　　　　０”
  131. ＤＡＴＡ”０　　　　０”
  132. ＤＡＴＡ”０　　　　０”
  133. ＤＡＴＡ”　００００　”
  134. ＤＡＴＡ”　　　　　　”
  135. ＤＡＴＡ”　　　　　１”
  136. ＤＡＴＡ”　　　　　１”
  137. ＤＡＴＡ”　　　　　１”
  138. ＤＡＴＡ”　　　　　１”
  139. ＤＡＴＡ”　　　　　１”
  140. ＤＡＴＡ”　　　　　１”
  141. ＤＡＴＡ”　　　　　　”
  142. ＤＡＴＡ”　２２２２　”
  143. ＤＡＴＡ”　　　　　２”
  144. ＤＡＴＡ”　　　　　２”
  145. ＤＡＴＡ”　２２２２　”
  146. ＤＡＴＡ”２　　　　　”
  147. ＤＡＴＡ”２　　　　　”
  148. ＤＡＴＡ”２　　　　　”
  149. ＤＡＴＡ”　２２２２　”
  150. ＤＡＴＡ”　３３３３　”
  151. ＤＡＴＡ”　　　　　３”
  152. ＤＡＴＡ”　　　　　３”
  153. ＤＡＴＡ”　３３３３　”
  154. ＤＡＴＡ”　　　　　３”
  155. ＤＡＴＡ”　　　　　３”
  156. ＤＡＴＡ”　　　　　３”
  157. ＤＡＴＡ”　３３３３　”
  158. ＤＡＴＡ”　　　　　　”
  159. ＤＡＴＡ”４　　　　４”
  160. ＤＡＴＡ”４　　　　４”
  161. ＤＡＴＡ”　４４４４４”
  162. ＤＡＴＡ”　　　　　４”
  163. ＤＡＴＡ”　　　　　４”
  164. ＤＡＴＡ”　　　　　４”
  165. ＤＡＴＡ”　　　　　　”
  166. ＤＡＴＡ”　５５５５　”
  167. ＤＡＴＡ”５　　　　　”
  168. ＤＡＴＡ”５　　　　　”
  169. ＤＡＴＡ”　５５５５　”
  170. ＤＡＴＡ”　　　　　５”
  171. ＤＡＴＡ”　　　　　５”
  172. ＤＡＴＡ”　　　　　５”
  173. ＤＡＴＡ”　５５５５　”
  174. ＤＡＴＡ”　６６６６　”
  175. ＤＡＴＡ”６　　　　　”
  176. ＤＡＴＡ”６　　　　　”
  177. ＤＡＴＡ”６６６６６　”
  178. ＤＡＴＡ”６　　　　６”
  179. ＤＡＴＡ”６　　　　６”
  180. ＤＡＴＡ”６　　　　６”
  181. ＤＡＴＡ”　６６６６　”
  182. ＤＡＴＡ”　７７７７　”
  183. ＤＡＴＡ”　　　　　７”
  184. ＤＡＴＡ”　　　　　７”
  185. ＤＡＴＡ”　　　　　７”
  186. ＤＡＴＡ”　　　　　７”
  187. ＤＡＴＡ”　　　　　７”
  188. ＤＡＴＡ”　　　　　７”
  189. ＤＡＴＡ”　　　　　　”
  190. ＤＡＴＡ”　８８８８　”
  191. ＤＡＴＡ”８　　　　８”
  192. ＤＡＴＡ”８　　　　８”
  193. ＤＡＴＡ”　８８８８　”
  194. ＤＡＴＡ”８　　　　８”
  195. ＤＡＴＡ”８　　　　８”
  196. ＤＡＴＡ”８　　　　８”
  197. ＤＡＴＡ”　８８８８　”
  198. ＤＡＴＡ”　９９９９　”
  199. ＤＡＴＡ”９　　　　９”
  200. ＤＡＴＡ”９　　　　９”
  201. ＤＡＴＡ”　９９９９９”
  202. ＤＡＴＡ”　　　　　９”
  203. ＤＡＴＡ”　　　　　９”
  204. ＤＡＴＡ”　　　　　９”
  205. ＤＡＴＡ”　　　　　　”

カウントアップ機能の追加

00:00の状態でAボタンを押すと、何も置きませんが、以下のように改造することで、カウントアップするようにできます。 カウントダウン中と同様Bボタンを押すとカウントアップを停止して、時間設定状態に戻ります。 カウントアップの再開はできません。

26行目を以下のように変更

  1. ＩＦ（ＮＯＫ　ＡＮＤ　１６）ＴＨＥＮ　ＧＯＳＵＢ　＠Ａ

適当な箇所に以下の記述を追加

  1. ＠Ａ
  2. ＩＦ　ＴＩＭ＝＝０　ＧＯＴＯ　＠ＡＣＵ
  3. 　ＣＬＳ：ＧＯＴＯ＠ＣＤ
  4. 　ＲＥＴＵＲＮ
  5. ＠ＡＣＵ
  6. 　ＣＬＳ：ＧＯＴＯ＠ＣＵ
  7. 　ＲＥＴＵＲＮ
  9. ＠ＣＵ
  10. ＣＯＬＯＲ　０
  11. ＧＯＳＵＢ＠ＤＴＩＭＥＲ
  12. ＠ＣＵＬＰ
  13. ＶＳＹＮＣ　３５
  14. ＮＯＫ＝ＮＯＴ　Ｋ：Ｋ＝ＢＵＴＴＯＮ（）：ＮＯＫ＝ＮＯＫ　ＡＮＤ　Ｋ
  15. ＩＦ（ＮＯＫ　ＡＮＤ　３２）ＧＯＴＯ　＠ＳＥＴＴＩＮＧ
  16. ＣＯＬＯＮ＝１−ＣＯＬＯＮ
  17. ＧＯＳＵＢ＠ＤＴＩＭＥＲ
  18. ＶＳＹＮＣ　２５
  19. ＮＯＫ＝ＮＯＴ　Ｋ：Ｋ＝ＢＵＴＴＯＮ（）：ＮＯＫ＝ＮＯＫ　ＡＮＤ　Ｋ
  20. ＩＦ（ＮＯＫ　ＡＮＤ　３２）ＧＯＴＯ　＠ＳＥＴＴＩＮＧ
  21. ＣＯＬＯＮ＝１−ＣＯＬＯＮ
  22. ＴＩＭ＝（ＴＩＭ＋１）％６０００
  23. ＧＯＳＵＢ＠ＤＴＩＭＥＲ
  24. ＧＯＴＯ＠ＣＵＬＰ

※3行目と6行目のGOSUB@CDおよびGOSUB@CDを、GOTO文に修正しました。
※サブルーチン @TIM2Cと、DATAの「６」の一部を修正しました。

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

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

  • 名無しさん : 時間の変更がうまくいかないで、エラーになってしまいます。入力ミスでしょうか？ (2011/05/16 (月) 09:54:35)
    • 名無しさん : 十字キー上下を押すとエラーが出るんですよね?とりあえずエラーメッセージと起きてる場所を書いてもらえるとうれしいです (2011/05/16 (月) 22:22:36)
  • 名無しさん : なんていうエラーが出てるか書かないと、作者の人でも判断のしようがないよー (2011/05/16 (月) 17:56:03)
  • 暇人 : Out of DATA (6, READ)て出たけどなぜですか？ (2011/09/21 (水) 19:44:27)
  • わぁぃ@ : DATA文が入っているのが不思議で仕方ないのだが。 (2011/09/24 (土) 11:43:05)
  • 翁鶏 : ＤＡＴＡ必要かな? (2012/01/02 (月) 19:48:58)
  • hatena : タグに初代対応を追加しました。 (2012/03/19 (月) 14:40:25)
  • 名無しさん : DSにカップラーメンこぼした・・・。が、こわれなかった　よかったーーー (2012/04/08 (日) 21:38:25)
  • 名無しさん : 投稿者さんが来られないようなので、デバッグしてうまく動作したので、QRコードをつけました。カウントアップ機能はつけています。 (2012/05/16 (水) 21:41:53)
  • 名無しさん : ありがとう名無しさん！！ (2012/05/19 (土) 00:33:29)
  • あいうえお : バグがあります。タイマーを7秒以上設定すると6がバグります。 (2012/07/28 (土) 16:21:59)
  • 名無しさん : 上のリストはあってるけど、QRのデータは、６のデータでスペースの足りないところがあるかな。これくらいは自分で直しましょう。なにしろ投稿者が出てこない。 (2012/07/28 (土) 16:50:56)
  • 生活に役立ちますね夫 : 役立つね生活に (2013/05/30 (木) 16:37:22)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.125 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:06 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30