Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: luis456 en 29 Junio 2014, 08:44 am


Título: Como no mostrar ceros y signos negativos en funcion
Publicado por: luis456 en 29 Junio 2014, 08:44 am
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
  1. Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
  2.  
  3.  
  4.         Result1 = {Num1 - 1, Num1 - 2, Num1 + 3, Num1 + 6, Num1 + 8} _
  5.                   .Distinct().ToArray
  6.         Array.Sort(Result1)
  7.  
  8.  
  9.        End Sub

Título: Re: Como no mostrar ceros y signos negativos en funcion
Publicado por: Eleкtro en 29 Junio 2014, 14:15 pm
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
  1.         Dim num1 As Integer = -50I '  Un numero negativo para probar este ejemplo.
  2.  
  3.         Dim Result1 As Integer() = {num1 - 1, num1 - 2, num1 + 3, num1 + 6, num1 + 8}
  4.  
  5.         For Index As Integer = 0 To (Result1.Count - 1)
  6.  
  7.             Select Case Result1(Index)
  8.  
  9.                 Case Is = 0 ' El valor es 0.
  10.                     ' Hacer algo con el número 0 aquí.
  11.                     ' Result1(Index) = Not 0
  12.  
  13.                 Case Is < 0 ' El valor es negativo.
  14.                     ' Lo convierto a positivo.
  15.                     Result1(Index) = Math.Abs(Result1(Index))
  16.  
  17.             End Select '/ Result1(Index)
  18.  
  19.  
  20.         Next Index
  21.  
  22.         Result1 = Result1.Distinct().ToArray
  23.         Array.Sort(Result1)

saludos

Título: Re: Como no mostrar ceros y signos negativos en funcion
Publicado por: luis456 en 29 Junio 2014, 17:46 pm
Cita de: Eleкtro en 29 Junio 2014, 14:15 pm
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
  1.         Dim num1 As Integer = -50I '  Un numero negativo para probar este ejemplo.
  2.  
  3.         Dim Result1 As Integer() = {num1 - 1, num1 - 2, num1 + 3, num1 + 6, num1 + 8}
  4.  
  5.         For Index As Integer = 0 To (Result1.Count - 1)
  6.  
  7.             Select Case Result1(Index)
  8.  
  9.                 Case Is = 0 ' El valor es 0.
  10.                     ' Hacer algo con el número 0 aquí.
  11.                     ' Result1(Index) = Not 0
  12.  
  13.                 Case Is < 0 ' El valor es negativo.
  14.                     ' Lo convierto a positivo.
  15.                     Result1(Index) = Math.Abs(Result1(Index))
  16.  
  17.             End Select '/ Result1(Index)
  18.  
  19.  
  20.         Next Index
  21.  
  22.         Result1 = Result1.Distinct().ToArray
  23.         Array.Sort(Result1)

saludos


Gracias Elektro

siempre tan amable lo probare y te dire :)

Luis


Título: Re: Como no mostrar ceros y signos negativos en funcion
Publicado por: luis456 en 1 Julio 2014, 18:33 pm
Cita de: Eleкtro en 29 Junio 2014, 14:15 pm
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
  1.         Dim num1 As Integer = -50I '  Un numero negativo para probar este ejemplo.
  2.  
  3.         Dim Result1 As Integer() = {num1 - 1, num1 - 2, num1 + 3, num1 + 6, num1 + 8}
  4.  
  5.         For Index As Integer = 0 To (Result1.Count - 1)
  6.  
  7.             Select Case Result1(Index)
  8.  
  9.                 Case Is = 0 ' El valor es 0.
  10.                     ' Hacer algo con el número 0 aquí.
  11.                     ' Result1(Index) = Not 0
  12.  
  13.                 Case Is < 0 ' El valor es negativo.
  14.                     ' Lo convierto a positivo.
  15.                     Result1(Index) = Math.Abs(Result1(Index))
  16.  
  17.             End Select '/ Result1(Index)
  18.  
  19.  
  20.         Next Index
  21.  
  22.         Result1 = Result1.Distinct().ToArray
  23.         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



Título: Re: Como no mostrar ceros y signos negativos en funcion
Publicado por: Eleкtro en 1 Julio 2014, 20:26 pm
Cita de: luis456 en  1 Julio 2014, 18:33 pm
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

Título: Re: Como no mostrar ceros y signos negativos en funcion
Publicado por: luis456 en 2 Julio 2014, 06:08 am
Hola

lo que quiero es que no se muestren los ceros :)


Luis


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines