Adding Array Values

Discussion in 'Visual Basic ( VB )' started by ITGuy2010, Apr 18, 2010.

  1. ITGuy2010

    ITGuy2010 New Member

    Apr 18, 2010
    Likes Received:
    Trophy Points:
    Hello I am trying to add the Sales Revenue for each of the three rows and populate them in their own text box and then get a sum of the three text boxes. Any help would be very much appreciated! For Example:

    1 2 3 4 5 (15)-text box

    1 2 3 4 5 (15)-text box

    2 4 4 3 5 (18)-text box
    (48)-text box

    Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
            Dim ItemCost() As Decimal = {12D, 17.95D, 95D, 86.5D, 78D}
            Dim SoldItems(,) As Integer = New Integer(,) {{txtS1I1.Text, txtS1I2.Text, txtS1I3.Text, txtS1I4.Text, txtS1I5.Text}, _
                                    {txtS2I1.Text, txtS2I2.Text, txtS2I3.Text, txtS2I4.Text, txtS2I5.Text}, _
                                    {txtS3I1.Text, txtS3I2.Text, txtS3I3.Text, txtS3I4.Text, txtS3I5.Text}}
            Dim totals(,) As Decimal = Calculate(SoldItems, ItemCost)
        End Sub
        Private Function Calculate(ByVal SoldItems(,) As Integer, ByVal itemCost() As Decimal) As Decimal(,)
            Dim SalesRevenue(SoldItems.GetUpperBound(0), SoldItems.GetUpperBound(1)) As Decimal
            Dim strItemsSold As String = ""
            Dim sum As String = ""
            For r As Integer = 0 To SoldItems.GetUpperBound(0)
                For c As Integer = 0 To SoldItems.GetUpperBound(1)
                    SalesRevenue(r, c) = CDec(SoldItems(r, c) * itemCost(c))
                    strItemsSold &= FormatCurrency(SalesRevenue(r, c), 2) & vbTab
                strItemsSold &= vbCrLf & vbCrLf
            MessageBox.Show(strItemsSold, "Daily Sales Revenue")
            Return SalesRevenue
        End Function

Share This Page

  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice