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

投稿プログラム : 親に見られても安心?

2012年8月6日投稿 / 投稿者 : 進 / タグ : 投稿プログラム QRコード mkII専用

概要

親が来たらすぐにスタートボタンを押すと‥‥ いろいろ勉強中っぽいものが流れます。 でも乱用禁止

参考

このプログラムはこれを使用しています。

ここに行け

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

PRG:BENR
12
qr0.pngqr1.png

プログラムリスト

  1. APPEND ”BENR
  1. ’ IF BUTTON==1024 THEN GOSUB @ANSIN

本体

  1. ’//////////////////////////////
  2. ’/IF BUTTON()==1024 THEN GOSUB @ANSIN
  3. ’//////////////////////////////
  4. ’コノサフ゛ル−チンヲホカノケ゛−ムニ、イレテ
  5. ’テキトウナハ゛ショニ、ウエノメイレイフ゛ンヲ
  6. ’イレテミヨウ。
  7. ’モシ、オヤニハ゛レソウナトキモ、スク゛ニ
  8. ’STARTホ゛タンヲオシテカイヒ!!!
  9. ’
  10. ’マンカ゛イチ ハ゛レテモ、、、
  11. ’ミナサンノシテキニヨリヨヘンコウシマス
  12. ’−−−−センタク
  13. @ANSIN
  14. ACLS:GCLS
  15. INPUT ”0 シ゛カン 1 ソスウ 2 エンシュウリツ  3 カンシ゛  4 ヒョウシ゛ヲケス 5 ヤフ−  ”;LK
  16. @MORD
  17. IF LK==0 THEN GOSUB @SCALE
  18. IF LK==1 THEN GOSUB @SOSU
  19. IF LK==2 THEN GOSUB @PI
  20. IF LK==3 THEN GOSUB @KANJI
  21. IF LK==4 THEN ACLS:PNLTYPE ”OFF”:WAIT 30GOSUB @BUTTON
  22. IF LK==5 THEN ACLS:PNLTYPE ”OFF”:GOSUB @KENSAKU
  23. ACLS:GCLS 
  24. PRINT ”WAIT 
  25. WAIT 60
  26. PRINT ”PUSH
  27. @TAIKI
  28. IF BUTTON()==16 THEN RETURN
  29. GOTO @TAIKI
  30. ’−−−−エンシュウリツ
  31. @PI
  32. CLS
  33. TALK ”サンテンイチヨン イチコ゛ウキュウニイ ロクコ゛オサンコ゛オ ハチキュウナナキュウ サンウイサンハチ
  34. PRINT ”3.141592653589793238
  35. RETURN
  36. ’−−−−ソスウケンサク
  37. @SOSU
  38. ACLS
  39. INPUT”ト゛コマテ゛サカ゛シマスカ”;M
  40. A=1S=2FOR I=0TO 1I=0A=A+1
  41. R=S>M:IF R THEN?C”コミツケタヨ А”:GOTO @SOSU1
  42. R=A>S/A:C$=STR$(S)+”,”
  43. IF CSRX+LEN(C$)>32THEN?
  44. IF R THEN A=1?S”,”;:C=C+1
  45. IF R THEN S=S+1NEXT
  46. R=S/A%1==0 AND S/A!=0
  47. IF R THEN A=1S=S+1
  48. P=P+1
  49. IF P==1 THEN P=0:GOTO @SOSU0
  50. GOTO @A
  51. @SOSU0
  52. NEXT
  53. @SOSU1
  54. RETURN
  55. ’−−−−カンシ゛
  56. @KANJI
  57. KAN=RND(5)
  58. IF KAN==0 THEN K$=”ユウウツノウツ
  59. IF KAN==1 THEN K$=”キレイノレイ
  60. IF KAN==2 THEN K$=”ロテンフ゛ロノロ
  61. IF KAN==3 THEN K$=”キリンノリン
  62. IF KAN==4 THEN K$=”ソウメンノメン
  63. TALK K$+” ヲ カキナサイ”
  64. PNLTYPE ”OFF
  65. ACLS:GCLS 
  66. LOCATE 11,2?K$
  67. WAIT 100
  68. LOCATE 4,6?  ”┌───────────┐
  69. LOCATE 4,7?  ”│           │
  70. LOCATE 4,8?  ”│           │
  71. LOCATE 4,9?  ”│           │
  72. LOCATE 4,10? ”│           │
  73. LOCATE 4,11? ”│           │
  74. LOCATE 4,12? ”│     ┼     │
  75. LOCATE 4,13? ”│           │
  76. LOCATE 4,14? ”│           │
  77. LOCATE 4,15? ”│           │
  78. LOCATE 4,16? ”│           │
  79. LOCATE 4,17? ”│           │
  80. LOCATE 4,18? ”└───────────┘
  81. PNLSTR 4,6, ”┌─────┬─────┐”,9
  82. PNLSTR 4,7, ”│           │”,9
  83. PNLSTR 4,8, ”│           │”,9
  84. PNLSTR 4,9, ”│     │     │”,9
  85. PNLSTR 4,10,”│           │”,9
  86. PNLSTR 4,11,”│           │”,9
  87. PNLSTR 4,12,”├  ─  ┼  ─  ┤”,9
  88. PNLSTR 4,13,”│           │”,9
  89. PNLSTR 4,14,”│           │”,9
  90. PNLSTR 4,15,”│     │     │”,9
  91. PNLSTR 4,16,”│           │”,9
  92. PNLSTR 4,17,”│           │”,9
  93. PNLSTR 4,18,”└─────┴─────┘”,9
  94. FOR I=0 TO 600
  95. WAIT 1
  96. IF P==1THEN GLINE X1,Y1,TCHX,TCHY,15:P=0
  97. GPAGE 1,0,0
  98. IF TCHST==1 THEN X1=TCHX:Y1=TCHY:P=1
  99. IF TCHST THEN BEEP 
  100. NEXT
  101. RETURN
  102. @BUTTON
  103. IF BUTTON()THEN RETURN
  104. GOTO @BUTTON
  105. ’−−−−シ゛カン
  106. @SCALE
  107. WAIT 30
  108. ACLS
  109. SC=4
  110. IF SC!=1 AND SC!=2 AND SC!=4 AND SC!=8 THEN @SCALE
  111. IF LEN(MS$)>32/SC THEN @SCALE
  112.  FOR I=0 TO 60000
  113. MS$=TIME$
  114. WAIT 1:
  115. GCLS 
  116. FOR I=0 TO LEN(MS$)−1
  117. GPUTCHR I*SC*8,96,”BGF0”,ASC(MID$(MS$,I,1)),0,SC
  118. IF BUTTON() THEN  RETURN
  119. NEXT
  120.  NEXT
  121. RETURN
  122. ’−−−YAHOO
  123. @KENSAKU
  124. ACLS
  125. GCLS 15:COLOR 1
  126. SPSET 0,0,0,0,0,0
  127. SPSET 1,1,0,0,0,0
  128. SPSET 2,2,0,0,0,0
  129. SPSET 3,3,0,0,0,0
  130. SPSET 4,3,0,0,0,0
  131. SPSET 5,4,0,0,0,0
  132. SPSET 6,19,0,0,0,0
  133. SPSET 7,20,0,0,0,0
  134. SPSET 8,21,0,0,0,0
  135. SPSET 9,7,0,0,0,1
  136. SPSET 10,8,0,0,0,1
  137. SPSET 11,8,0,0,0,1
  138. SPSET 12,8,0,0,0,1
  139. SPSET 13,9,0,0,0,1
  140. SPSET 14,22,0,0,0,0
  141. SPSET 15,23,0,0,0,0
  142. SPOFS 0,90,30
  143. SPOFS 1,105,30
  144. SPOFS 2,120,30
  145. SPOFS 3,135,30
  146. SPOFS 4,150,30
  147. SPOFS 5,165,30
  148. SPOFS 6,135,43
  149. SPOFS 7,150,43
  150. SPOFS 8,165,43
  151. SPOFS 9,88,77
  152. SPOFS 10,103,77
  153. SPOFS 11,118,77
  154. SPOFS 12,133,77
  155. SPOFS 13,148,77
  156. SPOFS 14,163,75
  157. SPOFS 15,178,75
  158. LOCATE 11,10?”│”:L=0:P=0
  159. @KENLO
  160. LOCATE 14,8 ?”ウェフ゛
  161. LOCATE 0,22 ?”    http://search.yahoo.co.jp
  162. L=L+1
  163. WAIT 1
  164. IF L==30 AND P==0 THEN CLS :L=0: P=1
  165. IF L==30 AND P==1 THEN LOCATE 11,10?”│”:L=0:P=0
  166. IF BUTTON() THEN RETURN
  167. GOTO @KENLO
選択肢 投票
どうでもいい 10  
けせっW 5  
いらねー 3  
まあいいや 9  
俺のもみろやぁ 3  

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

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

  • 燻製 : おお 作ってくれたのか漢字のアイデアは自分風に使っていいですか?(といっても自分で作る) (2012/08/06 (月) 21:26:50)
  • .EXE(塵) : しょうもなくない! (2012/08/06 (月) 22:01:36)
  • 進 : 色んなの作ってここに張りましょうよ (2012/08/06 (月) 22:05:04)
  • 燻製 : あとは・・・画面を真っ暗にしてつけてないようにするprgとか  ついでにいうと案を出すのでだすので、いいと思ったものを載せっててください(自分は都合条はてなダイアリーにしか投稿できないので) (2012/08/06 (月) 22:37:41)
  • 燻製 : ↑あ 暗くして付けてないように見せるってことね 勉強中勉強道具を広げてDSiを置いとくと (2012/08/06 (月) 22:39:01)
  • 燻製 : まあ ACLSしてPNLTYPEをオフにするだけだけど (2012/08/06 (月) 22:42:26)
  • 進 : それ良いですね (2012/08/06 (月) 22:57:51)
  • 進 : こんなのつくったZ (2012/08/06 (月) 23:01:41)
  • 名無しさん : 素数検索が初めて役に立った。(?)わかりにくかったらゴメンネ^q^ あと漢字の部分はGPAGE 1,0,0にしたほうがいいカモ。 (2012/08/07 (火) 02:52:19)
  • 進 : なるほど'' いたらきます (2012/08/07 (火) 11:45:26)
  • 名無しさん : 94行か…このプログラムを圧縮して使おうかな。 (2012/08/08 (水) 11:05:44)
  • 名無しさん : 実質プログラムは1行IF BUTTON==1024 THEN GOSUB @ (2012/08/08 (水) 12:57:00)
  • 名無しさん : 別にランダムにする必要ないわけだし (2012/08/08 (水) 12:57:42)
  • 名無しさん : 1行計算トライアタックをイクラベルに設定すればラベル・RETURNを含めて4行 (2012/08/08 (水) 13:02:57)
  • なーゆ : はいバグった〜! (2012/08/08 (水) 14:43:43)
  • 名無しさん : ☝素数のとき止まる事でしょ (2012/08/08 (水) 15:52:40)
  • 進 : 実は昨日の時点で新しいのはできてますが`` (2012/08/08 (水) 20:01:23)
  • マリオ師匠 : スタートを押すと、タイマーが現れて、勉強時間を計ってるように見せるといいんじゃない? (2012/08/09 (木) 12:45:04)
  • いずれ人類の支配者 : こぉおおれはいいいいいいいいい!!!でもこれってこの作品で遊んでるときしか使えないよねぇ...www (2012/08/09 (木) 20:40:08)
  • 名無しさん : ↑↑↑プログラムリストの所に書いてあること読めないのかwwwwwww (2012/08/10 (金) 16:06:15)
  • おうぎょく : おもしろいです! (2012/10/06 (土) 22:09:15)
  • 進 : 進 : 実は昨日の時点で新しいのはできてますが`` (2012/08/08 (水) 20:01:23)←これ荒らし? (2012/11/12 (月) 20:01:02)
  • はうむめ : エラーが出ます。 (2013/01/02 (水) 17:14:26)
  • 進 : リターンができないというエラーであれば、正常です。こんなプログラムを見てくださってありがとうございます。 (2013/01/02 (水) 17:29:38)
  • 進 : これは、「何でもいいから登校したかった」って頃の作品です (2013/02/12 (火) 20:25:22)

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