|
41
|
Programación / .NET (C#, VB.NET, ASP) / Problema mostrar multiples variables en un solo Listbox
|
en: 19 Abril 2015, 18:28 pm
|
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 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
|
|
|
42
|
Programación / .NET (C#, VB.NET, ASP) / Como puedo mostar 60 listbox en uno solo :)
|
en: 18 Abril 2015, 13:18 pm
|
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
|
|
|
43
|
Programación / .NET (C#, VB.NET, ASP) / rellenar con rand variable ya cargada de datos
|
en: 9 Abril 2015, 14:35 pm
|
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 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 If Resultados.Count < 30 Then Resultados = numerosFaltantesdelRango End If
Luis
|
|
|
45
|
Programación / .NET (C#, VB.NET, ASP) / Pregunta Re tonta :( no mostra ceros en listbox
|
en: 1 Abril 2015, 18:56 pm
|
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 ) 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)
|
|
|
46
|
Programación / .NET (C#, VB.NET, ASP) / Otra mision con variables
|
en: 31 Marzo 2015, 15:43 pm
|
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 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
|
|
|
47
|
Programación / .NET (C#, VB.NET, ASP) / Rellenar con rand no me funciona
|
en: 29 Marzo 2015, 12:20 pm
|
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 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
|
|
|
48
|
Programación / .NET (C#, VB.NET, ASP) / Eliminar filtrar numeros con terminaciones iguales
|
en: 26 Marzo 2015, 11:53 am
|
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 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
|
|
|
49
|
Programación / .NET (C#, VB.NET, ASP) / Limpiar programa
|
en: 20 Marzo 2015, 16:16 pm
|
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 ;( 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
|
|
|
50
|
Programación / .NET (C#, VB.NET, ASP) / tomar valores de una cadena numerica y agrupar en variables independientes
|
en: 16 Marzo 2015, 13:02 pm
|
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 ) 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
|
|
|
|
|
|
|