Mensajes

Pues eso, ahora estoy afanado con mas potencia mientras preparo un pc nuevo y tengo este i3 Viejito y queria experimentar con el ,se puede hacer overclocked  sin reventar nada jejej

saludos
Luis

Gracias Songoku

Ya lo he bajado ,antes tenia la versión antigua Pero lo he perdido en un formateo 
ahora con este tardare mil años en aprender como funciona jejejej

Luis

Hola

Que programa para crear o mesclar audios tipo Dj hay ahora ? y ya sabéis de los facilitos de usar jejje no pienso vender CD es para crear pistas de audio para mis loco vídeos

gracias
Luis

Hay una forma mas facil

ruta: windws/system32/driver/etc


Habres el archivo hosts

y le pones tal como ves esto ya esta blokeada

127.0.0.1       208.67.222.222

saludos
Luis

lo que me muestra el lisbtox es esto: salen muchos registros (8747)  pero si te fijas en la muestra ,el ultimo si cumple la condición de números diferentes ,no debe tener números repetidos en cada registro

01.04.05.04.04.05
01.04.05.04.04.08
01.04.05.04.04.33

08.98.45.33.44.05 <------tiene que tener números diferentes como este registro

gracias por tu atencion
Luis

[Format1]

"Format1" que formato le estas dando al String? .

Fue la solución que me dio el visual ya que antes usaba

Código (vbnet) [Seleccionar] Expandir

String.Format("{0:00}, {1:00}, {2:00}

pero me daba error ??

saludos

Trabajando con este código de combinaciones o permutas ?? quiero eliminar los registros que dupliquen los números o que tengan los mismos números en diferente orden dejando solo uno de ellos ya que me repite muchos registros donde tienen los mismos numeros:
ejemplo

Código (vbnet) [Seleccionar] Expandir

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        Dim Elementos As IEnumerable(Of Integer) = {1, 4, 5, 8, 33, 44, 45, 68, 98}
        Dim EleX As Integer = 0
        Dim EleX1 As Integer = 0
        Dim EleX2 As Integer = 0
        Dim EleX3 As Integer = 0
        Dim EleX4 As Integer = 0
        ListBox4.Items.Clear() 'Limpia el ListBox
        For I1 As Integer = 0 To Elementos.Count - 1 : EleX += 1
            For I2 As Integer = EleX To Elementos.Count - 1
                For I3 As Integer = EleX To Elementos.Count - 2
                    For I4 As Integer = EleX To Elementos.Count - 3
                        For I5 As Integer = EleX To Elementos.Count - 4
                            For I6 As Integer = EleX To Elementos.Count - 5
                                If Elementos(I2) <> Elementos(I3) And Elementos(I3) <> Elementos(I2) < Elementos(I4) < Elementos(I5) Then
                                    ListBox4.Items.Add(String.Format(Format1, Elementos(I1), Elementos(I2), Elementos(I3), Elementos(I4), Elementos(I5), Elementos(I6)))
                                End If

                            Next
                        Next
                    Next
                Next
            Next
        Next
        MessageBox.Show("Combinaciones: " & ListBox4.Items.Count)
    End Sub


estoy tratando de implentarle esta funcion pero no me sale

Código (vbnet) [Seleccionar] Expandir

'//QUITAR ELEMENTOS REPETIDOS --------------------funciona bien con otra funcione con esta me da error
        Dim nuevaLista As New List(Of Integer)
        For Each elemento In ListBox4.Items
            nuevaLista.Add(elemento)
        Next

        nuevaLista = nuevaLista.Distinct.ToList() 'elimina repetidos
        nuevaLista.Sort() 'Ordena la lista
        ListBox4.Items.Clear() 'limpia el listbox (no funciona con DataSource)
        'ListBox4.DataSource= Nothing 'usar solo si es se usó datasource para llenar el listbox
        For Each Elemento As String In nuevaLista
            ListBox4.Items.Add(Elemento)
        Next


saludos
Luis

Una de las soluciones es cerrar a cal y canto las ciudades y mas donde no haya contagios ,cerrar Madrid y las grandes ciudades donde haya mayor contagio ,son soluciones drásticas pero hay mucho irresponsables que por escapar de Madrid han llevado la muerte a los pueblos donde generalmente vive gente mayor y la de mayor riesgo.

QUEDATE EN TU CASA

Luis

Gracias hijo ya lo tengo 

lo malo es que se me acabo el tiempò jejje tengo que ir a currar a Segovia lo probare este finde y a practicar 

saludos
Luis y de nuevo gracias

Perfecto Aincrad muchas gracias funciona como queria jeje

saludos
Luis

Lo subi a Github :

https://github.com/DestroyerDarkNess/ProgressBar-Example

----------------------------------------------

El link q te puse primero sirve normalmente , no se por q te dio error.

Gracias hijo ya lo tengo 

lo malo es que se me acabo el tiempò jejje tengo que ir a currar a Segovia lo probare este finde y a practicar 

saludos
Luis y de nuevo gracias