Gracias Engel lex el problema es que estos programas creo son de prueba y tengo varios videos de mp4 que pesan mas de tres gigas y no me los convierten todo, estoy buscando alguno libre que si lo haga y en el reino de señor Google hay paginas pero con limitaciones a 100 megas y comprar una licencia por dos videos no me renta 

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  bueno como os comente en un post anterior trabajo fuera de casa y este portatil no da para mucho el codigo en java echo por Optimus_73 lo he tenido que pasar primero a c

using System.Collections.Generic;
 
let input = new List() {1, 2, 3, 5, 7};
let output = new Array();
 
for (let i = 0; i < input.length; i++)
{
 for (let j = 0; j < input.length; j++)
 {
  if (input[i] != input[j] && input[i] < 5)
  {
   output.push(input[i] * 10 + input[j]);
  }
 }
}
 
console.log(output); //[12, 13, 15, 17, 21, 23, 25, 27, 31, 32, 35, 37]

y despues a Visual net


pero con este portatil vamos muy mal ya que es LENTOOOO y no me deja trabajar bien

ya veremos cuando llegue el fin de semana   

Imports System.Collections.Generic
Dim input As let = new List()
Dim 2, 3, 5, 7 As 1,
 
Dim output As let = new Array()
For i As let = 0 To input.length-1
 For j As let = 0 To input.length-1
 If input(i) <> input(j) AndAlso  input(i) < 5 Then
  output.push(input[i] * 10 + input[j])
 
  End if
 
  Next
 
  Next
 
console.log(output) '[12, 13, 15, 17, 21, 23, 25, 27, 31, 32, 35, 37]

saludos
Luis

Gracias todo aporte vale ,lo convertiré y te cuento

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)

Gracias FJDA

No no quiero todo hecho, solo que de verdad suelo hacer las preguntas mal enfocadas ,y ademas ya tengo casi 60 años y me cuesta un poco más esto, ya que yo programo por vicio o hobby y si nombro a ELECTRO no es por nada especial,solo que el tuvo mucha paciencia conmigo 
y se que mis codigos son algo básicos,pero pregunto porque estoy seguro que alguien mas le servirán,supieras la de codigos que he cojido del foro y me han ayudado.

De verdad que muchas gracias por tu ayuda para este viejo 

Luis

Te agradezco tu aporte pero lo que busco es eliminar los que tengan signos negativo adelante ,se que tenia todas esas Rutinas gracias a Electro, pero he perdido todos esos códigos y estoy en cero 
 he recuperado parte de todo el codigo pero no encuentro este,

saludos
Luis

es que ya uso una función en el programa y solo necesito filtrar ese resultado cuando lo envió al listbox

los duplicados ya los elimino con este codigo pero siguen saliendo numeros con el - adelante ?

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ' Le pasa el Listbox a la función
        MsgBox(Eliminar(ListBox23), _
               MsgBoxStyle.Information, _
               "Elementos duplicados en el List ")
    End Sub
    Function Eliminar(ByVal LB As ListBox) As Int32
        Dim i As Int32
        Dim j As Int32
        Dim n As Int32
 
        ' Recorre los items ( copara empezando _
        'desde el primero , de abajo hacia arriba)
        For i = 0 To LB.Items.Count - 2
            For j = LB.Items.Count - 1 To i + 1 Step -1
                ' verifica si es el mismo
                If LB.Items(i).ToString = LB.Items(j).ToString Then
                    ' elimina el elemento indicando el índice
                    LB.Items.RemoveAt(j)
                    n += 1 'lleva la cuenta de los duplicados
                End If
            Next
        Next
        Return n ' retorna los eliminados
    End Function *

saludos
Luis

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