Programming trouble - Easy to solve?

[Chrissie]

I have a little problem...I have 4 items and I need to pick the best item...after I get 2 values from a textbox....
Item Value1 Value2
A 256 8
B 512 14
C 512 28
D 1024 60

I need to pick an item which can handle the number...
for example...

Value1 = 100 and Value2 = 6 Returns Item A
Value1 = 100 and Value2 = 10 Returns Item B
Value1 = 600 and Value2 = 2 Returns Item D

Can anyone give me a good algorithm to solve this?

[Blobby]

Should it always go the one higher? So if you have an item say 354 12 and and an item 454 12 you are looking for 355 12 it will choose 454 12? Im a bit confused as to the priority of the checking. is it the first number to check first then the second or vice versa? What do the 2 numbers represent as im confused as to why your 2 examples of 100 return A and B?

[Blobby]

Also, what are you storing your items in? have you got an array or something?

[Chrissie]

True...
It will always check for the highest possible...
Both Value1 and Value2 need to be higher...

I just have them plain....

As the given items A-D are the only possible...

They can probably be stored in an array...
I just need the easiest and fastest way

[alex_read]

Hiya Chrissie, try this one ...

[Blobby]

How long u got, ill knock u something up?

[alex_read]

Okay, I was posting before you wrote that, I've modified it slightly - the last one added both numbers up & checked for the line with the highest entry, this one makes sure both individual numbers are higher...

[Chrissie]

Thanks...But it's not doing exactly what I meant...

I have 2 textboxes...Value1.text and Value2.text

Where I enter random numbers...then I have to get the best option...

Not always the highest but the highest after my 2 textbox inputs...

[nemaroller]

This is the algorithm:

Private Sub Command1_Click()
'Given e1 () being a multidemnsional array of numbers
Dim e(4, 2) As Long
e(0, 0) = 256
e(0, 1) = 8
e(1, 0) = 512
e(1, 1) = 14
e(2, 0) = 512
e(2, 1) = 28
e(3, 0) = 1024
e(3, 1) = 60
 
'Given x = first number, y= second number:
x = CLng(Text1.Text)
y = CLng(Text2.Text)
For I = 0 To 3
  If x < e(I, 0) Then
  For K = 0 To 3
    If y < e(K, 1) Then Exit For
    Next
  Exit For
  End If
Next
  
 
  MsgBox e(I, 0)
  MsgBox e(K, 1)
 
 
End Sub

[Blobby]

working on it......

[Blobby]

nemaroller, surely that wont work as your second for loop is referencing array element (0,3)?

[nemaroller]

no it wouldn't, but now it does... its been updated. Ah, the clarification effects of nicotine...

[nemaroller]

I had to change it again.... so much for nicotine.... now it truly works I PROMISE

[Blobby]

hehehe Well it looks like shes buggered off anyway

[Chrissie]

Almost...thanks for all your great help...

When I enter
100 and 24...
I want to have 512 - 28 returned...
Instead I get 256 and 28....

So both need to be true...

Sorry for my weak explanation...

Note: I'm not watching this board all the time...have other stuff to do aswell...

[nemaroller]

I'm going to expect a little appreciation for this one...

Private Sub Command1_Click()
 
'Given e1 () being a multidemnsional array of numbers
Dim e(4, 2) As Long
e(0, 0) = 256
e(0, 1) = 8
e(1, 0) = 512
e(1, 1) = 14
e(2, 0) = 512
e(2, 1) = 28
e(3, 0) = 1024
e(3, 1) = 60
 
'Given x = first number, y= second number:
x = CLng(Text1.Text)
y = CLng(Text2.Text)
For i = 0 To 3
  If Not x > e(i, 0) And Not y > e(i, 1) Then  Exit For
Next
 
'if i>3 then msgbox ("not found") else
  MsgBox e(i, 0)
  MsgBox e(i, 1)
 
End Sub

[Chrissie]

Thanks a lot -xxx-