パズルのバグ

Question

遊び感覚でパズルを作ったのですがバグがあるのです。
（作成する前に気がついたのですが、先に本体のPGをした）

プログラム内容は

imageが１６個あります（４*４）
左上から１、２、３　とindex番号をつけています。

ある場所をクリックすると　縦と横の画像が別の画像に変わります（自分自身も）
（すべてが同じ画面になると完成です）

そんなPGです。

バグがある（と思われる）のはスタートです。
現在１枚１枚乱数で裏表を決めていますが、この方法だと出来ない（100％）パターンがあるかと思います。
（その代わり65536分の１の確率でいきなり完成します（笑））

このスタートに入れるPGがうまく出来ないのです。

---------

乱数で数値を決める
その数値によりあるPGを実行する（※１）
それを*階繰り返す

としたのですがうまく出来ません。

ちなみに
※１のPGはパズルで遊ぶときのPGをそのままコピーして変数（indexから別の変数に）を変えたのでバグはないと思います。（多分）

driverII · Accepted Answer

あんまり人に聞くようなことではないと思いますが、それはともかく。

(A)１枚１枚乱数で・・・という方式をやめて、

(B)----------
乱数で数値を決める
その数値によるＰＧ・・・
それを・・・

という方式に変更したい。作ってみたがうまく動かないので、どこがおかしいのでしょうかという質問ですか？

該当部分のＰＧを見ないと誰も回答できないと思いますよ。

TAGOSAKU7 · Answer

よくわかりまってませんが、推測の限りでのサンプルです。

Option Explicit
Private Const pDEF_SQARE_SIDE_SIZE　As Integer = 4 '一辺のサイズ

Private Sub Form_Load()
　　Dim i　 As Long
　　Randomize
　　For i = 1 To 16
　　　　Image1(i).Visible = (Int(Rnd * 2))
　　Next i
End Sub

Private Sub Image1_Click(Index As Integer)
　　Dim intRowIndex As Integer
　　Dim intColIndex As Integer
　　
　　Dim intID1　　　As Integer
　　Dim intID2　　　As Integer
　　
　　Dim i　　　　　 As Integer
　　
　　'対象行を取得
　　intRowIndex = (Index - 1) \ pDEF_SQARE_SIDE_SIZE
　　'対象列を取得
　　intColIndex = (Index - 1) Mod pDEF_SQARE_SIDE_SIZE
　　
　　For i = 1 To pDEF_SQARE_SIDE_SIZE
　　　　'反転するオブジェクトＩＤを算出
　　　　intID1 = (intRowIndex * pDEF_SQARE_SIDE_SIZE) + i　　　　　　　'//行方向で算出
　　　　intID2 = ((i - 1) * pDEF_SQARE_SIDE_SIZE) + (intColIndex + 1)　'//列方向で算出
　　　　
　　　　'行方向による反転
　　　　Image1(intID1).Visible = Not (Image1(intID1).Visible)
　　　　
　　　　'列方向は、行方向の反転とかぶらないようにチェック
　　　　'（かぶる ＝ クリックしたIndex値を持つオブジェクト）
　　　　If Not (Index = intID2) Then
　　　　　　'列方向による反転
　　　　　　Image1(intID2).Visible = Not (Image1(intID2).Visible)
　　　　End If
　　Next i
End Sub


それともし、このサンプル通りの動きのプログラムであれば、、、
>バグがある（と思われる）のはスタートです。 
>現在１枚１枚乱数で裏表を決めていますが、この方法だと出来ない（100％）パターンがあるかと思います。 
>（その代わり65536分の１の確率でいきなり完成します（笑）） 
というのは、仕方がないように思えます。
Win付属のゲーム[ソリティア]に至っては、解消法がある出題の方が少ないですｗ。
[フリーセル]も確立は違いますが、やはり解くことができない出題もあります。
大学時代の教授でフリーセル狂がいたのですが、「フリーセルはどうやっても1問だけ解けない問題がある」と言ってました。わたしの個人的見解では、もっとあるように思うのですが・・・まぁそれはそれとして、、、

「Ｔｈｅ仕様」として切り抜けましょうｗ

taknt · Answer

示されたプログラムは 強制に反転しているので、それだと解けないものが
できてしまうのは 当たり前かと思います。

まず、クリックした処理の関数があると思いますが、それを呼んで処理するようにしたらいいですね。

乱数で 何回クリックするか決めて それから さらに乱数で １から１６の値を
だし、その位置にクリックされたと処理してあげればいいのです。
こうすると どういう順番にクリックされたかわかるかもしれません。
その場合は、画面全体にイメージなどはり それで隠し、終わったら、
そのイメージを Visible = False してあげればいいかと思います。

driverII · Answer

※１のプログラムとはあるindexを指定すると
自分自身と縦と横の画像が別の画像に変わるＰＧですね。
ということは

Randomize
For i = 1 to (繰り返し回数)
co = Int(Rnd * 16) + 1
(※１のプログラムを(co)で呼ぶ)
Next i

というようなイメージでは？

コピーしたということは、Index = co として・・・

Randomize
For i = 1 to (繰り返し回数)
Index = Int(Rnd * 16) + 1
(※１のプログラムのコピー)
Next i

ということかな？変数宣言は自分で調整してください。

taknt · Answer

なんか プログラムが いまいち よくわからないのですが、

If Image1(1).Visible = True Then 
Image1(1).Visible = False 
Else 
Image1(1).Visible = True 
End If 

は
If Image1(Index).Visible = True Then 
Image1(Index).Visible = False 
Else 
Image1(Index).Visible = True 
End If 

に変えられると思いますよ。

あと この Indexは、どこから取得するのでしょうか？

パズルのバグ

あんまり人に聞くようなことではないと思いますが、それはともかく。

この回答への補足

よくわかりまってませんが、推測の限りでのサンプルです。

示されたプログラムは 強制に反転しているので、それだと解けないものが

※１のプログラムとはあるindexを指定すると

なんか プログラムが いまいち よくわからないのですが、

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

示されたプログラムは強制に反転しているので、それだと解けないものが

なんかプログラムがいまいちよくわからないのですが、