プチコンまとめArchive

投稿プログラム : タイマー付き時計

パンくずリスト

このページの最終更新 : 2022/09/20 (火) 12:44:08
公式アーカイブのリンク:http://wiki.hosiken.jp/petc/html/Toukou/A5-BF-A5-A4-A5-DE-A1-BC-C9-D5-A4-AD-BB-FE-B7-D7-.html

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

概要

目覚まし用に作ったものです。 しかし機能が少ないので、あまり役に立たないかもしれません。
上画面に時間・日付・曜日・タイマー設定時刻が表示されます。
※IF～THEN文が多いですが、適当に作っていたので、そこらへんを考えて作ってません。
タイマーの初期値は、6:00:00です。

操作

メイン画面
操作動作
Ｌ＋Ｒ＋Ｙ終了（タイマー設定時刻が変更されてる場合、保存して終了）
ＳＴＡＲＴタイマー設定時刻の変更
タイマー設定画面
操作動作
↑↓「時」の変更
ＸＢ「分」の変更
Ａタイマー設定
Ｌ＋Ｒ＋Ｙ終了（タイマー設定時刻が変更されてる場合、保存して終了）

一定時間たつと画面を疑似的に暗くします。画面タッチか何かボタンを押すことで元に戻ります。

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

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

QR コード

PRG:TIME14
QR.PNG

プログラムリスト

  1. ＡＣＬＳ
  2. ＣＬＥＡＲ
  3. ＭＥＭ＄＝””
  4. ＳＹＳＢＥＥＰ＝ＦＡＬＳＥ
  5. ＰＮＬＴＹＰＥ　”ＯＦＦ”
  6. ＬＯＡＤ”ＭＥＭ：ＴＩＭＥ１４”，ＦＩＬＥ
  7. ＳＴ＄＝ＴＩＭＥ＄
  8. ＴＭＲＥＡＤ（ＳＴ＄），ＳＨ，ＳＭ，ＳＳ
  10. ＠ＬＯＯＰ
  11. ＴＭＲＥＡＤ（ＴＩＭＥ＄），ＮＨ，ＮＭ，ＮＳ
  12. ＧＯＳＵＢ　＠ＴＩＭＥ
  13. ＩＦ　ＭＥＭ＄＝＝””　ＴＨＥＮ　ＧＯＳＵＢ　＠ＭＥＭ
  14. ＩＦ　ＭＥＭ＄＝＝ＴＩＭＥ＄　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＥＮＤ
  15. ＩＦ　ＢＵＴＴＯＮ（）＝＝１０２４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＥＴ　ＥＬＳＥ　ＧＯＳＵＢ　＠ＰＲＩＮＴ
  16. ＩＦ　ＢＵＴＴＯＮ（）＝＝１２８＋２５６＋５１２　ＴＨＥＮ　ＡＣＬＳ：ＳＹＳＢＥＥＰ＝ＴＲＵＥ：ＥＮＤ
  17. ＩＦ　ＴＣＨＳＴ＝＝ＴＲＵＥ　ＯＲ　ＢＵＴＴＯＮ（）！＝０　ＴＨＥＮ　ＴＭＲＥＡＤ（ＴＩＭＥ＄），ＳＨ，ＳＭ，ＳＳ：Ｃ＝０
  18. ＩＦ　ＮＳ＞＝ＳＳ＋６　ＡＮＤ　ＮＨ＞＝ＳＨ　ＡＮＤ　ＮＭ＞＝ＳＭ　ＡＮＤ　Ｃ＝＝０　ＴＨＥＮ　Ｃ＝１４
  19. ＧＯＴＯ　＠ＬＯＯＰ
  21. ＠ＰＲＩＮＴ
  22. ’－－－ＰＲＩＮＴ－－－
  23. ＣＯＬＯＲ　Ｃ
  24. ＬＯＣＡＴＥ　２，２：？”ＴＩＭＥ　ＮＯＷ　＜”ＤＡＴＥ＄”　”Ｇ＄”＞”
  25. ＬＯＣＡＴＥ　（３１－（ＬＥＮ（ＭＥＭ＄）－１））／２，２０：？　ＭＥＭ＄
  26. ’ＬＯＣＡＴＥ　５，６：？　ＴＩＭＥ＄
  27. ’－－－ＷＡＩＴ－－－
  28. ＷＡＩＴ　２
  29. ’ＷＡＩＴ　６０
  30. ’－－－ＣＬＥＡＲ－－－
  31. ’ＧＣＬＳ
  32. ＧＦＩＬＬ　０，６０，８＊８＊４，６０＋（８＊４），０
  33. ’－－－ＧＰＵＴＣＨＲ－－－
  34. ＧＰＡＧＥ　０
  35. ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（ＴＩＭＥ＄）－１
  36. ＧＰＵＴＣＨＲ　Ｉ＊４＊８，６０，”ＢＧＦ０”，ＡＳＣ（ＭＩＤ＄（ＴＩＭＥ＄，Ｉ，１）），Ｃ，４
  37. ＮＥＸＴ
  38. ’－－－ＲＥＴＵＲＮ－－－
  39. ＲＥＴＵＲＮ
  41. ＠ＧＥＮＤ
  42. ’－－－ＣＬＥＡＲ－－－
  43. ＧＣＬＳ
  44. ’－－－ＧＰＵＴＣＨＲ－－－
  45. ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（ＴＩＭＥ＄）－１
  46. ＧＰＵＴＣＨＲ　Ｉ＊４＊８，６０，”ＢＧＦ０”，ＡＳＣ（ＭＩＤ＄（ＴＩＭＥ＄，Ｉ，１）），０，４
  47. ＮＥＸＴ
  48. ’－－－ＰＲＩＮＴ－－－
  49. ＬＯＣＡＴＥ　（３１－（ＬＥＮ（ＭＥＭ＄）－１））／２，２０：？　ＭＥＭ＄
  50. ’ＬＯＣＡＴＥ　５，６：？　ＴＩＭＥ＄
  51. ’－－－ＢＥＥＰ－－－
  52. ＢＥＥＰ　２
  53. ’－－－ＷＡＩＴ－－－
  54. ＷＡＩＴ　５
  55. ’－－－ＩＦ－－－
  56. ＩＦ　ＴＣＨＳＴ＝＝ＴＲＵＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
  57. ＩＦ　ＢＵＴＴＯＮ（）！＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  58. ’－－－ＧＯＴＯ－－－
  59. ＧＯＴＯ　＠ＧＥＮＤ
  61. ＠ＭＥＭ
  62. ’－－－ＭＥＭ＄　ＳＥＴ－－－
  63. ＭＥＭ＄＝”０６：００：００”
  64. ’－－－ＳＡＶＥ－－－
  65. ＳＡＶＥ”ＭＥＭ：ＴＩＭＥ１４”
  66. ’－－－ＲＥＴＵＲＮ－－－
  67. ＲＥＴＵＲＮ
  69. ＠ＳＥＴ
  70. ’－－－ＣＬＥＡＲ－－－
  71. ＣＬＳ
  72. ＣＯＬＯＲ　０
  73. ’－－－Ｈ，Ｍ，Ｓ　ＳＥＴ－－－
  74. ＴＭＲＥＡＤ（ＭＥＭ＄），Ｈ，Ｍ，Ｓ
  76. ＠ＳＥＴＵＰ
  77. ’－－－ＰＲＩＮＴ－－－
  78. ＬＯＣＡＴＥ　２，２：？”ＳＥＴＵＰ　ＮＯＷ．．．”
  80. ’－－－ＩＮＰＵＴ　ＳＥＴ　ＶＲ
  81. ’’－－－ＬＩＮＰＵＴ－－－
  82. ’ＬＩＮＰＵＴ　”ＭＥＭ＄”；Ｍ＄
  83. ’
  84. ’＠ＩＮＰＵＴ
  85. ’’－－－ＩＮＰＵＴ－－－
  86. ’ＩＮＰＵＴ　”ＯＫ？（Ｙ／Ｎ）”；Ｉ＄
  87. ’’－－－ＰＮＬＴＹＰＥ－－－
  88. ’ＰＮＬＴＹＰＥ　”ＫＹＡ”
  89. ’’－－－ＩＦ－－－
  90. ’ＩＦ　Ｉ＄＝＝”Ｙ”　ＴＨＥＮ　ＭＥＭ＄＝Ｍ＄ＲＥＴＵＲＮ
  91. ’ＩＦ　Ｉ＄＝＝”Ｎ”　ＴＨＥＮ　ＲＥＴＵＲＮ
  92. ’’－－－ＧＯＴＯ－－－
  93. ’ＧＯＴＯ　＠ＩＮＰＵＴ
  95. ’－－－ＷＡＩＴ－－－
  96. ＷＡＩＴ　９
  97. ’－－－ＧＦＩＬＬ－－－
  98. ＧＦＩＬＬ　０，６０，８＊８＊４，６０＋（８＊４），０
  99. ’－－－ＰＲＩＮＴ－－－
  100. ’ＬＯＣＡＴＥ　５，７：？　”＋↑　＋”
  101. ’ＬＯＣＡＴＥ　５，８：？　Ｈ＄”：”Ｍ＄”：００　［А：ＯＫ］”
  102. ’ＬＯＣＡＴＥ　５，９：？　”－↓　－”
  103. ’－－－ＩＦ－－－
  104. ＩＦ　ＬＥＮ（ＳＴＲ＄（Ｈ））＝＝　　１　ＴＨＥＮ　Ｈ＄＝”０”＋ＳＴＲ＄（Ｈ）　ＥＬＳＥ　Ｈ＄＝ＳＴＲ＄（Ｈ）
  105. ＩＦ　ＬＥＮ（ＳＴＲ＄（Ｍ））＝＝　　１　ＴＨＥＮ　Ｍ＄＝”０”＋ＳＴＲ＄（Ｍ）　ＥＬＳＥ　Ｍ＄＝ＳＴＲ＄（Ｍ）
  107. ＩＦ　ＢＵＴＴＯＮ（）＝＝１　ＡＮＤ　Ｈ＜＝２３　ＴＨＥＮ　Ｈ＝Ｈ＋１：ＧＯＴＯ　＠ＳＰＲＩＮＴ
  108. ＩＦ　ＢＵＴＴＯＮ（）＝＝１　ＡＮＤ　Ｈ＝＝２４　ＴＨＥＮ　Ｈ＝０：ＧＯＴＯ　＠ＳＰＲＩＮＴ
  109. ＩＦ　ＢＵＴＴＯＮ（）＝＝２　ＡＮＤ　Ｈ＞０　ＴＨＥＮ　Ｈ＝Ｈ－１：ＧＯＴＯ　＠ＳＰＲＩＮＴ
  110. ＩＦ　ＢＵＴＴＯＮ（）＝＝２　ＡＮＤ　Ｈ＝＝０　ＴＨＥＮ　Ｈ＝　２３：ＧＯＴＯ　＠ＳＰＲＩＮＴ
  111. ＩＦ　ＢＵＴＴＯＮ（）＝＝６４　ＡＮＤ　Ｍ＜５９　ＴＨＥＮ　Ｍ＝Ｍ＋１：ＧＯＴＯ　＠ＳＰＲＩＮＴ
  112. ＩＦ　ＢＵＴＴＯＮ（）＝＝６４　ＡＮＤ　Ｍ＝＝５９　ＡＮＤ　Ｈ＜＝２３　ＴＨＥＮ　Ｍ＝０：Ｈ＝Ｈ＋１：ＧＯＴＯ　＠ＳＰＲＩＮＴ
  113. ＩＦ　ＢＵＴＴＯＮ（）＝＝６４　ＡＮＤ　Ｍ＝＝５９　ＡＮＤ　Ｈ＝＝２４　ＴＨＥＮ　Ｍ＝０：Ｈ＝０：ＧＯＴＯ　＠ＳＰＲＩＮＴ
  114. ＩＦ　ＢＵＴＴＯＮ（）＝＝３２　ＡＮＤ　Ｍ＞０　ＡＮＤ　Ｈ＞＝０　ＴＨＥＮ　Ｍ＝Ｍ－１：ＧＯＴＯ　＠ＳＰＲＩＮＴ
  115. ＩＦ　ＢＵＴＴＯＮ（）＝＝３２　ＡＮＤ　Ｍ＝＝０　ＡＮＤ　Ｈ＞０　ＴＨＥＮ　Ｍ＝　５９：Ｈ＝Ｈ－１：ＧＯＴＯ　＠ＳＰＲＩＮＴ
  116. ＩＦ　ＢＵＴＴＯＮ（）＝＝３２　ＡＮＤ　Ｍ＝＝０　ＡＮＤ　Ｈ＝＝０　ＴＨＥＮ　Ｍ＝　５９：Ｈ＝　２３：ＧＯＴＯ　＠ＳＰＲＩＮＴ
  117. ＩＦ　ＢＵＴＴＯＮ（）＝＝１６　ＴＨＥＮ　ＴＭＲＥＡＤ（ＴＩＭＥ＄），ＳＨ，ＳＭ，ＳＳ：ＣＬＳ：ＭＥＭ＄＝ＭＥ＄：ＲＥＴＵＲＮ
  118. ＩＦ　ＢＵＴＴＯＮ（）＝＝１２８＋２５６＋５１２　ＴＨＥＮ　ＣＬＳ：ＭＥＭ＄＝ＭＥ＄：ＳＹＳＢＥＥＰ＝ＴＲＵＥ：ＳＡＶＥ”ＭＥＭ：ＴＩＭＥ１４”：ＥＮＤ
  120. ＠ＳＰＲＩＮＴ
  121. ’－－－ＭＥ＄　ＳＥＴ－－－
  122. ＭＥ＄＝Ｈ＄＋”：”＋Ｍ＄＋”：００”
  123. ＭＥＥ＄＝Ｈ＄＋”：”＋Ｍ＄
  124. ’－－－ＧＰＵＴＣＨＲ－－－
  125. ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（ＭＥＥ＄）－１
  126. 　ＧＰＵＴＣＨＲ　（Ｉ＊４＊８）＋４８，６０，”ＢＧＦ０”，ＡＳＣ（ＭＩＤ＄（Ｈ＄＋”：”＋Ｍ＄，Ｉ，１）），０，４
  127. ＮＥＸＴ
  128. ’－－－ＧＯＴＯ－－－
  129. ＧＯＴＯ　＠ＳＥＴＵＰ
  131. ＠ＴＩＭＥ
  132. ’－－－ＤＡＴＥ　ＲＥＡＤ　ＳＥＴ－－－
  133. ＤＴＲＥＡＤ（ＤＡＴＥ＄），ＺＹ，ＺＭ，ＺＤ
  135. ＠ＺＥＲＲＥＲ
  136. ’－－－ＳＥＴ－－－
  137. ＺＡ＝ＺＹ＋ＦＬＯＯＲ（ＺＹ／４）
  138. ＺＢ＝ＦＬＯＯＲ（ＺＹ／１００）
  139. ＺＣ＝ＦＬＯＯＲ（ＺＹ／４００）
  140. ＺＥ＝ＦＬＯＯＲ（（１３＊ＺＭ＋８）／５）
  141. ＺＦ＝ＺＡ－ＺＢ＋ＺＣ＋ＺＥ＋ＺＤ：ＺＧ＝ＺＦ－ＦＬＯＯＲ（ＺＦ／７）＊７
  143. ＠ＬＯＮＧ
  144. ’－－－ＳＥＴ－－－
  145. ＺＲ＝８－ＦＬＯＯＲ（ＺＭ／２）＊２
  146. ’－－－ＩＦ－－－
  147. ＩＦ　ＺＭ＜８　ＴＨＥＮ　ＺＬ＝３０＋ＺＲ
  148. ＩＦ　ＺＭ＞８　ＴＨＥＮ　ＺＬ＝３１－ＺＲ
  149. ＩＦ　ＺＭ＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＲＵ
  151. ＠ＵＲＵ
  152. ’－－－ＳＥＴ　＆　ＩＦ－－－
  153. ＺＬ＝２８：ＺＲ＝ＺＹ－ＦＬＯＯＲ（ＺＹ／４）
  154. ＩＦ　ＺＲ＝＝０　ＴＨＥＮ　ＺＬ＝２９
  155. ＺＲ＝ＺＹ－ＦＬＯＯＲ（ＺＹ／１００）
  156. ＩＦ　ＺＲ＝＝０　ＴＨＥＮ　ＺＬ＝２８
  157. ＺＲ＝ＺＹ－ＦＬＯＯＲ（ＺＹ／４００）
  158. ＩＦ　ＺＲ＝＝０　ＴＨＥＮ　ＺＬ＝２９
  159. ’－－－ＭＩＤ＄－－－
  160. ＰＰ＄（０）＝”Ｓｕｎ”
  161. ＰＰ＄（１）＝”Ｍｏｎ”
  162. ＰＰ＄（２）＝”Ｔｕｅｓ”
  163. ＰＰ＄（３）＝”Ｗｅｄｎｅｓ”
  164. ＰＰ＄（４）＝”Ｔｈｕｒｓ”
  165. ＰＰ＄（５）＝”Ｆｒｉ”
  166. ＰＰ＄（６）＝”Ｓａｔｕｒ”
  167. Ｇ＄＝ＰＰ＄（ＺＧ）＋”ｄａｙ”
  168. ’－－－ＲＥＴＵＲＮ－－－
  169. ＲＥＴＵＲＮ
  170. ＲＥＴＵＲＮ

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

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

  • 名も無き名無し : 4行目はＬＯＡＤ”ＭＥＭ：ＴＩＭＥ１４”，ＦＩＬＥじゃなくてＬＯＡＤ”ＭＥＭ：ＴＩＭＥ１４”，ＦＡＬＳＥです (2012/08/17 (金) 14:49:10)
  • そしてまた名無し : ARコードが・・・輝いている・・・ (2012/08/17 (金) 17:16:29)
  • RND128 : QRコードリスト修正しておきました (2012/08/19 (日) 08:58:58)
  • 直哉 : これ気に入った (2012/10/17 (水) 06:15:00)
  • あ : あ (2012/10/17 (水) 06:15:12)