[RESOLVED] How to add a value in same text box ?

i made two text boxes and a button in windows form application VS2010

in that i enter a value ex: "24" in first text box

when i press the button the ouput should come as 2+4 ="6" i.e 6 should come as out put in second text box how can i do that .please tell me the logic in code format . i tried this but stuck in implementing logic

Code:

---

Public Class Form1


    Private Sub KryptonButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton2.Click

Dim ftn as integer
dim stn as integer
ftn = TextBox1.Text
stn= val(ftn)
stn = TextBox2.Text
  End Sub
End Class

---

please tell me the code !!!!

Is the intention to add all the digits of the number whatever its size? So 23456 would be 16, for example? In that case you need to split the text into single digits.

vb.net Code:

Dim i As Integer = 0
        For Each digit In TextBox1.Text 'takes advantage of nature of string as char array
            i += Val(digit)
        Next
        TextBox2.Text = i.ToString

Quote:

---

Originally Posted by charuwaka

i made two text boxes and a button in windows form application VS2010

in that i enter a value ex: "24" in first text box

when i press the button the ouput should come as 2+4 ="6" i.e 6 should come as out put in second text box how can i do that .please tell me the logic in code format . i tried this but stuck in implementing logic

Code:

---

Public Class Form1


    Private Sub KryptonButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton2.Click

Dim ftn as integer
dim stn as integer
ftn = TextBox1.Text
stn= val(ftn)
stn = TextBox2.Text
  End Sub
End Class

---

please tell me the code !!!!

---

And what would you do if the user entered 124, do you splut to 12+4 or 1+24. Think past smaller size values.

try this:

Code:

---

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim value As Integer
        If Integer.TryParse(TextBox1.Text, value) Then
            Dim numbers() As Integer = Array.ConvertAll(TextBox1.Text.ToArray, Function(c) CInt(c.ToString))
            Label1.Text = String.Join("+", Array.ConvertAll(numbers, Function(x) x.ToString)) & "=" & numbers.Sum.ToString
        Else
            Label1.Text = ""
        End If
    End Sub

End Class

---

see if user inputs values like 99 then 9+9=18 and 123 then 1+2+3=6 like this anything enters it is converted pls tel the code now

Not like that when i enter 16 then it should come as 1+6=7 and 256 then 2+5+6=13 like that out put should come

Thank You Very much my problem solved

Quote:

---

Originally Posted by charuwaka

Thank You Very much my problem solved

---

Was it solved using the code paul provided? Do you understand what HIS code does?