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
ListBox1.Items.AddRange(Result22.Cast(Of Object).ToArray)
:)
Luis
Mejor pongo la Funcion
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'.
Cita de: luis456 en 16 Enero 2014, 16:25 PMaunque pruebo con lo que me explico Elektro en propiedades de los lisbox colunWich multicolum etc no logro hacer esto.
Es imposible darte una solución de forma remota como unas medidas perfectas, no se te puede ayudar con el diseño de tu Listbox, eres tu quien debe manipular el tamaño del Listbox desde el Designer, así como otras propiedades como por ejemplo 'columndwidth' y la fuente de texto ('font') si fuese necesario. ...todo eso para ajustar el Listbox a un número de columnas e Items por fila.
Respecto a lo de ordenar los elementos de mayor a menor:
Dim Result22 As IEnumerable(Of Integer) =
(result1.Concat(result2).Concat(result3)).
Distinct.
Select(Function(Value As Integer) If(Value < MAX, Value, Rand.Next(0, MAX))).
OrderByDescending(Function(Value As Integer) Value)Saludos
Gracias elektro
esa respuesta me dice que todo es cuestión de diseño vale lo probare:) se me ocurre hacer algo como esto, es de combinatoria pero ni idea de como enfocar lo de las cuatro posiciones ni como tomar los numeros del array
Private Function Result2345() As Integer
Dim a, f, b, c, d, e As Integer <------------------?????
Dim va As String
For f = 1 To 5
For a = 1 To 5
For b = 1 To 5
For c = 1 To 5
For d = 1 To 5
For e = 1 To 5
TextBox7.Text = "a & b & c & d & e" <--no logro verlo jeje
Next e
Next d
Next c
Next b
Next a
Next f
Return va
End Function
saludos
Luis