2012年8月6日投稿 / 投稿者 : 進 / タグ : 投稿プログラム QRコード mkII専用
親が来たらすぐにスタートボタンを押すと‥‥ いろいろ勉強中っぽいものが流れます。 でも乱用禁止
このプログラムはこれを使用しています。
プチコンmkII 向けの QR コードです。
- APPEND ”BENR
- ’ IF BUTTON==1024 THEN GOSUB @ANSIN
本体
- ’//////////////////////////////
- ’/IF BUTTON()==1024 THEN GOSUB @ANSIN
- ’//////////////////////////////
- ’コノサフ゛ル−チンヲホカノケ゛−ムニ、イレテ
- ’テキトウナハ゛ショニ、ウエノメイレイフ゛ンヲ
- ’イレテミヨウ。
- ’モシ、オヤニハ゛レソウナトキモ、スク゛ニ
- ’STARTホ゛タンヲオシテカイヒ!!!
- ’
- ’マンカ゛イチ ハ゛レテモ、、、
- ’ミナサンノシテキニヨリヨヘンコウシマス
- ’−−−−センタク
- @ANSIN
- ACLS:GCLS
- INPUT ”0 シ゛カン 1 ソスウ 2 エンシュウリツ 3 カンシ゛ 4 ヒョウシ゛ヲケス 5 ヤフ− ”;LK
- @MORD
- IF LK==0 THEN GOSUB @SCALE
- IF LK==1 THEN GOSUB @SOSU
- IF LK==2 THEN GOSUB @PI
- IF LK==3 THEN GOSUB @KANJI
- IF LK==4 THEN ACLS:PNLTYPE ”OFF”:WAIT 30GOSUB @BUTTON
- IF LK==5 THEN ACLS:PNLTYPE ”OFF”:GOSUB @KENSAKU
- ACLS:GCLS
- PRINT ”WAIT
- WAIT 60
- PRINT ”PUSH
- @TAIKI
- IF BUTTON()==16 THEN RETURN
- GOTO @TAIKI
- ’−−−−エンシュウリツ
- @PI
- CLS
- TALK ”サンテンイチヨン イチコ゛ウキュウニイ ロクコ゛オサンコ゛オ ハチキュウナナキュウ サンウイサンハチ
- PRINT ”3.141592653589793238
- RETURN
- ’−−−−ソスウケンサク
- @SOSU
- ACLS
- INPUT”ト゛コマテ゛サカ゛シマスカ”;M
- A=1S=2FOR I=0TO 1I=0A=A+1
- R=S>M:IF R THEN?C”コミツケタヨ А”:GOTO @SOSU1
- R=A>S/A:C$=STR$(S)+”,”
- IF CSRX+LEN(C$)>32THEN?
- IF R THEN A=1?S”,”;:C=C+1
- IF R THEN S=S+1NEXT
- R=S/A%1==0 AND S/A!=0
- IF R THEN A=1S=S+1
- P=P+1
- IF P==1 THEN P=0:GOTO @SOSU0
- GOTO @A
- @SOSU0
- NEXT
- @SOSU1
- RETURN
- ’−−−−カンシ゛
- @KANJI
- KAN=RND(5)
- IF KAN==0 THEN K$=”ユウウツノウツ
- IF KAN==1 THEN K$=”キレイノレイ
- IF KAN==2 THEN K$=”ロテンフ゛ロノロ
- IF KAN==3 THEN K$=”キリンノリン
- IF KAN==4 THEN K$=”ソウメンノメン
- TALK K$+” ヲ カキナサイ”
- PNLTYPE ”OFF
- ACLS:GCLS
- LOCATE 11,2?K$
- WAIT 100
- LOCATE 4,6? ”┌───────────┐
- LOCATE 4,7? ”│ │
- LOCATE 4,8? ”│ │
- LOCATE 4,9? ”│ │
- LOCATE 4,10? ”│ │
- LOCATE 4,11? ”│ │
- LOCATE 4,12? ”│ ┼ │
- LOCATE 4,13? ”│ │
- LOCATE 4,14? ”│ │
- LOCATE 4,15? ”│ │
- LOCATE 4,16? ”│ │
- LOCATE 4,17? ”│ │
- LOCATE 4,18? ”└───────────┘
- PNLSTR 4,6, ”┌─────┬─────┐”,9
- PNLSTR 4,7, ”│ │”,9
- PNLSTR 4,8, ”│ │”,9
- PNLSTR 4,9, ”│ │ │”,9
- PNLSTR 4,10,”│ │”,9
- PNLSTR 4,11,”│ │”,9
- PNLSTR 4,12,”├ ─ ┼ ─ ┤”,9
- PNLSTR 4,13,”│ │”,9
- PNLSTR 4,14,”│ │”,9
- PNLSTR 4,15,”│ │ │”,9
- PNLSTR 4,16,”│ │”,9
- PNLSTR 4,17,”│ │”,9
- PNLSTR 4,18,”└─────┴─────┘”,9
- FOR I=0 TO 600
- WAIT 1
- IF P==1THEN GLINE X1,Y1,TCHX,TCHY,15:P=0
- GPAGE 1,0,0
- IF TCHST==1 THEN X1=TCHX:Y1=TCHY:P=1
- IF TCHST THEN BEEP
- NEXT
- RETURN
- @BUTTON
- IF BUTTON()THEN RETURN
- GOTO @BUTTON
- ’−−−−シ゛カン
- @SCALE
- WAIT 30
- ACLS
- SC=4
- IF SC!=1 AND SC!=2 AND SC!=4 AND SC!=8 THEN @SCALE
- IF LEN(MS$)>32/SC THEN @SCALE
- FOR I=0 TO 60000
- MS$=TIME$
- WAIT 1:
- GCLS
- FOR I=0 TO LEN(MS$)−1
- GPUTCHR I*SC*8,96,”BGF0”,ASC(MID$(MS$,I,1)),0,SC
- IF BUTTON() THEN RETURN
- NEXT
- NEXT
- RETURN
- ’−−−YAHOO
- @KENSAKU
- ACLS
- GCLS 15:COLOR 1
- SPSET 0,0,0,0,0,0
- SPSET 1,1,0,0,0,0
- SPSET 2,2,0,0,0,0
- SPSET 3,3,0,0,0,0
- SPSET 4,3,0,0,0,0
- SPSET 5,4,0,0,0,0
- SPSET 6,19,0,0,0,0
- SPSET 7,20,0,0,0,0
- SPSET 8,21,0,0,0,0
- SPSET 9,7,0,0,0,1
- SPSET 10,8,0,0,0,1
- SPSET 11,8,0,0,0,1
- SPSET 12,8,0,0,0,1
- SPSET 13,9,0,0,0,1
- SPSET 14,22,0,0,0,0
- SPSET 15,23,0,0,0,0
- SPOFS 0,90,30
- SPOFS 1,105,30
- SPOFS 2,120,30
- SPOFS 3,135,30
- SPOFS 4,150,30
- SPOFS 5,165,30
- SPOFS 6,135,43
- SPOFS 7,150,43
- SPOFS 8,165,43
- SPOFS 9,88,77
- SPOFS 10,103,77
- SPOFS 11,118,77
- SPOFS 12,133,77
- SPOFS 13,148,77
- SPOFS 14,163,75
- SPOFS 15,178,75
- LOCATE 11,10?”│”:L=0:P=0
- @KENLO
- LOCATE 14,8 ?”ウェフ゛
- LOCATE 0,22 ?” http://search.yahoo.co.jp
- L=L+1
- WAIT 1
- IF L==30 AND P==0 THEN CLS :L=0: P=1
- IF L==30 AND P==1 THEN LOCATE 11,10?”│”:L=0:P=0
- IF BUTTON() THEN RETURN
- GOTO @KENLO
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・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