Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Marked Solved
Views: 7752

Jun 17th, 2007

Find the highest number.

Expand Post »

Hi all,

I have 3 labels, with 3 captions (i.e. integers)...

Label 1 = 1
Label 2 = 3
Label 3 = 2

What I want to do is search all these labels and find out what the highest number is (in this situation it's 3) so that I can then work out what the next highest value is, for the next label (in the above situation it would be 4.)

Label 4 = 4

Any suggestions?

Thanks.

Similar Threads

calculating sum, average, highest and lowest grades in Visual Basic 4 / 5 / 6
My prime Number generator in Python
to secomd smallest number in array in Java
Please help me find what small errors i have!! in C++
Random number with ascending order help in C++

Prozeen

Reputation Points: 10

Solved Threads: 4

Junior Poster in Training

Offline

50 posts
since Jun 2007

Permalink

Jun 17th, 2007

Re: Find the highest number.

Edit. Sorry, I thought I could help but I misunderstood the question. I don't know how to delete posts.

Last edited by sk8ndestroy14; Jun 17th, 2007 at 5:12 pm.

sk8ndestroy14

Reputation Points: 437

Solved Threads: 1

Posting Virtuoso

Offline

1,851 posts
since Mar 2007

Permalink

Jun 17th, 2007

Re: Find the highest number.

You're Having A Laugh.....Surely !

If You Really..REALLY Don't Know How To Do This, Then Send Info On :

1. Why It Appears You're Using Dynamically Generated Labels
2. Where The Integer Assignements Come From (Random !, Database etc)

SkinHead

Reputation Points: 12

Solved Threads: 2

Light Poster

Offline

31 posts
since May 2007

Permalink

Jun 18th, 2007

Re: Find the highest number.

1) There is actually a total of 10 labels in my project.
2) The integers are generated randomly (depending on what the highest and also previous integer is) using VB.

For example, in this program...

The first label will always be a 1.
The second label will always be a 2 (i.e. the next highest number to use, which is not the same as the previous label.)
But the third label could actually be a 1 or a 3 (i.e. not a value that is the same as the previous label.)

Prozeen

Reputation Points: 10

Solved Threads: 4

Junior Poster in Training

Offline

50 posts
since Jun 2007

Permalink

Jun 18th, 2007

Re: Find the highest number.

Hi,

Just use mutile "If" conditions :

Dim MyVal As Single

MyVal = Val(Label1.Caption)

If Val(Label2.Caption) > MyVal Then
MyVal = Val(Label2.Caption)
End If

If Val(Label3.Caption) > MyVal Then
MyVal = Val(Label3.Caption)
End If

If Val(Label4.Caption) > MyVal Then
MyVal = Val(Label4.Caption)
End If

Msgox "Highest Value Is : " & MyVal

REgards
Veena

QVeen72

Reputation Points: 84

Solved Threads: 140

Posting Shark

Offline

923 posts
since Nov 2006

Permalink

Jun 18th, 2007

Re: Find the highest number.

Thanks QVeen72.

I tried your suggestion and it now works. Previously, I was trying to find the highest number "on the go" without setting it aside (i.e. MyVal) to compare it to the other integers.

Thanks once again.

Prozeen

Reputation Points: 10

Solved Threads: 4

Junior Poster in Training

Offline

50 posts
since Jun 2007

Permalink

Jun 18th, 2007

Re: Find the highest number.

If All The Labels Are On The Same Form, Then Use A Control Array Of Labels With Index Values 0 To 9

Then A Loop Will Do The Trick

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Function MaxLabel ( Optional nLoopMax as Integer = -1 ) as Long
Dim lMax as Long
Dim lValue as Long
Dim nLoop as Integer
 
If nLoop = -1 Then
    nLoopMax = 9
 
For nLoop = 0 to nLoopMax
    lVal = Val(Labels(nLoop).Caption)
    if (lVal > lMax) Then
        lMax = lVal
Next nLoop
 
MaxLabel = lMax
Function MaxLabel ( Optional nLoopMax as Integer = -1 ) as Long
Dim lMax as Long
Dim lValue as Long
Dim nLoop as Integer
 
If nLoop = -1 Then
    nLoopMax = 9
 
For nLoop = 0 to nLoopMax
    lVal = Val(Labels(nLoop).Caption)
    if (lVal > lMax) Then
        lMax = lVal
Next nLoop
 
MaxLabel = lMax

If You Don't Want To Check All The Labels, Then Pass The Index Of The Last Label In As A Parameter To The Check Function

SkinHead

Reputation Points: 12

Solved Threads: 2

Light Poster

Offline

31 posts
since May 2007

Permalink

Jun 18th, 2007

Re: Find the highest number.

Yes the labels are on the same form and in an array. I also need to check all the labels, so I used the following code. Thanks to everyone for their help.

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
'3rd - 10th labels.
yy = 1
Do
    Do
    zz = Int((maxm - 1 + 1) * Rnd + 1)
        If zz <> lbls(yy).Caption Then 'yy = 1-8.
        lbls(yy + 1).Caption = zz 'yy = 2-9.
        Exit Do
        Else
        End If
    Loop Until lbls(yy + 1).Caption <> "" 'yy = 2-9.
    For xyz = 1 To yy + 1 'yy = 1 to 9.
        If lbls(xyz).Caption > myval Then
        myval = lbls(xyz).Caption
        End If
    Next xyz
maxm = myval + 1
yy = yy + 1
Loop Until yy = 9
MsgBox "The next highest value is = " & maxm
'3rd - 10th labels.
yy = 1
Do
    Do
    zz = Int((maxm - 1 + 1) * Rnd + 1)
        If zz <> lbls(yy).Caption Then 'yy = 1-8.
        lbls(yy + 1).Caption = zz 'yy = 2-9.
        Exit Do
        Else
        End If
    Loop Until lbls(yy + 1).Caption <> "" 'yy = 2-9.
    For xyz = 1 To yy + 1 'yy = 1 to 9.
        If lbls(xyz).Caption > myval Then
        myval = lbls(xyz).Caption
        End If
    Next xyz
maxm = myval + 1
yy = yy + 1
Loop Until yy = 9
MsgBox "The next highest value is = " & maxm

Prozeen

Reputation Points: 10

Solved Threads: 4

Junior Poster in Training

Offline

50 posts
since Jun 2007

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Everybody, please read this reply to Kali...

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: anyone interested in developing open source software

DaniWeb Message

Cancel Changes

User Name
Password