Sumar dentro de un TextBox

[javirk]

Hola!

bueno, estoy creando un programa que genera un número aleatorio dentro del intervalo que tú le digas, y que tú pongas el resultado de la suma de esas cifras y te devuelva si el resultado es correcto o no haciendo el ordenador la suma también.

Lo que no sé es cómo hacer para que haga la suma dentro de un solo TextBox (si en el textbox pone 3564, pues que te de el resultado de 3+5+4+6=18).

¿Alguien sabe?

P.D: Uso Visual Basic

[Aquaventus]

Hola javirk es cuestion de que lo tomes con calma y analizes, de hecho se va a recorrer la cadena ingresada, aqui te dejo el codigo del evento click al pulsar un boton :

Código vb.net:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Validamos si en caso este vacio
        If TextBox1.Text.Trim.Length = 0 Then
            MessageBox.Show("El Textox esta vacio!")
        Else
            'Pasamos la cadena a un array
            Dim array() As Char = TextBox1.Text.ToCharArray()
            'Declaramos una una variable para la nueva cadena
            Dim nuevo As String = ""
            'Creamos una variable para obtener la suma total
            Dim total As Integer = 0
            'Recorremos el array que contiene la cadena
            For indice As Integer = 0 To array.Length - 1
                'Sumamos los valor recorridos
                total = total + CInt(array(indice).ToString())
                'Si el indice recien comienza le adjuntamos el char
                'sino adjuntamos el + y el char
                If indice = 0 Then
                    nuevo = nuevo & array(indice)
 
                Else
                    nuevo = nuevo & "+" & array(indice)
                End If
                'Si esta en la ultima posicion agregamos el =
                'y adjuntamos el total sumado
                If indice = array.Length - 1 Then
                    nuevo = nuevo & "=" & total
                End If
            Next
            'Imprimimos el resultado
            TextBox1.Text = nuevo
        End If
    End Sub
 

Espero haberte ayudado, lee los comentarios para que entiendas. Saludos!.

[Aquaventus]

ah perdón entendí mal... bueno el código que te pase te sera útil por la suma ya que allí obtienes la el resultado de las cifras! pero bueno... vi que leíste el post pero no diste un gracias... Sé mas considerado a la próxima javirk.

[javirk]

La verdad, lo de dar las gracias se me pasó, estaba pensando en el significado del programa y cerré el navegador por error para probarlo y despues ya no me acordé.

[Aquaventus]

A pesar del karma negativo que me diste no tengo nada contra tí, solo que lo que te dije de dar las "Gracias" no era del linkbutton de "Me gustó,!gracias!" sino que escribas un mensaje dando las gracias de que si te ayudo o no, ya que ello nos da la fuerza para seguir ayudando a ustedes incondicinalmente. Cualquier otro problema no dudes en postearlo, estamos aqui para ayudarlos . Saludos!.