Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums
 |
•
•
Join Date: Jun 2007
Posts: 50
Reputation: 
Rep Power: 2
Solved Threads: 4
Junior Poster in Training
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.
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.
•
•
Join Date: Mar 2007
Location: Northeast Ohio
Posts: 1,848
Reputation:
Rep Power: 5
Solved Threads: 1
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.
Disclaimer: Nothing I say can be considered credible information (I wonder what that means about this disclaimer then).
•
•
Join Date: May 2007
Location: Warrington, England
Posts: 31
Reputation:
Rep Power: 2
Solved Threads: 2
Light Poster
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)
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)
•
•
Join Date: Jun 2007
Posts: 50
Reputation:
Rep Power: 2
Solved Threads: 4
Junior Poster in Training
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.)
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.)
•
•
Join Date: Nov 2006
Posts: 798
Reputation:
Rep Power: 4
Solved Threads: 110
Master Poster
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
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
•
•
Join Date: Jun 2007
Posts: 50
Reputation:
Rep Power: 2
Solved Threads: 4
Junior Poster in Training
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.
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.
•
•
Join Date: May 2007
Location: Warrington, England
Posts: 31
Reputation:
Rep Power: 2
Solved Threads: 2
Light Poster
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
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
Then A Loop Will Do The Trick
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 = lMaxIf 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
•
•
Join Date: Jun 2007
Posts: 50
Reputation:
Rep Power: 2
Solved Threads: 4
Junior Poster in Training
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.
'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 |
Similar Threads
Other Threads in the Visual Basic 4 / 5 / 6 Forum
- My prime Number generator (Python)
- to secomd smallest number in array (Java)
- Please help me find what small errors i have!! (C++)
- calculating sum, average, highest and lowest grades (Visual Basic 4 / 5 / 6)
- Random number with ascending order help (C++)
- Extracting the highest number with C++ (C++)
Other Threads in the Visual Basic 4 / 5 / 6 Forum
- Previous Thread: To display data in textbox and label
- Next Thread: anyone interested in developing open source software
•
•
•
•
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
Linear Mode
