第４講 数独作成アプリVer.1開発その２
第７話 数独作成ソフトVer.1の完成は幻想だった！
コードを次ぎように変更して
・
Dim cp(8, 8) As Byte '数独収納配列のコピー
Dim y(80) As Byte, x(80) As Byte
Dim cy(80) As Byte, cx(80) As Byte '座標のコピー
・
Dim n2 As Integer, n2_1 As Integer, n_1 As Byte 'n*n等の計算を何回もさせないために導入
Private Sub CommandButton1_Click()
・
n2 = n * n
n_1 = n - 1
n2_1 = n2 - 1
hintosu = Cells(3, 7)
zys '座標作成プロシージャ
Do While 1
hj1 = Timer
zlk '全体リスト構造解析プロシージャ
sds (0) '数独作成プロシージャ
sdc '数独のコピー
zlk '全体リスト構造解析プロシージャ
mds '問題作成プロシージャ
sds (hintosu) '数独作成プロシージャ
If cn = 1 Then Exit Do
Loop
・
hyouji '問題表示プロシージャ
hyouji2
・
Sub mds()
Dim i As Integer, u As Byte
For i = 0 To hintosu - 1
y(i) = cy(i)
x(i) = cx(i)
Next
For i = 0 To hintosu - 1
p(y(i), x(i)) = cp(y(i), x(i))
u = klk(i)
Next
End Sub
Sub sdc()
Dim i As Integer
For i = 0 To n2_1
cp(cy(i), cx(i)) = p(cy(i), cx(i))
Next
End Sub
・
Sub zys() '座標作成プロシージャ
Dim i As Byte
Dim s As Byte, t As Byte
For i = 0 To n2_1
s = Int(i / n)
t = i Mod n
a(s, t) = (h + i * m) Mod (n2)
y(a(s, t)) = s
x(a(s, t)) = t
cy(a(s, t)) = s
cx(a(s, t)) = t
Next
End Sub
Sub sds(g As Integer) '数独作成プロシージャ
・
If g + 1 < hintosu Then
sds (g + 1)
If cn > 1 Then Exit Sub
Else
If g + 1 < n2 Then
nck (g + 1)
sds (g + 1)
If cn > 1 Then Exit Sub
Else
cn = cn + 1
'hyoujiをカット
If cn > 0 Then Exit Sub
End If
End If
End If
・
End Sub
・
Sub hyouji() '問題表示プロシージャ
Dim i As Integer
For i = 0 To hintosu - 1
Cells(5 + cy(i), 2 + cx(i)) = cp(cy(i), cx(i))
Next
End Sub
Sub hyouji2() '問題表示プロシージャ
Dim i As Integer
For i = 0 To n2_1
Cells(15 + cy(i), 2 + cx(i)) = cp(cy(i), cx(i))
Next
End Sub
・
数独作成ソフトVer.1は完成のはずでした。
別解のない数独を作成しているはずでした。
ところが、
次の話で示す別解のあるなし検証プログラムファイルで
で判定するとことごとく別解のある問題を作成していたのです。
Do While 1
hj1 = Timer
zlk '全体リスト構造解析プロシージャ
sds (0) '数独作成プロシージャ
sdc '数独のコピー
zlk '全体リスト構造解析プロシージャ
mds '問題作成プロシージャ
sds (hintosu) '数独作成プロシージャ
If cn = 1 Then Exit Do
Loop
このループ文の
zlk '全体リスト構造解析プロシージャ
sds (0) '数独作成プロシージャ
で解答を作り、
sdc '数独のコピー
zlk '全体リスト構造解析プロシージャ
mds '問題作成プロシージャ
で解答のヒントの数字を配置している以外のセルはすべて0にして問題を作り、
もう一度解かせて解が１個
If cn = 1 Then Exit Do
である場合のみにループ文を抜けるのですから、
解が１個しかない数独が出来ているはずなんですが・・・
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入門へ
本サイトトップへ
