Mensajes

Alguien que me diga la parte del codigo mio que esta mal?

Como? mi idea con ese bucle es que genere numeros hasta que nombre(esenumero) no contenga nada, asi le pone el valor del item i
O lo estoy haciendo mal? no te entendi bien, dime q puedo cambiar ahi.

Gracias por las molestia pero me sigue creando un bucle infinito y tengo que terminar la aplicacion.
Si pueden mirar mi codigo que esta bien entendible pienso y me dicen que hice mal, les agradezco

Cambian de nick

Es una boludez lo que no puedo hacer, el problema estara en como creo el random, ya que no se si sale el 0 y tambien me confundo con .net lo que pasa porque hacia mucho que no tocaba vb6 y digo esto porque talvez tengo problemas con los bucles con los valores posibles de i

Esto que dejo crea un bucle infinito dentro del do-loop while y la idea es que tome los items del listbox y los meta al azar en el array nombre()

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
Dim i As Integer
Dim j As Integer
Dim sigue As Boolean
Dim ran As Integer

ReDim Equipo(frmChampion.ListNombre.ListCount)
ReDim Nombre(frmChampion.ListNombre.ListCount)

Cant = frmChampion.ListNombre.ListCount

For i = 0 To UBound(Nombre)

    Do
         Randomize
         ran = Int(Rnd() * Cant + 1)

    Loop While Nombre(ran) <> vbNullString

    Nombre(ran) = frmChampion.ListNombre.List(i)

    For j = 0 To Cant
         If Nombre(j) = vbNullString Then
             sigue = True
         End If

    Next

    If sigue = False Then
        Exit For
    End If

Next

For j = 0 To UBound(Nombre)
    Debug.Print Nombre(j)
Next

End Sub


Viene con vb6, lo elijes en Componentes. Con eso te digo que si creas una aplicacion con winsock y el otro no tiene instalado vb6 entonces no le andara. Por eso existen otras alternativas de modulos para crear las conexiones como SocketMaster

Claro, a veces es detectado por los avs pero el archivo en si no, sino el programa con el que se uso, como un troyano por ejemplo.

Ok luego lo hare, pero ahora tengo un problema, el programa ya hace lo que pedi al principio como ven en el codigo pero ahora tengo un problema con el mismo boton cmdOK para dejarlo deshabilitado miren:

Código (vb) [Seleccionar] Expandir


Private Sub cmdOK_Click(Index As Integer)

Cant = Cant - 1

Equipo(Index) = txtTeam(Index) ' guardamos en un array el equipo
cmdOK(Index).Enabled = False ' deshabilitamos el boton que se presionó
'------------------------------------------------------------------

If Cant > 0 Then ' si Cant es mayor que 0

Me.Height = Me.Height + 400
cmdListo.Top = cmdListo.Top + 400

Load lbljugador(lbljugador.ubound + 1)
lbljugador(lbljugador.ubound).Visible = True
lbljugador(lbljugador.ubound).Caption = "Nombre A"
lbljugador(lbljugador.ubound).Height = lbljugador(0).Height
lbljugador(lbljugador.ubound).Width = lbljugador(0).Width
lbljugador(lbljugador.ubound).Top = lbljugador(lbljugador.ubound - 1).Top + 400

Load txtTeam(txtTeam.ubound + 1)
txtTeam(txtTeam.ubound).Visible = True
txtTeam(txtTeam.ubound).Text = "Team FC"
txtTeam(txtTeam.ubound).Height = txtTeam(0).Height
txtTeam(txtTeam.ubound).Width = txtTeam(0).Width
txtTeam(txtTeam.ubound).Top = txtTeam(txtTeam.ubound - 1).Top + 400

Load cmdOK(cmdOK.ubound + 1)
cmdOK(cmdOK.ubound).Visible = True
cmdOK(cmdOK.ubound).Caption = "OK"
cmdOK(cmdOK.ubound).Height = cmdOK(0).Height
cmdOK(cmdOK.ubound).Width = cmdOK(0).Width
cmdOK(cmdOK.ubound).Top = cmdOK(cmdOK.ubound - 1).Top + 400

Else

cmdListo.Enabled = True ' cuando cant es = 0 nos trae aca y habilitamos el boton

End If


End Sub

Estoy seguro que es porque uso el INDEX, pero ya intente con cmdOk.Ubound ya que se supone que se hara click en el cmdOK de abajo de todo siempre.

El problema es que me deshabilita el boton pero el anterior tambien, como si se creo algo Recursivo xD

Me quiero sacar la duda de como funciona los envios de archivos, el que quiera contestar, les dejo mis dudas:

1- Si estoy descargando una pelicula en el JDownloader y la interrumpo a la descarga manualmente, creo que lo que iba descargando se borra, pero eso lo hace el jdownloader en este caso no? o el mismo S.O ?
2- Si se interrumple la descarga por desconexion de internet, creo que puedo seguirla luego, y como funciona eso? Empieza a descargar desde 0 pero el mismo jdownloader verifica si ya existen los datos (en el fichero de la pelicula) que va intentando descargar y como ya existen lo saltea y por eso se continua la descarga en vez de empezarla otra vez (que demoraria lo mismo) no? O eso lo hace el S.O tambien?

3- Y lo de youtube o videos para ver online como funciona? Es como si me la estuviera descargando a la pelicula o que?

Gracias!

Yo siempre pregunto todo xD, siempre alguien te muestra una forma mas accesible de hacer las cosas, como ahora, que lo iba a hacer mucho mas largo y mira como me quedo, por si a alguien le interesa:

Código (vb) [Seleccionar] Expandir


Private Sub cmdOK_Click(Index As Integer)

Me.Height = Me.Height + 400
cmdListo.Top = cmdListo.Top + 400

Load lbljugador(lbljugador.UBound + 1)
lbljugador(lbljugador.UBound).Visible = True
lbljugador(lbljugador.UBound).Caption = "Nombre A"
lbljugador(lbljugador.UBound).Height = lbljugador(0).Height
lbljugador(lbljugador.UBound).Width = lbljugador(0).Width
lbljugador(lbljugador.UBound).Top = lbljugador(lbljugador.UBound - 1).Top + 400

Load txtTeam(txtTeam.UBound + 1)
txtTeam(txtTeam.UBound).Visible = True
txtTeam(txtTeam.UBound).Text = "Team FC"
txtTeam(txtTeam.UBound).Height = txtTeam(0).Height
txtTeam(txtTeam.UBound).Width = txtTeam(0).Width
txtTeam(txtTeam.UBound).Top = txtTeam(txtTeam.UBound - 1).Top + 400

Load cmdOK(cmdOK.UBound + 1)
cmdOK(cmdOK.UBound).Visible = True
cmdOK(cmdOK.UBound).Caption = "OK"
cmdOK(cmdOK.UBound).Height = cmdOK(0).Height
cmdOK(cmdOK.UBound).Width = cmdOK(0).Width
cmdOK(cmdOK.UBound).Top = cmdOK(cmdOK.UBound - 1).Top + 400


End Sub

Eso hara lo que pedi al principio del tema, y si alguien tiene una forma distinta de hacerlo, estaria bueno que lo aplique o que me mejore mi codigo