を実現するプログラム例
第14講 数独の自動生成
第８話 境界線の挿入
を実現するプログラム例
Dim a(16, 16) As Integer, n As Integer, cn As Long
Private Sub CommandButton1_Click()
CommandButton2_Click
cn = 0
n = 9
Call f(0) 'n次数独作成プロシージャ
End Sub
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
If g > 0 Then
For j = gy - (gy Mod 3) To gy - (gy Mod 3) + 2
For k = gx - (gx Mod 3) To gx - (gx Mod 3) + 2
If g = n * j + k Then GoTo tobi1
If i = a(j, k) Then GoTo tobi
Next
Next
End If
tobi1:
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
Sub h()
Dim i As Integer, j As Integer, s As Integer, am As Integer, w As Integer, p As Integer, q As Integer
p = 0
For i = 0 To n + 3
q = 0
If (i Mod 4) = 0 Then
p = p + 1
For j = 0 To n + 3
Cells(6 + i + (n + 5) * Int(cn / 5), 2 + j + (n + 5) * (cn Mod 5)) = "*"
Next
Else
For j = 0 To n + 3
If (j Mod 4) = 0 Then
q = q + 1
Cells(6 + i + (n + 5) * Int(cn / 5), 2 + j + (n + 5) * (cn Mod 5)) = "*"
Else
Cells(6 + i + (n + 5) * Int(cn / 5), 2 + j + (n + 5) * (cn Mod 5)) = a(i - p, j - q)
End If
Next
End If
Next
cn = cn + 1
tobi:
End Sub
Private Sub CommandButton2_Click()
Rows("5:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
さらに、乱数を利用して始まりを
以外のランダムなものに変更して下さい。
これは、自動生成ソフトを作るときの絶対要件です。
乱数系列は
Randomize (Timer)
を利用すると、その時刻に合わせた乱数系列になり、
実行の度に始まりが変わります。
では、皆さん取り組みましょう。
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入門へ
本サイトトップへ
