Muchisimas gracias voy a buscarlo pues.
Un saludo.
Edito--->
he buscado y he visto el post del compañero que mencionabas el problema es que yo utilizo el factor 1 to 9 y no 0 to 80, puesto que asi es como lo pedian en el ejercicio, de todas formas voy a poner mi codigo asta el momento para ke visualiceis:
Codigo:
Option Explicit
Dim miError As Integer
Dim winc As Integer
Dim winf As Integer
Dim enc As Integer
Dim numerror As Integer
Private Function compro(ByVal i As Integer) As Integer
Frame1.BackColor = QBColor(4)
MsgBox "Cuadricula 1 No Rellena"
Frame2.BackColor = QBColor(4)
MsgBox "Cuadricula 2 No Rellena"
Frame3.BackColor = QBColor(4)
MsgBox "Cuadricula 3 No Rellena"
Frame4.BackColor = QBColor(4)
MsgBox "Cuadricula 4 No Rellana"
Frame5.BackColor = QBColor(4)
MsgBox "Cuadricula 5 No Rellena"
Frame6.BackColor = QBColor(4)
MsgBox "Cuadricula 6 No Rellena"
Frame7.BackColor = QBColor(4)
MsgBox "Cuadricula 7 No Rellena"
Frame8.BackColor = QBColor(4)
MsgBox "Cuadricula 8 No Rellena"
Frame9.BackColor = QBColor(4)
MsgBox "Cuadricula 9 No Rellena"
End Function
Private Sub cmdComprobar_Click()
Dim num(1 To 9), n, k, reng, temp As Integer
num(1) = CInt(Text1(1).Text)
num(2) = CInt(Text1(2).Text)
num(3) = CInt(Text1(3).Text)
num(4) = CInt(Text1(4).Text)
num(5) = CInt(Text1(5).Text)
num(6) = CInt(Text1(6).Text)
num(7) = CInt(Text1(7).Text)
num(8) = CInt(Text1(8).Text)
num(9) = CInt(Text1(9).Text)
n = 9
For k = 1 To n - 1
reng = 1
Do While reng <= n - k
If num(reng) < num(reng + 1) Then
temp = num(reng)
num(reng) = num(reng + 1)
num(reng + 1) = temp
End If
reng = reng + 1
Loop
Next k
For x = 1 To 9
List1.AddItem (num(x))
Next x
End Sub
MsgBox "Casillas Vacias o Numeros Repetidos Verifique"
End Sub
Private Sub cmdReiniciar_Click()
Dim i As Integer
For i = 1 To 9
Next i
Text1(1) = ""
Text1(3) = ""
Text1(4) = ""
Text1(5) = ""
Text1(6) = ""
Text1(7) = ""
Text1(8) = ""
Text1(9) = ""
Text2(2) = ""
Text2(3) = ""
Text2(4) = ""
Text2(5) = ""
Text2(7) = ""
Text2(9) = ""
Text3(3) = ""
Text3(5) = ""
Text3(6) = ""
Text3(7) = ""
Text4(2) = ""
Text4(5) = ""
Text4(6) = ""
Text4(8) = ""
Text5(2) = ""
Text5(3) = ""
Text5(6) = ""
Text5(7) = ""
Text5(8) = ""
Text6(2) = ""
Text6(3) = ""
Text6(4) = ""
Text6(5) = ""
Text6(6) = ""
Text6(8) = ""
Text6(9) = ""
Text7(3) = ""
Text7(4) = ""
Text7(6) = ""
Text7(7) = ""
Text7(8) = ""
Text8(1) = ""
Text8(2) = ""
Text8(5) = ""
Text8(7) = ""
Text8(9) = ""
Text9(1) = ""
Text9(2) = ""
Text9(3) = ""
Text9(4) = ""
Text9(5) = ""
Text9(6) = ""
End Sub
Private Sub cmdSolucion_Click()
Text1(1) = 7
Text1(3) = 9
Text1(4) = 5
Text1(5) = 8
Text1(6) = 6
Text1(7) = 1
Text1(8) = 2
Text1(9) = 3
Text2(2) = 3
Text2(3) = 2
Text2(4) = 9
Text2(5) = 4
Text2(6) = 1
Text2(7) = 8
Text2(9) = 5
Text3(3) = 8
Text3(5) = 3
Text3(6) = 7
Text3(7) = 6
Text4(2) = 9
Text4(5) = 7
Text4(6) = 4
Text4(8) = 5
Text5(2) = 5
Text5(3) = 3
Text5(6) = 6
Text5(7) = 7
Text5(8) = 1
Text6(2) = 8
Text6(3) = 2
Text6(4) = 3
Text6(5) = 5
Text6(6) = 1
Text6(8) = 4
Text6(9) = 6
Text7(3) = 7
Text7(4) = 4
Text7(6) = 8
Text7(7) = 9
Text7(8) = 6
Text8(1) = 3
Text8(2) = 8
Text8(5) = 6
Text8(7) = 1
Text8(9) = 4
Text9(1) = 4
Text9(2) = 6
Text9(3) = 5
Text9(4) = 1
Text9(5) = 2
Text9(6) = 9
MsgBox "Final Del Sudoku, Reinicie Partida o Sal del juego"
End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57:
Case Else:
KeyAscii = 1
End Select
End Sub
Private Sub Text2_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57:
Case Else:
KeyAscii = 1
End Select
End Sub
Private Sub Text3_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57:
Case Else:
KeyAscii = 1
End Select
End Sub
Private Sub Text4_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57:
Case Else:
KeyAscii = 1
End Select
End Sub
Private Sub Text5_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57:
Case Else:
KeyAscii = 1
End Select
End Sub
Private Sub Text6_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57:
Case Else:
KeyAscii = 1
End Select
End Sub
Private Sub Text7_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57:
Case Else:
KeyAscii = 1
End Select
End Sub
Private Sub Text8_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57:
Case Else:
KeyAscii = 1
End Select
End Sub
Private Sub Text9_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57:
Case Else:
KeyAscii = 1
End Select
End Sub
Private Sub Form_Load()
Dim miarray(1 To 81) As String
Frame1.BackColor = &H8000000F
Frame2.BackColor = &H8000000F
Frame3.BackColor = &H8000000F
Frame4.BackColor = &H8000000F
Frame5.BackColor = &H8000000F
Frame6.BackColor = &H8000000F
Frame7.BackColor = &H8000000F
Frame8.BackColor = &H8000000F
Frame9.BackColor = &H8000000F
Text1(2) = 4
Text2(1) = 6
Text2(6) = 1
Text2(8) = 7
Text3(1) = 5
Text3(2) = 1
Text3(4) = 2
Text3(8) = 9
Text3(9) = 4
Text4(1) = 6
Text4(3) = 1
Text4(4) = 8
Text4(7) = 3
Text4(9) = 2
Text5(1) = 4
Text5(4) = 2
Text5(5) = 9
Text5(9) = 8
Text6(1) = 7
Text6(7) = 9
Text7(1) = 2
Text7(2) = 1
Text7(5) = 3
Text7(9) = 5
Text8(3) = 9
Text8(4) = 5
Text8(6) = 7
Text8(8) = 2
Text9(7) = 8
Text9(8) = 7
Text9(9) = 3
End Sub
Private Sub Salir_Click()
MsgBox "Gracias Por Jugar a SuDoKu GaMe"
End
End Sub
Gracias de nuevo
un saludo
Edito de nuevo --->
Voy a dejar tambien que lo he conseguido hoy el ejecutable del sudoku original hecho por el profesor, el cual me gustaria saber si se podria sacar el codigo de ese ejecutable y si fuera posible que me dijerais como.
Gracias un saludo espero sus respuestas.
