DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Sum of the numbers of one textbox

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Oct 2009

Posts: 18

Reputation: Lida_pink is an unknown quantity at this point

Solved Threads: 0

Lida_pink

Offline

Newbie Poster

Sum of the numbers of one textbox

Oct 25th, 2009

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

•

Join Date: Oct 2009

Posts: 1

Reputation: turseno is an unknown quantity at this point

Solved Threads: 1

turseno

Offline

Newbie Poster

Oct 25th, 2009

•

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)

•

Join Date: Jul 2008

Posts: 505

Reputation: abu taher is an unknown quantity at this point

Solved Threads: 25

abu taher

Offline

Posting Pro

Oct 26th, 2009

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

I like sword. Attack or Defense.

•

Join Date: Oct 2008

Posts: 10

Reputation: Celt.Max is an unknown quantity at this point

Solved Threads: 4

Celt.Max

Offline

Newbie Poster

To all...

Oct 26th, 2009

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:

 Help with Code Tags 
 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

•

Join Date: Oct 2009

Posts: 18

Reputation: Lida_pink is an unknown quantity at this point

Solved Threads: 0

Lida_pink

Offline

Newbie Poster

Oct 26th, 2009

•

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..

•

Join Date: Oct 2009

Posts: 18

Reputation: Lida_pink is an unknown quantity at this point

Solved Threads: 0

Lida_pink

Offline

Newbie Poster

Oct 26th, 2009

•

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:
Help with Code Tags

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....

•

Join Date: Mar 2009

Posts: 914

Reputation: vb5prgrmr will become famous soon enough

Solved Threads: 167

vb5prgrmr

Offline

Posting Shark

Oct 26th, 2009

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...

 Help with Code Tags 
 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

If anyone has helped you solve your problem, please mark your thread as solved.

Thanks

•

Join Date: Jan 2008

Posts: 255

Reputation: AndreRet is an unknown quantity at this point

Solved Threads: 38

AndreRet

Offline

Posting Whiz in Training

Oct 26th, 2009

Try the following to get the sum of an integer -

 Help with Code Tags 
 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