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

Toukou/ML-Timer の変更点

パンくずリスト


#title(投稿プログラム : ML-Timer)
#contents
2012年11月29日投稿
/ 投稿者 : バイカウントメルビル
/ &tag(投稿プログラム,実用ツール,QRコード,mkII専用,ストップウォッチ,勉強);
/ 検索用→【メルビル】

//------------------------------------------------------------------------------

** 概要 [#Summary]
勉強支援ツールです。~
「国語」「数学」「理科」「社会」「英語」「読書」「運動」「娯楽」~
の8項目の時間を個別に測定することができます。~

ちなみにこれ私の記念すべき20回目の投稿です!(殴

*** スクリーンショットとQRコード [#i413c1e2]
|&ref(SS0.png);|&ref(qr.png);|
|&ref(SS1.PNG);|~|

** 使い方 [#n8102e72]
+起動したら測りたい項目のところをタッチします。
+すると測り始めます。
+測るのを終了する場合は、「STOP」を押してください

-音がうるさい時は、サウンドマークをタッチしてください
-「×」で、プログラムを終了します。

** Attention! [#Komidashi1]
-勉強時間の保存はできません。だれかが土台を作ってくれたら作るかもしれn(蹴
-スリープモードだと時間が加算されません!
-右上の「×」ボタンをタッチすると容赦なく強制終了するので注意!

/////////////////////////////////

** プログラムリスト [#List]
#region(217行)
#basic{{
'┌────────────┬─────────────┐<COLOR>(#00baff){Л}
'│ML-Timer 1.0│(C)2012 メルヒ゛ル│<COLOR>(#00baff){Л}
'└────────────┴─────────────┘<COLOR>(#00baff){Л}
ACLS:CLEAR:PNLTYPE "OFF":GPAGE 1<COLOR>(#00baff){Л}
GOSUB @DRAW<COLOR>(#00baff){Л}
SEF= 1<COLOR>(#00baff){Л}
FLG=-1<COLOR>(#00baff){Л}
@MAINLOOP<COLOR>(#00baff){Л}
OLDFLG=FLG<COLOR>(#00baff){Л}
IF TCHST THEN GOSUB @TCH<COLOR>(#00baff){Л}
IF FLG!=OLDFLG THEN GOSUB @CNG<COLOR>(#00baff){Л}
IF FLG+1 THEN GOSUB @TIMEPULS<COLOR>(#00baff){Л}
VSYNC 1<COLOR>(#00baff){Л}
GOTO @MAINLOOP<COLOR>(#00baff){Л}
 <COLOR>(#00baff){Л}
 @TCH<COLOR>(#00baff){Л}
 TY=TCHY<COLOR>(#00baff){Л}
 IF             TY< 32 THEN GOSUB @CHKTCHX<COLOR>(#00baff){Л}
 IF TY>= 48 AND TY<112 THEN FLG=FLOOR(TCHX/32)<COLOR>(#00baff){Л}
 IF TY>=160            THEN FLG=-1<COLOR>(#00baff){Л}
 RETURN<COLOR>(#00baff){Л}
 <COLOR>(#00baff){Л}
  @CHKTCHX<COLOR>(#00baff){Л}
  TX=FLOOR(TCHX/32)<COLOR>(#00baff){Л}
  IF TX==6 THEN GOSUB @SE<COLOR>(#00baff){Л}
  IF TX==7 THEN GOSUB @END<COLOR>(#00baff){Л}
  RETURN<COLOR>(#00baff){Л}
   <COLOR>(#00baff){Л}
   @SE<COLOR>(#00baff){Л}
   IF TCHTIME!=1 THEN RETURN<COLOR>(#00baff){Л}
   SEF=!SEF<COLOR>(#00baff){Л}
   GFILL 211,8,218,23<COLOR>(#00baff){Л}
   IF SEF THEN GOSUB @SETSEF ELSE GOSUB @RSTSEF<COLOR>(#00baff){Л}
   RETURN<COLOR>(#00baff){Л}
    <COLOR>(#00baff){Л}
    @SETSEF<COLOR>(#00baff){Л}
    GCIRCLE 203,16,14,15,330,30<COLOR>(#00baff){Л}
    GCIRCLE 203,16,10,15,330,30<COLOR>(#00baff){Л}
    RETURN<COLOR>(#00baff){Л}
    <COLOR>(#00baff){Л}
    @RSTSEF<COLOR>(#00baff){Л}
    GLINE 211,13,216,18,15<COLOR>(#00baff){Л}
    GLINE 216,13,211,18,15<COLOR>(#00baff){Л}
    RETURN<COLOR>(#00baff){Л}
   <COLOR>(#00baff){Л}
   @END<COLOR>(#00baff){Л}
   ACLS:END<COLOR>(#00baff){Л}
   <COLOR>(#00baff){Л}
 @CNG<COLOR>(#00baff){Л}
 GBOX OLDFLG*32+1, 48,OLDFLG*32+30,111,15<COLOR>(#00baff){Л}
 GBOX OLDFLG*32+1,128,OLDFLG*32+30,143,15<COLOR>(#00baff){Л}
 GBOX FLG*32+1, 48,FLG*32+30,111,8<COLOR>(#00baff){Л}
 GBOX FLG*32+1,128,FLG*32+30,143,8<COLOR>(#00baff){Л}
 RETURN<COLOR>(#00baff){Л}
 <COLOR>(#00baff){Л}
 @TIMEPULS<COLOR>(#00baff){Л}
 FRM(FLG)=FRM(FLG)+1<COLOR>(#00baff){Л}
 IF FRM(FLG)>=60 THEN FRM(FLG)=0:SEC(FLG)=SEC(FLG)+1 IF SEF THEN BEEP 49<COLOR>(#00baff){Л}
 IF SEC(FLG)>=60 THEN SEC(FLG)=0:MIN(FLG)=MIN(FLG)+1<COLOR>(#00baff){Л}
 IF MIN(FLG)>=60 THEN MIN(FLG)=0:_HR(FLG)=_HR(FLG)+1<COLOR>(#00baff){Л}
 GOSUB @NUMPUT<COLOR>(#00baff){Л}
 RETURN<COLOR>(#00baff){Л}
  <COLOR>(#00baff){Л}
  @NUMPUT<COLOR>(#00baff){Л}
  H$=STR$(_HR(FLG))<COLOR>(#00baff){Л}
  M$=STR$(MIN(FLG))<COLOR>(#00baff){Л}
  S$=STR$(SEC(FLG))<COLOR>(#00baff){Л}
  T$="0"*(2-LEN(H$))+H$+"0"*(2-LEN(M$))+M$+"0"*(2-LEN(S$))+S$<COLOR>(#00baff){Л}
  GFILL FLG*32+2,129,FLG*32+29,142,0<COLOR>(#00baff){Л}
  FOR I=0 TO 5<COLOR>(#00baff){Л}
   X=FLG*32+I*4+4+I/2<COLOR>(#00baff){Л}
   ON VAL(MID$(T$,I,1)) GOSUB @0,@1,@2,@3,@4,@5,@6,@7,@8,@9<COLOR>(#00baff){Л}
  NEXT<COLOR>(#00baff){Л}
  RETURN<COLOR>(#00baff){Л}
   <COLOR>(#00baff){Л}
   @0<COLOR>(#00baff){Л}
   GBOX X,132,X+2,139,2<COLOR>(#00baff){Л}
   RETURN<COLOR>(#00baff){Л}
   <COLOR>(#00baff){Л}
   @1<COLOR>(#00baff){Л}
   GPSET X,132,2<COLOR>(#00baff){Л}
   GLINE X+1,132,X+1,139,2<COLOR>(#00baff){Л}
   RETURN<COLOR>(#00baff){Л}
   <COLOR>(#00baff){Л}
   @2<COLOR>(#00baff){Л}
   GBOX X,132,X+2,139,2<COLOR>(#00baff){Л}
   GLINE X,133,X+2,138,0<COLOR>(#00baff){Л}
   RETURN<COLOR>(#00baff){Л}
   <COLOR>(#00baff){Л}
   @3<COLOR>(#00baff){Л}
   GBOX X,132,X+2,139,2<COLOR>(#00baff){Л}
   GLINE X,133,X,138,0<COLOR>(#00baff){Л}
   GLINE X,135,X+1,135,2<COLOR>(#00baff){Л}
   RETURN<COLOR>(#00baff){Л}
   <COLOR>(#00baff){Л}
   @4<COLOR>(#00baff){Л}
   GLINE X,132,X,136,2<COLOR>(#00baff){Л}
   GPSET X+1,136,2<COLOR>(#00baff){Л}
   GLINE X+2,132,X+2,139,2<COLOR>(#00baff){Л}
   RETURN<COLOR>(#00baff){Л}
   <COLOR>(#00baff){Л}
   @5<COLOR>(#00baff){Л}
   GBOX X,132,X+2,139,2<COLOR>(#00baff){Л}
   GLINE X,138,X+2,133,0<COLOR>(#00baff){Л}
   RETURN<COLOR>(#00baff){Л}
   <COLOR>(#00baff){Л}
   @6<COLOR>(#00baff){Л}
   GBOX X,132,X+2,139,2<COLOR>(#00baff){Л}
   GLINE X+2,133,X+2,134,0<COLOR>(#00baff){Л}
   GPSET X+1,135,2<COLOR>(#00baff){Л}
   RETURN<COLOR>(#00baff){Л}
   <COLOR>(#00baff){Л}
   @7<COLOR>(#00baff){Л}
   GBOX X,132,X+2,139,2<COLOR>(#00baff){Л}
   GBOX X,136,X+1,139,0<COLOR>(#00baff){Л}
   RETURN<COLOR>(#00baff){Л}
   <COLOR>(#00baff){Л}
   @8<COLOR>(#00baff){Л}
   GBOX X,132,X+2,139,2<COLOR>(#00baff){Л}
   GPSET X+1,135,2<COLOR>(#00baff){Л}
   RETURN<COLOR>(#00baff){Л}
   <COLOR>(#00baff){Л}
   @9<COLOR>(#00baff){Л}
   GBOX X,132,X+2,139,2<COLOR>(#00baff){Л}
   GLINE X,137,X,138,0<COLOR>(#00baff){Л}
   GPSET X+1,136,2<COLOR>(#00baff){Л}
   RETURN<COLOR>(#00baff){Л}
   <COLOR>(#00baff){Л}
@DRAW<COLOR>(#00baff){Л}
GBOX 193,1,222,30,15<COLOR>(#00baff){Л}
GBOX 225,1,254,30,15<COLOR>(#00baff){Л}
GBOX 200,11,203,20,15<COLOR>(#00baff){Л}
GCIRCLE 203,16,14,15,330,30<COLOR>(#00baff){Л}
GCIRCLE 203,16,10,15,330,30<COLOR>(#00baff){Л}
GLINE 204,12,208,8,15<COLOR>(#00baff){Л}
GLINE 204,19,208,23,15<COLOR>(#00baff){Л}
GLINE 209,8,209,23,15<COLOR>(#00baff){Л}
FOR FLG=0 TO 7<COLOR>(#00baff){Л}
 GBOX FLG*32+1,128,FLG*32+30,143,15<COLOR>(#00baff){Л}
 GOSUB @NUMPUT<COLOR>(#00baff){Л}
NEXT<COLOR>(#00baff){Л}
GBOX 1,161,254,190,15<COLOR>(#00baff){Л}
FOR I=0 TO 16<COLOR>(#00baff){Л}
 READ SX,SY,EX,EY<COLOR>(#00baff){Л}
 GLINE SX,SY,EX,EY,2<COLOR>(#00baff){Л}
NEXT<COLOR>(#00baff){Л}
PNLSTR 3,1,"┌──────────────┐ "<COLOR>(#00baff){Л}
PNLSTR 3,2,"│              │з"<COLOR>(#00baff){Л}
PNLSTR 3,3,"└──────────────┘з"<COLOR>(#00baff){Л}
PNLSTR 3,4," жжжжжжжжжжжжжжж "<COLOR>(#00baff){Л}
<COLOR>(#00baff){Л}
FOR I=0 TO 7<COLOR>(#00baff){Л}
 FOR J=0 TO 180 STEP 30<COLOR>(#00baff){Л}
  GBOX I*32+16-COS(RAD(J))*14,48,I*32+15+COS(RAD(J))*14,111,15<COLOR>(#00baff){Л}
  VSYNC 1<COLOR>(#00baff){Л}
  GFILL I*32+1,48,I*32+30,111,0<COLOR>(#00baff){Л}
 NEXT<COLOR>(#00baff){Л}
 IF I!=7 THEN BEEP 48,I*(2048*7/6)-8192<COLOR>(#00baff){Л}
 GBOX I*32+1, 48,I*32+30,111,15<COLOR>(#00baff){Л}
NEXT<COLOR>(#00baff){Л}
<COLOR>(#00baff){Л}
BEEP 42<COLOR>(#00baff){Л}
LOCATE 0,6<COLOR>(#00baff){Л}
PRINT " │  ││   ─┬─                   "<COLOR>(#00baff){Л}
PRINT " ├┐┌┤│    │ Р                  "<COLOR>(#00baff){Л}
PRINT " │└┘││ ── │                    "<COLOR>(#00baff){Л}
PRINT " │  ││    │ │├┬┐┌─┐├─┐         "<COLOR>(#00baff){Л}
PRINT " │  ││    │ ││││├─┘│           "<COLOR>(#00baff){Л}
PRINT " │  │└─   │ ││││└──│    Ver 1.0"<COLOR>(#00baff){Л}
PRINT " ──────────────────────────────"<COLOR>(#00baff){Л}
LOCATE 6,22<COLOR>(#00baff){Л}
PRINT "(C)2012 Viscount Melville"<COLOR>(#00baff){Л}
<COLOR>(#00baff){Л}
PNLSTR 4,2,"ML-Timer   1.0"<COLOR>(#00baff){Л}
GBOX 7,54,24,76,15<COLOR>(#00baff){Л}
GBOX 7,99,12,105,15<COLOR>(#00baff){Л}
GBOX 15,99,24,105,15<COLOR>(#00baff){Л}
GBOX 80,54,88,64,15<COLOR>(#00baff){Л}
GBOX 169,99,182,105,15<COLOR>(#00baff){Л}
GBOX 206,62,216,68,15<COLOR>(#00baff){Л}
GBOX 199,91,205,97,15<COLOR>(#00baff){Л}
GBOX 241,54,248,59,15<COLOR>(#00baff){Л}
GBOX 235,84,244,94,15<COLOR>(#00baff){Л}
GPSET 240,83,15<COLOR>(#00baff){Л}
FOR I=0 TO 141<COLOR>(#00baff){Л}
 READ SX,SY,EX,EY<COLOR>(#00baff){Л}
 GLINE SX,SY,EX,EY,15<COLOR>(#00baff){Л}
NEXT<COLOR>(#00baff){Л}
GCOPY 7,83,24,105,135,83,0<COLOR>(#00baff){Л}
GCOPY 7,83,12,105,167,54,0<COLOR>(#00baff){Л}
RETURN<COLOR>(#00baff){Л}
<COLOR>(#00baff){Л}
DATA 232,8,247,23,247,8,232,23,41,168,71,168,41,175,70,175,40,183,70,183,40,169,40,174,71,176,71<COLOR>(#00baff){Л}
DATA 182,88,168,119,168,104,169,104,183,137,168,166,168,137,183,166,183,136,169,136,182,167,169,167<COLOR>(#00baff){Л}
DATA 182,188,168,214,168,188,175,214,175,188,168,188,183,215,169,215,174<COLOR>(#00baff){Л}
<COLOR>(#00baff){Л}
DATA 12,58,19,58,16,59,16,71,13,64,18,64,11,72,20,72,20,67,20,69,7,83,11,83,7,87,12,87,7,91,11,91,7<COLOR>(#00baff){Л}
DATA 95,11,95,15,83,24,83,15,89,24,89,24,89,24,94,19,84,19,94,15,95,24,95,39,54,39,56,45,54,45,56<COLOR>(#00baff){Л}
DATA 39,59,45,59,42,54,42,64,39,62,39,64,45,62,45,64,39,67,39,74,40,74,44,74,40,69,47,69,45,70,45<COLOR>(#00baff){Л}
DATA 76,48,54,48,59,49,56,54,56,54,57,54,75,51,76,54,76,50,69,56,69,42,83,42,86,48,83,48,86,53,83<COLOR>(#00baff){Л}
DATA 53,86,39,87,39,91,40,87,56,87,56,88,56,91,42,91,53,91,53,92,53,93,48,93,48,105,47,105,45,105<COLOR>(#00baff){Л}
DATA 39,95,56,95,71,54,77,54,74,55,74,75,71,64,77,64,71,76,77,76,81,59,87,59,84,55,84,75,80,70,88<COLOR>(#00baff){Л}
DATA 70,80,76,88,76,71,83,77,83,74,84,74,105,71,91,77,91,72,92,72,105,75,95,77,95,80,83,82,83,80,91<COLOR>(#00baff){Л}
DATA 82,91,80,99,88,99,86,83,86,105,106,54,106,58,103,59,109,59,109,60,109,64,103,64,108,64,106,65<COLOR>(#00baff){Л}
DATA 106,76,107,70,109,70,112,62,120,62,116,54,116,75,112,76,120,76,103,83,103,89,104,83,120,83,120<COLOR>(#00baff){Л}
DATA 84,120,89,107,89,116,89,103,95,120,95,106,96,106,105,107,105,120,105,120,101,120,104,135,57<COLOR>(#00baff){Л}
DATA 152,57,139,54,139,60,148,54,148,60,137,64,150,64,144,62,144,69,138,64,149,64,135,70,152,70,139<COLOR>(#00baff){Л}
DATA 71,139,76,148,71,148,76,137,64,137,69,150,64,150,69,176,56,184,56,180,54,180,59,177,60,184,60<COLOR>(#00baff){Л}
DATA 176,64,176,66,177,64,184,64,184,65,184,66,178,68,178,76,182,68,182,76,183,76,184,76,168,85,183<COLOR>(#00baff){Л}
DATA 85,167,88,184,88,168,91,183,91,168,94,183,94,167,97,184,97,175,83,175,96,183,86,183,90,170,102<COLOR>(#00baff){Л}
DATA 181,102,199,54,202,54,199,59,202,59,202,60,202,75,199,76,216,76,206,54,216,54,206,55,206,56<COLOR>(#00baff){Л}
DATA 216,55,216,56,206,59,216,59,207,65,215,65,206,71,216,71,211,55,211,74,199,83,205,83,199,87,205<COLOR>(#00baff){Л}
DATA 87,200,94,204,94,199,101,205,101,199,105,205,105,202,84,202,104,210,83,210,105,208,87,216,87<COLOR>(#00baff){Л}
DATA 216,88,216,105,215,105,213,105,231,54,231,72,232,58,237,58,232,72,237,72,235,59,235,76,239,58<COLOR>(#00baff){Л}
DATA 239,64,240,64,248,64,248,65,248,68,239,69,248,69,239,72,239,76,248,72,248,76,231,84,232,84,231<COLOR>(#00baff){Л}
DATA 94,232,94,236,89,243,89,247,84,248,84,247,94,248,94,231,99,248,99,240,95,240,105,233,100,233<COLOR>(#00baff){Л}
DATA 105,246,100,246,105<COLOR>(#00baff){Л}
}}
#endregion

/////////////////////////////////

* CHECKER FLAG (ひとことコメント) [#Comments]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
- ''minecrafter郎'' : うぽつです めっちゃスゲーっす (&new{2012/11/29 (木) 20:38:09};)
- ''メルビル'' : ありがとうございます! (&new{2012/11/29 (木) 20:41:20};)
- ''ウイング'' : 使わせてもらいます (&new{2012/11/29 (木) 20:47:22};)
- ''ウイング'' : あと20回投稿おめでとうございます (&new{2012/11/29 (木) 20:48:04};)
- ''メルビル'' : こんな作品ですが、よかったら是非活用してあげてください (&new{2012/11/29 (木) 20:50:00};)
- ''燻製'' : すげえっ、ssで出ガチだった (&new{2012/11/29 (木) 20:52:30};)
- ''ろRどろS'' : すごい使えそう (&new{2012/11/29 (木) 20:53:03};)
- ''名無しさん'' : スリープ時にもタイマーが動作するように改造してみた (&new{2012/11/29 (木) 20:58:07};)
- ''メルビル'' : 私もそうしたかったのですがMAINCNTLが145分に一度リセットされる所でめんどくさくなってしまいました (&new{2012/11/29 (木) 21:05:55};)
- ''名無しさん'' : MAINCNTLのカウントはスリープ時には停止するよ (&new{2012/11/29 (木) 21:12:04};)
- ''メルビル'' : あ、そういえばそうでした(汗) (&new{2012/11/29 (木) 21:14:14};)
- ''メルビル'' : ・・・!なるほど私も後で改造してこよう (&new{2012/11/29 (木) 21:14:48};)
- ''名無しさん'' : スリープ復帰時はTIME$から取得? (&new{2012/11/29 (木) 22:53:12};)
- ''名無しさん'' : 漢字のフォントすき DATA文がすごいけどw (&new{2012/11/29 (木) 23:19:05};)
- ''ベルック'' : 今、テスト期間なので使ってみよう。その前に勉強するかな?w (&new{2012/11/30 (金) 00:00:55};)
- ''名無しさん'' : ↑3 MAINCNTLと併用すれば1フレーム単位で取得できる (&new{2012/11/30 (金) 00:07:34};)
- ''名無しさん'' : TIME$って秒単位だから、最高で59フレームの差が出るのでは? 細かい話だけど。 (&new{2012/11/30 (金) 12:09:33};)
- ''烏天'' : 最初のぴらぴらぁって並ぶ感じが好き(*´ω`*) (&new{2012/11/30 (金) 16:25:27};)
- ''名無しさん'' : so good! (&new{2012/12/01 (土) 15:54:39};)
- ''天郷思音'' : 「社会」の「会」が読みにくい。 (&new{2012/12/01 (土) 16:31:45};)
- ''名無しさん'' : 社会が社宅に見える (&new{2012/12/01 (土) 16:50:34};)
- ''あいうえお'' : ↑名前つけるの忘れた (&new{2012/12/01 (土) 16:51:00};)
- ''メルビル'' : ううむ・・・どうすればいいだろう (&new{2012/12/01 (土) 18:08:29};)
- ''名無しさん'' : 何を悩んでるの? タイマー? 社宅? (&new{2012/12/01 (土) 19:04:53};)
- ''.EXE'' : テスト勉強しよ。あとday 5 (&new{2012/12/01 (土) 19:49:24};)
- ''メルビル'' : 社宅ですね。どうすれば社会に見えるかなあ・・・ (&new{2012/12/01 (土) 20:18:45};)
- ''名無しさん'' : DATAの座標をGLINEで結んでいるなら斜めに線を引くしか。 (&new{2012/12/01 (土) 20:21:25};)
- ''燻製'' : ↑わざと斜め使ってないんじゃないの?階段みたいな斜めにするとか (&new{2012/12/01 (土) 21:11:38};)
- ''名無しさん'' : でもサウンドマークには斜めを使ってるんだよね。他も使っていいと思う。 (&new{2012/12/01 (土) 21:18:09};)
- ''メルビル'' : サウンドマークはサウンドマークという自分ルールが (&new{2012/12/01 (土) 21:52:05};)
- ''.EXE'' : テスト関連のものを作ろうかな? (&new{2012/12/01 (土) 22:33:51};)

#comment

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