Hola chicos espero se acuerden de mi jejej por problemas de trabajo he tenido que dejar hace algún tiempo la programación  y estoy bastante perdido,los que me conocen ya saben que programo por gusto y siempre pensando en lo imposible .(ganar la loteria ) por ejemplo y aca tengo un codigo que no logro hacerlo andar ,de verdad que he perdido facultades eso es lo malo de tener 62 años

Bien alguien puede decirme que le pasa a este código ?

Private Sub btnProcesar_Click(sender As Object, e As EventArgs) Handles btnProcesar.Click
    ' Lee los registros del archivo de texto
    Dim registros As List(Of String) = New List(Of String)(IO.File.ReadAllLines("ruta_del_archivo.txt"))
 
    ' Crea una variable para almacenar los resultados
    Dim resultados As String = ""
 
    ' Itera sobre los registros y procesa cada uno
    For Each registro As String In registros
        ' Separa los números del registro en un array
        Dim numeros() As String = registro.Split(" "c)
 
        ' Verifica que el último número no sea mayor que 49
        If Integer.Parse(numeros(5)) <= 49 Then
            ' Encuentra la constante entre los números
            Dim constante As Integer = Integer.Parse(numeros(1)) - Integer.Parse(numeros(0))
 
            ' Cuenta cada cuántos registros aparece esa constante
            Dim contador As Integer = 1
            For i As Integer = 2 To numeros.Length - 1 Step 1
                If Integer.Parse(numeros(i)) - Integer.Parse(numeros(i - 1)) = constante Then
                    contador += 1
                Else
                    Exit For
                End If
            Next
 
            ' Agrega los resultados al string de resultados
            resultados &= "Constante: " & constante.ToString() & ", se repite cada " & contador.ToString() & " registros" & Environment.NewLine
        End If
    Next
 
    ' Muestra los resultados en el TextBox
    txtResultados.Text = resultados
End Sub

saludos
Luis

Hola chicos a ver quien puede echarme una mano ?

Tengo un motor Bedini que funciona con dos baterías, como ustedes saben mientras el motor funciona va descargando una de las baterías pero a su ves va cargando la otra (cosa inútil por cierto jejje) bien mi idea es hacer que cuando la batería A llegue a 12 voltios se intercambie automáticamente por la batería B y repita el ciclo ininterrumpidamente esto es para que el motor no se detenga por falta de energía ,

He buscado modulos de carga pero no encuentro lo que busco sera que exista este modulo
recuerdo que la entrada de carga es de 13.50 voltios

saludos
Luis

 Por motivos de perdida de pc . necesito si alguien tiene esta versión y me la pueda  ceder ya no encuentro la descarga por ningún lado

de antemano muchas gracias
Luis

Hola a Todos
Tengo algún tiempo sin programar y se me ha olvidado algunas cosas ya muchos me conocéis, como siempre he trabajado sobre la base de dos dígitos, ahora se me ocurre hacerlo con 6 0 8 números y que me haga las combinaciones del 01 al 49 y si claro es para loterías jejej .bien mi idea es la siguiente :

introduzco seis números  ejemplo  1, 4, 5, 7, 8, 9  y que con estos números se me formen resultados de 6 números :

14 15 17 18 19
41 45 47 48 49

como vemos la condición es que no se formen números mayores a 49

Encontre este codigo dentro de mis archivos pero creo es de excel y quiero convertirlo a Net

Sub Combinacion()
i = 1
For b1 = 1 To 61
    For b2 = b1 + 1 To 62
        For b3 = b2 + 1 To 63
            For b4 = b3 + 1 To 64
            Cells(i, 1) = b1
            Cells(i, 2) = b2
            Cells(i, 3) = b3
            Cells(i, 4) = b4
            Range("E1") = i
            i = i + 1
            Next
        Next
    Next
Next
End Sub

A ver quien le echa una mano a este VIEJO jejej y espero para este septiembre 14 me feliciten por mis 61 años 😨

Luis

hace años lei sobre un programa que pasaba a texto lo que habia en las fotos ,tengo un blog de cocina y trascribir las recetas es muy tedioso ,si alguien sabe de esto que me de una mano ,ya he buscado en la red pero na ,o no se buscar bien

saludos
Luis

Hola Dos cuestiones

primero:
cual seria la densidad perfecta de la palabra clave en una web ? tenia un programa para eso pero lo perdi y ni me acuerdo como se llama,(he retomado las webs ) y los que  ya saben de Seo que si te pasas de palabras Np caso Goggle jejje y si te quedas corto tampoco ,

segundo busco intercambiar enlaces cruzados tema  " Utensilios de cocina " gente seria y nada de granjas de enlaces

Saludos
Luis

Hola y espero que todos estén bien

Yo como toda España encuevado para frenar el Mega Bicho 

Y claro frente al pc ahora que puedo jejej

Bueno tengo este código que me combina sin error,ni duplicados etc etc, pero me da tres números y necesito aumentar los números de tres a cuatro ,cinco y sucesivamente con solo cambiar la condición ,no se implementar lo de los números  o si se debe hacer un " sele case " o en su defecto por código cada ves que quiera cambiar 


ahora me entrega los resultados de esta forma :

tengo estos números base  {2, 6, 10, 11, 17, 20, 24, 34}  ejecuto y me da :
(solo las 3 primeras)
02.06.10
02.06.11
02.06.20
02.06.24

bien necesito que me forme resultados pero de cuatro números cinco números etc etc donde por supuesto sean números únicos o resultados

Ejemplo:

Bien:
01.05.16.25
01.05.16.26
01.05.16.30

Mal:

01.05.16.16
01.05.05.26
01.01.16.30

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        Dim intCol As IEnumerable(Of Integer) = {2, 6, 10, 11, 17, 20, 24, 34}
        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) AndAlso
                                     (value3 > value2) AndAlso
                                     (value2 > value1)
                               Select String.Format("{0:00}, {1:00}, {2:00}",
                                                    value1, value2, value3)))
 
 
        Dim ClearRep As New List(Of String)
 
        For Each pairs As String In pairsCol
            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
                ListBox4.Items.Add(line)
            Next line
        Next pairs
 
        MessageBox.Show(ListBox1.Items.Count)
 
 
 
    End Sub

Saludos
LUIS
QUÉDATE EN CASA ENTRE TODOS PODREMOS














 

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

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

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

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

 '//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