Mensajes

[Muchas gracias Eleкtro, me funciono de maravilla el código muchas gracias.]

Muchas gracias Eleкtro, me funciono de maravilla el código muchas gracias.

[Buenas a todos los que leen este tema.Continuando con mi pequeño proyecto en Visual Studio 2013, me he encontrado con otro inconveniente, el cual es.... ¿Cómo redondear un resultado mostrado en un TextBox?Bueno siendo más específicos, quiero que el resultado de una operación hecha por un procedimiento sea redondeado (obviamente el resultado saldrá en decimales).Buscando por ahí encontré este código.]

Buenas a todos los que leen este tema.

Continuando con mi pequeño proyecto en Visual Studio 2013, me he encontrado con otro inconveniente, el cual es.... ¿Cómo redondear un resultado mostrado en un TextBox?

Bueno siendo más específicos, quiero que el resultado de una operación hecha por un procedimiento sea redondeado (obviamente el resultado saldrá en decimales).

Buscando por ahí encontré este código.

Código (vbnet) [Seleccionar] Expandir

TextBox?.Text = CDec(TextBox?.Text).ToString("N0")

El cual me redondea los decimales a partir del 0.5 para arriba.

Por ejemplo si ingreso 36, el resultado en esta operación seria 6.18, y el código no lo redondea lo deja en 6, pero si ingreso 52 el resultado seria 6.71 y me lo redondea a 7.

Entonces como le hago para que se pueda redondear aparir del 0.5 para arriba.

Este es el código en donde se hace la operación:

Código (vbnet) [Seleccionar] Expandir

' # Intervalo
        Dim num As Double
        Dim Ln10 As Double
        num = Val(TextBox1.Text)
        Ln10 = Math.Log(10)
        TextBox2.Text = 1 + 3.333 * Math.Log(num) / Ln10
        TextBox2.Text = CDec(TextBox2.Text).ToString("N0")
        Intervalo = TextBox6.Text
        TextBox1.Text = ""

Gracias por leer y espero que me puedan ayudar.

[Te agradezco mucho por ayudarme Eleкtro, ya pude hacerlo.Aunque debo de confesar, que en lo del modulo me confundí.Pero al final pude hacerlo, estaba trabajando en el Visual Studio 2008 y las plantillas solo estaban asta la NET Framework v3.0, así que mude mi proyecto al Visual Studio 2013, y utilice este código.]

Te agradezco mucho por ayudarme Eleкtro, ya pude hacerlo.

Aunque debo de confesar, que en lo del modulo me confundí.

Pero al final pude hacerlo, estaba trabajando en el Visual Studio 2008 y las plantillas solo estaban asta la NET Framework v3.0, así que mude mi proyecto al Visual Studio 2013, y utilice este código.

Código (vbnet) [Seleccionar] Expandir

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
' Este codigo esta dentro del boton de "Ordenar"
        Dim integerSet As New SortedSet(Of Integer)
        For Each item As Object In Me.ListBox1.Items
            integerSet.Add(CInt(item))
        Next item

        Me.ListBox1.Items.Clear()
        For Each value As Integer In integerSet
            Me.ListBox1.Items.Add(value)
        Next value
    End Sub

Y este es el resultado:

Si tengo otra duda con mi proyecto espero contar con tu ayuda para poder resolverla.

PD: Aunque este tema ya esta resuelto, la verdad me gustaría que me explicaras mejor lo del modulo ya que no entendí muy bien, pero a fin de cuentas gracias por ayudarme.

Elrtro gracias por responder.

Tu respuesta me libro de un problema pero surgió otro problema.

Entendí lo de String y Integer, en la ListBox, pero no pude implementar tu código ya que me daba un error en As New SortedSet(Of Integer) ya que el tipo 'SortedSet' no está definido. Bueno la verdad no supe en donde poner el código.

Si me explicaras mejor en donde poner el código te lo agradecere

[Hola, estoy trabajando en un pequeño proyecto en Visual studio, en Form y me he encontrado con un problema.]

Hola, estoy trabajando en un pequeño proyecto en Visual studio, en Form y me he encontrado con un problema.

Mi problema es como ordenar los valores agregados a una ListBox por medio de un botón. Me dieron un código que es de las propiedades de la ListBox, estoy hablando del "Sorted". Bueno este es el código que tengo.

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Esto es para agregar los valores a la ListBox
       ListBox1.Items.Add(TextBox1.Text)
       TextBox1.Text = ""
       TextBox1.Focus()
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
' Esto segun es para que se ordenara
       ListBox1.Sorted = True
   End Sub
End Class

Y cuando lo ejecuto ocurre esto:

Si saben como arreglar o que otro código implementar para que se pueda ordenar de menor a mayor se los agradeceré.