Temas

Eliminar numeros con terminaciones iguales

Hola de nuevo aca estoy con mis chapusas en programacion

Formo combinaciones de numeros de un arreglo o variables pero donde el resultado no debe tener el mismo numero terminal explico

Código (vbnet) [Seleccionar] Expandir

Dim resultss As IEnumerable(Of Integer) =
           {
               01,03,04,06,07,08,09,20,28,35.39,45,48,55,66,68,75,78.90,98........
           }

       Dim selectedValues As IEnumerable(Of Integer) = resultss.Take(10)

       Me.ListBox1.Items.AddRange(selectedValues.Cast(Of Object).ToArray)
   End Sub

esto me da combinaciones de 10 numeros


salida

01,03,04,06,07,08,09,20,28,35

39,45,48,55,66,68,75,78.90,98

en la primera combinacion esta el 08 y el 28
en la segunda combinacion estan el  45 55 75

la idea es que en ninguna combinacion  tenga repetidos el mismo numero terminal ?

Luis

Hola de nuevo por estos lares se que mi amigo Elecktro se preguntaria por mi jejje

Bueno os cuento a medida que avanzo con mas variables en mi programa me surge un problema  si hago las primeras operaciones me salen las cuentas bien,pero la siguiente ves que vuelvo a calcular me encuentro que las cuentas son otras diferentes yo creo que aunque uso un codigo me quedan todas las variables cargadas con el primer calculo y solo borro son los texboxes, esto se corrige cuando cierro el editor y vuelvo a abrir el programa
no se como limpiar las variables sin tener que cerrar todo y empezar de nuevo ;(

Código (vbnet) [Seleccionar] Expandir

 Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       For Each obj As Control In Me.Controls
           If (TypeOf obj Is TextBox) Then
               obj.Text = ""
           End If
           If (TypeOf obj Is GroupBox) Then
               For Each caja As Control In obj.Controls
                   If (TypeOf caja Is TextBox) Then
                       caja.Text = ""
                   End If
               Next
           End If
           ListBox1.Items.Clear()
           ListBox2.Items.Clear()
           ListBox3.Items.Clear()
           ListBox7.Items.Clear()

       Next
   End Sub


Luis

Estaba trabajando este código pero después de escribir la ostia a medida que alargo los números estos se quedan cortos ;(

yo lo que busco es pasar los números de la cadena por orden de menor a mayor en grupos de cuatro en cada variable pero necesito saber los nombres de las variable

ejemplo
variable a=(valor de 1 2 3 4)
variable b=(valor de 5 6 10 11 )

Código (vbnet) [Seleccionar] Expandir

Dim numbers() As Integer = {1, 2, 3, 4, 5, 6, 10, 11, 14, 15,  54, 57, 58, 60, 63, 64, 65, 67, 68, 69, 70, 71, 75, 76, 77, 79, 80}


   Dim evensQuery = From num In numbers
                        Where num Mod 2 = 0
                        Select num

       Dim selectedValues As IEnumerable(Of Integer) = evensQuery.Take(4)
       ListBox1.Items.AddRange(selectedValues.Cast(Of Object).ToArray)

       '----------------------------------------2
       Dim ll = From num In numbers
               Where num Mod 2 = 1
               Select num

       Dim selected2Values As IEnumerable(Of Integer) = ll.Take(4)
       ListBox2.Items.AddRange(selected2Values.Cast(Of Object).ToArray)

       '---------------------------------------------------------3
       Dim ll1 = From num In numbers
               Where num Mod 3 = 0
               Select num

       Dim selected222Values As IEnumerable(Of Integer) = ll1.Take(4)
       ListBox3.Items.AddRange(selected222Values.Cast(Of Object).ToArray)


Luis

He probado y reprobado ordenar la salida en este codigo de menor a mayor y siempre me da error en ejecucion probando todas las variables y probando en diseño del listbox en false o true y me sigue fallando.

Código (vbnet) [Seleccionar] Expandir

Dim Re As New Random
Dim Result22aa55e As IEnumerable(Of Integer) =
             (
                 (Result1.Concat(Result2).Concat(Result3).
           Distinct.
           Select(Function(Value As Integer)
                      Return If(Value < MAX, Value, Rand.Next(0, MAX))
                  End Function))
        )

       Dim selecctedValues23aa As IEnumerable(Of Integer) = Result22aa55e.Take(11)

       '  Array.Sort(selecctedValues23aa)
       ' ListBox3.Sorted = True
       
     Me.ListBox3.Items.AddRange(selecctedValues23aa.Cast(Of Object).ToArray)  

el code funciona bien pero me muestra los numeros desordenados

Luis

Bueno otro de mis inventos chungos

tengo una variable x2 integer que contiene x (es variable la cantidad) de numeros que contendria esta variable, ya saben el famoso 00 al 99 y quiero asignar a otras variables digamos variable  lx1 los primeros cuatro numeros de la variable x2 y despues los siguientes otros cuatro numeros a otra variable  lx2 y a si con todos los numeros de la variable x2 hasta acabar con todos,


Espero se entienda

Gracias
Luis

Por acá de nuevo con mis chapuzas

en el codigo de abajo yo concateno tres variables y las muestro en el listbox1 pero yo nesecito que el total de lo mostrado tenga una cantidad especifica de números, esto por ejemplo la variable " Result1 " aporta cuatro números , la variable  " Result2 " aporta 7 numeros y la "Result3 " aporta otros 4  sumando 15 números ,lo que quiero hacer es forzar a la variable Resultss a mostrar la cantidad de números que yo quiera, sean solo
cuatro seis o 15

Código (vbnet) [Seleccionar] Expandir

Dim Resultss As IEnumerable(Of Integer) =
           (
               From Value As Integer
               In (Result1.Concat(Result2).Concat(Result3)).Distinct)
               Where Value <= MAX
           )

       ListBox1.Items.AddRange(Resultss.Cast(Of Object).ToArray)
       ListBox1.Sorted = True


Luis

Estoy tratando de averiguar las diferencias entre una gran base de numeros entre si,tratare de explicarlo tengo en un txt una lista de numeros

numeros en el txt que debera de leer el codigo en forma descendente

02 15 28 50 45 60
10 20 35 40 60 80
11 40 49 50 77 99
20 25 33 48 60 88
30 36 44 55 77 95


Bien lo que se nesecita es saber las diferencias entre ellos

02 15 28  50  45  60 <--primer numero de la lista

10 20 35  40  60  80 <--segundo numero comparar con el primero

+8 +5 +7 -10 +15 +20 <--resultados


10  20  35  40  60 80 <-se toma el segundo numero  compara con el  tercer numero
11  40  49  50  77 99 <- com compara al igual que el anterior y haci con todos los numeros hasta acabar la muestra

+1 +20 +14 +10 +17 +19 < resultados


en fin en el txt resultante lo unico que tiene que estar son los resultados

+8 +5  +7  -10 +15 +20  <--resultados
+1 +20 +14 +10 +17 +19

Tengo este codigo amabilididad por elektro

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Private Shadows Sub Load() Handles MyBase.Load

       Dim sb As New System.Text.StringBuilder
       Dim Values As New List(Of Integer()) From
           {
               ({1I, 20, 1I}),
               ({7I, 22, 4I}),
               ({8I, 27, 11}),
               ({20, 29, 17}),
               ({23, 33, 22}),
               ({39, 46, 31})
           }

       For Each ValueCol() As Integer In Values

           Dim Value1 As Integer = ValueCol(0)
           Dim Value2 As Integer = ValueCol(1)
           Dim Value3 As Integer = ValueCol(2)

           Dim Diff1 As String = GetDifferenceExpression(Value1, Value2)
           Dim Diff2 As String = GetDifferenceExpression(Value2, Value3)


           sb.AppendLine(String.Format("{0} -> {1} = {2}",
                         Value1.ToString("00"), Value2.ToString("00"), Diff1))

           sb.AppendLine(String.Format("{0} -> {1} = {2}",
                         Value2.ToString("00"), Value3.ToString("00"), Diff2))

           
           sb.AppendLine()

       Next ValueCol

       MessageBox.Show(sb.ToString)

       Application.Exit()

       
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, _
                      ByVal e As System.EventArgs) Handles MyBase.Load
       Try
           Dim Archivo As System.IO.FileStream
           ' crea un archivo vacio prueba.txt  
           Archivo = System.IO.File.Create("c:\asi\Prueba.txt")
           ' error  
       Catch oe As Exception
           MsgBox(oe.Message, MsgBoxStyle.Critical)
       End Try
   End Sub
 
   ' Get Difference expression
   ' ( By Elektro )
   '
   ' Usage Examples:
   ' MessageBox.Show(GetDifferenceExpression(5, 10))
   '
   ''' <summary>
   ''' Obtiene la expresión aritmética suma diferencia / descanso entre dos valores.
   ''' </summary>
   ''' <param name="Value1">El primer valor.</param>
   ''' <param name="Value2">El segundo valor.</param>
   ''' <returns>La expresión aritmética.</returns>
   Friend Function GetDifferenceExpression(ByVal Value1 As Long, ByVal Value2 As Long) As String

       Select Case Value2

           Case Is > Value1 ' Value2 es más grande que Valor1.
               Return String.Format("+{0}", CStr(Value2 - Value1))

           Case Is < Value1 ' Value2 es inferior a Valor1.
               Return String.Format("-{0}", CStr(Value1 - Value2))

           Case Else ' Value2 es igual a Valor1.
               Return "0"

       End Select

   End Function

End Class



Luis

Otro de mis ligeros problemas tengo este codigo que me muestra :  


-2
-1
0
2
3
4
1
5
6

nesecito eliminar esto de los resultados, que no muestre o mejor elimine los numeros que tengan el signo negativo y el cero
-2
-1
0

Código (vbnet) [Seleccionar] Expandir

Dim Resultodo1 As IEnumerable(Of Integer) =
           (
               From Value As Integer
                 In (Result1.Concat(Result2)).Distinct Where (Value <= MAX))


       ListBox1.Items.AddRange(Resultodo1.Cast(Of Object).ToArray)


Luis

En una variable de este tipo como puedo forzar que tenga solo la cantidad de numeros que yo quiera,

era antes mas o menos

Código (vb) [Seleccionar] Expandir

Dim Name As String * 30   


pero ya no vale para net

tengo este codigo para hacerlo de longitud fija

Código (vbnet) [Seleccionar] Expandir

  Dim Results As IEnumerable(Of Integer) =
          (
              From Value As Integer
                In (Result).Distinct Where (Value <= MAX))


        ListBox6.Items.AddRange(Results.Cast(Of Object).ToArray)


Luis

Hola

tengo cuatro listbox

ListBox1
ListBox2
ListBox3
ListBox4

y tengo esta rutina que me grava pero en uno solo y quisera saber si se pueden grabar los cuatro  pero de esta forma

ListBox1    ListBox2      ListBox3     ListBox4
74             12             25             88
55             99             33             90
99             88             44             66


codigo

Código (vbnet) [Seleccionar] Expandir

Dim rutaFichero As String
       Dim i As Integer

       rutaFichero = Path.Combine(Application.StartupPath, "Prueba.txt")
       Dim fichero As New IO.StreamWriter(rutaFichero)
       For i = 0 To ListBox1.Items.Count - 1
           fichero.WriteLine(ListBox1.Items(i))
       Next
       fichero.Close()

saludos
Luis

Tengo dias haciendo de todo para eliminar este virus pero no daoy con nada he probado de todo


gracias
Luis

 A los maestros de esta sección del foro

A quien se le atribuye esta frase ? ojo es de mas de 20 años no valen los copiones

    " Que tu sabiduría no sea motivo de humillación para otros "

Luis

Antes de preguntar he voltiado el foro y si la respuesta esta, pues no la encuentro, digo esto porque seguro es de lo mas tonto a preguntar

tengo este boton que me limpia los texboses pero quiero que tambien me borre los label ?

Código (vbnet) [Seleccionar] Expandir

Private Sub LimpiarTodoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LimpiarTodoToolStripMenuItem.Click
        For Each obj As Control In Me.Controls
            If (TypeOf obj Is TextBox) Then
                obj.Text = ""
            End If

            If (TypeOf obj Is GroupBox) Then
                For Each caja As Control In obj.Controls
                    If (TypeOf caja Is TextBox) Then
                        caja.Text = ""
                    End If
                Next
            End If
            ListBox1.Items.Clear()
            ListBox2.Items.Clear()
            ListBox3.Items.Clear()
            ListBox4.Items.Clear()
            ListBox5.Items.Clear()
            ListBox6.Items.Clear()
        Next

luis

Bueno otra ves con mis rollos de combinaciones tengo este codigo que me hace estas combinaciones y mi idea es como hacer que solo aparescan combinaciones con dos números de cada subrango .los números a combinar no son fijos y varian de cantidades ( entre 20 y 80 numeros) dependiendo de otra funcion.


los subrangos serian:
01 al 09
10 al 19
20 al 29
30 al 39
40 al 49
50 al 59
60 al 69
70 al 79
80 al 89
90 al 99


Ahora este código me los combina de esta forma

01, 02, 05, 07, 08, 15, 17, 18
01, 02, 05, 07, 08, 15, 17, 45
01, 02, 05, 07, 08, 12, 15, 17
01, 02, 05, 07, 08, 15, 17, 22
01, 02, 05, 07, 08, 15, 17, 23
01, 02, 05, 07, 08, 15, 17, 27
01, 02, 05, 07, 08, 15, 17, 28
01, 02, 05, 07, 08, 15, 17, 33
01, 02, 05, 07, 08, 15, 17, 34


Pero los necesito de esta forma

01 05 10 15 20 25 35 38
07 09 11 16 24 26 70 78
10 19 35 38 45 49 80 88

como verán por cada combinación solo hay dos de cada subrango y haci llenar todas las combinaciones posibles con los números que contiene la variable.

Código (vbnet) [Seleccionar] Expandir

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

       Dim combinations As New List(Of List(Of Integer))
       Dim length As Integer = 7
       Dim skipStart As Integer = 0
       Do Until skipStart = (constantValues.Count - length)

           Dim values As List(Of Integer) = constantValues.GetRange(skipStart, length)
           Dim count As Integer = 0

           Do Until count = (constantValues.Count - length - skipStart)

               Dim list As List(Of Integer) = values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToList
               list.Sort()
               combinations.Add(list)

               '  Debug.WriteLine(String.Join(", ", values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray))

               count += 1

           Loop ' count = (constantValues.Count - length)

           skipStart += 1


       Loop ' skipStart = (constantValues.Count - length)
       combinations.RemoveAll(Function(list As List(Of Integer)) list.First = 0)

       combinations.ForEach(Sub(combination As List(Of Integer))
                                ListBox2.Items.Add(String.Join(", ", From value As Integer In combination
                                                                     Select If(value.ToString.Length = 1I,
                                                                               value.ToString.Insert(0I, "0"c),
                                                                               value.ToString)))

                               '  Label11.Text = combinations.Count.ToString()

                            End Sub)


      '  Button4.Enabled = False

   End Sub  


saludos
Luis

Hola

Tengo esto para cerrar el programa ,pero recién me doy cuenta que algunas variables no se liberan ya que cuando lo vuelvo a ejecutar me suma los anteriores datos.cuando debería ser de cero,

que le faltaria a esto para liberar todo ?  

Código (vbnet) [Seleccionar] Expandir

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

           Me.Close()

       End If


Luis

estoy tratando de mostrar esto en un label pero no me sale, donde lo ponga me sale
dentro del formulario (en cualquier lado)  menos en el label ?

Código (vbnet) [Seleccionar] Expandir

 Label1.Text = Result2255.Count.ToString()

Luis

Pos eso , puedo hacer que un botón este desabilitado hasta que la tabulacion llegue por orden de entrada.pero lo que quiero es que este boton me ejecute una sola ves y quede desabilitado hasta el reinicio del programa

luis

hola tengo esta rutina que me grava un txt y quiero verlo desde otro boton

Código (vbnet) [Seleccionar] Expandir

Private Sub GuardarCombinacionesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuardarCombinacionesToolStripMenuItem.Click
       Dim rutaFichero As String
       Dim i As Integer

       rutaFichero = Path.Combine(Application.StartupPath, "Combinaciones.txt")
       Dim fichero As New IO.StreamWriter(rutaFichero)
       For i = 0 To ListBox2.Items.Count - 1
           fichero.WriteLine(ListBox2.Items(i))
       Next
       fichero.Close()
   End Sub  

Luis

Hola como puedo eliminar los registros que contengan ceros ?

00, 01, 02, 04, 05, 06
00, 01, 03, 04, 05, 06
00, 01, 04, 05, 06, 08
00, 01, 04, 05, 06, 09
00, 01, 04, 05, 06, 18
00, 01, 04, 05, 06, 10
00, 01, 04, 05, 06, 11
00, 01, 04, 05, 06, 15
10 ,20 ,45 ,88 .87, 90

Código (vbnet) [Seleccionar] Expandir

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click


       Dim combinations As New List(Of List(Of Integer))
       Dim length As Integer = 5
       Dim skipStart As Integer = 0


       Do Until skipStart = (constantValues.Count - length)

           Dim values As List(Of Integer) = constantValues.GetRange(skipStart, length)
           Dim count As Integer = 0

           Do Until count = (constantValues.Count - length - skipStart)

               Dim list As List(Of Integer) = values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToList
               list.Sort()
               combinations.Add(list)

               '  Debug.WriteLine(String.Join(", ", values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray))

               count += 1

           Loop ' count = (constantValues.Count - length)

           skipStart += 1


       Loop ' skipStart = (constantValues.Count - length)


       combinations.ForEach(Sub(combination As List(Of Integer))
                                ListBox2.Items.Add(String.Join(", ", From value As Integer In combination
                                                                     Select If(value.ToString.Length = 1I,
                                                                               value.ToString.Insert(0I, "0"c),
                                                                               value.ToString)))



                            End Sub)




   End Sub



Luis

Hola

Bien he estado buscando como trabajar con variables y array convertir de integer a lo que sea pero no doy con un buen tuto ( solo para brutus ) jejej como convertir pasar de una variable a otra jejej seguro elektro si lo lee ya sabe el porque ,pero como no doy pie con bola con esto de combinar valores de una variable a otra

AAA lo que quiero es saber donde ir

luis

Hola
bien esto de las combinaciones me esta volviendo adicto a lo imposible jejej

tengo 25 números de dos dígitos y como siempre desde el 00 hasta el 99 y quiero hacer o formar grupos de 7 y 8 números donde estén todos los números de entre estos 25 .

ejemplo: 01 09 11 12 14 16 20 24 35 38 40 44 50 58 59 60 68 70 77 80 81 88 90 92 99

alguna idea

Luis

Hoy sabado a programar mm como me gusta jejejej

Descifrar operaciones en resultados correlativos, ( hoy sabado jej a programar)

la idea es saber como se llega de un numero inicial al segundo numero y como desde el segundo numero al tercero
y asi susecivamente con toda la muestra en el txt


estos numeros estan en un txt.el procedimiento que hago es, tomo el primer numero y lo comparo con el segundo  para
saber que operaciones matematicas hay entre numero y numero.a mano se hacerlo pero npi para hacerlo en net





ejemplo :

  01   07   08   20  23  39 <---numero inicial en el txt (pueden ser miles)

+ 18 + 15 + 19 + 9 + 10 + 7 <------- operaciones para llegar al segundo numero

  19   22   27   29   33  46 <---segundo numero


- 18 - 18 - 16 - 12 - 11 -15 <--operaciones para llegar al tercer numero

  01   04   11   17   22  31 <- tercer numero


En otro txt mostrar:

solo las operaciones encontradas

ejemplo

+ 18 + 15 + 19 + 9 + 10 + 7
- 18 - 18 - 16 - 12 - 11 -15


saludos
Luis

Ando buscabdo un codigo de reducidas para cualquier loteria primitiva o bonoloto nesecito saber la estructura de un programa similar ,alguna idea

luis

Tengo esta famosa rutina jejej y ahora se me ocurre dividir pero pero no sale

Código (vbnet) [Seleccionar] Expandir

Result1 = {Num1 - 2, Num1 - 3, Num1 + 1, Num1 + 2, Num1 + 3} _
        .Distinct().ToArray


cuando le pongo el signo de divicion me sale error ??


Result1 = {Num1 / 2, Num1 - 3, Num1 + 1, Num1 + 2, Num1 + 3} _
        .Distinct().ToArray




error
No se puede convertir un valor de tipo '1-matriz dimensional de Double' en '1-matriz dimensional de Integer' debido a que 'Double' no se deriva de 'Integer'

Tengo un pequeño problema cada ves que quiero modificar este archivo y es que tengo que ir a windos sisten eceteraaaaaa... abrir el archivo con el blog de notas escribir cerrar y guardar,

el archivo host sirve para bloquear las paginas que quieras pero trate de hacerlo con los métodos tradicionales pero no me sale la idea es hacer un form un texbox donde escribo la pagina a bloquear

Ojo no quiero me lo hagan solo una orientación de que método puedo usar o por donde irían los tiros

luis

Al ataque de nuevo jeje bueno ya ustedes saben como se frustra uno cuando no se logra hacer funcionar algo, vueltas y vueltas y nada tengo el siguiente programa que funciona bien hasta llegar a la función de combinar los numeros pero es un código de basic que quiero implementar pero no soy capaz ( como siempre)

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Dim maximum As Short = 99
    Dim x As Integer = 0
    Dim Número As Double
    Private TextBoxes As TextBox() = {Nothing}
    Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
    Private _textBox As Object
    Private Property ListBox1Count As Integer
    ReadOnly MAX As Integer = 99

    Dim auxiliar As Integer
    Dim auxiliar1 As Integer

    Dim auxiliar2 As String
    Dim auxiliar3 As String
    Dim anterior As String

    Dim recorrer As Integer
    Dim recorrer1 As Integer
    Dim recorrer2 As Integer
    Dim recorrer3 As Integer

    Private Property Calcular 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

    Public Sub solonumeros(ByRef e As System.Windows.Forms.KeyPressEventArgs)
        ' evitar letras
        If Char.IsDigit(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsSeparator(e.KeyChar) Then
            e.Handled = False
        Else
            e.Handled = True
        End If

    End Sub


    ReadOnly Property Num1 As Int32
        Get
            Return CInt(TextBox1.Text)
        End Get
    End Property

    ReadOnly Property Num2 As Int32
        Get
            Return CInt(TextBox2.Text)
        End Get
    End Property
    ReadOnly Property Num3 As Int32
        Get
            Return CInt(TextBox3.Text)
        End Get
    End Property
   

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


        Result1 = {Num1 + 1, Num1 + 2, Num1 + 4, Num1 + 6, Num1 - 4, Num1 - 1} _
                  .Distinct().ToArray ' Elimino duplicados

        Result2 = {Num2 + 1, Num2 + 2, Num2 + 3, Num2 - 1, Num2 - 2, Num1 - 3} _
                  .Distinct().ToArray ' Elimino duplicados

        Result3 = {Num3 - 1, Num3 - 2, Num3 - 3, Num3 + 2, Num3 + 3, Num3 + 5} _
                  .Distinct().ToArray ' Elimino duplicados

       
        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)).
            Distinct.
            Select(Function(Value As Integer)
                       Return If(Value < MAX, Value, Rand.Next(0, MAX))
                   End Function)


        ListBox1.Items.AddRange(Result.Cast(Of Object).ToArray)
       
        ' Result2---------------------------------------------------------
        Dim Rand2 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 Result22 As IEnumerable(Of Integer) =
            (Result1).
            Distinct.
            Select(Function(Value As Integer)
                       Return If(Value < MAX, Value, Rand.Next(0, MAX))
                   End Function)



        ListBox2.Items.AddRange(Result22.Cast(Of Object).ToArray)



        Dim Rand22 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 Result222 As IEnumerable(Of Integer) =
            (Result2).
            Distinct.
            Select(Function(Value As Integer)
                       Return If(Value < MAX, Value, Rand.Next(0, MAX))
                   End Function)

        ListBox3.Items.AddRange(Result222.Cast(Of Object).ToArray)


       
       
    End Sub
    ' funcion combinar la variable " resul " que contiene la cantidad de numeros a combinar (no funciona)
    ' esto es de basic pero es para cojer la idea :) no se como hacerlo en net

     For recorrer = 1 To Len(resul)
            auxiliar = Mid(palabra, recorrer, 1)
            For recorrer1 = 1 To Len(resul)
                auxiliar1 = Mid(palabra, recorrer1, 1)
                For recorrer2 = 1 To Len(resul)
                    auxiliar2 = Mid(palabra, recorrer2, 1)
                    For recorrer3 = 1 To Len(resul)
                        auxiliar3 = Mid(resul, recorrer3, 1)
                        If anterior <> auxiliar3 Then

                            Print(auxiliar & auxiliar1 & auxiliar2 & auxiliar3) <------------mostrar esto en un lixbox

                        End If
                        anterior = auxiliar3
                    Next
                Next
            Next
        Next
    End Sub



    '--------------------------- limpiar texboxes
    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For Each obj As Control In Me.Controls
            If (TypeOf obj Is TextBox) Then
                obj.Text = ""
            End If
            If (TypeOf obj Is GroupBox) Then
                For Each caja As Control In obj.Controls
                    If (TypeOf caja Is TextBox) Then
                        caja.Text = ""
                    End If
                Next
            End If

            ListBox1.Items.Clear()
            ListBox2.Items.Clear()
            ListBox3.Items.Clear()
           

        Next
    End Sub


End Class


Como no logre hacerme entender en el otro pos me decidí a hacerlo a pie jeje pero no me da las combinaciones como debe ser pongo la idea y el código que estoy haciendo pero no me va.



Números guías: 01-02-03-04-05-06-07-08-09-10-11-12-13-14

Para usar esta rueda: Imprime una copia de la impresora. Escribe tus números
debajo de mis números guías, úsalos como usarías una rueda de códigos infantil
para cambiar los números por los míos en las combinaciones debajo. Esto es una
rueda cargada, entonces si clasificas tus números de mejor a peor, entonces
coloca de primero las mejores opciones en la rueda yendo de izquierda a derecha.

Números guías: 01-02-03-04-05-06-07-08-09-10-11-12-13-14
               
               01-02-03-04-05-06
               01-02-03-         07-08-09
               01-04-09-                  10-11-12
               01-          05-  07       10       13-14
               01-            06-   08-      11-12-13

                  02-03-04-      07-      10-      13

                  02-03-   05-        09-    11-      14
                  02-    04-        08-      11-   13-14
                  02-      05-06-         10-11-12
                  03-         06-     09-       12-13-14
                  03-            07-08-   10-11-12

                  03-            07-08-   10-11-12
                        04-05-06-07-08-09

Combinaciones de la rueda
01)...01-02-03-04-05-06.
02)...01-02-03-07-08-09. .
03)...01-04-09-10-11-12
04)...01-05-07-10-13-14. .
05)...01-06-08-11-12-13. .
06)...02-03-04-07-10-13
07)...02-03-05-09-11-14. .
08)...02-04-08-11-13-14. .
09)...02-05-06-10-11-12
10)...03-06-09-12-13-14. .
11)...03-07-08-10-11-12. .
12)...04-05-06-07-08-09


Números guías:   01-02-03-04-05-06-07-08-09-10-11-12-13-14
numeros usuario: 10 13 18 25 26 28 30 32 35 37 40 42 45 47

esta tendria que ser la salida con los numeros del usuario
10 13 18 25 26 28
10 13 18 30 32 35
10 25 35 37 40 42
10 26 30 37 45 47
10 28 32 40 42 45
13 18 25 30 37 45
13 18 26 35 40 47
13 25 32 40 45 47
13 26 28 37 42 45
18 28 35 42 45 47
18 30 32 37 42 45
25 26 28 30 32 35
codigo

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Dim r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, r11, r12, r13, r14 As Integer

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       r1 = Val(TextBox1.Text)
       r2 = Val(TextBox2.Text)
       r3 = Val(TextBox3.Text)
       r4 = Val(TextBox4.Text)
       r6 = Val(TextBox5.Text)
       r6 = Val(TextBox6.Text)


       TextBox15.Text = r1
       TextBox16.Text = r2
       TextBox17.Text = r3
       TextBox18.Text = r4
       TextBox19.Text = r5
       TextBox16.Text = r6



   End Sub

   
End Class

Me he vuelto tarimba buscando que esto no me muestre ceros y signos negativos yo envió desde un texbox un numero y aplico esta formula pero cuando pongo. ejemplo el uno me sale   -9 , 0

codigo

Código (vbnet) [Seleccionar] Expandir

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

        Result1 = {Num1 - 1, Num1 - 2, Num1 + 3, Num1 + 6, Num1 + 8} _
                  .Distinct().ToArray
        Array.Sort(Result1)


       End Sub

Hola a todos hace tiempo que no entraba debido a motivos de salud pero ya estamos dando querrá de nuevo

Después de estar buscando mucho he encontrado esta forma de combinar numeros, según esto es para la lotería primitiva y se basa en algo llamado la rueda ?

bien la pregunta especifica es la siguiente.

tengo un form donde introduzco estos numeros guías mediante unos textbox (eso esta chupado jejej) lo que por supuesto no tengo idea es que me genere los numeros
como el ejemplo que pongo y me los muestre en un lixtbox.

Para 50 Números En 80 Combinaciones

Números guías: 01-02-03-04-05-06-07-08-09-10-11-12-13-14-15
16-17-18-19-20-21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40-
41-42-43-44-45-46-47-48-49-50


01) 1 2 12 14 16 37
02) 1 3 13 22 25 38
03) 1 4 15 29 39 49
04) 1 5 19 39 41 46
05) 1 6 14 19 23 41
06) 1 6 17 26 40 47
07) 1 7 18 19 27 41
08) 1 8 10 11 23 43
09) 1 28 30 33 34 35
10) 2 4 6 7 44 50
11) 2 8 13 15 33 42
12) 2 8 31 35 47 48
13) 2 9 20 21 25 46
14) 2 10 18 24 38 47
15) 2 11 13 27 28 46
16) 2 14 17 22 29 33
17) 2 15 25 31 32 33
18) 2 30 32 36 39 45
19) 3 4 28 40 43 45
20) 3 5 21 29 42 48
21) 3 7 30 31 43 46
22) 3 8 12 17 20 39
23) 3 9 22 28 36 40
24) 3 10 12 28 40 44
25) 3 14 24 35 41 49
26) 3 15 23 34 36 47
27) 4 5 16 20 24 32
28) 4 9 17 34 41 48
29) 4 9 22 43 44 45
30) 4 10 12 22 36 43
31) 4 14 19 25 30 47
32) 4 26 31 38 39 42
33) 5 6 7 14 39 46
34) 5 6 18 23 27 39
35) 5 7 8 25 45 49
36) 5 7 17 35 36 37
37) 5 10 13 14 31 50
38) 5 12 27 33 38 43
39) 6 8 24 26 36 46
40) 6 10 21 33 37 41
41) 6 11 12 15 19 35
42) 6 12 25 28 29 48
43) 6 16 22 31 34 49
44) 7 11 22 26 32 41
45) 7 12 13 21 23 24
46) 7 14 18 23 27 46
47) 7 20 28 42 43 47
48) 8 13 25 31 32 42
49) 8 14 21 27 32 44
50) 8 16 19 28 38 48
51) 9 10 12 36 44 45
52) 9 10 15 16 27 30
53) 9 11 14 39 40 42
54) 9 18 29 32 43 50
55) 9 19 23 26 33 49
56) 10 14 26 34 45 48
57) 10 19 20 36 42 49
58) 11 16 18 33 36 44
59) 11 17 21 30 38 49
60) 11 20 29 30 34 37
61) 11 21 26 30 37 50
62) 13 15 33 35 47 48
63) 13 16 29 41 45 47
64) 13 18 26 35 43 44
65) 13 19 32 34 37 40
66) 15 17 18 21 28 45
67) 15 37 44 46 48 49
68) 16 23 29 35 40 46
69) 16 24 25 34 39 43
70) 17 19 24 29 31 44
71) 17 20 34 38 49 50
72) 17 26 29 37 38 49
73) 18 20 22 30 40 48
74) 20 21 26 29 34 50
75) 20 27 31 35 37 45
76) 22 23 28 37 39 50
77) 22 24 42 45 46 50
78) 23 30 38 41 42 44
79) 25 27 36 40 41 50
80) 25 32 35 42 47 48


Gracias de antemano

Luis

Hola a todos de nuevo

Buscando y buscando por el foro no encuentro donde  vi la solución a este problema de configuración si alguien la recuerda se lo agradezco.

Bien es lo siguiente tengo un pc que recibe señal wifi atraves de una tarjeta inalambrica conectada a una antena exterior (señal de la casa de mi madre ) que compartimos y ella paga no mentira a veces la pago yo jeje,bueno necesito conectar un  router xavi 7968 al pc para repartir la señal dentro de casa (ya sabeis moviles tv etc )  ya lo habia echo pero perdi los datos como se hace y lo había tomado de acá,pero realmente no encuentro ese post y era especifico de este router.


Gracias de antemano
Luis

os comento que tenia tiempo que no entraba debido a problemas de salud pero gracias ya estoy mejor

Hola a todos

como todo novato jejej que soy mi  pregunta es ?
cuando se genera un diccionario aparte de que tarda un montón de tiempo como lo puedo guardar en disco c ,cuando estoy en wifiFlax 3.4 que es el que uso y este lo arranco desde un cd. y si creo uno en wind como lo puedo usar desde un pen ya que asumo que no lo puedo poner en el cd.

gracias
Luis

Hola
este código me calcula o compara números y dice la distancia entre estos pero lo hace de izquierda a derechas o sea en horizontal

ejemplo

1 2 3 5 8 y me calcula que entre el 1 y  2  hay 1 entre 2 y 3 hay 1 entre 3 y 5 hay 2 y entre 5 y 8 hay 3

resultado
1  2  3  5  8 <--- muestra
 1  1  3   3 <----resultado


Bien lo que ahora busco es hacerlo pero en vertical  con los números hacia abajo

Código (c) [Seleccionar] Expandir

#include <stdio.h>
int main()
{
   int i,x1=0, x2=0,x3=0,x4=0,x5=0,x6=0;
   FILE* fichero,*fich;
   fichero = fopen("combiLuis.txt", "r");
   if (fichero == NULL)
       {
       printf("No existe el fichero!\n");
       return 1;
       }
  fich = fopen("CombiDiferanciasLuis.txt", "wt");
   if (fich == NULL)
       {
       printf("No existe el fichero!\n");
       return 1;
       }
  while (! feof(fichero))
           {
               fscanf(fichero,"%d %d %d %d %d %d ", &x1,&x2,&x3,&x4,&x5,&x6);
               fprintf(fich,"%d %d %d %d %d \n",x2- x1,x3-x2,x4-x3,x5-x4,x6-x5);
           }
   fclose(fichero);
   fclose(fich);
   return 0;
}

Luis


se me olvido up
seria hacer lo mismo pero hacia abajo

1 2 3 4 5
2 5 4 7 8
4 2 1 8 9

Hola
tengo un txt que tiene solo números en orden descendente  de cuatro en cuatro

asi
1 2 3 4
5 7 8 6
10 15 88 90
15 25 77 85....etc y para de contar

Como puedo contar numero por numero y me lo muestre en otro txt

Ejemplo
01= 25
02= 45
03=88

Consegui este codigo aca mismo pero cuenta es el total y ademas letras

Código (vbnet) [Seleccionar] Expandir

Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim palabras As Integer = 0
        Dim letras As Integer = 0
        Dim numeros As Integer = 0

        Dim lineas As String() = File.ReadAllLines("C:\1.txt")
        For Each linea As String In lineas
            For Each palabra As String In linea.Split(" ")
                If (palabra.Length > 0) Then
                    palabras = palabras + 1
                    For Each letra As Char In palabra.ToCharArray()
                        If (Asc(letra.ToString()) > 47 And Asc(letra.ToString()) < 58) Then
                            numeros = numeros + 1
                        ElseIf (Asc(letra.ToString()) > 64 And Asc(letra.ToString()) < 123) Then
                            letras = letras + 1
                        End If
                    Next
                End If
            Next
        Next

        Label1.Text = "Palabras: " & palabras & Microsoft.VisualBasic.vbNewLine & "Letras: " & letras & Microsoft.VisualBasic.vbNewLine & "Numeros: " & numeros

    End Sub
End Class

Gracias
Luis

hola trasteando por la Librería de Snippets encontre este codigo de combinaciones creo es de elektro ahora como ni idea de usar la regiones, si alguien me puede explicar el codigo como funciona la idea es que con un array que ya tengo con datos este codigo me coja de ese array y me los combine y muestre en un listbox estas combinaciones.

Mi array se llama " resul "  

Código (vbnet) [Seleccionar] Expandir

Region " Permute all combinations of characters"

   ' [ Permute Characters Function ]
   '
   ' Examples :
   ' Dim Permutations As IEnumerable = Permute_Characters("abc", 2)
   ' For Each Permutation As IEnumerable(Of Char) In Permutations : RichTextBox1.Text &= vbNewLine & Permutation.ToArray : Next

   Private Shared Function Permute_Characters(Of T)(list As IEnumerable(Of T), length As Integer) As IEnumerable(Of IEnumerable(Of T))

       If length = 1 Then
           Return list.[Select](Function(x) New T() {x})
       Else
           Return Permute_Characters(list, length - 1).SelectMany(Function(x) list, Function(t1, t2) t1.Concat(New T() {t2}))
       End If

   End Function

#End Region

AAA y ya estoy con esto del insert code que no me sale joe....

Luis

Como puedo saber los números que faltan dentro del rango ? tengo esta función que recibe los resultados de tres array donde hago unas sumas: y me gustaria mostrar en otro listbox los números que " NO " están dentro de estas sumas. es posible ?

Código (vbnet) [Seleccionar] Expandir

Rango 00 al 99

ReadOnly MAX As Integer = 99

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 Result1 As IEnumerable(Of Integer) =
           (Result1.Concat(Result3).Concat(Result3).
       Distinct.
       Select(Function(Value As Integer)
                  Return If(Value < MAX, Value, Rand.Next(0, MAX))
              End Function))

       ' Result = 1, RANDOM, 2, 3, 4, 5, RANDOM, 6, 7, 8, 9, 10, 99

       ListBox11.Items.AddRange(Result1.Cast(Of Object).ToArray)


Luis

Edito= no se porque no me sale bien el poner el codigo entre el insert codigo ?

Por mas que busco en propiedades no encuentro la forma que no se muestre los signos - o + en un listbox

Luis

[[MOD]: No hagas doble post, utiliza el botón 'Modificar'.]

Hola gente cada ves que modifico algo mmm se me presentan nuevos problemas jeje

ahora uso solo un array donde junto todos los resultados de la suma,pero ahora mi problema es :

Mostrar en este listbox lineas horizontales de cuatro numeros ordenados de mayor a menor
el array me da estos números
10 20 30 40 50 60 70 80
y quiero mostrarlos  asi
80 70 60 50
40 30 20 10

aunque pruebo con lo que me explico Elektro en propiedades de los lisbox colunWich multicolum etc no logro hacer esto.

lo envio al listbox de esta forma

Código [Seleccionar] Expandir

ListBox1.Items.AddRange(Result22.Cast(Of Object).ToArray)



Luis



Mejor pongo la Funcion

Código [Seleccionar] Expandir

Dim Rand2 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 Result22 As IEnumerable(Of Integer) =
           (Result1.Concat(Result2).Concat(Result3)).
           Distinct.
           Select(Function(Value As Integer)
                      Return If(Value < MAX, Value, Rand.Next(0, MAX))
                  End Function)

       ' Result = 1, RANDOM, 2, 3, 4, 5, RANDOM, 6, 7, 8, 9, 10, 99
       ListBox1.Items.AddRange(Result22.Cast(Of Object).ToArray)



[MOD]: No hagas doble post, utiliza el botón 'Modificar'.

Quiero hacer un bucle que mire los objetos del array uno a uno y si se pase del rango lo elimine pero que sobreescriva con algun numero dentro del rango 00 /99
en ese espacio y asi consecutivamente ( siempre numerico)

este codigo lo encontre trasteando aca mismo :)pero no logro hacer que funcione que hago mal ?

Código (VB.NET) [Seleccionar] Expandir


Dim Result3 as integer

Dim i, j As Integer 'Contadores

       For i = 1 To "cantidad de objetos en el array"
           If Result3(i) = 99 Then
               For j = 1 To "objetos array - i"
                   If not (i+1) > 12 (i) = Result3(i+1) else: Result3(i) = ""
                   End If
               Next j
           End If

       Next i


ListBox3.Items.Add(CStr(Result3(X)))



Saludos
Luis

[MOD]Para la próxima inserta correctamente las etiquetas de código.

Se puede condicionar que los resultados de este array pasen de x numeros ? ya lo tengo resuelto para los texboxes pero ahora quiero trabajar directamente con los array me parece que seria mas fácil para después mostrar los resultados

Código (vbnet) [Seleccionar] Expandir

Dim maximum As Short = 99

Dim Results7s As Integer() = Result1.Concat(Result2).Distinct.ToArray


Luis

Bueno eso mismo

tengo dos Arrays  " result1 y result2 " quiero unir estos dos array en un tercer array

"result3 " ya probé concatenando pero me pierdo jejej


Luis

Alguien me podria explicar como funciona este codigo de combinatoria quiero aprender pero rompiendo yo las cosas o sea probando; bien este codigo forma combinaciones posibles y estoy tratando que me haga y muestre combinaciones de solo cuatro , no importa el largo del string

Código (vbnet) [Seleccionar] Expandir

Public Class Form1


   Dim Caracteres(1000) As String


   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim i, j, k As Integer
       Dim Combinacion As String
       Dim Existe As Boolean

       For i = 0 To TextBox1.Text.Length - 1
           Caracteres(i) = TextBox1.Text.Substring(i, 1)
       Next

       For i = 0 To TextBox1.Text.Length - 1
           For j = 0 To TextBox1.Text.Length - 1

               Existe = False

               Combinacion = TextBox1.Text.Remove(i, 1)
               Combinacion = Combinacion.Insert(i, Caracteres(j))

               Combinacion = Combinacion.Remove(j, 1)
               Combinacion = Combinacion.Insert(j, Caracteres(i))

               For k = 0 To ListBox1.Items.Count - 1
                   If Combinacion = ListBox1.Items(k) Then Existe = True
               Next

               If Existe = False Then ListBox1.Items.Add(Combinacion)

           Next
       Next
   End Sub
End Class

Bueno probando y probando consegui un codigo y se muestra el resultado pero por consola ya lo he puesto en un fom win pero no logro hacer que me lo muestre en un listbox o si hay otra forma o otra herramienta ya que solo lo que nesecito es visualizarlo

alguna idea ?

Código (vbnet) [Seleccionar] Expandir

Public Shared Sub PrintValues(ByVal myArr As Array)
       Dim myEnumerator As System.Collections.IEnumerator = _
          myArr.GetEnumerator()
       Dim i As Integer = 0
       Dim cols As Integer = myArr.GetLength((myArr.Rank - 1))
       While myEnumerator.MoveNext()
           If i < cols Then
               i += 1
           Else
               Console.WriteLine()
               i = 1
           End If
           Console.Write(ControlChars.Tab + "{0}", myEnumerator.Current)
       End While
       Console.WriteLine()
   End Sub
End Class

Luis

Código (vbnet) [Seleccionar] Expandir

Hola a todos espero que hayan pasado buenas fiestas :)


Me he pasado el tiempo tratando de hacer esto pero no encuentro el como quiero concatenar dos array para que:
Result1.Concat(Result2)

comparar si hay iguales y si hay iguales recorrer el rango y sustituir el repetido por el que no aparezca. ya elimino duplicados pero en cada array, y no se como hacerlo con el resultado final que se mostraria en e lisboxt3

ListBox3.Items.AddRange(CombinedItems.ToArray)



[codePublic Class Form1
   Dim maximum As Short = 99
   Dim x As Integer = 0
   Dim Número As Double
   Private TextBoxes As TextBox() = {Nothing}
   Private Result1 As Int32(), Result2 As Int32()
   Private _textBox As Object
   Private Property ListBox1Count As Integer

   Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
       Me.ControlBox = False ' Elimino todos los controles del formulario
   End Sub

   Private Property Calcular 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

   Public Sub solonumeros(ByRef e As System.Windows.Forms.KeyPressEventArgs)
       ' evitar letras
       If Char.IsDigit(e.KeyChar) Then
           e.Handled = False
       ElseIf Char.IsControl(e.KeyChar) Then
           e.Handled = False
       ElseIf Char.IsSeparator(e.KeyChar) Then
           e.Handled = False
       Else
           e.Handled = True
       End If

   End Sub


   ReadOnly Property Num1 As Int32
       Get
           Return CInt(TextBox1.Text)
       End Get
   End Property

   ReadOnly Property Num2 As Int32
       Get
           Return CInt(TextBox2.Text)
       End Get
   End Property
 

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

       Result1 = {Num1 + 10, Num1 + 20, Num1 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
                 .Distinct().ToArray ' Elimino duplicad


       Array.Sort(Result1) : Array.Sort(Result2) ' El número no está repetido:

       Dim Results As IEnumerable(Of Integer) =
           Result1  ' El número no está repetido.Concat(Result2)  

     

       For X As Integer = 0 To Results.Count - 1
           ' Este es para unir en 3lisbos
           Dim Items1 As List(Of String) = ListBox1.Items.Cast(Of String)().ToList
           Items1.Add("  ")


           Dim Items2 As List(Of String) = ListBox2.Items.Cast(Of String)().ToList
           Items2.Add("  ")

           Dim CombinedItems As List(Of String) = Items1.Concat(Items2).ToList


           ListBox3.Items.AddRange(CombinedItems.ToArray)

           ' aqui acaba

           Select Case Results.Where(Function(n) n = Results(X)).Skip(1).Any

               Case False ' El número no está repetido en ninguna "linea"
                   ' Así que colocamos el número en el Textbox
                   Try
                       ListBox1.Items.Add(CStr(Results(X)))


                       ' TextBoxes(TextBoxCount).Text = CStr(Results(X))
                   Catch ex As Exception
                       Throw New Exception(ex.Message & ex.StackTrace)
                   End Try

                 

           End Select


       Next X
       ' -------segunda

       Dim Resultss As IEnumerable(Of Integer) =
           Result2 ' .

       

       For X As Integer = 0 To Resultss.Count - 1



           Select Case Resultss.Where(Function(n) n = Resultss(X)).Skip(1).Any

               Case False
                   Try
                       ListBox2.Items.Add(CStr(Resultss(X)))

                   Catch ex As Exception
                       Throw New Exception(ex.Message & ex.StackTrace)
                   End Try

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

   End Sub
 
End Class]




saludos
Luis

Hola ando buscando una forma corta de combinar (no sumar ni adicionar) todo el contenido de dos lisbox en un otro sin que haya duplicados en grupos de cuatro resultados esto es si hay por ejemplo entre los dos lisbox 12 numeros que se muestren grupos de cuatro esto seria 3 resultados de cuatro números cada uno


Gracias

Felices fiestas a todos

Luis

Alguien podria facilitar o decirme donde puedo conseguir buenos tutoriales con ejemplos basicos (para neofitos jeje) explicados para trabajar con arrays ?

Gracias

Luis