lo he modificado ahora se ejecuta sin errores pero sigue sin mostradme resultados ?

Imports System.IO
 
 
 
Public Class Form1
 
    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("C:\Users\34625\Desktop\bonoloto\1.txt"))
 
        ' Crea una variable para almacenar los resultados
        Dim resultado As String = ""
        Dim resultado2 As String = ""
 
        ' Define el valor máximo de la barra de progreso
        Dim valorMaximo As Integer = registros.Count
 
        ' Configura la barra de progreso
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = valorMaximo
        ProgressBar1.Value = 0
 
        ' Itera sobre los registros y procesa cada uno
        For Each registro As String In registros
            ' Verifica que la cadena tenga el formato adecuado
            If registro.Length >= 30 Then
                ' Separa los números del registro en un array
                Dim numeros() As String = registro.Substring(11, 14).Split(" "c)
 
                ' Verifica que haya seis números en el array
                If numeros.Length = 6 Then
                    ' Verifica que los números sean válidos
                    Dim numerosValidos As Boolean = True
                    For Each numero As String In numeros
                        If Not IsNumeric(numero) OrElse Integer.Parse(numero) < 1 OrElse Integer.Parse(numero) > 49 Then
                            numerosValidos = False
                            Exit For
                        End If
                    Next
 
                    If numerosValidos 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
                        resultado &= "Constante: " & constante.ToString() & ", se repite cada " & contador.ToString() & " registros" & Environment.NewLine
 
                        ' Cuenta cada cuántos registros aparece una constante par o impar
                        Dim contador2 As Integer = 0
                        For Each numero As String In numeros
                            If Integer.Parse(numero) Mod 2 = 0 And constante Mod 2 = 0 Then
                                contador2 += 1
                            ElseIf Integer.Parse(numero) Mod 2 <> 0 And constante Mod 2 <> 0 Then
                                contador2 += 1
                            End If
                        Next
 
                        ' Agrega los resultados al string de resultados 2
                        resultado2 &= "Constante: " & constante.ToString() & ", se repite cada " & contador2.ToString() & " registros" & Environment.NewLine
 
                    End If
                End If
            End If
 
            ' Actualiza el valor de la barra de progreso
            ProgressBar1.Value += 1
        Next
 
        ' Muestra los resultados en el TextBox
        TextBox1.Text = resultado
        TextBox2.Text = resultado2
 
 
    End Sub
 
End Class

vale que no me encuentre en el primer texbox ya que son pocos registros para la comparativa pero la otra funcion tampoco me muestra nada en el segundo texbox

saludos

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

Gracias por la respuesta ,bueno si hablamos de milamperios en cada cambio se podra alargar el funcionamiento de la maquina ,bueno son ideas lo que busco es un modulo que me haga eso ya vi tus recomendaciones pero no me entero ,se que se puede hacer con arduino pero busco algo mas simple como un módulo ya programado
salduos

No quiero me maten jejjeje el que consiga eso que se esconda ,el movimiento perpetuo realmente no existe si no en la naturaleza ,si se puede conseguir pero no es perpetuo ya que todo se rompe o se desgasta yo busco es mantener la maquina andando lo mas posible hasta que se rompa o la ley de Lens me la pare y quiero probar con un conmutador ya que el motor bedini se mantiene funcionando mientras tenga carga la batería que lo alimenta
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

Gracias Serapis

Se me ha complicado la semana y se suponía que hoy me iba a casa, todavía no he probado al 100 % el programa ya que ando con el portátil y es un poco lento ,se me ocurren varias cosas para poder filtrar los resultados (tengo muchos códigos de otros programas sobre lo mismo) ejemplo filtrar tres números iguales (quiero decir a los resultados) y , filtrar primeros tres numeros iguales resultados anteriores , filtrar resultados seguidos ( 1 2 3 4 5 6 ) ( 41 4 2 43 44 45 46 ) y mas cosas .la bonoloto ya tiene años jugando todos los días y ya hay una base de datos con los que se puede hacer varias pruebas .hay que simplemente buscar coincidencias matemáticas ya que esto es un negocio de algunos  y todo lo que use un ordenador o pase por un programa este hace lo que el programador dice jejjee .ya que hay resultados que son muy " extraños " yo que te lo digo que tengo desde los dos años (esa es otra historia ) tocando las loterías .

Hablamos

Luis

 

Perfecto Serapis funciona de maravilla te has brillado con este programa, aunque claro es inasumible apostar tal cantidad de apuestas ,he echo algunas apuestas "Virtuales " y si las hubiéramos jugados ya seriamos millonarios    pero no es motivo de desesperanza ya que es cuestión de aplicar variados filtros, algo de estadística y otros métodos personales  (aunque esta comprobado que las estadísticas para las loterías no sirven, porque será ??? )

Bien ahora es cuestión de hacer un menú ,guardar apuestas generadas por ejemplo para poder comparar resultados y aciertos con el sorteo (para no hacerlo a mano para eso esta la programación jejje) quien habrá dicho eso  algunos filtros de reducción de apuestas etc ete.

Bueno a pesar de que todavía ando con los efectos de la vacuna (me callo fatal esa *****) ya creo que no muero y pienso que este programa vale la pena hacerlo muy completo y puede ser un buen programa y muy eficaz solo es cuestión de ideas y de cálculos .

Para el dia de hoy este post lo han visto 4,360 veces me imagino que hay expectativas sobre el desarrollo del programa jejje solo que no veo aportes e ideas.

Bueno seguiré probándolo y vemos que tal

De nuevo Gracias Serapis

ya te contare

Luis







 

Hola Serapis

Bueno pase mala noche ya que me dio fiebre esta vacuna y ahora tengo un super catarro me he puesto un rato con el programa pero no me aclaro que es lo que tengo que hacer o poner para armarlo pensé me seria fácil jeje .me lo llevo al trabajo a ver si por la noche lo puedo terminar

saludos
Luis

Gracias y para esta Hora todavía sigo vivo 😃 ya veremos mañana
saludos
Luis

Gracias Serapis

Como te comentado trabajo fuera toda las semana y para mas hoy me han vacunado contra el covid y me tiene un poco nervioso jejej me vacunaron con la estraneca o astranaca o como se llame  🤣 esperare hasta mañana para probar tus códigos (aunque no he trabajado con las clases aparte , pienso que no será difícil ,recuerda que solo soy aficionado pero me afano ya que me encanta la programación  y de simple como es el titulo del post ( Ejercicio básico de combinaciones )  esto ya es un bicho grande pero yo encantado ya que he visto mas posibilidades de mejorar los cálculos para encima otros sistemas de loterías pero ese es otro tema (para depues jejej)

te aviso
Luis