Temas

 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

Código (vbnet) [Seleccionar] Expandir

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

Código (vbnet) [Seleccionar] Expandir

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

Código (vbnet) [Seleccionar] Expandir

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

Código (vbnet) [Seleccionar] Expandir

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

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  

Código (vbnet) [Seleccionar] Expandir

'****************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 :

Código (vbnet) [Seleccionar] Expandir

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

Adonde tengo la pega es con este

Código (vbnet) [Seleccionar] Expandir

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

Código (vbnet) [Seleccionar] Expandir

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

Código (vbnet) [Seleccionar] Expandir

' 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

Código (vbnet) [Seleccionar] Expandir

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:

Código (vbnet) [Seleccionar] Expandir

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:

Código (vbnet) [Seleccionar] Expandir

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

No se si me estoy volviendo senil o que ?   pero creia que seria facil ,pero por mas que busco en el foro o en san google no doy con la respuesta   poner desde una variable a un listbox si se hacerlo pero al contrario no

Como C,, paso los registros de un listbox a una variable integer ?

los registros van de esta forma o se muestran en listbox de esta manera y son en cantidad que van desde 10 al infinito de combinaciones de ese estilo

01 02 03
02 05 08
04 08 09
01 22 25

necesito meterlos en una variable integer para poder después trabajar con ellos


Luis

Hola de nuevo

Bien sigo con mis rollos sobre combinatorias  me cuesta jejeje

Bueno tengo este codigo

Código (vbnet) [Seleccionar] Expandir

Dim Elementos As IEnumerable(Of Integer) = {1, 3, 4, 5, 8, 13, 34, 55, 84, 99}
        Dim EleX As Integer = 0
        Dim EleX2 As Integer = 0
        ListBox1.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 - 1
                    If Elementos(I2) <> Elementos(I3) And Elementos(I3) > Elementos(I2) Then
                        ListBox1.Items.Add(String.Format("{0:00}, {1:00}, {2:00}", Elementos(I1), Elementos(I2), Elementos(I3)))
                    End If

                Next
            Next
        Next
        MessageBox.Show("Combinaciones: " & ListBox1.Items.Count)


esto me entrega los siguientes resultados (pongo solo algunos ya que son 55)


01 03 04
01 03 05
01 03 08
01 03 13 ********* 03 y 13
01 04 34 *********04  y 34
03 05 08
03 05 13 *********03 y 13

lo que quiero es eliminar los que tengan la misma terminación ejemplo los que marco con asterisco llevan dos números donde son iguales la terminación.

Con linq: ya lo tengo Hecho pero necesito saber como hacerlo con este método

ejemplo en Liq: por si le sirve a alguien ( Funciona )

Código (vbnet) [Seleccionar] Expandir

Dim Bz986 As IEnumerable(Of Integer) =
(
From Value As Integer In split(12).Concat(split(15).Concat(split(16)))
Where (Value <= MAX AndAlso Value > 0)).Distinct

         Dim selectedValues11 As IEnumerable(Of Integer) =
          From value As Integer In Bz909
          Group By CStr(value).Last Into Group
         Select Group.First()
         Take(16())
        Dim Sl986 As IEnumerable(Of Integer) = Bz986
        Dim SM986 As List(Of Integer) = Bz986.Take(16).ToList
        SM986.Sort()


Luis

 Bien no soy tonto jejej como el la publi esa mala de los que venden pc de segunda categoria, los medios tontos creo que se llama  

Bueno no en serio .tengo un Pc windos 7, cuatro gigas de memoria rand y un tera de disco
esta casi full jejje mucha (porno) jejje no programación ,bueno el caso es que estoy currando de lo mas normal, face + face  ,  No en serio   usando mi visual 2010 y de pronto se sube a tope el gasto de memoria 98%  sin haber tocado mas nada ,solo programando, he notado que esto pasa cada cierto tiempo de estar a 35 % de memoria se dispara a casi el 100% de gasto de memoria y se queda a si durante algún tiempo y de golpe regresa a lo normal unos 35 a 45 de % de gasto de memoria,

Bien que he hecho antes que lo digan
entro al administrador de tareas veo lo que esta y todo Ok (ningún nombre estraño )

reinicio paso a F8 ya sabéis modo seguro y le paso una cantidad de antivirus y antiadwares conocidos, nada de nada solo algunos viejos conocidos troyanos (eliminados)

archivo host bloqueando una enorme base de datos de paginas spamer (el que lo quiera que me lo pida )

entro a msd miro la integridad de los archivos de sistema todo Ok

antivirus al dia ( claro el gratis de windos jejje )

regreso a windose normal desconecto la red ya el % de memoria a 45% espero un rato y otra ves a 98% y dentro de un rato a 45%


ALGUNA IDEA ????

No quiero darle el gusto de formatear  

Luis

Sigo con mis eternos rollos de los listbox   ,ya resuelto el problema de los iguales ahora tengo otra incógnita

si tengo un listbox con estos registros


1 2 3 *********correlativos
1 4 5
1 3 4
1 3 5
2 3 4*********correlativo
4 5 6 ********correlativo
6 7 8 ********correlativo

Y quiero eliminar los números correlativos como lo puedo hacer ya he visto 100 ejemplos de linq jejje pero solo son para bases de datos

luis

Tengo un listbox que tiene registros de esta forma

20, 24, 34
20, 24, 44
20, 24, 45
20, 34, 24
20, 34, 44
20, 45 ,24

necesito ordenarlos para saber cuantas lineas son iguales y haci poder eliminar duplicados explico:

si ordenamos los números de arriba estos quedarían así

ordenados vemos que se repiten
20, 24, 34
20, 24, 44
20, 24, 45****
20, 24, 34****
20, 34 ,45
20, 24, 45 ***

tengo este  código pero lo ordena de menor a mayor

Código (vbnet) [Seleccionar] Expandir

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
       ListBox1.Sorted = True
       ListBox1.Sorted = False
       Dim i As Integer
       Dim count = ListBox1.Items.Count
       For i = ListBox1.Items.Count - 1 To 0 Step -1
           ListBox1.Items.Add(ListBox1.Items(i))
       Next
       For i = 0 To count - 1
           ListBox1.Items.RemoveAt(ListBox1.SelectedItem)
       Next
   End Sub

alguna sugerencia o ejemplos que pueda conseguir

Luis

Esto no acaba nunca

Esto ya funciona pero me repite las combinaciones y necesito números o combinaciones únicas ya que  1, 2, 3 es lo mismo que  3, 2, 1 o  2, 1, 3... solo debe quedar uno de ellos
he probado con poner " .Distinct().ToArray " pero como siempre

Código (vbnet) [Seleccionar] Expandir

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim intCol As IEnumerable(Of Integer) = {20, 24, 34, 37}

       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.ListBox1.Items.Add(line)
           Next line

       Next pairs


   End Sub

salida

20, 24, 34***
20, 24, 37
20, 34, 24***
20, 34, 37
20, 37, 24
20, 37, 34****
24, 20, 34
24, 20, 37
24, 34, 20
24, 34, 37
24, 37, 20
24, 37, 34
34, 20, 24
34, 20, 37
34, 24, 20***
34, 24, 37
34, 37, 20
34, 37, 24
37, 20, 24****
37, 20, 34
37, 24, 20
37, 24, 34
37, 34, 20
37, 34, 24

si os dais cuenta las combinaciones se repiten pero con el orden de los numeros cambiados como podria dejar solo una de ellas ???

Luis

Hola ya de nuevo por acá con mis números raros para combinar, esto también le puede servir a quien le guste sacar o crear claves de logins y cosas por el estilo  

Bien aunque he logrado modificar algunas cosas de este código me gustaría saber como funciona,  ahora combina una cadena de números de dos en dos y ahora busco combinar la cantidad que sea o de tres o de cuatro o mas combinaciones bajo el mismo concepto que tiene ahora

Código (vbnet) [Seleccionar] Expandir

Dim intCol As IEnumerable(Of Integer) = {1, 3, 4, 5, 8, 13, 24, 35, 44, 49 ,55 ,77 ,88}

       Dim pairsCol As IEnumerable(Of String) =
           From value1 As Integer In intCol
           Select String.Join(Environment.NewLine, (
                              From value2 As Integer In intCol
                              Where (value2 <> value1)
                              Select String.Format("{0:00}, {1:00}", value1, value2)))

       For Each pairs As String In pairsCol
           Console.WriteLine(pairs)
           Console.WriteLine("------")
           MessageBox.Show(pairs)

       Next
   End Sub

Luis

Hola estoy creando este codigo para combinar numeros de dos en dos pero me sale un error que no habia visto antes

" No se puede inferir el tipo de 'k' porque los límites del bucle y la cláusula step no se convierten en el mismo tipo "

Código (vbnet) [Seleccionar] Expandir

Public Class Form1



   Dim NumElementos As IEnumerable(Of Integer) =
           {0, 3, 4, 5, 8}
       {01, 13, 34, 55, 84}


   Sub Combinaciones()

       For k = 2 To NumElementos

           i = i + 1

           For j = k To NumElementos


           Next j

       Next k

   End Sub

End Class


Luis

Hola a todos

Bien como no consigo en los post ,que se que le vi una ves expongo lo que quiero hacer

Tengo un pc conectado en la parte de arriba de mi casa a Internet con el moden que esta en la planta baja a través de los ( PL )  esos que se enchufan a la corriente eléctrica, funciona bastante bien,bien pero quiero tener wifi en los demas cuartos ya sabeis ,movil table games etc, el wifi abajo va bastante bien ,y se me ocurre usar otro moden de timofonica Home station  .bien lo que quiero saber es como configurarlo para conectarlo al pc y que me retrasmita wifi arriba .he probado algunos metodos que salen en youtube pero na de na

saludos
Luis

Hola jejej a todos vuelvo con una chorrada

tengo varios TextBox y quiero que a partir del sexto no  me acepte números mayores a 45 y que cuando el usuario ponga un numero mayor a 45 no deje continuar el programa hasta poner un numero menor a 45 estoy con este codigo simplón pero deja que siga el programa auqnue le avise al usuario

Código (vbnet) [Seleccionar] Expandir

Private Sub TextBox6_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox6.Validating
        If (Int(TextBox6.Text) < 0 Or Int(TextBox6.Text) > 45) Then

            MsgBox("Numero mayor que 45 en casilla 6 introduzca numero correcto")

        End If

    End Sub 


saludos
Luis

Hola a todos aunque mas bien me la paso por la zona Net ,ahora tengo una duda con la electronica y ando buscando un programa que me sirva para modificar mandos a control remoto y los que saben de mandos de portoneras. estos trabajan sobre los 400Mhz y quiero ver la posibilidad de subir o bajar esa frecuencia atraves de programacion

En esto si estoy de verdad muy nulo y me gustaria saber como andan estos trastos


gracias de antemano

Luis

Hola de nuevo , hoy no vengo con numeros jejejje

me estoy haciendo un programita para ir blokeando las paginas basura que
me saltan de ves en cuando y pense que seria facil cojer un testbox una
variable y ya , la idea es blokear (ahora lo hago a mano ) las direcciones
de estas molestas paginas en el archivo Host .pero me encontre con otros
problemas y despues de mirar y remirar no veo como hacerlo.


Problema 1: escribir en el archivo sin sobreescribir lo ya puesto y que continue en el ultimo registro

problema 2: hay que poner 127.0.0.1 y un margen de tabulacion

problema 3: no se poner tampoco la ruta del archivo  "C:\WINDOWS\system32\drivers\etc\hosts"

problema 4: como este archivo es de sistema lo unico que lo habre es el notepad yo lo hago de esta manera con icono directo

C:\Windows\notepad.exe "C:\WINDOWS\system32\drivers\etc\hosts" por lo tanto no se me ocurre para que no salte el notepad


Formato
a si queda escrito el archivo pero no se como hacer para solo escribir la pagina en el testbox ,
esto es que deberia estar escrito siempre el 127.0.0.1 para solo poner la pagina mala jeje

la salida o el archivo Host debe de quedar asi

127.0.0.1       http//   es aliexpress  com
127.0.0.1       www p wntg2x  com
127.0.0.1       http  activities   aliexpress   com
127.0.0.1       http  n4uzz  super-promo  boundaryspot   biz /
127.0.0.1       http  qjozz    super-promo.boundaryspot biz

esto es lo que llevo hecho hasta el momento

Código (vbnet) [Seleccionar] Expandir

Imports System.IO

Public Class Form1
    Private TextBoxes As TextBox() = {Nothing}
    Private N1 As Int32()
    Private Result1 As Int32()
    Private _textBox As Object

    Private Property TextBox(ByVal TextBoxCount As Short) As Object
        Get
            Return _textBox
        End Get
        Set(ByVal value As Object)
            _textBox = value
        End Set
    End Property
    ReadOnly Property Num1 As Int32
        Get
            Return CInt(TextBox1.Text)
        End Get
    End Property
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Result1 = {Num1} _

        Dim rutaFichero As String
        Dim i As Integer
        rutaFichero = Path.Combine(Application.StartupPath, "hts.txt")
        Dim fichero As New IO.StreamWriter(rutaFichero)
        fichero.Close()
    End Sub

    '--------------------------------
    Private Sub PaginasBlokeadasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaginasBlokeadasToolStripMenuItem.Click
        Process.Start(Path.Combine(Application.StartupPath, "C:\WINDOWS\system32\drivers\etc\hosts"))
    End Sub

    Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
        If MessageBox.Show("Esta seguro que desea Cerrar ", "Cerrar Stop Spam ", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

            Me.Close()

        End If
    End Sub
End Class

Saludos
Luis

Hola

Bien gracias a nuestro querido amigo Elektro (que jaleti soy  )  

tengo este codigo o funcion que funciona bien.pero ahora se me ocurre que en ves de un solo digito con los que se combinan ahora lo quiero hacer de dos digitos .

Ahora es con estos

{0, 3, 4, 5, 8}

pero si pongo

{01, 13, 34, 55, 84}


No logro hacer lo mismo que con los digitos solos he modificado trasteado pero nada

Código (vbnet) [Seleccionar] Expandir

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       Dim valuesInt As IEnumerable(Of Integer) =
           {0, 3, 4, 5, 8}
       {01, 13, 34, 55, 84} <---------usar esto ????

       Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) =
           Form1.GetPairs(valuesInt, maxValue:=90)

       For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs

           '  ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))

       Next pair



Public Shared Function GetPairs(ByVal col As IEnumerable(Of Integer),
                                   Optional ByVal maxValue As Integer = Integer.MaxValue) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer)))

       If (col.Max >= 10) Then
           Throw New ArgumentException(paramName:="col", Message:="El valor máximo de la colección debe ser un valor inferior a 10.")

       Else

           Return From value As Integer In col
                  Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))(
                         key:=value,
                         value:=From index As Integer In col
                                Where (index <> value) AndAlso (CInt(value & index) <= maxValue)
                                Select CInt(value & index))


       End If


Luis

Estoy trabajno este codigo y me da error en cols y no descubro el porque ? ya que lo declaro ??

Error   2   'cols' no está declarado. Puede que esté inaccesible debido a su nivel de protección.

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Dim maxo As Integer = 7

   Dim valuesInta As IEnumerable(Of Integer)
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       Dim valuesInt As IEnumerable(Of Integer) =
           {0, 1, 2, 3, 4, 5, 6, 9}

       Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) =
           Form1.GetPairs(valuesInt, maxValue:=80)

       For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs

           ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))

       Next pair

       MsgBox(String.Join(", ", pairs(0).Value))
       MsgBox(String.Join(", ", pairs(1).Value))
       MsgBox(String.Join(", ", pairs(2).Value))
       MsgBox(String.Join(", ", pairs(3).Value))


       Dim M1 As IEnumerable(Of Integer) = pairs(0).Value.ToList
       Dim juntos2 As List(Of Integer) = M1
       juntos2.Sort()
       Me.ListBox2.Items.AddRange((From value As Integer In M1).Cast(Of Object).ToArray)

       Dim M2 As IEnumerable(Of Integer) = pairs(1).Value.ToList
       Dim juntos3 As List(Of Integer) = M2
       juntos3.Sort()


       'Me.ListBox2.Items.AddRange((From value As Integer In M1).Cast(Of Object).ToArray)
       Dim M3 As IEnumerable(Of Integer) = pairs(2).Value.ToList
       Dim juntos4 As List(Of Integer) = M3
       juntos4.Sort()

       Dim M4 As IEnumerable(Of Integer) = pairs(3).Value.ToList
       Dim juntos5 As List(Of Integer) = M4
       juntos5.Sort()

   End Sub

   Public Shared Function GetPairs(ByVal col As IEnumerable(Of Integer),
                                   Optional ByVal maxValue As Integer = Integer.MaxValue) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer)))

       If (col.Max >= 10) Then
           Throw New ArgumentException(paramName:="col", Message:="El valor máximo de la colección debe ser un valor inferior a 10.")

       Else

           Return From value As Integer In col
                  Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))(
                         key:=value,
                         value:=From index As Integer In col
                                Where (index <> value) AndAlso (CInt(value & index) <= maxValue)
                                Select CInt(value & index))


       End If




   End Function

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim cols As IEnumerable(Of IEnumerable(Of String)) =
     From col As IEnumerable(Of Integer) In {juntos2, juntos3, juntos4, juntos5}.Distinct.ToList Where (col.Count() = maxo)
        Group By String.Join("", col).AsEnumerable
       Into(Group)
       Select From value As Integer In Group.First.Distinct
            Select value.ToString(format:="0#")

       Me.ListBox2.Items.AddRange((From cols As IEnumerable(Of String) In cols Select String.Join(", ", col)).ToArray) [color=red]<-----ACA ME DA EL ERROR[/color]

       ' MsgBox(cols.Count)
   End Sub
End Class

se supone que ya lo declaro y en otro codigo si me funciona bien

luis

Hola

Recien resolvi o mejor dicho me resolvieron unas dudas gracias a como siempre elektro jejej ahora vengo de nuevo con algo que lo mejor es una bobera pero ya me volvi loco buscando la solucion

Explico

tengo este codigo

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim valuesInt As IEnumerable(Of Integer) =
   {0, 1, 4, 6, 2, 8, 7}

       Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) =
           From value As Integer In valuesInt
           Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))(
                  key:=value,
                  value:=From index As Integer In valuesInt
                         Where index <> Integer.Parse(CStr(value).Last)
                         Select CInt(value & index))

       For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs

           ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))

       Next pair
   End Sub
End Class


lo que no puedo hacer una limitacion de los resultados o sea que si los numeros muestran del 01 al 89 y yo quiera mostrar solo desde el 01 al 50 ,no se ya que tampoco he logrado pasar estos resultados a otra variable que yo pueda o conosca manejar ya que con "pair.Key " no tengo ide de como manejar esto .


Luis

Hola a todos de nuevo (tiempo sin preguntar ) seguro alguno me estrañaria jejeje  

Bien quiero formar pares de numeros que tengo en una variable

esta variable tiene longitud que varia pueden ser cualquier cantidad hasta 10 numeros

ejemplo

0,1,2,3,4,5,6,7,8,9

y nesecito formarlos de esta manera

01
02
03
04
05
06
07
08
09

10
12
13
14
15
16
17
18
19  y haci con todos los demas numeros y pasarlos a otra variable

la varaiable que estoy usando es esta

Código (vbnet) [Seleccionar] Expandir

Dim pru As IEnumerable(Of Integer) =


Saludos
Luis

Hola a todos

como ya mas o menos me defiendo jejej ya casi no pregunto pero no se como hacer que este codigo
em ves de empezar con split(0) empieze con el split(1) me explico

tengo un arreglo de x numeros (1, 2, 3, 4, 5) y si quiero hacer una union o concatenacion de ese arreglo por ejemplo ( 1 2 3 )  tengo que tomar split(0),split(1),split(2)

cuando lo que yo quiero es split(1),split(2),split(3) y no tomar en cuenta el split(0),he provado con Skip(1) pero no me vale ya que me salta el numero inicial


un poco mas claro

arreglo
1, 2, 3, 4, 5

asi es ahora

1 = split(0)
2 = split(1)
3 = split(2)

nesecito de esta forma

1 = split(1)
2 = split(2)
3 = split(3)

Código (vbnet) [Seleccionar] Expandir

Dim arregloSumasa() As Integer = {1, 2, 3, 4, 5}


  Dim split As IEnumerable(Of IEnumerable(Of Integer)) =
   SplitIntoParts(collection:=arregloSumasa, amount:=1, fillEmpty:=True)








Public Shared Function SplitIntoParts(Of T)(ByVal collection As IEnumerable(Of T),
                                             ByVal amount As Integer,
                                             ByVal fillEmpty As Boolean) As IEnumerable(Of IEnumerable(Of T))

       Return From index As Integer In Enumerable.Range(0, CInt(Math.Ceiling(collection.Count() / amount)))
              Select If(Not fillEmpty,
                        collection.Skip(index * amount).Take(amount),
                        If((collection.Count() - (index * amount)) >= amount,
                           collection.Skip(index * amount).Take(amount),
                           collection.Skip(index * amount).Take(amount).
                                                           Concat(From i As Integer
                                                                  In Enumerable.Range(0, amount - (collection.Count() - (index * amount)))
                                                                  Select DirectCast(Nothing, T))))

   End Function



Saludos

Luis

Hola a todos tengo este error cuando genero un programa en exe y al ejecutarlo me sale la ventanita que me dice  " InvalidCastException " seguir o cancelar,  si sigo el programa se ejecuta normalmente, he compilado muchos exes y es la primera ves que me pasa ,

************** Texto de la excepción **************
System.InvalidCastException: La conversión de la cadena "" en el tipo 'Double' no es válida. ---> System.FormatException: La cadena de entrada no tiene el formato correcto.

************** Depuración JIT **************
Para habilitar la depuración Just In Time (JIT), el archivo de configuración de esta
aplicación o equipo (machine.config) debe tener el
valor jitDebugging establecido en la sección system.windows.forms.
La aplicación también se debe compilar con la depuración
habilitada

Por ejemplo:

<configuration>
   <system.windows.forms jitDebugging="true" />
</configuration>

Cuando esté habilitada la depuración JIT, cualquier excepción no controlada
se enviará al depurador JIT registrado en el equipo
en lugar de controlarlo mediante el cuadro de diálogo.

Luis

Hola a todos

en un arreglo de numeros de x cantidad de numeros, siempre el famoso 01 al 99 yo formo grupos de numeros de 10 numeros

concatenando splist o variables de dos numeros cada uno de ese arreglo de esta manera:

Código (vbnet) [Seleccionar] Expandir

  Dim Bz1 As IEnumerable(Of Integer) =
(
From Value As Integer In split(1).Concat(split(2).Concat(split(3)).Concat(split(4)).Concat(split(5)))
Where (Value <= MAX AndAlso Value > 0)).Distinct

       
        Dim Sl1 As IEnumerable(Of Integer) = Bz1
        Dim SM1 As List(Of Integer) = Bz1.toList
        SM1.Sort()
       
       Me.ListBox2.Items.AddRange((From value As Integer In SM1 Where value <> 0).Cast(Of Object).ToArray)



Bien esto funciona bien el problema que quiero resolver es que tiene correlatividad de numeros.


arreglo principal ( 01 02 03 04 05 06 07 08 09 10 ....................99)

este codigo muestra este resultado

01 02 03 04 05 06 07 08 09 10

Porque al ordenarse el arreglo los splits o variables enpiezan desde el principio del arreglo

split(1) = 01 02
split(2) = 03 04
split(3) = 05 06
split(4) = 07 08
split(5) = 09 10



estos split los saco de esta funcion que toma los valores del arreglo principal

Código (vbnet) [Seleccionar] Expandir

Dim split As IEnumerable(Of IEnumerable(Of Integer)) =
        SplitIntoParts(collection:=alia1, amount:=2, fillEmpty:=True)


en definitiva lo que nesecito es hacer saltos de numeros intermedios de los numeros contenidos en los split

ejemplo
ahora es de esta forma

split(1) = 01 02
split(2) = 03 04
split(3) = 05 06
split(4) = 07 08
split(5) = 09 10
******************
y lo nesecito de esta forma

split(1) = 01 03
split(2) = 02 04
split(3) = 05 07
split(4) = 06 08
split(5) = 08 10


Bueno antes de preguntar he usado take,skip sin resultados con la clausula Where no se plantear el problema

claro esta que si volvemos a unir los split como estan ahora y despues, se formaria la misma combinacion pero lo puse a si para el ejemplo ya que las concatenaciones cambian de forma que haga otras numeraciones


Luis

Hola a todos
bueno aca estoy de nuevo con mis rollos

no encuentro la manera de eliminar datos repetidos he puesto por todos lados pero no me filtra los registros repetidos se como hacerlo con variables pero como aca pongo todas las variables juntas en un testbox ;( me da ese fallo

01 02 03 04 05 06 07 08 09
01 02 03 04 05 06 07 08 09

Código (vbnet) [Seleccionar] Expandir

Dim Lnumbers As List(Of IEnumerable(Of Integer)) = { SM18, SM17, SM16, SM14....,}.Distinct.ToList


     For Each col As IEnumerable(Of Integer) In Lnumbers



           ListBox23.Items.Add(String.Join(", ", From value As Integer In col
                                                                     Select If(value.ToString.Length = 1I,
                                                                               value.ToString.Insert(0I, "0"c),
                                                                               value.ToString)))
       Next col



Luis

Bueno aca de nuevo con un problema similar al anterior post  

Queria mostrar en un solo listbox 60 listbox  y se resolvio ahora pense que seria mejor mostrar  las variables que se muestra en esos testbosex  y podria hacer el codigo mas limpio jejej

tengo esto, pero dos cosas si son 60 variables como es que se colocan jejej ya que logro poner una y la muestra pero repiten los resultados cuando se supone que deberia

de esta manera si hay una sola variable
01 02 03 04 05 06 07 08 09 10

y me muestra : ????

01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10
01 02 03 04 05 06 07 08 09 10

Código (vbnet) [Seleccionar] Expandir

Dim Lnumbers As List(Of Integer) = rsalmlals2

       For Each Lnumber As Integer In Lnumbers

           ListBox1.Items.Add(String.Join(" "c, Lnumbers.Cast(Of Integer)))

       Next Lnumber


Saludos
Luis

Hola de nuevo por aca, ya espacio el tiempo en entrar por preguntas tontas jejej gracias a mi amigo elektro que por miedo a sus regaños    no mentira , es gracias a el que me dio la pista como trabajar en este lenguaje pero me falta un monton por aprender jejeje

ahora la temida pregunta

tengo 60 listbox y por supuesto las consabidas variables de cada uno de estos listbox donde muestro resultados numericos ahora se me ocurre meter en un solo lisbotx todas estas variables pero separadas por resultados

algo como esto

listbox1
01 02 03 04 05 06 07 08 09 10 <---------variable 1

11 12 13 14 15 16 17 18 19 20 <---------variable 2

21 22 23 24 25 26 27 28 29 30 <---------variable 3 ....Etc

estaba concatenando ;( pero ***** desastre jejej


saludos
Luis

 Otro de mis inventos

quiero rellenar con numeros aleatorios cuando la cuenta de la variable este por debajo de 30, el rango de estos numeros es 00 al 99, pero no deberian de repetir en la variable.

tengo esto que rellena pero con ceros

Código (vbnet) [Seleccionar] Expandir

If Resultados.Count < 30 Then
     
          Resultados = Resultados.Concat(Enumerable.Repeat(Of Integer)(0, (30 - Resultados.Count)))

         End If

entonces se me ocurrio esto pero nunca me da la seguridad de tener como minimo 30 datos en la variable a veces el programa entero no llega a esa cantidad y FALLO

Código (vbnet) [Seleccionar] Expandir

If Resultados.Count < 30 Then
           
          Resultados = numerosFaltantesdelRango

       End If




Luis

Hola no tengo Npi de como hacerlo pero alguien me puede decir como se puede evitar o que se reenvien sus mensajes spam ? y saturarlos de tal manera que se les quite las ideas de enviar basura ?

luis

En serio  o yo no se buscar o esto no existe

envio a un listbox una serie de datos numericos y los muestro en un listbox y a al principio y segun los calculos estos muestran algunos ceros ( bueno yo diria que bastantes jejej )    y lo que quiero no es eliminar los ceros, pero si que no se vean  y que solo el listbox muestre numeros pero no el cero ( cuestion de estetica )

Código (vbnet) [Seleccionar] Expandir

Dim se As IEnumerable(Of Integer) = Resultss
       Dim li As List(Of Integer) = se
       li.Sort()
       Me.ListBox7.Items.AddRange(li.Cast(Of Object).ToArray)

Hola a todos aca traigo otra e las mias

tengo tres variables dos con arreglos y una tercera que trabajaria con los registros de la variable que cumpla con la condicion en ese momento pero no se si se puede hacer algo con esta chapuza que haciendo  

Código (vbnet) [Seleccionar] Expandir

   Dim values1 As    integer  
       Dim values2 As   integer
      [color=red] Dim compuesto As Integer <-- a esta variable llegaria los datos de cualquiera de las dos anteriores[/color]




       Dim Re As IEnumerable(Of Integer) =
          (values).
          Distinct.
          Select(Function(values As Integer)
                     If values <= 35 Then

                         Return values
                     Else

                         Return values2

                     End If

                 End Function)



Luis

Otra de las mias
cuando quiero unir dos rutinas o mas no me funciona lo de rellenar con numeros aleatorios dentro del rango

se supone que este codigo al no haber mas numeros dentro del arreglo tomaria uno al azar dentro del rango establecido pero no se que pasa ahora que no lo hace

Código (vbnet) [Seleccionar] Expandir

  ReadOnly MAX As Integer = 99


       Dim Rand As New Random
       Dim ReAsult2255e As IEnumerable(Of Integer) =
          (splits(1).Concat(splits(3).Concat(splits(5).
          Distinct.
          Select(Function(Value As Integer)
                     Return If(Value < MAX, Value, Rand.Next(1, MAX))
                 End Function))))

       Dim seAlecctedValues231 As IEnumerable(Of Integer) = ReAsult2255e
       Dim liste3 As List(Of Integer) = ReAsult2255e.Take(10).ToList
       liste3.Sort()
       ListBox12.Items.AddRange(liste3.Cast(Of Object).ToArray)
       ' ----------------------------------------------------------------------
     

      Dim Rand1 As New Random
       Dim AReAAsult2255e As IEnumerable(Of Integer) =
          (splits(3).Concat(splits(10).Concat(splits(11).Concat(splits(12).
          Distinct.
          Select(Function(Value As Integer)
                     Return If(Value < MAX, Value, Rand1.Next(1, MAX))
                 End Function)))))

       Dim seAlecctedValues231A As IEnumerable(Of Integer) = AReAAsult2255e
       Dim listeA3 As List(Of Integer) = AReAAsult2255e.Take(10).ToList

       listeA3.Sort()
       ListBox13.Items.AddRange(listeA3.Cast(Of Object).ToArray)


Luis