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

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 )

 

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

 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

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

 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 "

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

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