A mi si me gustan jejej aver quien consigue historias de estas sean propias o ajenas

saludos
Luis

Bueno chicos os pongo el cuento corto

Hace par de semanas me robaron lo que pudieron unos mil pavos en criptos el face a mi web la bloquearon, podía entrar pero no tenia permisos de administrador y pusieron publicidad del Carrefour y en el face también, ya la pagina la recupere y casi todo lo demás. ahora quiero vengarme jejej tengo muchos datos , creo que habrá sido un niñato ya que dejo demasiadas pistas. y como estoy algo quemado (63 años no pasan en vano ) necesito consejos que debo de hacer .
Ojo solo pido consejos de que debo hacer ? ya me he creado algunos programas propios que dejare en este mismo hilo si les interesa son muy basicos pero me dan muchas pistas y lo que quiero saber es como lo hicieron ?

saludos a todos y espero que mi amigo elektro me recuerde

luis

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