Sudoku Solver

• Download Sudoku source files - 6.18 Kb
• Download Sudoku demo project - 13.1 Kb

Introduction

   This is the source by which the Sudoku puzzle can be solved upto  MEDIUM Level

Description

    This puzzle is solved by two Main Functions

       1. findpossibilities()

               This function helps in finding all the possibilities of values that can be in a single cell.

here is the main part that finds the possibilities

<P>For i = 0 To 8<BR>    For j = 0 To 8<BR>        If B(i, j) = 0 Then<BR>            <BR>            'check row<BR>            For l = 0 To 8<BR>                If B(i, l) <> 0 Then<BR>                    temp = B(i, l) - 1<BR>                    mem(i, j, temp) = 0<BR>                End If<BR>            Next l 
<P>            'check column<BR>            For l = 0 To 8<BR>                If B(l, j) <> 0 Then<BR>                temp = B(l, j) - 1<BR>                mem(i, j, temp) = 0<BR>                End If<BR>            Next l 
<P><BR>            'check cell 3 x 3<BR>            t1 = Int(i / 3)<BR>            t2 = Int(j / 3)<BR>            t1 = t1 * 3<BR>            t2 = t2 * 3<BR>            For l = t1 To (2 + t1)<BR>                For m = (0 + t2) To (2 + t2)<BR>                    If B(l, m) <> 0 Then<BR>                        temp = B(l, m) - 1<BR>                        mem(i, j, temp) = 0<BR>                    End If<BR>                Next m<BR>            Next l<BR>            <BR>        Else<BR>             For l = 0 To 8<BR>                mem(i, j, l) = 0<BR>             Next l<BR>        End If<BR>    Next j<BR>Next i<BR></P>

       2. getmax()

              This function helps in finding the optimal value in the possibilities