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

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

パンくずリスト

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

概要

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

操作

メイン画面
操作動作
L+R+Y終了(タイマー設定時刻が変更されてる場合、保存して終了)
STARTタイマー設定時刻の変更
タイマー設定画面
操作動作
↑↓「時」の変更
XB「分」の変更
タイマー設定
L+R+Y終了(タイマー設定時刻が変更されてる場合、保存して終了)

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

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

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

QR コード

PRG:TIME14
QR.PNG

プログラムリスト

  1. ACLS
  2. CLEAR
  3. MEM$=””
  4. SYSBEEP=FALSE
  5. PNLTYPE ”OFF”
  6. LOAD”MEM:TIME14”,FILE
  7. ST$=TIME$
  8. TMREAD(ST$),SH,SM,SS
  9. @LOOP
  10. TMREAD(TIME$),NH,NM,NS
  11. GOSUB @TIME
  12. IF MEM$==”” THEN GOSUB @MEM
  13. IF MEM$==TIME$ THEN GOSUB @GEND
  14. IF BUTTON()==1024 THEN GOSUB @SET ELSE GOSUB @PRINT
  15. IF BUTTON()==128+256+512 THEN ACLS:SYSBEEP=TRUE:END
  16. IF TCHST==TRUE OR BUTTON()!=0 THEN TMREAD(TIME$),SH,SM,SS:C=0
  17. IF NS>=SS+6 AND NH>=SH AND NM>=SM AND C==0 THEN C=14
  18. GOTO @LOOP
  19. @PRINT
  20. ’−−−PRINT−−−
  21. COLOR C
  22. LOCATE 2,2:?”TIME NOW <”DATE$” ”G$”>”
  23. LOCATE (31−(LEN(MEM$)−1))/2,20:? MEM$
  24. ’LOCATE 5,6:? TIME$
  25. ’−−−WAIT−−−
  26. WAIT 2
  27. ’WAIT 60
  28. ’−−−CLEAR−−−
  29. ’GCLS
  30. GFILL 0,60,8*8*4,60+(8*4),0
  31. ’−−−GPUTCHR−−−
  32. GPAGE 0
  33. FOR I=0 TO LEN(TIME$)−1
  34. GPUTCHR I*4*8,60,”BGF0”,ASC(MID$(TIME$,I,1)),C,4
  35. NEXT
  36. ’−−−RETURN−−−
  37. RETURN
  38. @GEND
  39. ’−−−CLEAR−−−
  40. GCLS
  41. ’−−−GPUTCHR−−−
  42. FOR I=0 TO LEN(TIME$)−1
  43. GPUTCHR I*4*8,60,”BGF0”,ASC(MID$(TIME$,I,1)),0,4
  44. NEXT
  45. ’−−−PRINT−−−
  46. LOCATE (31−(LEN(MEM$)−1))/2,20:? MEM$
  47. ’LOCATE 5,6:? TIME$
  48. ’−−−BEEP−−−
  49. BEEP 2
  50. ’−−−WAIT−−−
  51. WAIT 5
  52. ’−−−IF−−−
  53. IF TCHST==TRUE THEN RETURN
  54. IF BUTTON()!=0 THEN RETURN
  55. ’−−−GOTO−−−
  56. GOTO @GEND
  57. @MEM
  58. ’−−−MEM$ SET−−−
  59. MEM$=”06:00:00”
  60. ’−−−SAVE−−−
  61. SAVE”MEM:TIME14”
  62. ’−−−RETURN−−−
  63. RETURN
  64. @SET
  65. ’−−−CLEAR−−−
  66. CLS
  67. COLOR 0
  68. ’−−−H,M,S SET−−−
  69. TMREAD(MEM$),H,M,S
  70. @SETUP
  71. ’−−−PRINT−−−
  72. LOCATE 2,2:?”SETUP NOW...”
  73. ’−−−INPUT SET VR
  74. ’’−−−LINPUT−−−
  75. ’LINPUT ”MEM$”;M$
  76. ’@INPUT
  77. ’’−−−INPUT−−−
  78. ’INPUT ”OK?(Y/N)”;I$
  79. ’’−−−PNLTYPE−−−
  80. ’PNLTYPE ”KYA”
  81. ’’−−−IF−−−
  82. ’IF I$==”Y” THEN MEM$=M$RETURN
  83. ’IF I$==”N” THEN RETURN
  84. ’’−−−GOTO−−−
  85. ’GOTO @INPUT
  86. ’−−−WAIT−−−
  87. WAIT 9
  88. ’−−−GFILL−−−
  89. GFILL 0,60,8*8*4,60+(8*4),0
  90. ’−−−PRINT−−−
  91. ’LOCATE 5,7:? ”+↑ +”
  92. ’LOCATE 5,8:? H$”:”M$”:00 [А:OK]”
  93. ’LOCATE 5,9:? ”−↓ −”
  94. ’−−−IF−−−
  95. IF LEN(STR$(H))==  1 THEN H$=”0”+STR$(H) ELSE H$=STR$(H)
  96. IF LEN(STR$(M))==  1 THEN M$=”0”+STR$(M) ELSE M$=STR$(M)
  97. IF BUTTON()==1 AND H<=23 THEN H=H+1:GOTO @SPRINT
  98. IF BUTTON()==1 AND H==24 THEN H=0:GOTO @SPRINT
  99. IF BUTTON()==2 AND H>0 THEN H=H−1:GOTO @SPRINT
  100. IF BUTTON()==2 AND H==0 THEN H= 23:GOTO @SPRINT
  101. IF BUTTON()==64 AND M<59 THEN M=M+1:GOTO @SPRINT
  102. IF BUTTON()==64 AND M==59 AND H<=23 THEN M=0:H=H+1:GOTO @SPRINT
  103. IF BUTTON()==64 AND M==59 AND H==24 THEN M=0:H=0:GOTO @SPRINT
  104. IF BUTTON()==32 AND M>0 AND H>=0 THEN M=M−1:GOTO @SPRINT
  105. IF BUTTON()==32 AND M==0 AND H>0 THEN M= 59:H=H−1:GOTO @SPRINT
  106. IF BUTTON()==32 AND M==0 AND H==0 THEN M= 59:H= 23:GOTO @SPRINT
  107. IF BUTTON()==16 THEN TMREAD(TIME$),SH,SM,SS:CLS:MEM$=ME$:RETURN
  108. IF BUTTON()==128+256+512 THEN CLS:MEM$=ME$:SYSBEEP=TRUE:SAVE”MEM:TIME14”:END
  109. @SPRINT
  110. ’−−−ME$ SET−−−
  111. ME$=H$+”:”+M$+”:00”
  112. MEE$=H$+”:”+M$
  113. ’−−−GPUTCHR−−−
  114. FOR I=0 TO LEN(MEE$)−1
  115.  GPUTCHR (I*4*8)+48,60,”BGF0”,ASC(MID$(H$+”:”+M$,I,1)),0,4
  116. NEXT
  117. ’−−−GOTO−−−
  118. GOTO @SETUP
  119. @TIME
  120. ’−−−DATE READ SET−−−
  121. DTREAD(DATE$),ZY,ZM,ZD
  122. @ZERRER
  123. ’−−−SET−−−
  124. ZA=ZY+FLOOR(ZY/4)
  125. ZB=FLOOR(ZY/100)
  126. ZC=FLOOR(ZY/400)
  127. ZE=FLOOR((13*ZM+8)/5)
  128. ZF=ZA−ZB+ZC+ZE+ZD:ZG=ZF−FLOOR(ZF/7)*7
  129. @LONG
  130. ’−−−SET−−−
  131. ZR=8−FLOOR(ZM/2)*2
  132. ’−−−IF−−−
  133. IF ZM<8 THEN ZL=30+ZR
  134. IF ZM>8 THEN ZL=31−ZR
  135. IF ZM==2 THEN GOSUB @URU
  136. @URU
  137. ’−−−SET & IF−−−
  138. ZL=28:ZR=ZY−FLOOR(ZY/4)
  139. IF ZR==0 THEN ZL=29
  140. ZR=ZY−FLOOR(ZY/100)
  141. IF ZR==0 THEN ZL=28
  142. ZR=ZY−FLOOR(ZY/400)
  143. IF ZR==0 THEN ZL=29
  144. ’−−−MID$−−−
  145. PP$(0)=”Sun”
  146. PP$(1)=”Mon”
  147. PP$(2)=”Tues”
  148. PP$(3)=”Wednes”
  149. PP$(4)=”Thurs”
  150. PP$(5)=”Fri”
  151. PP$(6)=”Satur”
  152. G$=PP$(ZG)+”day”
  153. ’−−−RETURN−−−
  154. RETURN
  155. RETURN

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

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

  • 名も無き名無し : 4行目はLOAD”MEM:TIME14”,FILEじゃなくてLOAD”MEM:TIME14”,FALSEです (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)

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