Visual Basic(VB)で簡単なマインスイーパを作ってみる

プログラミングの練習に作ろうと思ってるんだ。
俺のプログラミングレベルは初心者。
VBは授業で少し習った程度。

プログラミングできる人がいればアドバイスください。

　　　　 ∧＿∧
　ﾋﾟｭｰ (´・ω・｀) ＜これからも山崎誠を応援して下さいね。
　　＝〔~∪￣￣〕
　　＝ ◎――◎

とりあえずボタンを押したらボムを生成するプログラムを書いたんだけど、
この時点でなんか駄目っぽい感じがしますorz

これがあの有名なインターネッツ

ついでに自動的にクリアする機能をつけて
延々と自動でマインスイーパをプレイし続けるソフトとかどうよ

>>5
そこまでのレベルは今の俺には無理です。。
とりあえず今回は保留ということで

ボム生成のアルゴリズムはどうしたらいいでしょうか？
俺には
Do
n = Int((Rnd() * 479) + 0)
If mine(n Mod 16, n / 16) = False Then
mine(n Mod 16, n / 16) = True
i += 1
If i >= 99 Then
Exit Do
End If
End If
Loop
こんなのしか思いつかなかったです。
しかしボタンを何度も押すとフリーズします。
どうしましょう。

>>5　のスクリーンセーバーがあったら欲しいな･･･

>>8
面白そうｗｗ
将来的に作ってみたいですね

Do
n = Int((Rnd() * 479) + 0)
If mine(n Mod 16, n / 16) = False Then
mine(n Mod 16, n / 16) = True
i += 1
フリーズ = しないで
If i >= 99 Then
Exit Do
End If
End If
Loop

これでいいよ

423 名前：僕のマインスイーパ「Nameless Minesweeper」(36%)[sage] 投稿日：2008/08/24(日) 23:25:54 ID:FqTXz1yl
いくつかのTODOの完了期限をダイナミックに変更しつつMilestone 2をリリース。
ttp://tipling.dyndns.org/NamelessMinesweeper/

次は動画の録画/再生周りを中心に。

>>7に関して説明不足でした。
99個のボムを生成します。
bool型の変数mineがtrueだとボムがそこに存在します。

Basicはうろ覚えだけど
n / 16じゃなくてn \ 16にすればいいんじゃね？

>>9
今すぐ魔のネタ帳にメモってくるんだ

>>13
\はどのような演算子でしょうか？

>>14
把握wｗ

昔作ったけど、基本的に配列と再帰さえ分かってれば簡単にいけるな。

>>15
\は割り算の結果を整数で返す(小数点は切捨て)
/は実数で返すからな
あとDoの前にi = 0を追加しとけ

調べてみたらあったわｗ
ttp://home.earthlink.net/~daliblume/Download/Minehunt.html

でも>>1が作ったのを期待してる

>>17
ありがとう！
i =0は変数宣言の部分でしてました。

/ → \ にしましたがButtonを連続で何回もクリックするとフリーズするのは止まらず・・・

>>16
配列は理解してます。
再帰はなんとなく分かります。
再帰は何処で使いますでしょうか？

>>18
ありがとう！
頑張ってみる

>>19
多分mineが全部Trueで埋まっちゃうから、iが99以上にならなくてフリーズするんじゃないの？
Doの前にmineを全部Falseにする処理を入れるべき

>>21
ありがとう！
mineを全てfalseにする処理を入れたらフリーズしなくなりました！

>>19
マスをオープンしたときに、周りのマスに全く地雷がなかった場合、
その周りのマスもオープンしないといけない。そこで再帰を使う。

>>23
なるほど。

サテ次は何をしよう

選んだマスをオープンして周りのボム数を表示するようにしようぜ

>>26
把握。
時間かかるだろうけどやってみる

右クリックでチェックできるようにもしようぜ

For i = 0 To 30
For j = 0 To 16
senjo(i, j) = New PictureBox
senjo(i, j).Width = 20
senjo(i, j).Height = 20
senjo(i, j).Left = i * 20
senjo(i, j).Top = j * 20
senjo(i, j).Enabled = True
senjo(i, j).Visible = True

If mine(i, j) = True Then
senjo(i, j).BackColor = Color.Black
Else
senjo(i, j).BackColor = Color.White
End If
Next
Next
とりあえずボタンを押したらボムを黒、何も無いところを白く描くソースを書いてみた。
が、これもまた駄目みたい。
何も表示されません。
何故？

いや、俺C言語しか分からんし・・・

senjo(i, j)はデフォルトではBackColorは何色なん？
指定しなくてもVisibleをTrueにしたら表示されるものなの？

デフォルトの設定が分からなかったのでとりあえず
senjo(i, j) = Color.Whiteをコードに追加してみました。
結果：それでも表示されませんでした。

俺もVBが良く分からないです。
まだCのほうが簡単な気がする・・

C#とJavaScriptとPHPしかやったことないけど
VBの構文がどうしても好きになれない。
文末に；無いし・・・forとかifとかまったく違うし・・・

PictureBoxを表示させた事はあるの？

>>32
俺もパッと見、意味は分かるけど、気持ち悪いと思うこれ

とりあえずForとかmineとか無視して
１つPictureBoxを表示させてみろ、話はそれからだ。

VBの構文って、名前の通り昔のBASICから来てるので、
見慣れない人は辛い。　つうか、今では俺も辛い

>>32
凄くよく分かります。
Cのほうがシンプルで素敵・・・

>>33
普通にツールボックスから引っ張ってきてました。
ソースコードから生成するのは初めてです。

>>34
了解です。
今覚えばソースコードでPictureBox作成するの初めてでした。

今ならVB.netやる意味はないわな

駄目だ。普通にピクチャーボックスを表示することすらできないorz

senjo(0, 0) = New PictureBox
senjo(0, 0).Width = 20
senjo(0, 0).Height = 20
senjo(0, 0).Left = i * 20
senjo(0, 0).Top = j * 20
senjo(0, 0).Enabled = True
senjo(0, 0).Visible = True
senjo(0, 0).BackColor = Color.White
senjoの宣言はグローバルな場所で
Dim senjo(30, 16) As PictureBoxって書いてます。

間違えた。
i * 20とj * 20はそれぞれ10に脳内変換してください。

知らんがな
絶対にソースコードで生成しないといけないの？ポリシー？
ツールボックスからの方が早くね？

もしくはツールボックスから生成した時に出来たコードを参考にしてみるとか。
てかググったらすぐ出てきそうだけどな

>>40
マスの数は選べるようにしたいので、
ツールボックスからだと、個定数しか作成できないことない？

初めてやるなら、とりあえずマス目の個数変更は考えず固定で作って
出来たら変更できるように弄るってやったほうが良いと思うんだ。

配列で線引けばいいじゃん

>>38
まさかとは思うがそれは作っただけじゃないか？

>>42
そうなんですが、ピクチャーボックスが配列になっていないと
単純なプログラムでも大変なことにならない？

>>44
！？
表示させるにはどうしたら？

PictureBox を配列にしてるの？

PictureBoxを1枚用意して、そこに描画するんじゃないのか？

>>46
その前にVBなのかVB.netなのか教えてくれてもいんじゃないか？

>>47
！？
駄目だ。。俺の頭の弱さでは理解できない・・

>>48
VB2005です

┌┐┌┐┌┐┌┐┌┐
└┘└┘└┘└┘└┘
┌┐┌┐┌┐┌┐┌┐　※四角一つがPictureBox
└┘└┘└┘└┘└┘
┌┐┌┐┌┐┌┐┌┐
└┘└┘└┘└┘└┘
┌┐┌┐┌┐┌┐┌┐　・・・　こんなイメージで作ろうとしてる？
└┘└┘└┘└┘└┘
┌┐┌┐┌┐┌┐┌┐
└┘└┘└┘└┘└┘

┌────────┐
│　　　　　　　　　　　 .│
│　　　　　　　　　　　 .│
│　　ここに、　　　　 .│　じゃないのか？
│　　升目分描画 　 .│
│　　　　　　　　　　　 .│
│　　　　　　　　　　　 .│
│　　　　　　　　　　　 .│
└────────┘

Dim senjo(30, 16) As PictureBox
の宣言方法じゃマスの数を可変に出来ないんじゃないかな・・・？
と、C言語の脳みそで考えてみた。

>>50
俺は上を想像していたが、そもそもPictureBoxって何だｗ
その上にPictureを乗せるものなら、>>1のソースじゃ表示されないのは当たり前な気がするｗｗｗ

ソース内で生成したPictureBoxって、
それをFormに結びつけるなにかをしなくていいんだっけ？
今のままじゃ、どこに表示したらいいのかVB君がわかんないんじゃね？

>>42
それはやりようによってはあとでの変更が大変なことにならないか？

>>50
画像の合成がめんどいと思う。

>>50
正にそんな感じで作ろうとしてました！

下のような方法もありましたね

>>51
とりあえずマインスイーパ上級が30*16なのでそれだけ用意しとけばいいかなぁと・・・。

>>52
よくわかんないです。

>>53
なるほど。結びつけかー。
ググってきます。

VB6の感覚で行くと、
PictureBoxは画像を表示するためのものだが、
とりあえず画像なしで表示しても枠だけ見えるはず。

枠を消す設定もできるが、デフォはONだった。VB6では、な。

>>54
Form.Cotrols.Add

あれだな、アルゴリズムとかじゃなくて描画系で詰まるんだったら
俺とか何にも役に立たないな。。。

>>53
逆に上の方が面倒じゃないのか？
合成も何も、下は単に DrawImage なり DrawCircle すればって・・・ VBにそれがあるかどうか見ないと忘れたが

>>55
そーなんだ。地味に勉強になる・・・のか・・・このスレは。
どうせVB使うことはないだろうけど・・・。

>>53
確かにな。Win32で親ウィンドウを指定しないといけないのと同じ感覚だな。

>>58
なんとなくだけど、上の方が簡単な気がする・・・

>>56
親切にありがとう！
Me.Controls.Add(senjo(i, j))を追加しただけで、上手くいくようになったよ！
これで描画系に詰まることはなくなったかな。

>>58
上なら、一つ一つのPictureBoxに、値が設定されたら画像を差し替えるって処理を入れれば
もうそれで済むはず。
絵の更新も必要なとこだけでいいしな。

合成しちゃうとやっぱりいろいろめんどうだと思うんだ。

CでWinAPIでやってんならもちろん下だけどな。
そもそも概念が違うから当たり前だが。

マインスイーパに必要な絵をリストアップするぞ
・蓋がしてある
・蓋がしてあってチェック済み
・オープン：空
・オープン：爆弾
・オープン：１〜８

欲を言えば
・オープン：爆弾、真っ赤
・蓋がしてある：カーソル選択中

こんなもんだ。

最初の描画に時間がかかるのはVBの仕様か・・・

よし、今度こそ
>>26
やってみます

正直、絵を用意するのがめんどいだろうから
最初はTextBoxかLabelにすりゃいいのにって思うんだけどね。

>>64
まずは単純に選択したマスだけ開けろよ。
いきなり再帰とか手つけんなよー

>>60 >>62
それ、描画だけじゃなくて、クリックとかのイベント考えて言ってるのか

一つ一つのPictureBoxに全部イベントのリスナくっつけて行き先一つにするのはいいとして、
クリックされたのがどれなのか、の判定してから配列上のデータとか識別して・・・ってやる事考えたらしんどくないか？って話なんだが
描画は楽かもしれないけどさ。　いま楽なだけじゃないのかと。

>>66
クリックイベントだって、クリックされたやつのインデックスって引数でとれるよね？
それを縦横で割るなりmodなりでxy求めるだけだべ？

下方式の場合、クリックされた座標をひとつひとつのサイズで割ってxyがどこだか求めて

…後の処理はどっちの方式でも同じじゃないか、と思うのだが。

PictureBox1 ・・・ 幅＝横升目*１画像のwidth、高さ＝縦升目*1画像のheight　で、単に

　For y = 0 to 縦升目
　　For x = 0 to 横升目
　　　e.Graphics.DrawImage(画像, x,y)　' 画像は升目の状態が詰まった二次元配列を元に切り替え
　　Next x
　Next y

ってやっとけば、イベント時にマウス位置から

　px = x/(升目一つの)width
　py = y/(升目一つの)height

で求まるから、描画だけじゃなくてハンドリングも簡単じゃん、て話なんだが。
・・・ただ結局本人がやりやすい方でやればいいと思うけど

>>66
分からん。なんとなくVBはオブジェクトごとにコード書いてくイメージ持ってるから、
PictureBoxがWin32でいうところのボタンコントロールみたいなイメージを持ってるんだ。
だから上の方が簡単なのかなとか思ったけど、それ自体が間違った想像なのかもしれないｗｗｗ

>>67
＞クリックイベントだって、クリックされたやつのインデックスって引数でとれるよね？

PictureBox の配列のインデックスの話だったら、自分で小細工しないと簡単には取れないと思うが、
VBだと他になんかあるのか？

皆難しい話してやがるぜ・・・

誰かやっつけで20*20の
>>63の画像を作ってくれると嬉しいです。
もちろん都合のいいお願いだと思うので無視してくださってOKです。

Draw_Line使うんじゃないのか

>>72
あ、そうしてみます。

>>68
VBでの画像処理には詳しくないんだが、
合成もわりと楽じゃないっぽいよ？
http://209.85.175.104/search?q=cache:-XOev5d5R0MJ:oshiete1.goo.ne.jp/qa3470235.html+VB+DrawImage&hl=ja&ct=clnk&cd=4&client=opera

>>70
VB6ではあったのに廃止になったようだな。
解決方法はあったがめんどくさそうだ。
http://209.85.175.104/search?q=cache:xuN9gfbgWB4J:forums.microsoft.com/MSDN-JA/ShowPost.aspx%3FPostID%3D1258209%26SiteID%3D7+PictureBox+%E9%85%8D%E5%88%97+Click+index&hl=ja&ct=clnk&cd=3&client=opera


さあ、上記２件でどっちが楽かっちゅう話？
VB2005めんどくせぇなぁ。

>>71
とりあえず、上のやり方は今楽なだけで、多分詰まるぞ。
>>67 が言う、「クリックしたPictureBoxが何番目のモノなのかが簡単にわかる方法」　ってのが無い限り。
・・・・もちろんやりようはあるけど、遠回りにはなると思う。

　上の方法で配列の何番目なのかを特定する方法
　　方法１．Hashtable 的な物に名前と位置の値を記録して、クリック時に特定する
　　方法２．Nameプロパティに数字を仕込んどいて、それをParseInt する

こんな小細工しないとうまくいかなくなる、多分。で、普通はやらない

>>75
VBって各PictureBoxにメニューハンドルみたいなのはつけれないの？

>>74
いやそれ普通だと思うけど。合成って言い方があれだけど、単に FromImageで コンテキスト作って DrawImage 重ねてSaveしてるだけでは。
一つのPictureBox に１回しか DrawImage 出来ないだったら問題だけど、それは無い。

選んだマスをオープンさせるので詰まる俺ガイル

>>76
＞VBって各PictureBoxにメニューハンドルみたいなのはつけれないの？

俺もVBはもうExcelでマクロ書くぐらいしか使ってないけど、メニューハンドルって言うか hwnd みたいな識別子持たせて
そこから対象を特定しようとすると、>>75 の方法１みたいな事しないと、「それがどこの升目のモノなのか」　が特定できないよね

って、遠回りでもいいなら別にそれでもいいかもだけど

とりあえず>>1は先にCUIで作って、後でGUIを付けたらどう？ｗ

とりあえず>>1
合成がとくに問題ないということなので
PictureBoxは一つにする方式に変更した方がいい。
いまやってる選んだマスを開ける処理すら変わる事態だ。


まさか、クリックしたindexがとれないなんて思ってもなかったよ…

>>80
実はVBでやってるのは理由があるんだ。
Cだったら確かに出来そうだ。

クリックをどうやって判別するんだ・・・？

>>81
取れるわけ無いだろｗｗｗ　元々配列とインスタンスになんの関係も無いんだから

>>80
俺もそれがいいと思う。とりあえず完成させたいなら

>>81
まじすか。
やってみる

一つのピクチャーボックスを分割していくつも画像を表示させたりできるの？

hwndみたいな識別子からPictureBoxを特定するのは
2重forループ回してhwndが一致するPictureBoxを探せばすぐ出来そうだけど、
プログラム的にカッコ悪いね。。。

それなら方法2のNameプロパティパースIntでsenjo(iName/10, iName%10)の方がまだマシだけど
それもカッコ悪いってか。

閏年考慮した時計を作ろうとしたが俺には無理だった

>>83
取れるわけ無いだろ、って言われても。VB6では取れたんだからさ。
俺の脳内では、Formにaddしたときに、同じ名前のモノが複数きたら
それのindexを覚えてくれる的なことをしてくれるはずだった。

VB6と2005の壁はかなり厚いようだな…。

>>88
あぁ、同名が自動で配列にって奴か。Add順＝indexみたいな。
それあるかも・・・　だけど Form1 に問い合わせて IndexOf とか、PictureBoxのインスタンスがメンバ持ってればいけるって事か

過疎ってきましたので、俺はそろそろ風呂に行こうと思います。
また明日の夜９時ぐらいに同じスレを建てます。

そのときはまたスレを覗いてくれると嬉しいです。
それでは！
皆ありがとう！

>>89
そういうのを自動でやってくれるのを自分で作ればいいのかね。
まあ俺はこれからもVBは6を使うさ。

>>1
まずはCUIで、もしくは
どこをクリックしたかはとりあえずTextBoxで入力して
表示も画像じゃなくてデバッグプリントでとかなんとかってのは
俺も賛成

てなわけで乙。がんばれ。