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

Toukou/BINGO の変更点

パンくずリスト


#title(投稿プログラム : BINGO抽選機)
#contents
// ←このように「//」で始まる行はコメントです。ページ本文には反映されません。
//------------------------------------------------------------------------------
// ・投稿年月日は、このページを投稿しようとしている今日の日付を半角数字で入力してください。
//   この日付は、投稿プログラムを自動的に年月日順に並べる際に使用されます。
// ↓↓↓
2012年03月29日投稿
// ↑↑↑
//------------------------------------------------------------------------------
// ・投稿者名は、将来的に投稿プログラム一覧に表示するために使用します。
// ・「名無しさん」のままにしておくと、匿名の方からの投稿として扱われます。
// ↓↓↓
/ 投稿者 : Tyks
// ↑↑↑
//------------------------------------------------------------------------------
// ・適当にタグをつけることができます。半角のコンマ区切りで複数つけられます。
//   タグをつけると、同じタグが付いたページを検索することができます。
// ★次に該当するプログラムは、特定のタグを設定するようご協力お願いします。
//   これらを設定すると、将来的に投稿プログラム一覧に目立つマークが付くようになる予定です。
// ・短いプログラム → 「1行プログラム」「数行プログラム」「1画面プログラム」タグのいずれか1つ
// ・初代プチコンでも動作するプログラム → 「初代対応」タグ
// ・mkII 以降専用のプログラム → 「mkII専用」タグ
// ・QRコードを掲載している → 「QRコード」タグ
// ・該当するなら「ゲーム」「実用ツール」「音楽」タグのいずれか
// ↓↓↓
/ &tag(投稿プログラム,QRコード,初代対応,1画面プログラム);
// ↑↑↑

//------------------------------------------------------------------------------
// ここに概要とか書きます。** や *** で始まる行は子見出しとなります。
// [#英数字] はページ内リンクに使用されるアンカーですが、
// 書かなかったり、消したりしてもかまいません。
// ない場合、自動でランダムな文字列が再付与されます。

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

**応用 [#q63d721f]
1行目のS(最小値)とM(最大値)の値を変更することで範囲を変更することができます。

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

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


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

/////////////////////////////////

* スクリーンショット・動画 [#lb4f83a1]
動作しているところを撮影した写真や動画があれば貼り付けてください。

// ページを作成すると、画像の添付ができるようになります。(作成する前はできません)
// 作成後のページの右上、ウィキメニューにある「添付」から画像をアップロードできます。
// (添付ファイルはページごとに別個に管理されています。必ず作成後のページに添付してください)
// 画像をアップロードしたら、以下の書式でページ内に貼り付けられます。
// #ref(添付ファイル名)

// 以下の書式で、YouTube やニコニコ動画を貼り付けられます。
// #youtube(0HWX7kovgY8)
// #nicovideo(sm13684820)

/////////////////////////////////
// QR コードがない場合は、この部分は削除してください

* QR コード [#g47a4e00]
プチコンmkII 向けの QR コードです。

|~v1.2|~v1.1|~v1.0|
|&ref(qr2.png,,200%);|&ref(qr1.png,,200%);|&ref(qr0.png,,200%);|
|~2012/4/15|~2012/03/31|~2012/03/29|

// 【重要】旧プチコンから mkII に転送したプログラムは、mkII で保存しなおしてから
// QR コード化すると、枚数が半分ぐらいに減ります。ぜひお試し下さい。

// ページを作成すると、QR コードの添付ができるようになります。(作成する前はできません)
// 作成後のページの右上、ウィキメニューにある「添付」から画像をアップロードできます。
// (添付ファイルはページごとに別個に管理されています。必ず作成後のページに添付してください)
// QR コードをアップロードしたら、以下の書式でページ内に貼り付けられます。
// #ref(アップロードしたファイル名)

// QR コードを大きくしたい場合は、倍率指定ができます。コンマは必ず 2 つ指定してください。
// ブラウザによっては補完がかかってボケますが、それでも問題なく読み込み可能です。
// #ref(アップロードしたファイル名,,200%)

// 複数の QR コードを貼り付けるために表組みを用いる場合、&ref(); を使用します。
// (#ref() を表に埋め込んでしまうと、古い Internet Explorer でうまく表示されません)
// |~1/2|~2/2|
// |&ref(添付ファイル名);|&ref(添付ファイル名,,200%);|

/////////////////////////////////

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


/////////////////////////////////
// コメントを募集したくないなら、ここから下は削除してください

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

#comment

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