Request for help

[DSUstudent59]

I am working on an assignment due this Friday ( my teacher has told that he can not help me ) and have some sort of logic error. I am trying to create a very basic program that ask the user to enter a positive integer value and give back the sum of 1 to the defined value. example --> user enters 10 & the program gives the answer of 55 ( the sum of all integer between 1 & 10)

        Dim intCounter As Integer
        Dim intNumber As Integer
        Dim intNumberSum As Integer
        Dim Numeric As Integer = 1
        Dim strInputBox As String

        strInputBox = InputBox("Please enter a positive integer value", "Input needed")

        intNumber = CInt(strInputBox)

        If strInputBox < 1 Then
            MessageBox.Show("Value can not be less then 1")



        End If

        Do While intCounter < intNumber
            intNumberSum = intCounter + 1
            intCounter += 1
            Numeric = +1
 ' last idea tried to get the logic work.  I don't think this line is really needed. My line of thinking is the counter should be used to get the new value and add one to it

           Loop

        MessageBox.Show("The sum of the numbers 1 through " & strInputBox & " is " & intNumberSum & ".")

    End Sub

[dunfiddlin]

intNumberSum = intCounter + 1

Just think about what this line actually does for 5 seconds, then think about what it should do. Then read my signature!

[thebuffalo]

I'll give you a hint.....

Public Function SumOfIntegers(ByVal int As Integer) As Integer
        Dim sum As New Integer
        For i = 1 To int
            'Code Goes Here...
        Next
        Return sum
    End Function

Now the real question is, how can I make it so I can enter a value of over 65535 and not get an error.....

[DSUstudent59]

Your hint is a bit over my head as this my first time dealing with programming. Would you please break it down a bit and add a line or two about why it is done that way.

I'll give you a hint.....

Public Function SumOfIntegers(ByVal int As Integer) As Integer
        Dim sum As New Integer
        For i = 1 To int
            'Code Goes Here...
        Next
        Return sum
    End Function

Now the real question is, how can I make it so I can enter a value of over 65535 and not get an error.....

[DSUstudent59]

as I am very new to programming and having a learning disability I would to like to ask for a bit more detail as this is rocket science to me.

[thebuffalo]

Public Function SumOfIntegers(ByVal int As Integer) As Integer 'You do it this way because a function returns a value, your answer, and you can easily put your integer from the textbox into the function.
        Dim sum As New Integer ' This is your total sum
        For i = 1 To int ' For every number from 1 to your integer, i = that number, this is a loop that will happen for each "i"
            'This is the only line of code you need, think about your question.... you take 1, then add 2, then add 3, the sum would be the previous number before adding the next number which would be "i"
            sum += i
        Next
        Return sum ' This returns your final value
    End Function
 
' To call the function you will have to do this... Most Likely in a button.click event that will be below your text box.
Textbox1.Text = SumOfIntegers(Textbox1.Text)