Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Marked Solved
Views: 1932

Oct 25th, 2009

Sum of the numbers of one textbox

Expand Post »

How can I get the sum of the numbers of only one textbox?
For example text1.text= 1367
How to get the sum of this 4 digit number?

I appreciate your assistance in advance.
Lida

Similar Threads

Smallest, Largest & Sum of 5 numbers in C
Sum of numbers in Assembly
Sum of Positive and Negative numbers in C++
need help getting program to sum numbers in Java
Displaying the Sum of Even and Odd numbers in C++

Lida_pink

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

19 posts
since Oct 2009

Permalink

Oct 25th, 2009

Re: Sum of the numbers of one textbox

Click to Expand / Collapse Quote originally posted by Lida_pink ...

How can I get the sum of the numbers of only one textbox?
For example text1.text= 1367
How to get the sum of this 4 digit number?

I appreciate your assistance in advance.
Lida

Dear Lida,

Try this:

text1.text = 1367
text2.text = sum(text1.text)

turseno

Reputation Points: 10

Solved Threads: 1

Newbie Poster

Offline

1 posts
since Oct 2009

Permalink

Oct 26th, 2009

Re: Sum of the numbers of one textbox

if you want only 4 digit will type in text box then adjust the properties of text box. max length = 4

abu taher

Reputation Points: 14

Solved Threads: 78

Practically a Posting Shark

Offline

835 posts
since Jul 2008

Permalink

Oct 26th, 2009

To all...

I'm not sure if the solution is so easy as you write... VB(at least my 6 one) does not have the sum function... its necessary to write it at first. It could looks like this:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Public Function SUM(sNumber as String) As Integer
dim iX as integer, iCount as integer
     for iX = 1 to len(sNumber)
          iCount = iCount + CInt(Mid(sNumber, iX, 1))
     Next iX
     SUM = iCount
End Function
Public Function SUM(sNumber as String) As Integer
dim iX as integer, iCount as integer
     for iX = 1 to len(sNumber)
          iCount = iCount + CInt(Mid(sNumber, iX, 1))
     Next iX
     SUM = iCount
End Function

Celt.Max

Reputation Points: 11

Solved Threads: 4

Newbie Poster

Offline

13 posts
since Oct 2008

Permalink

Oct 26th, 2009

Re: Sum of the numbers of one textbox

Click to Expand / Collapse Quote originally posted by turseno ...

Dear Lida,

Try this:

text1.text = 1367
text2.text = sum(text1.text)

Unfortunately this also doesn't work....I've already tried it..

Lida_pink

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

19 posts
since Oct 2009

Permalink

Oct 26th, 2009

Re: Sum of the numbers of one textbox

Click to Expand / Collapse Quote originally posted by Celt.Max ...

I'm not sure if the solution is so easy as you write... VB(at least my 6 one) does not have the sum function... its necessary to write it at first. It could looks like this:
Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Public Function SUM(sNumber as String) As Integer
dim iX as integer, iCount as integer
     for iX = 1 to len(sNumber)
          iCount = iCount + CInt(Mid(sNumber, iX, 1))
     Next iX
     SUM = iCount
End Function
Public Function SUM(sNumber as String) As Integer dim iX as integer, iCount as integer for iX = 1 to len(sNumber) iCount = iCount + CInt(Mid(sNumber, iX, 1)) Next iX SUM = iCount End Function

This one doesn't work either....

Lida_pink

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

19 posts
since Oct 2009

Permalink

Oct 26th, 2009

Re: Sum of the numbers of one textbox

Lida_Pink,

Lets make sure of our definitions first... The sum of numbers is, those numbers being added together, while the product of numbers is, those numbers being multiplied together. So if you want the sum of numbers in a string then celt.max's code does work...

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Option Explicit
 
Private Sub Form_Load()
Dim Result As Integer
Result = SUM("1234")
MsgBox Result
End Sub
 
Public Function SUM(sNumber As String) As Integer
Dim iX As Integer, iCount As Integer
     For iX = 1 To Len(sNumber)
          iCount = iCount + CInt(Mid(sNumber, iX, 1))
     Next iX
     SUM = iCount
End Function
Option Explicit

Private Sub Form_Load()
Dim Result As Integer
Result = SUM("1234")
MsgBox Result
End Sub

Public Function SUM(sNumber As String) As Integer
Dim iX As Integer, iCount As Integer
     For iX = 1 To Len(sNumber)
          iCount = iCount + CInt(Mid(sNumber, iX, 1))
     Next iX
     SUM = iCount
End Function

However, if you are wanting the product of the numbers, then yes a different solution is needed. So, are you wanting the product of these numbers?

Good Luck

vb5prgrmr

Reputation Points: 156

Solved Threads: 296

Posting Virtuoso

Offline

1,670 posts
since Mar 2009

Permalink

Oct 26th, 2009

Re: Sum of the numbers of one textbox

Try the following to get the sum of an integer -

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Command1_Click()
On Error GoTo Errorhandler
x = InputBox("Please Enter an Integer.", , Text1.Text)
If x <> "" Then
    List1.AddItem Str(x)
        Do While x <> 1
            If x Mod 2 = 0 Then
                x = x / 2
            Else
                x = (x * 3) + 1
            End If
            List1.AddItem Str(x)
        Loop
'Number of steps used
Label1 = List1.ListCount - 1
End If
Errorhandler:
    Exit Sub
End Sub
 
'Even numbers are divided by 2
'Odd numbers are multiplied by 3 and are then increased by 1
'The problem ends by reaching the number 1
Private Sub Command1_Click()
On Error GoTo Errorhandler
x = InputBox("Please Enter an Integer.", , Text1.Text)
If x <> "" Then
    List1.AddItem Str(x)
        Do While x <> 1
            If x Mod 2 = 0 Then
                x = x / 2
            Else
                x = (x * 3) + 1
            End If
            List1.AddItem Str(x)
        Loop
'Number of steps used
Label1 = List1.ListCount - 1
End If
Errorhandler:
    Exit Sub
End Sub

'Even numbers are divided by 2
'Odd numbers are multiplied by 3 and are then increased by 1
'The problem ends by reaching the number 1

AndreRet

Reputation Points: 329

Solved Threads: 347

Senior Poster

Offline

3,700 posts
since Jan 2008

Permalink

Oct 26th, 2009

Re: Sum of the numbers of one textbox

I need the sum of the numbers. And thank you very much. Your answer is correct.
Cheers,
Lids

Lida_pink

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

19 posts
since Oct 2009

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: datagrid in vb6 problem

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Encrypt and Decrypt

DaniWeb Message

Cancel Changes

User Name
Password