sudoku- vb

wenc · Posted: Sat Sep 09, 2006 3:05 pm Post subject: sudoku- vb

can anyone help me??
i don't know why my computer hang when i run this code~
it is visual basic program and is not completed..
i want to simply it...
can anyone help me please~~~~~?? >^<"
-------------------------------------------------------------
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim v1, v2, v3, v4, v5, v6, v7, v8, v9 As Integer
Dim v10, v11, v12, v13, v14, v15, v16, v17, v18 As Integer
Dim v19, v20, v21, v22, v23, v24, v25, v26, v27 As Integer
Dim v28, v29, v30, v31, v32, v33, v34, v35, v36 As Integer
Dim v37, v38, v39, v40, v41, v42, v43, v44, v45 As Integer
Dim v46, v47, v48, v49, v50, v51, v52, v53, v54 As Integer
Dim v55, v56, v57, v58, v59, v60, v61, v62, v63 As Integer
Dim v64, v65, v66, v67, v68, v69, v70, v71, v72 As Integer
Dim v73, v74, v75, v76, v77, v78, v79, v80, v81 As Integer

RichTextBox1.Text = v1
RichTextBox2.Text = v2
RichTextBox3.Text = v3
RichTextBox4.Text = v4
RichTextBox5.Text = v5
RichTextBox6.Text = v6
RichTextBox7.Text = v7
RichTextBox8.Text = v8
RichTextBox9.Text = v9
RichTextBox10.Text = v10
RichTextBox11.Text = v11
RichTextBox12.Text = v12
RichTextBox13.Text = v13
RichTextBox14.Text = v14
RichTextBox15.Text = v15
RichTextBox16.Text = v16
RichTextBox17.Text = v17
RichTextBox18.Text = v18
RichTextBox19.Text = v19
RichTextBox20.Text = v20
RichTextBox21.Text = v21
RichTextBox22.Text = v22
RichTextBox23.Text = v23
RichTextBox24.Text = v24
RichTextBox25.Text = v25
RichTextBox26.Text = v26
RichTextBox27.Text = v27
RichTextBox28.Text = v28
RichTextBox29.Text = v29
RichTextBox30.Text = v30
RichTextBox31.Text = v31
RichTextBox32.Text = v32
RichTextBox33.Text = v33
RichTextBox34.Text = v34
RichTextBox35.Text = v35
RichTextBox36.Text = v36
RichTextBox37.Text = v37
RichTextBox38.Text = v38
RichTextBox39.Text = v39
RichTextBox40.Text = v40
RichTextBox41.Text = v41
RichTextBox42.Text = v42
RichTextBox43.Text = v43
RichTextBox44.Text = v44
RichTextBox40.Text = v45
RichTextBox46.Text = v46
RichTextBox47.Text = v47
RichTextBox48.Text = v48
RichTextBox49.Text = v49
RichTextBox50.Text = v50
RichTextBox51.Text = v51
RichTextBox52.Text = v52
RichTextBox53.Text = v53
RichTextBox54.Text = v54
RichTextBox55.Text = v55
RichTextBox56.Text = v56
RichTextBox57.Text = v57
RichTextBox58.Text = v58
RichTextBox59.Text = v59
RichTextBox60.Text = v60
RichTextBox61.Text = v61
RichTextBox62.Text = v62
RichTextBox63.Text = v63
RichTextBox64.Text = v64
RichTextBox65.Text = v65
RichTextBox66.Text = v66
RichTextBox67.Text = v67
RichTextBox68.Text = v68
RichTextBox69.Text = v69
RichTextBox70.Text = v70
RichTextBox71.Text = v71
RichTextBox72.Text = v72
RichTextBox73.Text = v73
RichTextBox74.Text = v74
RichTextBox75.Text = v75
RichTextBox76.Text = v76
RichTextBox77.Text = v77
RichTextBox78.Text = v78
RichTextBox79.Text = v79
RichTextBox80.Text = v80
RichTextBox81.Text = v81

Do
Randomize()

v1 = CInt(Int((9 * Rnd()) + 1))
RichTextBox1.Text = v1

v2 = CInt(Int((9 * Rnd()) + 1))
RichTextBox2.Text = v2

v3 = CInt(Int((9 * Rnd()) + 1))
RichTextBox3.Text = v3

v4 = CInt(Int((9 * Rnd()) + 1))
RichTextBox4.Text = v4

v5 = CInt(Int((9 * Rnd()) + 1))
RichTextBox5.Text = v5

v6 = CInt(Int((9 * Rnd()) + 1))
RichTextBox6.Text = v6

v7 = CInt(Int((9 * Rnd()) + 1))
RichTextBox7.Text = v7

v8 = CInt(Int((9 * Rnd()) + 1))
RichTextBox8.Text = v8

v9 = CInt(Int((9 * Rnd()) + 1))
RichTextBox9.Text = v9

v10 = CInt(Int((9 * Rnd()) + 1))
RichTextBox10.Text = v10

v11 = CInt(Int((9 * Rnd()) + 1))
RichTextBox11.Text = v11

v12 = CInt(Int((9 * Rnd()) + 1))
RichTextBox12.Text = v12

v13 = CInt(Int((9 * Rnd()) + 1))
RichTextBox13.Text = v13

v14 = CInt(Int((9 * Rnd()) + 1))
RichTextBox14.Text = v14

v15 = CInt(Int((9 * Rnd()) + 1))
RichTextBox15.Text = v15

v16 = CInt(Int((9 * Rnd()) + 1))
RichTextBox16.Text = v16

v17 = CInt(Int((9 * Rnd()) + 1))
RichTextBox17.Text = v17

v18 = CInt(Int((9 * Rnd()) + 1))
RichTextBox18.Text = v18

v19 = CInt(Int((9 * Rnd()) + 1))
RichTextBox19.Text = v19

v20 = CInt(Int((9 * Rnd()) + 1))
RichTextBox20.Text = v20

v21 = CInt(Int((9 * Rnd()) + 1))
RichTextBox21.Text = v21

v22 = CInt(Int((9 * Rnd()) + 1))
RichTextBox22.Text = v22

v23 = CInt(Int((9 * Rnd()) + 1))
RichTextBox23.Text = v23

v24 = CInt(Int((9 * Rnd()) + 1))
RichTextBox24.Text = v24

v25 = CInt(Int((9 * Rnd()) + 1))
RichTextBox25.Text = v25

v26 = CInt(Int((9 * Rnd()) + 1))
RichTextBox26.Text = v26

v27 = CInt(Int((9 * Rnd()) + 1))
RichTextBox27.Text = v27

v28 = CInt(Int((9 * Rnd()) + 1))
RichTextBox28.Text = v28

v29 = CInt(Int((9 * Rnd()) + 1))
RichTextBox29.Text = v29

v30 = CInt(Int((9 * Rnd()) + 1))
RichTextBox30.Text = v30

v31 = CInt(Int((9 * Rnd()) + 1))
RichTextBox31.Text = v31

v32 = CInt(Int((9 * Rnd()) + 1))
RichTextBox32.Text = v32

v33 = CInt(Int((9 * Rnd()) + 1))
RichTextBox33.Text = v33

v34 = CInt(Int((9 * Rnd()) + 1))
RichTextBox34.Text = v34

v35 = CInt(Int((9 * Rnd()) + 1))
RichTextBox35.Text = v35

v36 = CInt(Int((9 * Rnd()) + 1))
RichTextBox36.Text = v36

v37 = CInt(Int((9 * Rnd()) + 1))
RichTextBox37.Text = v37

v38 = CInt(Int((9 * Rnd()) + 1))
RichTextBox38.Text = v38

v39 = CInt(Int((9 * Rnd()) + 1))
RichTextBox39.Text = v39

v40 = CInt(Int((9 * Rnd()) + 1))
RichTextBox40.Text = v40

v41 = CInt(Int((9 * Rnd()) + 1))
RichTextBox41.Text = v41

v42 = CInt(Int((9 * Rnd()) + 1))
RichTextBox42.Text = v42

v43 = CInt(Int((9 * Rnd()) + 1))
RichTextBox43.Text = v43

v44 = CInt(Int((9 * Rnd()) + 1))
RichTextBox44.Text = v44

v45 = CInt(Int((9 * Rnd()) + 1))
RichTextBox45.Text = v45

v46 = CInt(Int((9 * Rnd()) + 1))
RichTextBox46.Text = v46

v47 = CInt(Int((9 * Rnd()) + 1))
RichTextBox47.Text = v47

v48 = CInt(Int((9 * Rnd()) + 1))
RichTextBox48.Text = v48

v49 = CInt(Int((9 * Rnd()) + 1))
RichTextBox49.Text = v49

v50 = CInt(Int((9 * Rnd()) + 1))
RichTextBox50.Text = v50

v51 = CInt(Int((9 * Rnd()) + 1))
RichTextBox51.Text = v51

v52 = CInt(Int((9 * Rnd()) + 1))
RichTextBox52.Text = v52

v53 = CInt(Int((9 * Rnd()) + 1))
RichTextBox53.Text = v53

v54 = CInt(Int((9 * Rnd()) + 1))
RichTextBox54.Text = v54

v55 = CInt(Int((9 * Rnd()) + 1))
RichTextBox55.Text = v55

v56 = CInt(Int((9 * Rnd()) + 1))
RichTextBox56.Text = v56

v57 = CInt(Int((9 * Rnd()) + 1))
RichTextBox57.Text = v57

v58 = CInt(Int((9 * Rnd()) + 1))
RichTextBox58.Text = v58

v59 = CInt(Int((9 * Rnd()) + 1))
RichTextBox59.Text = v59

v60 = CInt(Int((9 * Rnd()) + 1))
RichTextBox60.Text = v60

v61 = CInt(Int((9 * Rnd()) + 1))
RichTextBox61.Text = v61

v62 = CInt(Int((9 * Rnd()) + 1))
RichTextBox62.Text = v62

v63 = CInt(Int((9 * Rnd()) + 1))
RichTextBox63.Text = v63

v64 = CInt(Int((9 * Rnd()) + 1))
RichTextBox64.Text = v64

v65 = CInt(Int((9 * Rnd()) + 1))
RichTextBox65.Text = v65

v66 = CInt(Int((9 * Rnd()) + 1))
RichTextBox66.Text = v66

v67 = CInt(Int((9 * Rnd()) + 1))
RichTextBox67.Text = v67

v68 = CInt(Int((9 * Rnd()) + 1))
RichTextBox68.Text = v68

v69 = CInt(Int((9 * Rnd()) + 1))
RichTextBox69.Text = v69

v70 = CInt(Int((9 * Rnd()) + 1))
RichTextBox70.Text = v70

v71 = CInt(Int((9 * Rnd()) + 1))
RichTextBox71.Text = v71

v72 = CInt(Int((9 * Rnd()) + 1))
RichTextBox72.Text = v72

v73 = CInt(Int((9 * Rnd()) + 1))
RichTextBox73.Text = v73

v74 = CInt(Int((9 * Rnd()) + 1))
RichTextBox74.Text = v74

v75 = CInt(Int((9 * Rnd()) + 1))
RichTextBox75.Text = v75

v76 = CInt(Int((9 * Rnd()) + 1))
RichTextBox76.Text = v76

v77 = CInt(Int((9 * Rnd()) + 1))
RichTextBox77.Text = v77

v78 = CInt(Int((9 * Rnd()) + 1))
RichTextBox78.Text = v78

v79 = CInt(Int((9 * Rnd()) + 1))
RichTextBox79.Text = v79

v80 = CInt(Int((9 * Rnd()) + 1))
RichTextBox80.Text = v80

v81 = CInt(Int((9 * Rnd()) + 1))
RichTextBox81.Text = v81

Loop Until v1 <> v2 And v1 <> v3 And v1 <> v4 And v1 <> v5 And v1 <> v6 And v1 <> v7 And v1 <> v8 And v1 <> v9 And v2 <> v3 And v2 <> v4 And v2 <> v5 And v2 <> v6 And v2 <> v7 And v2 <> v8 And v2 <> v9 And v3 <> v4 And v3 <> v5 And v3 <> v6 And v3 <> v7 And v3 <> v8 And v3 <> v9 And v4 <> v5 And v4 <> v6 And v4 <> v7 And v4 <> v8 And v4 <> v9 And v5 <> v6 And v5 <> v7 And v5 <> v8 And v5 <> v9 And v6 <> v7 And v6 <> v8 And v6 <> v9 And v7 <> v8 And v7 <> v9 And v8 <> v9 And v10 <> v11 And v10 <> v12 And v10 <> v13 And v10 <> v14 And v10 <> v15 And v10 <> v16 And v10 <> v17 And v10 <> v18 And v11 <> v12 And v11 <> v13 And v11 <> v14 And v11 <> v15 And v11 <> v16 And v11 <> v17 And v11 <> v18 And v12 <> v13 And v12 <> v14 And v12 <> v15 And v12 <> v16 And v12 <> v17 And v12 <> v18 And v13 <> v14 And v13 <> v15 And v13 <> v16 And v13 <> v17 And v13 <> v18 And v14 <> v15 And v14 <> v16 And v14 <> v17 And v14 <> v18 And v15 <> v16 And v15 <> v17 And v15 <> v18 And v16 <> v17 And v16 <> v18 And v17 <> v18 And v19 <> v20 And v19 <> v21 And v19 <> v22 And v19 <> v23 And v19 <> v24 And v19 <> v25 And v19 <> v26 And v19 <> v27 And v20 <> v21 And v20 <> v22 And v20 <> v23 And v20 <> v24 And v20 <> v25 And v20 <> v26 And v20 <> v27 And v21 <> v22 And v21 <> v23 And v21 <> v24 And v21 <> v25 And v21 <> v26 And v21 <> v27 And v22 <> v23 And v22 <> v24 And v22 <> v25 And v22 <> v26 And v22 <> v27 And v23 <> v24 And v23 <> v25 And v23 <> v26 And v23 <> v27 And v24 <> v25 And v24 <> v26 And v24 <> v27 And v25 <> v26 And v25 <> v27 And v26 <> v27 And v28 <> v29 And v28 <> v30 And v28 <> v31 And v28 <> v32 And v28 <> v33 And v28 <> v34 And v28 <> v35 And v28 <> v36 And v29 <> v30 And v29 <> v31 And v29 <> v32 And v29 <> v33 And v29 <> v34 And v29 <> v35 And v29 <> v36 And v30 <> v31 And v30 <> v32 And v30 <> v33 And v30 <> v34 And v30 <> v35 And v30 <> v36 And v31 <> v32 And v31 <> v33 And v31 <> v34 And v31 <> v35 And v31 <> v36 And v32 <> v33 And v32 <> v34 And v32 <> v35 And v32 <> v36 And v33 <> v34 And v33 <> v35 And v33 <> v36 And v34 <> v35 And v34 <> v36 And v35 <> v36 And v37 <> v38 And v37 <> v39 And v37 <> v40 And v37 <> v41 And v37 <> v42 And v37 <> v43 And v37 <> v44 And v37 <> v45 And v38 <> v39 And v38 <> v40 And v38 <> v41 And v38 <> v42 And v38 <> v43 And v38 <> v44 And v38 <> v45 And v39 <> v40 And v39 <> v41 And v39 <> v42 And v39 <> v43 And v39 <> v44 And v39 <> v45 And v40 <> v41 And v40 <> v42 And v40 <> v43 And v40 <> v44 And v40 <> v45 And v41 <> v42 And v41 <> v43 And v41 <> v44 And v41 <> v45 And v42 <> v43 And v42 <> v44 And v42 <> v45 And v43 <> v44 And v43 <> v45 And v44 <> v45 And v46 <> v47 And v46 <> v48 And v46 <> v49 And v46 <> v50 And v46 <> v51 And v46 <> v52 And v46 <> v53 And v46 <> v54 And v47 <> v48 And v47 <> v49 And v47 <> v50 And v47 <> v51 And v47 <> v52 And v47 <> v53 And v47 <> v54 And v48 <> v49 And v48 <> v50 And v48 <> v51 And v48 <> v52 And v48 <> v53 And v48 <> v54 And v49 <> v50 And v49 <> v51 And v49 <> v52 And v49 <> v53 And v49 <> v54 And v50 <> v51 And v50 <> v52 And v50 <> v53 And v50 <> v54 And v51 <> v52 And v51 <> v53 And v51 <> v54 And v52 <> v53 And v52 <> v54 And v53 <> v54 And v55 <> v56 And v55 <> v57 And v55 <> v58 And v55 <> v59 And v55 <> v60 And v55 <> v61 And v55 <> v62 And v55 <> v63 And v56 <> v57 And v56 <> v58 And v56 <> v59 And v56 <> v60 And v56 <> v61 And v56 <> v62 And v56 <> v63 And v57 <> v58 And v57 <> v59 And v57 <> v60 And v57 <> v61 And v57 <> v62 And v57 <> v63 And v58 <> v59 And v58 <> v60 And v58 <> v61 And v58 <> v62 And v58 <> v63 And v59 <> v60 And v59 <> v61 And v59 <> v62 And v59 <> v63 And v60 <> v61 And v60 <> v62 And v60 <> v63 And v61 <> v62 And v61 <> v63 And v62 <> v63 And v64 <> v65 And v64 <> v66 And v64 <> v67 And v64 <> v68 And v64 <> v69 And v64 <> v70 And v64 <> v71 And v64 <> v72 And v65 <> v66 And v65 <> v67 And v65 <> v68 And v65 <> v69 And v65 <> v70 And v65 <> v71 And v65 <> v72 And v66 <> v67 And v66 <> v68 And v66 <> v69 And v66 <> v70 And v66 <> v71 And v66 <> v72 And v67 <> v68 And v67 <> v69 And v67 <> v70 And v67 <> v71 And v67 <> v72 And v68 <> v69 And v68 <> v70 And v68 <> v71 And v68 <> v72 And v69 <> v70 And v69 <> v71 And v69 <> v72 And v70 <> v71 And v70 <> v72 And v71 <> v72 And v73 <> v74 And v73 <> v75 And v73 <> v76 And v73 <> v77 And v73 <> v78 And v73 <> v79 And v73 <> v80 And v73 <> v81 And v74 <> v75 And v74 <> v76 And v74 <> v77 And v74 <> v78 And v74 <> v79 And v74 <> v80 And v74 <> v81 And v75 <> v76 And v75 <> v77 And v75 <> v78 And v75 <> v79 And v75 <> v80 And v75 <> v81 And v76 <> v77 And v76 <> v78 And v76 <> v79 And v76 <> v80 And v76 <> v81 And v77 <> v78 And v77 <> v79 And v77 <> v80 And v77 <> v81 And v78 <> v79 And v78 <> v80 And v78 <> v81 And v79 <> v80 And v79 <> v81 And v80 <> v81
End Sub
End Class

Ruud · Site Admin

You should learn about arrays. They can be used to store repetitive data.

Your code loops because it only continues when you accidentally find a valid sudoku grid. out of 1.9E77 possible ways to enter digits between 1 and 9 in the grid, there are 0.6E22 valid Sudoku grids. so roughly 1 in 1E55 times, you will hit one. Just let your program run for a couple of centuries and it will find a valid grid.

There is a faster way. Test the validity of each digit right after you have generated it. Better is to start with a candidate workspace and randomly pick a candidate from the remaining workspace, then remove all candidates from the workspace that have become invalid as a result of that choice.

Ruud.
_________________
Meet me at sudocue.net