Vb.net Interesting Problem- Moving Average

[adarshyam]

Hi friends,
I have an interesting problem in vb.net. And I am struggling to get a solution for this..m trying for the past 3days.. It’s to calculate moving average for the inputs given by the user..

The following are the steps..
1, get 2user inputs in textbox(1st input is number is periods, 2nd is moving range)
2, after getting both the user inputs, the user will click on an input button which must dynamically generate rows for the number of periods given by the user as well as a calculate button must appear dynamically.
3, the user again inputs the values for all the dynamically generated rows and when by pressing calculate button, the moving average for the given moving range must appear in another column

Im half way through and I have attached my progress here.. I would greatly appreciate if u complete it for me.. thanks in advance

Partial Public Class _Default
    Inherits System.Web.UI.Page
 
Protected Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim TxtDyn1 As TextBox()
        Dim TxtDyn2 As TextBox()
        Dim TxtDyn3 As TextBox()
        Dim TxtDyn4 As TextBox()
        Dim numofper As Integer
 
        Try
 
            'to check the textbox for empty
 
            If Not TextBox1.Text Is String.Empty Then
                numofper = TextBox1.Text
                ReDim TxtDyn1(numofper)
                ReDim TxtDyn2(numofper)
                ReDim TxtDyn3(numofper)
                ReDim TxtDyn4(numofper)
 
            Else
                Exit Sub
            End If
 
            'To create the dynamic text box and add the controls to panel
            For i As Integer = 0 To numofper - 1
                TxtDyn1(i) = New TextBox
                Panel1.Controls.Add(TxtDyn1(i))
            Next
            For j As Integer = 0 To numofper - 1
                TxtDyn2(j) = New TextBox
                Panel2.Controls.Add(TxtDyn2(j))
            Next
            For k As Integer = 0 To numofper - 1
                TxtDyn3(k) = New TextBox
                Panel3.Controls.Add(TxtDyn3(k))
            Next
            For l As Integer = 0 To numofper - 1
                TxtDyn4(l) = New TextBox
                Panel4.Controls.Add(TxtDyn4(l))
            Next
 
            Dim mybutton As New Button     (THIS S NOT WORKING )
            mybutton.Text = "button 2"
            AddHandler mybutton.Click, AddressOf button2.click
            Me.Controls.Add(mybutton)
 
        Catch ex As Exception
            MsgBox("Enter a valid Number")
        End Try
 
    End Sub
 
 
End Class

[Plater]

Why not use a DataGridView?
You can tell it to have X amount of columns and Y amount of rows, as well as a button column for doing the calculate?
That would let your user enter data in the correct format?

[adarshyam]

ya i dont know how to use datagridview.. im new to vb.net.. can you please help me in finishing from this point.. because i have my submission tomorrow

[Plater]

Well I cannot give you answers to your homework assignments.If its due this soon, you might not want to make such a drastic switch.

What part of that button code is not working?

[adarshyam]

i have created two text boxes for user input,.. 1st box ll get the number of rows needed in the columns and 2nd box ll get the moving average range. and for example if the user enters 10 and clicks on button1, then 10 rows of text boxes will be created dynamically.. til this i have done..

Now what i want is to display another button dynamically after the rows r displayed .. button name calculate.. and after the user enters all values in column no.3 and presses calculate button, the moving average for the given range(textbox2) must be calculated in column no.4 .. [ column 1 &2 are just for misc inputs so not important]. for ex..
textbox 1 10
textbox 2 2

10
20
10 15
40 15
10 25
20 25
10 15
20 15
10 15
20 15


hope u understand my prob.. pls help me with some ideas

[adarshyam]

can you please help me correcting errors.. i was trying it for days..


Partial Public Class _Default
Inherits System.Web.UI.Page

Dim textdynamic1 As New ArrayList()
Dim textdynamic2 As New ArrayList()
Dim textdynamic3 As New ArrayList()
Dim textdynamic4 As New ArrayList()

Dim TxtDyn1 As TextBox()
Dim TxtDyn2 As TextBox()
Dim TxtDyn3 As TextBox()
Dim TxtDyn4 As TextBox()

Dim numofper As Integer
Dim nval As Integer

Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


Try

'to check the textbox for empty

If Not TextBox1.Text Is String.Empty Then
numofper = TextBox1.Text

ReDim TxtDyn1(numofper)
ReDim TxtDyn2(numofper)
ReDim TxtDyn3(numofper)
ReDim TxtDyn4(numofper)

Else
Exit Sub
End If

'To create the dynamic text box and add the controls to panel, save them in session state

For i As Integer = 0 To numofper - 1
TxtDyn1(i) = New TextBox
Panel1.Controls.Add(TxtDyn1(i))
textdynamic1.Add(textdynamic1)
Session("key1") = textdynamic1
Next
For j As Integer = 0 To numofper - 1
TxtDyn2(j) = New TextBox
Panel2.Controls.Add(TxtDyn2(j))
textdynamic2.Add(textdynamic2)
Session("key2") = textdynamic2
Next
For k As Integer = 0 To numofper - 1
TxtDyn3(k) = New TextBox
Panel3.Controls.Add(TxtDyn3(k))
textdynamic3.Add(textdynamic3)
Session("key3") = textdynamic3
Next
For l As Integer = 0 To numofper - 1
TxtDyn4(l) = New TextBox
Panel4.Controls.Add(TxtDyn4(l))
textdynamic4.Add(textdynamic4)
Session("key4") = textdynamic4
TxtDyn4(l).Enabled = False

Next

Catch ex As Exception
MsgBox("Enter a valid Number")
End Try

End Sub


Public Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
nval = TextBox2.Text

Dim sum As Integer
Dim k As Integer
Dim l As Integer

'retrieving values from session state and calculating moving average

If Session("key3") IsNot Nothing Then
If Session("key4") IsNot Nothing Then
Dim newArr1 As ArrayList = DirectCast(Session("key3"), ArrayList)
Dim newArr2 As ArrayList = DirectCast(Session("key4"), ArrayList)

For t As Integer = (nval + 1) To numofper
Do
Do
sum += TxtDyn3(k).Text
k += 1

Loop While k <= nval

TxtDyn4(l).Text = sum / nval
l += 1

Loop While l <= numofper
Next
End If
End If


End Sub


End Class