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

投稿プログラム : BINGO 1画面

パンくずリスト

2012年04月13日投稿 / 投稿者 : @hpn / タグ : 投稿プログラム 1画面プログラム QRコード

概要

Tyksさんが投稿されていたBINGO抽選機と同様の物を、別の仕組みで作ってみました。

工夫した点

  • 1画面に入るように小細工
  • 抽選結果が終了後でも一覧できる
  • 最初の4行で、抽選の乱数は完了
  • ↑そのため、デモの数字表示回数が安定
  • まだ4行余ってるので、もうちょっと修飾可能

QR コード

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

qr000.png

プログラムリスト

  1. CLEAR:S=1:M=75:DIM K(M+1)
  2. CLS:FOR I=S TO M:K(I)=I:NEXT
  3. FOR I=S TO M:R=RND(M−S+1)+S
  4. E=K(I):K(I)=K(R):K(R)=E:NEXT
  5. PNLTYPE ”OFF”:GPAGE 1:GCLS 
  6. PNLSTR 10,18,”−−− BINGO −−−”
  7. PNLSTR 10,20,”Aテ゛ ツキ゛ノ スウシ゛”
  8. FOR I=S TO M+1:FOR J=0TO 1
  9. J=SGN(BUTTON(1)):VSYNC 1:NEXT
  10. IF I>M THEN ?”END.”:END
  11. FOR J=0TO 5:R=RND(M−S+1)+S
  12. A=K(R):BEEP 2:GOSUB @1
  13. VSYNC 5:NEXT:A=K(I):BEEP 7
  14. GOSUB @1:?A$;”,”;:NEXT:END
  15. @1
  16. GCLS:A$=”00”+STR$(A)
  17. A$=RIGHT$(A$,3):FOR K=1TO 3
  18. X=K−0.5:A=ASC(MID$(A$,K−1,1))
  19. GPUTCHR 64*X,48,”BGF0”,A,0,8
  20. NEXT:RETURN

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

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

  • TNN : 使用しました! 上画面と下画面の表示を逆にしていただければと… (2013/06/10 (月) 20:31:53)

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