Hola
tengo esta función que está tan rápida que hasta a mi me aburre ,por donde tengo que buscar para poner una barra proges (nunca he usado una ) pero que ralentice la función para que parezca que hace mil cálculos  

'****************combinaciones FUNCIONA DE p**a MADRE 
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Dim input As Integer() = (Result1)
 
        Dim output As New List(Of Integer)
 
        For i As Integer = 0 To input.Length - 1
            For j As Integer = 0 To input.Length - 1
                If input(i) <> input(j) AndAlso input(i) < 5 Then
                    Dim result As Integer = (input(i) * 10 + input(j))
                    output.Add(result)
                End If
            Next j
        Next i
 
        Me.ListBox8.Items.AddRange(output.Cast(Of Object).Distinct().ToArray)
 
    End Sub

saludos
Luis

Hola a todos
alguien me puede orientar para conseguir un programa para convertir mp4 a otros formatos que no tenga limitaciones ni marcas de agua ?

saludos

Luis

Hola chicos aca os traigo otra de mis chapuzas de combinatorias :
introduzco ejemplo estos números " 1, 2 , 3 , 5 , 7 " necesito formar con estos números  el 12 , 13 , 15 , 17 ,21 ,23 , 25, 27 etc etc menos 51 osea todo lo que tenga el 5 adelante o el 7,

lo de la limitación de los números  tengo la idea con esta rutina :

Return If(Value < MAX, Value, Rand.Next(0, MAX))

Adonde tengo la pega es con este

'--combis para reparar nesecita un boton y un trxbox TRABAJANDO EN ELLO AHORA
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
 
        ' Dim intCol As IEnumerable(Of Integer) = {2, 3, 4, 7}
        Dim intCol As IEnumerable(Of Integer) = (Result1)  '<---aca convierto las variables que trae los numeros pueden ser del 1 al 9
        ' lo que nesecito es formar combinaciones pares y que no pase del numero 50 
 
        Dim pairsCol As IEnumerable(Of String) =
            From value1 As Integer In intCol
            From value2 As Integer In intCol
            Select String.Join(Environment.NewLine, (
                               From value3 As Integer In intCol
                               Where (value1 <> value2) AndAlso
                                     (value1 <> value3) AndAlso
                                     (value2 <> value3)
                               Select String.Format("{0:00}, {1:00}, {2:00}",
                                                    value1, value2, value3)))
 
 
 
        For Each pairs As String In pairsCol
 
 
            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries).Distinct().ToArray
                ' MsgBox(pairs.Count)
                ' MsgBox(line.Count)
 
                Me.ListBox3.Items.Add(line)
            Next line
 
        Next pairs
    End Sub

si alguno sabria como modificarlo me ayudaria mucho

saludos
Luis

Hola

bien tengo otra pregunta tonta ;( tengo una variable llamada  "Result " y quiero pasar estos datos a otra :    Public ListaDeNumeros As String = "1,2,3,4,5,7" ' ,no encuentro mis apuntes ,,perdi todo en el otro pc

Dim Rand As New Random
        ' Concateno, y...
        ' Elimino duplicados, y...
        ' Selecciono los números inferiores a MAX, y...
        ' Convierto los números mayores a MAX a números aleatorios entre 0 y MAX.
        Dim Result As IEnumerable(Of Integer) =
            (Result1.Concat(Result2).Concat(Result3).Concat(Result4).Concat(Result5)).
            Distinct.
            Select(Function(Value As Integer)
                       Return If(Value < MAX, Value, Rand.Next(0, MAX))
                   End Function)

quiero pasar los datos que trae " Result " a " Public ListaDeNumeros As String = "

saludos
Luis


mas simple no pudo se jeje

' Dim intCol As IEnumerable(Of Integer) = {2, 3, 4, 7}
        Dim intCol As IEnumerable(Of Integer) = (Result1)

Hola a todos

lo tenia pero no encuentro la rutina como se eliminan los numeros con  signos negativos en un listbox .

ejemplo :

         -1
         -3

uso este codigo que funciona bien para mostrar los resultados pero a veces salen numeros con negativo

 Dim Result As IEnumerable(Of Integer) =
            (Result1.Concat(Result2).Concat(Result3).Concat(Result4).Concat(Result5)).
            Distinct.
            Select(Function(Value As Integer)
                       Return If(Value < MAX, Value, Rand.Next(0, MAX))
                   End Function)
 
 
 
        ListBox7.Items.AddRange(Result.Cast(Of Object).ToArray)

saludos
Luis

Hola a Todos

Despues de algun tiempo he vuelto a este vicio de programar jeje pero ando muy quemado ;(

lo que quiero hacer es que a un número de dos dígitos tomar solo uno de ellos :

explico tengo unos texbox donde introdusco estos numeros:

ReadOnly Property Num1 As Int32
        Get
            Return CInt(TextBox1.Text)
        End Get
    End Property

se supone que de ahi va para la función que paso por estos números etc etc .lo que quiero es modificar que si pongo por ejemplo el numero 20 pueda solo tomar el de la derecha o sea el 0 o viceversa ,esto lo envio a una variable l:

Result1 = {Num1 + 1, Num1 + 3} _
                  .Distinct().ToArray ' Elimino duplicados

He probado en propiedades del texbox pero no es lo que quiero ,quiero es fracionar el numero sea al derecho o la isquierda


saludos
Luis

Hola a todos

Bien tengo dos baterías de 12 voltios ciclo profundo y quiero hacer un circuito que haga lo siguiente:

mientras una se descarga, la otra recibe carga, esto lo tengo controlado ya...
lo que necesito hacer es que cuando la bateria que esta descargando cuando llegue a 11.50 voltios se cambie o conmute por la batería cargada ,o sea que empieza a descargar y que cuando llegue a 11.50 voltios se vuelva a intercambiar con la otra ,este ciclo es interminable o hasta que una de las baterías se dañe . me gustaria ideas ya que no tengo la mínima pista de como hacerlo

saludos
Luis

Dicen que le hombre es animal de costumbres

por mas que busco este programa no lo encuentro ya que en https://www.microsoft.com/es-es/download/details.aspx?id=23691
hay un instalador  " Microsoft Visual Studio 2010 Service Pack 1 (instalador) " y necesita el pc estar conectado y donde tengo que instalarlo no hay conexiones a Internet alguien tiene este programa para poder instalarlo sin necesidad de Internet ,también he visto en el foro que habia un enlace para decargar una ISO pero ya el enlace no vale.

saludos
Luis

Hola chicos
bueno suelo estar por net jejej saludos a Elektro buen profe..medio programo ya que a veces npi de lo que hago.

Bien al tema quiero hacer un buscador que trabaje por mi aunque este durmiendo la idea basica es crear un programita que segun le ponga las meta palabras este busque en la red y si encuentra me envie a un email los datos. solo quiero una orientacion o por donde tengo que empezar .si es posible para hacerlo en visual net me defiendo bien con este lenguaje gracias a mi amigo elektro pero ni modo si es en otro método

saludos
Luis

Me gustaría saber que opinión tenéis sobre este personaje ? 

luis