SUDOKU CASI TERMINADO PERO ME QUEDAN UNOS PEQUEÑOS RETOQUES - VB-MUNDO

mfc · #1 (**permalink**) 16-02-2007, 17:05:19

Pues cada vez veo el sudoku mas terminado pero necesito vuestra ultima ayuda antes del lunes si puede ser, se trata de un sudoku 9x9 y cuando pulses el boton salga directamente aleatorio sudokus completos el problema que tengo ahora es que tengo el sudoku casi terminado pero el problema es que quiero quitar el combox para que cuando pulse el boton nuevo sudoku cambie automaticamente los numeros sin tener que usar al combox de nivel de dificultat y el segundo problema es como hacer para que salgan los sudokus completos sin tener que pulsar el boton "solucionar" aqui os dejo mi sudoku casi acabado solo me faltan estos retoques queria si alguien lo sabe y me lo puede mirar si me puede explicar y enseñar como solucionar este problemas y gracias de nuevo a todos los de este foro que me han estado ayudando hasta ahora.

Aqui debajo os dejo mi sudoku casi terminado.

malm82 · #2 (**permalink**) 16-02-2007, 19:59:36

hola disuclpa que no te ayude pero lo que estas haciendo no se vale porque ese codigo te lo pase tal cual lo estas poniendo aqui y el unico cambio fue en vez de botones pusiste cajas de texto, invistiga un pokito mas nos eas tan perezoso
lo q estas pidiendo es cosa sencilla investiga piensa un pokito no kieras que todo lo solucionemos

J.M.Movilla · #3 (**permalink**) 16-02-2007, 20:17:49

Sin entrar a juzgar sobre si tiene razón uno u otro, quiero dejar bien claro el punto de vista de VB-MUNDO, que venimos proclamando constantemente:

RESPETEMOS EL DERECHO A LA PROPIEDAD INTELECTUAL DE LOS DEMÁS PARA TRATAR DE CONSEGUIR QUE LOS DEMÁS RESPETEN NUESTROS DERECHOS. INCLUSO EN EL CASO DE QUE NO SE HAYAN TOMADO MEDIDAS DE REGISTRO OFICIAL DE TALES DERECHOS.

mfc · #4 (**permalink**) 16-02-2007, 21:09:25

Claro que pido perdon a todos especialmente a malm82 que es el que me dio el codigo de un ejemplo,ya se que esta mal hecho esto de cojer un codigo de alguien y modificarlo pero como vi que el sudoku no avanzaba mucho pues mire de provar con el ejemplo que me dio malm85 y le hice algunos cambios y vuelvo a pedir perdon a todos.

malm82 · #5 (**permalink**) 16-02-2007, 22:32:50

no hay problema por mi parte, todo quedo en el pasado
con respecto a tu duda de quitar le combo de dificultad solo debes de cambiar "spnDifficulty" por el numero de dificultad que quieras:

Código:

For i = 1 To 81
            SudokuSolution(i) = Sudoku(i).Caption
            numRand = Rnd(CInt(spnDifficulty.Text) + 1) + 1  'aqui es donde debes de cambiar
            If numRand > 1 Then
                Sudoku(i).Caption = ""
                Sudoku(i).BackColor = Gris
                Sudoku(i).Enabled = True
            Else

y la otra duda lo puedes hacer
poniendo en una funcion lo que hace el click del boton solucion
y mandarlo a llamar despues de que termina de crear el sudoku

mfc · #6 (**permalink**) 16-02-2007, 23:03:19

malm82 gracias de nuevo pero de verdad gracias

mfc · #7 (**permalink**) 18-02-2007, 10:50:21

hola pues la funcion se tiene que hacer con el function no?

lo que he hecho esta bien hecho? para que cuando pulse el boton crear se junte el de la solucion y se vean los sudokus completos?

FUNTION cmdSolucion
RETURN cmdGenerar
END FUNCTION

angelescj · #8 (**permalink**) 18-02-2007, 12:01:10

¿Con el function? No doy crédito, sabes poco, muy poco de VB y de programación en general y pretendes hacer un Sudoku, hasta ahí... cada uno que se meta en sus propios berenjenales. Pero que prentedas que te lo den todo hecho y luego digas "aquí os dejo MI código para que me lo acabéis de retocar"... desde luego tienes muy poca vergüenza, y me da exactamente igual que cuentes con el beneplácito de malm82. Él se ha portado bien, mejor que bien diría yo, pero eres tú el que no ha sabido estar a la altura.
Ese no es el espíritu de este foro, aquí se aprende, se ayuda... pero no se hace el trabajo de otro. "No me des peces... enséñame a pescar"

:smt004

mfc · #9 (**permalink**) 18-02-2007, 12:51:44

Haver quiero decir yo no quiero que me deis todo hecho y la ultima pregunta que hos hago no os pido que me deis el codigo sino que si esta bien si voy en mal camido etc, ya se que soy muy malo pero malo en programacion y nuestro professor que nos hace recuperarar la assignatura de programacion nos pone para recuperar un sudoku que para los que tenemos que recuperar es una putada sin saber programacion y solo queria acabar ya con esto, y ya se que para vosotros me tendria que esforzar mas y no preguntar tanto pero cuando veo el codigo de la progarmacion ya no se por donde empezar ayer mismo vi que era function y ponia eso .

Identifica el comienzo de una definición de función definida por el usuario.

Sintaxis

FUNCTION NombreArchivo
Comandos
[RETURN [eExpresión]]
ENDFUNC

y lo intente hacer como lo entendi pero no se si voy en buen camino o en mal camino y no quiero que me lo deis hecho si no que yo al ver el codigo lo pueda entender.

angelescj · #10 (**permalink**) 18-02-2007, 13:08:10

Si fuese corporativista... Deja de echar tanto contra tu profesor y pon algo más de tu parte, porque que tengas que recuperar significa que te dan otra oportunidad, no que te lo tengan que poner más fácil

Bien, respecto a tu duda, en VB las funciones son de la siguiente forma:

Private/public Function nombreFuncion (lista parametros) As TipoDatoADevolver
'Codigo de la función
'Valor que devuelve
nombreFuncion=valor
End Function

La lista de parámetros puede no existir, pero aún así los paréntesis deben aparecer.

:smt004