第14講 数独の自動生成
第６話 ブロックの条件を付け加えるには？その２

個別対応にならない汎用性＝普遍性のあるプログラム
にするにはどうしたらよいでしょうか。

解決の方法は、
Sub f(g As Integer)

　　If cn = 100 Then Exit Sub
　　
　　Dim i As Integer, j As Integer, jy As Integer, jx As Integer
　　Dim gy As Integer, gx As Integer
　　
　　gy = Int(g / n)
　　gx = g Mod n
　　For i = 1 To n
　　　　If gx > 0 Then
　　　　　　For j = 0 To gx - 1
　　　　　　　　If i = a(gy, j) Then GoTo tobi
　　　　　　Next
　　　　End If
　　　　If gy > 0 Then
　　　　　　For j = 0 To gy - 1
　　　　　　　　If i = a(j, gx) Then GoTo tobi
　　　　　　Next
　　　　End If
　　　　a(gy, gx) = i
　　　　
　　　　If g + 1 < n * n Then
　　　　　　Call f(g + 1)
　　　　　　If cn = 100 Then Exit Sub
　　　　Else
　　　　　　Call h
　　　　End If
tobi:
　　Next
　　
End Sub
のgを上手く利用することです。


gは

の白い大きな数字に対応します。
もし、検査をを２次元for文にするには、
gとｙ座標およびｘ座標との関連づけをどうするかが問題です。
実は、gからｙ座標とｘ座標を作り出すことは、
そんなに難しいことではありません。
そうです。
変数gyとgxがｙ座標とｘ座標にそれぞれ対応しています。
ですから、２次元For文にして
　　　　For j = □ To □+2
　　　　　　 For k = △ To △+2
　　　　　　　　　・・・・
　　　　　　 Next
　　　　Next
□と△をgyとgxに関連づけることが出来て、
For文をどのタイミングでExit For するかが解決できれば、
gを利用する方法による数独解答自動生成ソフトが完成することになります。
ヒントは、例えば

2から0をいかに作り出すか、
4から3をいかに作り出すかです。

Exit For のタイミングについては、
逆にjとkから白い番号を作り出すことが出来れば、
あっさり解決します。

さあ、数独解答自動生成アプリに挑戦です。

第５話へ　第７話へ

eclipse c++ 入門
魔方陣 数独で学ぶ VBA 入門
数独のシンプルな解き方・簡単な解法の研究
vc++講義へ
excel 2013 2010 2007 vba入門へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
専門用語なしの C言語 C++ 入門（Visual C++ 2010で学ぶ C言語 C++ 入門）
専門用語なしの excel vba マクロ 入門 2013 2010 2007 対応講義 第1部
eclipse java 入門へ
excel 2016 vba 入門へ
小学生からエンジニアまでのRuby入門へ
本サイトトップへ