Visual Basic

'Save Settings Button
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Settings.SaveSet = TextBox3.Text
        Settings.SaveSet = TextBox4.Text
        Settings.SaveSet = TextBox5.Text
        Settings.SaveSet = TextBox6.Text
        Settings.SaveSet = TextBox7.Text
        Settings.SaveSet = TextBox8.Text
       
        Settings.Save()
    End Sub

'Load Setting Button
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox3.Text = Settings.SaveSet
        TextBox4.Text = Settings.SaveSet
        TextBox5.Text = Settings.SaveSet
        TextBox6.Text = Settings.SaveSet
        TextBox7.Text = Settings.SaveSet
        TextBox8.Text = Settings.SaveSet
    End Sub

Imports System.IO
Imports System.Math

Public Class Form1

    Structure rect
        Dim rec(,) As TextBox, val(,) As Byte, yy(,,) As Boolean
        Sub disp(ByVal a As Integer, ByVal b As Integer)
            Dim st As String = ""
            For i As Integer = 1 To 9
                If yy(a, b, i) Then st &= i.ToString

            Next
            rec(a, b).Text = st
        End Sub

        Sub comp(ByVal a As Integer, ByVal b As Integer)
            Dim i, j, cnt As Byte
            For i = 1 To 9
                If yy(a, b, i) Then
                    cnt = CByte(cnt + 1)
                    j = i

                End If
            Next
            If cnt = 1 Then val(a, b) = j
        End Sub
    End Structure

    Dim xx(3, 3) As rect, done As Boolean, diff As Byte


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles MyBase.Load
        Dim pt1, pt2 As Point, rec As Size
        rec.Width = 47 : rec.Height = 29
        pt1.X = 25 : pt1.Y = 25
        For r As Integer = 1 To 3
            For c As Integer = 1 To 3
                ReDim xx(r, c).rec(3, 3), xx(r, c).val(3, 3), xx(r, c).yy(3, 3, 9)
                pt2 = pt1
                For rr As Integer = 1 To 3
                    For cc As Integer = 1 To 3
                        Dim newtb As New TextBox : Me.Controls.Add(newtb)
                        newtb.Size = rec : newtb.Multiline = True
                        newtb.TextAlign = HorizontalAlignment.Center
                        newtb.Location = pt2 : pt2.X += 46
                        If c = 2 And (r = 1 Or r = 3) Or r = 2 And (c = 1 Or c = 3) _
                        Then newtb.BackColor = Color.LightGray
                        xx(r, c).rec(rr, cc) = newtb
                    Next
                    pt2.X = pt1.X : pt2.Y += 28
                Next
                pt1.X += 140

            Next
            pt1.X = 25 : pt1.Y += 86
        Next
    End Sub

    Private Sub LoadButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoadButton.Click
        Dim lin(8) As String, filRead As StreamReader, i, x, t, d As Integer
        Dim openFile As New OpenFileDialog()
        openFile.Filter = "txt.Files(*.txt)|*.txt"          openFile.InitialDirectory = "\C:\Fall09\numbrix\numbrix\TextFile1.txt"
        If openFile.ShowDialog() = DialogResult.OK Then
            MessageBox.Show(openFile.FileName)
        End If

        filRead = New StreamReader(openFile.FileName)
        diff = CByte(filRead.ReadLine())
       
        For r As Integer = 1 To 3
            For rr As Integer = 1 To 3
                lin = filRead.ReadLine.Split() : i = 0
                For c As Integer = 1 To 3
                    For rc As Integer = 1 To 3
                        If lin(i) <> "00" Then
                            x = Integer.Parse(lin(i))
                            If x > 0 Then xx(r, c).rec(rr, rc).ForeColor = Color.Red
                            x = Abs(x)
                            xx(r, c).rec(rr, rc).Text = x.ToString
                            For j As Integer = CInt(Int(Log10(x))) To 0 Step -1
                                If j = 0 Then xx(r, c).val(rr, rc) = CByte(x)
                                t = CInt(10 ^ j)
                                d = x \ t : x = x Mod t
                                xx(r, c).yy(rr, rc, d) = True
                            Next

                        End If
                        i += 1
                    Next
                Next
            Next
        Next

        filRead.Close()
    End Sub
End Class