Hola muy buenas tardes.

Les explico un poco mi problema, estudio en una escuela de informatica en la cual estoy dando Visual Basic 6.0 como lenguaje informatico, ahora bien estoy en el ultimo ejercicio antes del examen del mismo y llevo bastante tiempo liado con el pero no consigo terminarlo bien.

Basicamente el ejercicio te hace fabricar un boton que compruebe las columnas y las filas de los datos, para el cual pone que hay que utilizar el metodo de ordenamiento de la burbuja.

la verdad esque solo me falta el boton comprobar para acabar con el ejercicio y estoy desesperado pues me gustaria acabarlo ya.

si fueran tan amables de hecharme una mano con el lo agradeceria de veras.

os dejo el planteamiento del ejercicio:









Muchas Gracias De Antemano.

Utiliza la búsqueda (Search) del foro con la palabra Sudoku, porque me parece que es el mismo ejercicio que le pusieron a MFC el curso pasado.

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

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.

Archivos Adjuntos

	sudoku.rar (4,4 KB, 0 visitas)
	sudoku (exe)el del profesor.rar (9,4 KB, 0 visitas)

Hola,ese codigo necesita mejorarse,se puede resumir en mucho menos,crea matrices de controles y con 4 lineas de codigo les pones las propiedades a cada uno..

saludos.

__________________
Todos somos ignorantes;lo que pasa es que no todos ignoramos las mismas cosas - Albert Einstein

Gracias por tu respuesta, una pregunta sabes si podria sacar el codigo del ejecutable original que tiene hecho el profesor por lo menos para ver como queda XD por que esque llevo liao tiempo con esto y tengo que acabarlo ya y no se como meterle mano de verdad he leido de todo en el libro pero no acabo de pillarlo.

Gracias de nuevo un Cordial Saludo

Acabas de hacer, amigo santty89, la propuesta más controvertida en este foro. No admitimos ni un sólo paso en ese sentido.

La ingeniería inversa está considerada como ilegal, y por ende delictiva. Por ello es tabú para este foro. Además de considerarla una actividad que va en contra de nuestros propios derechos, puesto que si facilitásemos esa práctica, estaríamos tirando piedras a nuestro propio tejado, abriendo las puertas a que se actuase contra nuestras propiedades intelectuales...

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

Hola suponia que seria imposible y malo, solo era una pregunta de desesperacion a no conseguir acabar esto, llevo mucho tiempo liado con estoy y no doy con la tecla y el caso es que solo me falta el boton comprobar pero me esta dando mucha lata, le agradezco mucho su respuesta, terminando el boton comprobar que comprueba por filas, columnas y frames si hay numeros repetidos casillas vacias o esta correcto o erroneo terminaria el ejercicio y con ello visual basic pasaria a java pero al paso que voy no se cuando lo terminare.

Un Cordial Saludo y siento lo del mensaje anterior Muchas Gracias.

Hola,

Una pregunta para santyy89, ¿Te gusta programar?

Saludos

depende con que lenguaje este me tiene loco xD pero ya parece que va saliendo poco a poco.

un saludo.

No tiene nada que ver con el lenguaje sino de la base de programar... Es estudiar y usar la cabeza.

Saludos