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
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
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:
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
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:
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
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:
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
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
Hola
lo que quiero es que no se muestren los ceros :)
Luis