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

投稿プログラム : BINGO抽選機

パンくずリスト

2012年03月29日投稿 / 投稿者 : Tyks / タグ : 投稿プログラム QRコード 初代対応 1画面プログラム

概要

BINGOなど数字をかぶることなくランダムに表示させたい場合に使って下さい。 1画面にするために調節したため同じ処理を何回も行ってしまう部分があります。

応用

1行目のS(最小値)とM(最大値)の値を変更することで範囲を変更することができます。

ただし、0未満1000以上の値で実行すると何も表示されずに終了します。

Аテ゛スタート,Аツキ゛ノスウシ゛と表示されますがどのボタンでも大丈夫です。

更新履歴

  • 2012/03/29...v1.0 投稿
  • 2012/03/31...v1.1 コメントをもとに最小値,最大値の変数を作成
  • 2012/04/15...v1.2 すべての数字が出終わったあとの処理を変更、1画面内に横も収まるように変更

スクリーンショット・動画

動作しているところを撮影した写真や動画があれば貼り付けてください。

QR コード

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

v1.2v1.1v1.0
qr2.pngqr1.pngqr0.png
2012/4/152012/03/312012/03/29

プログラムリスト

  1. CLEAR:S=1:M=75:DIM K(M+1)L=64
  2. IF S<0OR M>999OR S>M THEN END
  3. W=MーS+1:DIM B$(W)PNLTYPE”OFF
  4. IF W>96 THEN U=32 ELSE U=16
  5. ACLS:FOR I=2TO 6READ C$:F=ー1
  6. LOCATE 11,I:?C$:NEXT:GOTO @2
  7. @1 DATA”┌───────┐”,”│ BINGO │
  8. Y=(F)/192:T=F%8*4BEEP 7
  9. R=((F*4ーT)/U)%24LOCATE 11,16
  10. PNLSTR T,R,B$(F),FLOOR(Y)*3
  11. ?”Аツキ゛ノスウシ゛”:IF F>Wー2THEN X=1
  12. @2 DATA”└───────┘”,,” Аテ゛スタート
  13. IF X THEN LOCATE 11,16? C$
  14. FOR I=0TO 1I=SGN(BUTTON(1))
  15. E=ー10IF X THEN IF I THEN END
  16. NEXT:BEEP 2F=F+1FOR G=0TO 1
  17. A=S+RND(W)IF F<1THEN CLS
  18. A$=STR$(A)D$=”0”*(3ーLEN(A$))
  19. VSYNC 5E=E+1BEEP 2A$=D$+A$
  20. GCLS:FOR Z=1TO 3C$=”Аテ゛シュウリョウ
  21. V=ASC(MID$(A$,Zー1,1))Q=Zー0.5
  22. GPUTCHR L*(Q),48,”BGF0”,V,0,8
  23. NEXT:IF E<0 OR K(A) THEN G=0
  24. NEXT:K(A)=1B$(F)=A$:GOTO @1

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

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

  • 名無しさん : 2行目の頭に「MAX=75:」を追加して、概要にある(75,76,75,75)の部分をMAX,MAX+1,MAX,MAXにすると変更しやすいのでは? (2012/03/29 (木) 19:44:10)
  • 名無しさん : 宝くじに使えそう (2012/03/31 (土) 11:07:10)
  • 名無し : 最低のすうじと最高の数字は? (2012/03/31 (土) 13:15:13)
  • 投稿者 : 最小値と最大値を変数でまとめたブログラムが出来上がりましたので、時間がある時に更新します。 (2012/03/31 (土) 17:08:20)
  • 名無しさん : これは面白いですよ (2012/03/31 (土) 19:13:03)
  • 投稿者 : ブログラムリスト、QRコードを更新しました。変更部分が多いためQRコードでの上書きをオススメします。 (2012/03/31 (土) 22:44:25)
  • メタメタボディ : みんなでこれすると面白いですよ (2012/04/11 (水) 22:54:57)
  • わぁぃ@ : 応用すればくじとかもできるかな? (2012/04/12 (木) 15:28:31)
  • キービィ : subscript out of range(24)出ました。対処をお願いします。 (2012/08/29 (水) 12:54:17)
  • スマイルブーム : すごいの思いつきましたね!!! (2013/04/03 (水) 14:32:36)
  • スミレボーム : すごいの思いつきましたね!!! (2013/04/03 (水) 14:59:44)
  • 名無しさん : ↑↑カレンダーを見なさい。 (2013/04/03 (水) 20:11:30)

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