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 ?

 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

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

Hola ya cuando pregunto es que me come el coco

Tengo un lixbox y me muestra los resultados en vertical y por probar quiero saber si se puede en horizontal

ahora me los muestra a si

25
45
68
75
78
79
80
88
 99

y quiero saber si se puede mostrar de esta forma ?

25 45 68 75 78 79 80 88 99

la funcion que uso es esta



Saludos

Luis

Trasteando un poco por la red y super aburrido con los texboxes he probado a ver si en ves de estar mostrando los resultados en los texboxes los muestro en un listbox ?

quiero mostrar el resultado de   Result1 ,Result2, Result3 lo unico que logro es cuando introdusco en los primeros texboxes



Luis

Bien gracias a Elketro jejej que me da una buena mano a pesar que estoy injertado con visual y net. bueno a lo mejor y nace un lenguaje de programacion nuevo jejeje.

Bien como veran en el codigo en que los resultados van entrando en los texboxes segun se hagan los calculos y estan numerados consecutivamente y estos texbosex los muestro en el formu en lineas de 4 en cuatro.


Texboses mostrados de esta forma
1   2  3  4
5   6  7  8
9 10 11 12

Bien mi problema es que no quiero que se repitan números en las lineas ??? y como estos se van llenando segun el calculo o suma he probado a intercalar los texboxes pero menuda chapuza jejeje.

Bueno el codigo

Public Class Form1
    Dim MIN As Integer = 0
    Dim MAX As Integer = 99
 
    Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ControlBox = False ' Elimino todos los controles del formulario
    End Sub
 
 
 
    Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
    Dim Sep As Object
    Dim texbox7 As Object
    Dim o As Object
    Private _val As Object
    Private _val1 As Integer
    Dim TextBox As TextBox()
 
    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 Property KeyAscii As Integer
 
    Private Property Val(ByVal form1 As Form1, ByVal p2 As Object) As Object
        Get
            Return _val
        End Get
        Set(ByVal value As Object)
            _val = value
        End Set
    End Property
 
    Private Property Val(ByVal p1 As Object) As Integer
        Get
            Return _val1
        End Get
        Set(ByVal value As Integer)
            _val1 = value
        End Set
    End Property
 
    Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) _
    Handles Calcular.Click
 
        Dim TextBoxCount As Short = -1
 
        TextBox = {TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24, TextBox25, TextBox26, TextBox27, TextBox28, TextBox29, TextBox30, TextBox31, TextBox32, TextBox33, TextBox34, TextBox35, TextBox36, TextBox37, TextBox38, TextBox39, TextBox40, TextBox41, TextBox42, TextBox43, TextBox44, TextBox45, TextBox46, TextBox47, TextBox48, TextBox49, TextBox50, TextBox51, TextBox52, TextBox53, TextBox54, TextBox55, TextBox56, TextBox57, TextBox58, TextBox59, TextBox60}
 
        Result1 = {Num1 + 1, Num1 + 20, Num1 + 30} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
                  .Distinct().ToArray ' Elimino duplicados
 
Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3)  ' Ordeno los Items
 
        ' funcion
        For Each Number As Int32 In Result1
            TextBoxCount += 1
            TextBox(TextBoxCount).Text = Number
        Next
 
        For Each Number As Int32 In Result2
            TextBoxCount += 1
            TextBox(TextBoxCount).Text = Number
        Next
 
        For Each Number As Int32 In Result3
            TextBoxCount += 1
            TextBox(TextBoxCount).Text = Number
        Next
 
 
End Class

Luis

Hola bien mi idea no es hacer un trial ni demo solo nesecito una rutina simple que me detenga el programa sin mesagebox ni nada solo que no funcione ni haga nada al ejecutarlo,

Public Class Form1
    Dim MIN As Integer = 0
    Dim MAX As Integer = 99
 
    Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ControlBox = False ' Elimino todos los controles del formulario
    End Sub
 
 
 
    Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
    Dim Sep As Object
    Dim texbox7 As Object
    Dim o As Object
    Private _val As Object
    Private _val1 As Integer
    Dim TextBox As TextBox()
 
    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 Property KeyAscii As Integer
 
    Private Property Val(ByVal form1 As Form1, ByVal p2 As Object) As Object
        Get
            Return _val
        End Get
        Set(ByVal value As Object)
            _val = value
        End Set
    End Property
 
    Private Property Val(ByVal p1 As Object) As Integer
        Get
            Return _val1
        End Get
        Set(ByVal value As Integer)
            _val1 = value
        End Set
    End Property
 
    Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) _
    Handles Calcular.Click
 
        Dim TextBoxCount As Short = -1
 
        TextBox = {TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24, TextBox25, TextBox26, TextBox27, TextBox28, TextBox29, TextBox30, TextBox31, TextBox32, TextBox33, TextBox34, TextBox35, TextBox36, TextBox37, TextBox38, TextBox39, TextBox40, TextBox41, TextBox42, TextBox43, TextBox44, TextBox45, TextBox46, TextBox47, TextBox48, TextBox49, TextBox50, TextBox51, TextBox52, TextBox53, TextBox54, TextBox55, TextBox56, TextBox57, TextBox58, TextBox59, TextBox60}
 
        Result1 = {Num1 + 1, Num1 + 20, Num1 + 30} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
                  .Distinct().ToArray ' Elimino duplicados
 
        Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
                  .Distinct().ToArray ' Elimino duplicados,,,,,,,,,,,
 
Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3)  ' Ordeno los Items
 
        ' funcion
        For Each Number As Int32 In Result1
            TextBoxCount += 1
            TextBox(TextBoxCount).Text = Number
        Next
 
        For Each Number As Int32 In Result2
            TextBoxCount += 1
            TextBox(TextBoxCount).Text = Number
        Next
 
        For Each Number As Int32 In Result3
            TextBoxCount += 1
            TextBox(TextBoxCount).Text = Number
        Next
 
 
End Class

gracias de antemano

Luis

Donde puedo conseguir una rutina de tiempo para que pasado tres meses o dias se bloquee el programa y saque un mesagebox diciendo lo que sea ?

gracias

Luis

Bien tengo un P4 8 gigas ram disco 500 gigas y demas patrañas jejej uso wify desde casa a casa de mama con wifisky 2000 y a veces uso una cuenta con la rural del pueblo full señal ( todas las barritas ) uso el antivirus  "  Microsoft Secuirity Essentila " pero mi pc va como un 286 de principio de siglo Lento muyyyyyyy lento que da dolor de Hue... abrir el face jejje pero solo va lento el internet cuando lo uso para programar o abrir cualquier cosa va como un tiro ?????

Alguna idea ?

Luis