2012年11月29日投稿 / 投稿者 : バイカウントメルビル / タグ : 投稿プログラム 実用ツール QRコード mkII専用 ストップウォッチ 勉強 / 検索用→【メルビル】
勉強支援ツールです。 「国語」「数学」「理科」「社会」「英語」「読書」「運動」「娯楽」 の8項目の時間を個別に測定することができます。
’┌────────────┬─────────────┐Л ’│ML-Timer 1.0│(C)2012 メルヒ゛ル│Л ’└────────────┴─────────────┘Л ACLS:CLEAR:PNLTYPE ”OFF”:GPAGE 1Л GOSUB @DRAWЛ SEF= 1Л FLG=-1Л @MAINLOOPЛ OLDFLG=FLGЛ IF TCHST THEN GOSUB @TCHЛ IF FLG!=OLDFLG THEN GOSUB @CNGЛ IF FLG+1 THEN GOSUB @TIMEPULSЛ VSYNC 1Л GOTO @MAINLOOPЛ Л @TCHЛ TY=TCHYЛ IF TY< 32 THEN GOSUB @CHKTCHXЛ IF TY>= 48 AND TY<112 THEN FLG=FLOOR(TCHX/32)Л IF TY>=160 THEN FLG=-1Л RETURNЛ Л @CHKTCHXЛ TX=FLOOR(TCHX/32)Л IF TX==6 THEN GOSUB @SEЛ IF TX==7 THEN GOSUB @ENDЛ RETURNЛ Л @SEЛ IF TCHTIME!=1 THEN RETURNЛ SEF=!SEFЛ GFILL 211,8,218,23Л IF SEF THEN GOSUB @SETSEF ELSE GOSUB @RSTSEFЛ RETURNЛ Л @SETSEFЛ GCIRCLE 203,16,14,15,330,30Л GCIRCLE 203,16,10,15,330,30Л RETURNЛ Л @RSTSEFЛ GLINE 211,13,216,18,15Л GLINE 216,13,211,18,15Л RETURNЛ Л @ENDЛ ACLS:ENDЛ Л @CNGЛ GBOX OLDFLG*32+1, 48,OLDFLG*32+30,111,15Л GBOX OLDFLG*32+1,128,OLDFLG*32+30,143,15Л GBOX FLG*32+1, 48,FLG*32+30,111,8Л GBOX FLG*32+1,128,FLG*32+30,143,8Л RETURNЛ Л @TIMEPULSЛ FRM(FLG)=FRM(FLG)+1Л IF FRM(FLG)>=60 THEN FRM(FLG)=0:SEC(FLG)=SEC(FLG)+1 IF SEF THEN BEEP 49Л IF SEC(FLG)>=60 THEN SEC(FLG)=0:MIN(FLG)=MIN(FLG)+1Л IF MIN(FLG)>=60 THEN MIN(FLG)=0:_HR(FLG)=_HR(FLG)+1Л GOSUB @NUMPUTЛ RETURNЛ Л @NUMPUTЛ H$=STR$(_HR(FLG))Л M$=STR$(MIN(FLG))Л S$=STR$(SEC(FLG))Л T$=”0”*(2-LEN(H$))+H$+”0”*(2-LEN(M$))+M$+”0”*(2-LEN(S$))+S$Л GFILL FLG*32+2,129,FLG*32+29,142,0Л FOR I=0 TO 5Л X=FLG*32+I*4+4+I/2Л ON VAL(MID$(T$,I,1)) GOSUB @0,@1,@2,@3,@4,@5,@6,@7,@8,@9Л NEXTЛ RETURNЛ Л @0Л GBOX X,132,X+2,139,2Л RETURNЛ Л @1Л GPSET X,132,2Л GLINE X+1,132,X+1,139,2Л RETURNЛ Л @2Л GBOX X,132,X+2,139,2Л GLINE X,133,X+2,138,0Л RETURNЛ Л @3Л GBOX X,132,X+2,139,2Л GLINE X,133,X,138,0Л GLINE X,135,X+1,135,2Л RETURNЛ Л @4Л GLINE X,132,X,136,2Л GPSET X+1,136,2Л GLINE X+2,132,X+2,139,2Л RETURNЛ Л @5Л GBOX X,132,X+2,139,2Л GLINE X,138,X+2,133,0Л RETURNЛ Л @6Л GBOX X,132,X+2,139,2Л GLINE X+2,133,X+2,134,0Л GPSET X+1,135,2Л RETURNЛ Л @7Л GBOX X,132,X+2,139,2Л GBOX X,136,X+1,139,0Л RETURNЛ Л @8Л GBOX X,132,X+2,139,2Л GPSET X+1,135,2Л RETURNЛ Л @9Л GBOX X,132,X+2,139,2Л GLINE X,137,X,138,0Л GPSET X+1,136,2Л RETURNЛ Л @DRAWЛ GBOX 193,1,222,30,15Л GBOX 225,1,254,30,15Л GBOX 200,11,203,20,15Л GCIRCLE 203,16,14,15,330,30Л GCIRCLE 203,16,10,15,330,30Л GLINE 204,12,208,8,15Л GLINE 204,19,208,23,15Л GLINE 209,8,209,23,15Л FOR FLG=0 TO 7Л GBOX FLG*32+1,128,FLG*32+30,143,15Л GOSUB @NUMPUTЛ NEXTЛ GBOX 1,161,254,190,15Л FOR I=0 TO 16Л READ SX,SY,EX,EYЛ GLINE SX,SY,EX,EY,2Л NEXTЛ PNLSTR 3,1,”┌──────────────┐ ”Л PNLSTR 3,2,”│ │з”Л PNLSTR 3,3,”└──────────────┘з”Л PNLSTR 3,4,” жжжжжжжжжжжжжжж ”Л Л FOR I=0 TO 7Л FOR J=0 TO 180 STEP 30Л GBOX I*32+16-COS(RAD(J))*14,48,I*32+15+COS(RAD(J))*14,111,15Л VSYNC 1Л GFILL I*32+1,48,I*32+30,111,0Л NEXTЛ IF I!=7 THEN BEEP 48,I*(2048*7/6)-8192Л GBOX I*32+1, 48,I*32+30,111,15Л NEXTЛ Л BEEP 42Л LOCATE 0,6Л PRINT ” │ ││ ─┬─ ”Л PRINT ” ├┐┌┤│ │ Р ”Л PRINT ” │└┘││ ── │ ”Л PRINT ” │ ││ │ │├┬┐┌─┐├─┐ ”Л PRINT ” │ ││ │ ││││├─┘│ ”Л PRINT ” │ │└─ │ ││││└──│ Ver 1.0”Л PRINT ” ──────────────────────────────”Л LOCATE 6,22Л PRINT ”(C)2012 Viscount Melville”Л Л PNLSTR 4,2,”ML-Timer 1.0”Л GBOX 7,54,24,76,15Л GBOX 7,99,12,105,15Л GBOX 15,99,24,105,15Л GBOX 80,54,88,64,15Л GBOX 169,99,182,105,15Л GBOX 206,62,216,68,15Л GBOX 199,91,205,97,15Л GBOX 241,54,248,59,15Л GBOX 235,84,244,94,15Л GPSET 240,83,15Л FOR I=0 TO 141Л READ SX,SY,EX,EYЛ GLINE SX,SY,EX,EY,15Л NEXTЛ GCOPY 7,83,24,105,135,83,0Л GCOPY 7,83,12,105,167,54,0Л RETURNЛ Л 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Л 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Л DATA 182,188,168,214,168,188,175,214,175,188,168,188,183,215,169,215,174Л Л 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Л 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Л 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Л 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Л 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Л 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Л 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Л 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Л 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Л 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Л 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Л 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Л 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Л 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Л 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Л 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Л 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Л 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Л 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Л 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Л DATA 105,246,100,246,105Л
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)