Como no mostrar ceros y signos negativos en funcion

[luis456]

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

[Eleкtro]

Hola Luis

Para convertir un número a positivo puedes usar el método Math.Abs()
Y lo que quieres hacer cuando un número es '0' no está del todo claro.

Te sugiero que apliques tus propias reglas iterando los elementos del Array, por ejemplo:

Código (vbnet) [Seleccionar] Expandir

       Dim num1 As Integer = -50I '  Un numero negativo para probar este ejemplo.

       Dim Result1 As Integer() = {num1 - 1, num1 - 2, num1 + 3, num1 + 6, num1 + 8}

       For Index As Integer = 0 To (Result1.Count - 1)

           Select Case Result1(Index)

               Case Is = 0 ' El valor es 0.
                   ' Hacer algo con el número 0 aquí.
                   ' Result1(Index) = Not 0

               Case Is < 0 ' El valor es negativo.
                   ' Lo convierto a positivo.
                   Result1(Index) = Math.Abs(Result1(Index))

           End Select '/ Result1(Index)


       Next Index

        Result1 = Result1.Distinct().ToArray
       Array.Sort(Result1)

saludos

[luis456]

Hola Luis

Para convertir un número a positivo puedes usar el método Math.Abs()
Y lo que quieres hacer cuando un número es '0' no está del todo claro.

Te sugiero que apliques tus propias reglas iterando los elementos del Array, por ejemplo:

Código (vbnet) [Seleccionar] Expandir

       Dim num1 As Integer = -50I '  Un numero negativo para probar este ejemplo.

       Dim Result1 As Integer() = {num1 - 1, num1 - 2, num1 + 3, num1 + 6, num1 + 8}

       For Index As Integer = 0 To (Result1.Count - 1)

           Select Case Result1(Index)

               Case Is = 0 ' El valor es 0.
                   ' Hacer algo con el número 0 aquí.
                   ' Result1(Index) = Not 0

               Case Is < 0 ' El valor es negativo.
                   ' Lo convierto a positivo.
                   Result1(Index) = Math.Abs(Result1(Index))

           End Select '/ Result1(Index)


       Next Index

        Result1 = Result1.Distinct().ToArray
       Array.Sort(Result1)

saludos

Gracias Elektro

siempre tan amable lo probare y te dire

Luis

[luis456]

Hola Luis

Para convertir un número a positivo puedes usar el método Math.Abs()
Y lo que quieres hacer cuando un número es '0' no está del todo claro.

Te sugiero que apliques tus propias reglas iterando los elementos del Array, por ejemplo:

Código (vbnet) [Seleccionar] Expandir

       Dim num1 As Integer = -50I '  Un numero negativo para probar este ejemplo.

       Dim Result1 As Integer() = {num1 - 1, num1 - 2, num1 + 3, num1 + 6, num1 + 8}

       For Index As Integer = 0 To (Result1.Count - 1)

           Select Case Result1(Index)

               Case Is = 0 ' El valor es 0.
                   ' Hacer algo con el número 0 aquí.
                   ' Result1(Index) = Not 0

               Case Is < 0 ' El valor es negativo.
                   ' Lo convierto a positivo.
                   Result1(Index) = Math.Abs(Result1(Index))

           End Select '/ Result1(Index)


       Next Index

        Result1 = Result1.Distinct().ToArray
       Array.Sort(Result1)

saludos

que no se muestren ceros he probado el codigo y funciona bien con los negativos pero cuando pongo

Result1(Index) = Not 0 <------ regresan los negativos

Luis

[Eleкtro]

cuando pongo

Result1(Index) = Not 0 <------ regresan los negativos

Por supuesto, como ya te dije, no está claro que quieres hacer con los Ceros.

Modifica esa instrucción por lo que tu quieras, o especifica mejor lo que quieres hacer al encontrar un Cero.

Saludos

[luis456]

Hola

lo que quiero es que no se muestren los ceros


Luis