Mensajes

Puedes revisar 4 puntos (para determinar si es el circulo o el cuadrado) es decir donde NO existe puntos identicos (escribas del cuadrado)... tambien tomar una screenshot y pasarlo a formato BMP y hay revisar la imagen completamente, manejando un rango de error.

Dulces Lunas!¡.

ya que me estoy desvelando lo hize... como ven uso el metodo Recursivo para implementar el BackTracking.

* me falta optimizar algunos aspectos... no les dire donde para que no me roben xP.

Código (Vb) [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()
Dim bSudoku(8, 8)   As Byte '   //  (nFilas, nColumnas)
    bSudoku(0, 0) = 5
    bSudoku(0, 1) = 3
    bSudoku(0, 4) = 7
   
    bSudoku(1, 0) = 6
    bSudoku(1, 3) = 1
    bSudoku(1, 4) = 9
    bSudoku(1, 5) = 5
   
    bSudoku(2, 1) = 9
    bSudoku(2, 2) = 6
    bSudoku(2, 7) = 1
   
    bSudoku(3, 0) = 8
    bSudoku(3, 4) = 6
    bSudoku(3, 8) = 3
   
    bSudoku(4, 0) = 4
    bSudoku(4, 3) = 8
    bSudoku(4, 5) = 3
    bSudoku(4, 8) = 1
   
    bSudoku(5, 0) = 7
    bSudoku(5, 4) = 2
    bSudoku(5, 8) = 6
   
    bSudoku(6, 1) = 6
    bSudoku(6, 6) = 2
    bSudoku(6, 7) = 8
   
    bSudoku(7, 3) = 4
    bSudoku(7, 4) = 1
    bSudoku(7, 5) = 9
    bSudoku(7, 8) = 5
   
    bSudoku(8, 4) = 8
    bSudoku(8, 7) = 7
    bSudoku(8, 8) = 9
   
    Debug.Print "Inicial"
    showSudoku bSudoku
   
    MsgBox solveSudoku(bSudoku, 0, 0)  '   //  Por BackTracking
   
    Debug.Print "Resuelto"
    showSudoku bSudoku
   
End Sub

Public Sub showSudoku(ByRef bArray() As Byte)
Dim i As Integer
Dim j As Integer
    For i = 0 To UBound(bArray, 1)
        For j = 0 To UBound(bArray, 2)
            Debug.Print bArray(i, j);
        Next
        Debug.Print
    Next
    Debug.Print
    Debug.Print
End Sub

Public Function solveSudoku(ByRef bArray() As Byte, ByVal iRow As Long, ByVal iCol As Long) As Boolean
'   //  Me falta optimizar el proceso... Version 1.0.
Dim lVal        As Long
Dim i           As Long
    If (iRow >= 9) Then
        solveSudoku = True
        Exit Function
    End If
    Do While Not (bArray(iRow, iCol) = &H0)    '   //  Nos posicionamos en la 1ra celda de iRow vacia (con valor 0).
        iCol = (iCol + &H1)
        If (iCol = 9) Then
            iCol = &H0
            iRow = (iRow + &H1)
            If (iRow >= &H9) Then
                solveSudoku = True
                Exit Function
            End If
        End If
    Loop
    For lVal = 1 To 9                           '   //  Buscamos un valor valido para la celda...
        For i = 0 To 8                          '   //  Verificamos cada celda de la columna iCol.
            If (bArray(i, iCol) = lVal) Then
                i = (-1)
                Exit For
            End If
        Next
        If Not (i = (-1)) Then
            For i = 0 To 8                      '   //  Verificamos cada celda de la Fila iRow.
                If (bArray(iRow, i) = lVal) Then
                    i = (-1)
                    Exit For
                End If
            Next
            If Not (i = (-1)) Then
                bArray(iRow, iCol) = lVal       '   //  Seteamos su valor.
                If (iCol < 8) Then              '   //  Avazamos a la siguiente celda a resolver.
                    solveSudoku = solveSudoku(bArray, iRow, iCol + 1)
                    If Not solveSudoku Then
                        bArray(iRow, iCol) = 0  '   //  Error entonces volvemos atras.
                    End If
                Else
                    solveSudoku = solveSudoku(bArray, iRow + 1, 0)
                    If Not solveSudoku(bArray, iRow + 1, 0) Then
                        bArray(iRow, iCol) = 0  '   //  Error entonces volvemos atras.
                    End If
                End If
            End If
        End If
    Next
       
End Function



output:

Código [Seleccionar] Expandir



Inicial
5  3  0  0  7  0  0  0  0
6  0  0  1  9  5  0  0  0
0  9  6  0  0  0  0  1  0
8  0  0  0  6  0  0  0  3
4  0  0  8  0  3  0  0  1
7  0  0  0  2  0  0  0  6
0  6  0  0  0  0  2  8  0
0  0  0  4  1  9  0  0  5
0  0  0  0  8  0  0  7  9


Resuelto
5  3  1  2  7  6  4  9  8
6  2  4  1  9  5  8  3  7
3  9  6  5  4  8  7  1  2
8  5  2  9  6  7  1  4  3
4  7  9  8  5  3  6  2  1
7  1  8  3  2  4  9  5  6
9  6  5  7  3  1  2  8  4
2  8  7  4  1  9  3  6  5
1  4  3  6  8  2  5  7  9



Temibles Lunas!¡.

@Karcrack

Me parece obvio que si.

Por mi parte tomando esto ultimo que dijo karcrack me parece que el prototipo deberia retornar un dato booleano... o algo que nos indique que el proceso se a completado correctamente ya que puedo meter numeros es las coordenadas respectivas sin respetar las reglas del sudoku.

Edito...
P.D.: Psyke1 desde cuando te tengo en el FaceBook!¡... hace mucho que no entro y apenas me di cuenta xD. madre me acabo de dar cuenta que tambien tengo a Raul338 O.o, yo ni me entero xP.

Dulces Lunas!¡.

[BackTracking]

@Tenient101

Desgraciadamente si...

Por otro lado se me ocurre usar el metodo BackTracking para esto ya que trae de por medio incertidumbre este reto.

Dulces Lunas!¡.

[el navegador usara proxy]

Se que el tema es antiguo pero no le veo solución.... Yo estoy creando un proxy ahora y tambien tengo alguno q otro problemilla jejejej pero no entiendo que quieres hacer tu, si hacer que tu programa funcione como proxy o que use los proxis de otros. Las conexiones mediante proxy se hacen iguales que las de http con cabeceras semejantes. Solo que: El navegador o algun programa que quiera acceder a internet pasará primero por el Proxy y éste hará la peticion al host para que devuelva el resultado de la peticion al proxy y éste devuelva ese resultado a la aplicación.

Repito, tengo información para ayudar aunq no me queda claro lo que deceas hacer.

Por el Contexto de todo el tema te daras cuenta...

La siguiente, como podría hacer, que el navegador usara proxy, es decir. Yo me encargo de recojer una lista de proxy's que funcionan perfectamente. Y con los datos, como puedo hacer, para que funcione bajo proxy, el simple navegador vb6.

Es decir esta usando el webbroser de Iexplorer muy seguro, solo quiere configurar dicho navegador para que use un proxy X que el indique, mas no crearse su servidor proxy

Dulces Lunas!¡.

Ademas de lo que dijo Seba123Neo, si el motor principal esta basado en DirectX u OpenGL, tendras que INYECTAR en el proceso e intersectar el proceso que respecta a la manipulacion del mouse... tendras que usar Olly para tal cosa...
solo para saber donde y como hacerlo.

Dulces Lunas!¡.

Ing en Sistemas Computacionales.

Me gusta mucho la MATEMATICA (y lo que se desprenda de ella) es mi 1er vicio antes que la programación!¡.

Dulces Lunas!¡.

.
ya lo resolvi es una cosa muy boba xD.

Dulces Lunas1¡.

[nAB]

.
Que significa la ⁿAB   se que AB es la dirreccion de un vector es decir que va desde A hasta B pero no se que demonios significa esa ⁿ.

Dicha ⁿ aparece en la formula para saber el area de un triangulo respecto a vertices (Es una variante para hayar el area).


Esta duda la pongo por que mi profesora se a equivocado tremendamente en un ejercicio y bueno para exponerselo nesesito saber que es esa maldita ⁿ.

Es decir se que puedo hayar la distancia entre dos punto y asi aplicar la formula de:

AreaTriangulo = Lado1 * Lado2 * Sin ( Sec ( (A * B) / (||A|| * ||B||) ) )

y se que todo esto es equitativo y debe de dar el mismo resultado como es logico.

Dulces Lunas!¡.

Y ademas me gustaria "enterarme" de quien esta usando el programa sin
haber pagado. (Esto lo he hecho haciendo que el programa me envie un codigo cada vez que lo usen).

Casi casi espionaje... te lo terminaran crackeando o sacando una version Free, ademas de que para algo simple nesesitaran usar un servido de internet... cuando no lo nesesita realmente para su labor...

Mejor opta por otros medios por que este va a terminar por ser un producto Muy caro a largo plazo.

Dulces Lunas!¡.