944,131 Members | Top Members by Rank

Ad:
Jun 17th, 2007
0

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
Reputation Points: 10
Solved Threads: 4
Junior Poster in Training
Prozeen is offline Offline
50 posts
since Jun 2007
Jun 17th, 2007
0

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.
Reputation Points: 437
Solved Threads: 1
Posting Virtuoso
sk8ndestroy14 is offline Offline
1,851 posts
since Mar 2007
Jun 17th, 2007
0

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)
Reputation Points: 12
Solved Threads: 2
Light Poster
SkinHead is offline Offline
31 posts
since May 2007
Jun 18th, 2007
0

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.)
Reputation Points: 10
Solved Threads: 4
Junior Poster in Training
Prozeen is offline Offline
50 posts
since Jun 2007
Jun 18th, 2007
0

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
Reputation Points: 84
Solved Threads: 140
Posting Shark
QVeen72 is offline Offline
923 posts
since Nov 2006
Jun 18th, 2007
0

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.
Reputation Points: 10
Solved Threads: 4
Junior Poster in Training
Prozeen is offline Offline
50 posts
since Jun 2007
Jun 18th, 2007
0

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)
  1. Function MaxLabel ( Optional nLoopMax as Integer = -1 ) as Long
  2. Dim lMax as Long
  3. Dim lValue as Long
  4. Dim nLoop as Integer
  5.  
  6. If nLoop = -1 Then
  7. nLoopMax = 9
  8.  
  9. For nLoop = 0 to nLoopMax
  10. lVal = Val(Labels(nLoop).Caption)
  11. if (lVal > lMax) Then
  12. lMax = lVal
  13. Next nLoop
  14.  
  15. 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
Reputation Points: 12
Solved Threads: 2
Light Poster
SkinHead is offline Offline
31 posts
since May 2007
Jun 18th, 2007
0

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)
  1. '3rd - 10th labels.
  2. yy = 1
  3. Do
  4. Do
  5. zz = Int((maxm - 1 + 1) * Rnd + 1)
  6. If zz <> lbls(yy).Caption Then 'yy = 1-8.
  7. lbls(yy + 1).Caption = zz 'yy = 2-9.
  8. Exit Do
  9. Else
  10. End If
  11. Loop Until lbls(yy + 1).Caption <> "" 'yy = 2-9.
  12. For xyz = 1 To yy + 1 'yy = 1 to 9.
  13. If lbls(xyz).Caption > myval Then
  14. myval = lbls(xyz).Caption
  15. End If
  16. Next xyz
  17. maxm = myval + 1
  18. yy = yy + 1
  19. Loop Until yy = 9
  20. MsgBox "The next highest value is = " & maxm
Reputation Points: 10
Solved Threads: 4
Junior Poster in Training
Prozeen is offline 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.
Message:
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





About Us | Contact Us | Advertise | Acceptable Use Policy
Forum Index | Build Custom RSS Feed


Follow us on Twitter


© 2011 DaniWeb® LLC