Mensajes

Hola

bien tengo otra pregunta tonta ;( tengo una variable llamada  "Result " y quiero pasar estos datos a otra :    Public ListaDeNumeros As String = "1,2,3,4,5,7" ' ,no encuentro mis apuntes ,,perdi todo en el otro pc

Código (vbnet) [Seleccionar] Expandir

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


quiero pasar los datos que trae " Result " a " Public ListaDeNumeros As String = "

saludos
Luis


mas simple no pudo se jeje

Código (vbnet) [Seleccionar] Expandir

' Dim intCol As IEnumerable(Of Integer) = {2, 3, 4, 7}
        Dim intCol As IEnumerable(Of Integer) = (Result1)

Gracias FJDA

No no quiero todo hecho, solo que de verdad suelo hacer las preguntas mal enfocadas ,y ademas ya tengo casi 60 años y me cuesta un poco más esto, ya que yo programo por vicio o hobby y si nombro a ELECTRO no es por nada especial,solo que el tuvo mucha paciencia conmigo 
y se que mis codigos son algo básicos,pero pregunto porque estoy seguro que alguien mas le servirán,supieras la de codigos que he cojido del foro y me han ayudado.

De verdad que muchas gracias por tu ayuda para este viejo 

Luis

podrías meterlo en array List y luego usar Disctinct.ToList para eliminar elementos repetidos, luego lo metes en un listbox y listo.

Código (vbnet) [Seleccionar] Expandir


     Dim Lista As New List(Of String)
       Lista.AddRange({1, 5, 5, 5, 4, 1, 12, 4, 55, 55, 55, 55})
       Lista = Lista.Distinct.ToList

       For Each Elemento As String In Lista
           ListBox1.Items.Add(Elemento)

       Next


Te agradezco tu aporte pero lo que busco es eliminar los que tengan signos negativo adelante ,se que tenia todas esas Rutinas gracias a Electro, pero he perdido todos esos códigos y estoy en cero 
he recuperado parte de todo el codigo pero no encuentro este,

saludos
Luis

¿y si multiplicas el valor por -1? pregunto -1 * -1=1

si el valor es < 0 ... valor = valor  * -1

es que ya uso una función en el programa y solo necesito filtrar ese resultado cuando lo envió al listbox

los duplicados ya los elimino con este codigo pero siguen saliendo numeros con el - adelante ?

Código (vbnet) [Seleccionar] Expandir

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ' Le pasa el Listbox a la función
        MsgBox(Eliminar(ListBox23), _
               MsgBoxStyle.Information, _
               "Elementos duplicados en el List ")
    End Sub
    Function Eliminar(ByVal LB As ListBox) As Int32
        Dim i As Int32
        Dim j As Int32
        Dim n As Int32

        ' Recorre los items ( copara empezando _
        'desde el primero , de abajo hacia arriba)
        For i = 0 To LB.Items.Count - 2
            For j = LB.Items.Count - 1 To i + 1 Step -1
                ' verifica si es el mismo
                If LB.Items(i).ToString = LB.Items(j).ToString Then
                    ' elimina el elemento indicando el índice
                    LB.Items.RemoveAt(j)
                    n += 1 'lleva la cuenta de los duplicados
                End If
            Next
        Next
        Return n ' retorna los eliminados
    End Function *

saludos
Luis

Hola a todos

lo tenia pero no encuentro la rutina como se eliminan los numeros con  signos negativos en un listbox .

ejemplo :

         -1
         -3

uso este codigo que funciona bien para mostrar los resultados pero a veces salen numeros con negativo

Código (vbnet) [Seleccionar] Expandir

Dim Result As IEnumerable(Of Integer) =
            (Result1.Concat(Result2).Concat(Result3).Concat(Result4).Concat(Result5)).
            Distinct.
            Select(Function(Value As Integer)
                       Return If(Value < MAX, Value, Rand.Next(0, MAX))
                   End Function)

       

        ListBox7.Items.AddRange(Result.Cast(Of Object).ToArray)

saludos
Luis

Bueno chicos he resuelto mi problema de la forma mas fácil :

Código (vbnet) [Seleccionar] Expandir

ReadOnly Property Num6 As Int32
    ' Get
    ' Return CInt(TextBox6.Text)
    ' End Get
    ' End Property

    ReadOnly Property Num6 As Int32
        Get
            Return CInt(TextBox6.Text.Substring(0, 1))
            'TextBox6.Text.Substring(1, 1)
        End Get
    End Property

Gracias a todos por vuestro aporte
hasta la siguiente ves

Luis

Bueno mientras espero el fin de semana a llegar a casa y pensando en esto 

se me ocurre que ya que tengo lo del los tex echo ,es trabajar en la variable : explico

Código (vbnet) [Seleccionar] Expandir

Result1 = {Num1 + 1, Num1 + 3} _
                  .Distinct().ToArray ' Elimino duplicados


Num1 es la variable que trae los numeros ,mi idea es antes de pasarlo por esta funcion que venga ya con el numero unico ,me imagino que lo podria hacer con la funcion de estraer ??

Substring(1, 1) por ejemplo

saludos
Luis

Gracias a los dos por sus aporte ,probare los metodos,pero claro programo por ahora lo fines de semana,ya que trabajo fuera de casa toda la semana y este portatil no tira bien jeje y para programar no vale

Ya os contare como fue cuando llegue a casa

Saludos
Luis

Hola a Todos

Despues de algun tiempo he vuelto a este vicio de programar jeje pero ando muy quemado ;(

lo que quiero hacer es que a un número de dos dígitos tomar solo uno de ellos :

explico tengo unos texbox donde introdusco estos numeros:

Código (vbnet) [Seleccionar] Expandir

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

se supone que de ahi va para la función que paso por estos números etc etc .lo que quiero es modificar que si pongo por ejemplo el numero 20 pueda solo tomar el de la derecha o sea el 0 o viceversa ,esto lo envio a una variable l:

Código (vbnet) [Seleccionar] Expandir

Result1 = {Num1 + 1, Num1 + 3} _
                 .Distinct().ToArray ' Elimino duplicados

He probado en propiedades del texbox pero no es lo que quiero ,quiero es fracionar el numero sea al derecho o la isquierda


saludos
Luis

Hola a todos

Bien tengo dos baterías de 12 voltios ciclo profundo y quiero hacer un circuito que haga lo siguiente:

mientras una se descarga, la otra recibe carga, esto lo tengo controlado ya...
lo que necesito hacer es que cuando la bateria que esta descargando cuando llegue a 11.50 voltios se cambie o conmute por la batería cargada ,o sea que empieza a descargar y que cuando llegue a 11.50 voltios se vuelva a intercambiar con la otra ,este ciclo es interminable o hasta que una de las baterías se dañe . me gustaria ideas ya que no tengo la mínima pista de como hacerlo

saludos
Luis