Mostrar mensajes previos
Ordenar por
por Slek VIP
Holaa,
Hoy os traigo este rompecabezas, es parecido al que trae Windows Vista (no se si 7 también lo incluye) en el SideBar. Lo he hecho solo con los Números, con imágenes también se podría hacer, y no sería muy complicado, tal vez en la versión 2...
Está en beta por que creo, y solo creo, que algunas veces queda un poco imposible de hacer, no se muy bien a qué se debe. Intentaré codear otra función Scramble haciendo un número par de cambios, y siempre cambios colaterales, pero de momento, con esto va bien :D

Scrambled:
Imagen


Resuelto:
Imagen


[Enlace externo eliminado para invitados]
Pass: Slek

P.D: Cómanse la cabeza para intentar resolverlo, igual que yo me la he comido para codearlo >.<
Saludos!
github.com/Slek-Z
por m4rtyr Se conecta desde un manicomio
bueno creo que el chk funcion tuyo no es dynamico

Código: Seleccionar todo

Private Function Chk()
Dim i As Long, y As Long, c As Long
Dim flag As Boolean
flag = True
c = 1
For i = 0 To 3
    For y = 0 To 3
If i = 3 And y = 3 And Arr(i, y) = 0 And flag = True Then
MsgBox ("Conseguido!!")
End If
If Arr(y, i) <> c And i <> 3 And y <> 3 Then
MsgBox ("No es Correcto")
flag = False
End If
c = c + 1
Next y
Next i
End Function
nose si tengo error en el codigo :P
eso es mi primer codigo de VB,analyse el syntax y modo de escribir tenia problemas con el End If pero lo resolve con [Enlace externo eliminado para invitados] ... 80%29.aspx

se ve muy facil el VB me lo voy a aprender
saludos

Mostrar/Ocultar

por Slek VIP
m4rtyr escribió:bueno creo que el chk funcion tuyo no es dynamico

Código: Seleccionar todo

Private Function Chk()
Dim i As Long, y As Long, c As Long
Dim flag As Boolean
flag = True
c = 1
For i = 0 To 3
    For y = 0 To 3
If i = 3 And y = 3 And Arr(i, y) = 0 And flag = True Then
MsgBox ("Conseguido!!")
End If
If Arr(y, i) <> c And i <> 3 And y <> 3 Then
MsgBox ("No es Correcto")
flag = False
End If
c = c + 1
Next y
Next i
End Function
nose si tengo error en el codigo :P
eso es mi primer codigo de VB,analyse el syntax y modo de escribir tenia problemas con el End If pero lo resolve con [Enlace externo eliminado para invitados] ... 80%29.aspx

se ve muy facil el VB me lo voy a aprender
saludos
Joder macho, es verdad, así es mucho mejor. Te dejo la función retocada :D

Código: Seleccionar todo

Private Function Chk()
Dim x As Long, y As Long, c As Long

c = 1

For y = 0 To 3
    For x = 0 To 3
        If x = 3 And y = 3 Then Correcto
        If Not Arr(x, y) = c Then Exit Function
        c = c + 1
    Next x
Next y
End Function
Pasate por el hilo de Fuentes y Textos de programación, por que este source tiene mal la función Scramble >.<

Saludos!!
github.com/Slek-Z
Temas similares
Unicode vb6 crypter por 0day en Dudas y Preguntas
ajuda com vb6 por antony guedes en Dudas y Preguntas
Variantes de tema
Responder

Volver a “Nuestros Programas”