VB.NET

VB.NET RSS

How to find Max????

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Mar 2009

Posts: 7

Reputation: zahraj is an unknown quantity at this point

Solved Threads: 0

zahraj

Offline

Newbie Poster

How to find Max????

Mar 18th, 2009

hi

i want code in VB.net 2008 or 2005 to find Max for negative value ??? also this function can find max for positive value

Example:
-223.5 , -456.7 , - 999.7 , -78.9

Max= -78.9

please help me

•

Join Date: Mar 2009

Posts: 44

Reputation: crazyhorse09 is an unknown quantity at this point

Solved Threads: 4

crazyhorse09 crazyhorse09 is offline

Offline

Light Poster

Re: How to find Max????

Mar 18th, 2009

OK, you didn't say how you got those values, so I just added them to an arraylist during form_load event. My code is a little backwards, but it works for me, lol.

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
 Dim dblArray As New ArrayList()
        dblArray.Add("-223.5")
        dblArray.Add("-78.9")
        dblArray.Add("-999.7")
        dblArray.Add("-456.7")
 
        Dim holdMin As String = ""
        Dim holdMax As String = ""
 
 
        'get max & min
        For i = 0 To dblArray.Count - 1
            For i2 = 1 To dblArray.Count - 1
                If dblArray.Item(i) > dblArray.Item(i2) Then
                    If dblArray.Item(i) > holdMax Then
                        holdMax = dblArray.Item(i)
                        holdMin = dblArray.Item(i2)
                    Else
                        holdMax = dblArray.Item(i2)
                        holdMin = holdMin
                    End If
                ElseIf dblArray.Item(i) < dblArray.Item(i2) Then
                    If dblArray.Item(i) < holdMin Then
                        holdMin = dblArray.Item(i)
                        holdMax = dblArray.Item(i2)
                    Else
                        holdMin = dblArray.Item(i2)
                        holdMax = holdMax
                    End If
                End If
            Next
        Next
 
'this is the minimum value for some reason :P
        TextBox2.Text = holdMax
'this is the maximum value for some reason :P
        TextBox3.Text = holdMin
 Dim dblArray As New ArrayList()
        dblArray.Add("-223.5")
        dblArray.Add("-78.9")
        dblArray.Add("-999.7")
        dblArray.Add("-456.7")

        Dim holdMin As String = ""
        Dim holdMax As String = ""


        'get max & min
        For i = 0 To dblArray.Count - 1
            For i2 = 1 To dblArray.Count - 1
                If dblArray.Item(i) > dblArray.Item(i2) Then
                    If dblArray.Item(i) > holdMax Then
                        holdMax = dblArray.Item(i)
                        holdMin = dblArray.Item(i2)
                    Else
                        holdMax = dblArray.Item(i2)
                        holdMin = holdMin
                    End If
                ElseIf dblArray.Item(i) < dblArray.Item(i2) Then
                    If dblArray.Item(i) < holdMin Then
                        holdMin = dblArray.Item(i)
                        holdMax = dblArray.Item(i2)
                    Else
                        holdMin = dblArray.Item(i2)
                        holdMax = holdMax
                    End If
                End If
            Next
        Next

'this is the minimum value for some reason :P
        TextBox2.Text = holdMax
'this is the maximum value for some reason :P
        TextBox3.Text = holdMin