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