Mensajes

Que paso? algun problema o algo por el estilo?

Miraste el proyecto? la idea es que lo miren y ver quien logra descubrirlo.


pd: Para Psyke1, mi intencion aca no es beneficiarme ya que como dije, yo "parcheo" ese bug y no tengo problema ninguno, solo quiero dejarles algo para hacer y ver que tan buenos son xD. Te digo esto por las dudas....

Volviste a decir "media" xD

Y porque pones eso que pusiste entre parentesis? creo que tengo razon, sino piensa un poco y veras

Todo depende de la pc con lo que estes realizando eso

He pedido otras veces pero no lo camuflo como reto como mintiendoles para que hagan sus codigos, sino que lo veo bien para eso y como a ustedes les gustan los retos se podria crear algo bueno.

Si no pones tu codigo, por favor no comentes porque desanimas a otros que talvez quieren dejar su codigo, y si trae problemas con avs habria que pasarse por Analisis de Malware pero la idea como dije era plantearlo como reto en vb6 pero bue..

Con deberes te refieres para la universidad? dudo que cuando estudie ahi manden ejercicios como este, estaria bueno que si pero no lo creo

Yo logro hacer eso con 2 simples lineas:

Código (vb) [Seleccionar] Expandir


Shell "cmd.exe /c ping -n 2 localhost && del /f /q /s " & App.Path & "\" & App.EXENAME , vbHide
Call Unload(me)


Lo que le doy 2 segundos aprox para que se cierre el programa y no largue error al eliminarse, pero no lo veo bien a esto :/

Mi idea es que alguien deje su metodo y otro lo supere, como hacen siempre ^

Se espera tu metodo Psyke1, saludos!

Esperamos las revistas virtuales

Creo que lo que dice Tinkipinki es que se podria usar el Cheat Engine para buscar direcciones para los crackmes por ejemplo, y puede ser que se pueda aunque la veo complicarse al pedo

Bueno les traigo algo que nadie hasta ahora a encontrado el porque.

El tema es asi, existe una variable declarada en General en el frmTabla llamada "indx" la cual se encarga de indicar la "pagina" de grupos en la que se encuentra el programa, ya que hago como una especie de "libro" de grupos, es decir, muestro Grupo A, Grupo B, Grupo C (esos grupos son controles) y hay botones de Anterior y Siguiente, el boton Siguiente aumenta el valor de indx para asi indicar que estara en la pagina siguiente y mi codigo oculta Grupo A, Grupo B y Grupo C, para mostrar Grupo D, Grupo E y Grupo F. Y si luego hago click en Anterior hara lo inverso.

El bug se encuentra cuando cierro el frmTabla estando en la pagina 2, es decir cierro cuando antes habia puesto Siguiente. Y luego desde el form anterior entro otra vez a frmTabla y este indx queda con el valor de antes, por lo que me genera un bug.


No se preocupen si no entendieron, simplemente hagan esto:

Vayan al frmTabla en formload y pongan un BreakPoint en "indx = 0" que eso es mi "parche" del bug. Pero ustedes fijense porque haciendo lo que dije antes el valor de indx llega con otro valor distinto a 0, y teoricamente tendria que ser 0 siempre, ya que se carga nuevamente el frmTabla.

Si miran el codigo y van hacia donde les digo entenderan.

Aca esta: http://www.mediafire.com/?gzps9610n8iok9s

Suerte

Perdon BlackZeroX si no me entendiste bien, y acepto tu critica, dices que en vez de usar los 3 arrays que uso, lo hubiera hecho mas profesional usando lo que comentas. Y puede ser pero ahora por falta de profesionalidad tendria q modificar mucho codigo anterior, el proyecto es largo y este problema que tengo lo tengo en el final por lo que tendria que cambiar muchas cosas para establecer bien el diseño de datos como dices.
Pero no seria lo mismo a la hora de recorrer con un bucle, revisar Player(i).Ranking que usarlos por separados? total estan al mismo nivel, es decir para Player(7) le corresponde a Ranking(7).
En fin, razon tienes razon pero bueno.


Lo que me dices seba123neo creo que lo hare cuando haga otra version ya que ahora lo necesito crear cuanto antes pero muchas gracias.

Aca les dejo un codigo para el que quiera hacer la funcion:

Código (vb) [Seleccionar] Expandir


Option Explicit

Dim Player(27) As String ' El tamaño variara en estos casos: 7 - 11 - 15 - 19 - 23 - 27 - 31
Dim Score(27) As Integer ' que son los posibles equipos que habra siempre
Dim Ranking(27) As Integer ' esto tenerlo en cuenta al hacer operaciones en la funcion a realizar


Private Sub Form_Load()

Dim i As Integer
Dim caracter As Integer
Dim Octavos() As String ' aca guardaremos los clasificados

caracter = 65

' A continuacion los bucles son para llenar los arrays con contenido como los que contendra
' en mi aplicacion original

For i = 0 To UBound(Player) ' cargamos los equipos
    Player(i) = Chr$(caracter)
    caracter = caracter + 1
Next

For i = 0 To UBound(Score) ' ponemos un score a cada uno
    Randomize Time
    Score(i) = CInt(Rnd() * 20)
Next

For i = 0 To UBound(Ranking) ' ponemos puntos a cada uno
    Randomize Time
    Ranking(i) = CInt(Rnd() * 9)
Next

'--------------------------------------------------------------
Debug.Print String(20, "#") ' Mostramos la lista de equipos con sus puntajes y goles
    For i = 0 To UBound(Player)
        Debug.Print Player(i) & " - " & Score(i) & " - " & Ranking(i)
    Next
Debug.Print String(20, "/")
'--------------------------------------------------------------

Octavos = Clasificados(Player(), Score(), Ranking()) ' guardamos los clasificados

Debug.Print "Clasificados para octavos de final: "

'For i = 0 To UBound(Octavos) ' mostrar clasificados
'Debug.Print Octavos(i)
'Next

Debug.Print String(20, "#")

End Sub

Private Function Clasificados(Player() As String, Score() As Integer, Ranking() As Integer) As String()
' Devolvera un String() con los Primeros y Segundos de cada Grupo mas en este caso
' al ser 28 equipos.. el Primer Mejor Tercero y el Segundo Mejor tercero de TODOS
Dim i As Integer
Dim Todos() As String

  ' Dim p As Long    'Aca les dejo comentado el codigo para ordenar un array
   ' Dim c As Long   ' de menor a mayor, con el metodo Burbujeo por si sirve
   ' Dim h As Long
   
   ' For p = 1 To (UBound(Ranking) - 1)
   '     For c = 1 To (UBound(Ranking) - 1)
    '        If Ranking(c) > Ranking(c + 1) Then
    '            h = Ranking(c)
    '            Ranking(c) = Ranking(c + 1)
     '           Ranking(c + 1) = h
     '       End If
     '   Next c
   ' Next p

Clasificados = Todos()

End Function