A1VBCode Forums / Visual Basic (VB 4/5/6) / General Visual Basic / Help with homework / Latest Posts

RE: Help with homework

CDRIVE — Mon, 12 May 2008 11:37:29 GMT

Mike, you may want to add this as the first command in the command1.Click event. It will eliminate odd looking MsgBox messages.

If Text1.Text = "" Then
MsgBox "You did not enter anything!"
Exit Sub
End If

RE: Help with homework

CDRIVE — Sun, 11 May 2008 10:27:21 GMT

Mark (5/11/2008)

This is pretty close to what Keith had suggested.

Mark, I'm glad you posted this. In my code (using a ListBox) I didn't include a MsgBox in the event of a match not found. After I posted that code I added it to my project using a Bln flag, much the same way that Keith did in his code. Eliminating the flag is a plus though.

RE: Help with homework

Mark — Sun, 11 May 2008 09:42:00 GMT

This is pretty close to what Keith had suggested.

Private Sub Command1_Click()
Dim UB As Integer
Dim N As Integer

'UBound finds the upper value of an array
UB = UBound(lngAccounts)

'Loop through the array and see if there is a match.
For N = 0 To UB
If lngAccounts(N) = Val(Trim(Text1.Text)) Then
'exit the loop if the item was found
Exit For
End If
Next

'If the loop counter is greater than the UBound of the array the
'item was not found in the array.
If N > UB Then
MsgBox Text1.Text & " was not been found!"
Else
MsgBox Text1.Text & " was found at index position " & N
End If

End Sub

RE: Help with homework

Keithuk — Sun, 11 May 2008 07:25:34 GMT

Nicely put Chris.

Option Explicit

Dim lngAccounts(17) As Long

Private Sub Command1_Click()

Dim N As Integer
Dim Found As Boolean

'UBound finds the upper value of an array
For N = 0 To UBound(lngAccounts)
If lngAccounts(N) = Val(Trim(Text1.Text)) Then
MsgBox Text1.Text & " as been found!"
Found = True
End If
Next
If Found = False Then
MsgBox Text1.Text & " as not been found!"
End If

End Sub

Private Sub Form_Load()

lngAccounts(0) = 5658845
lngAccounts(1) = 4520125
lngAccounts(2) = 7895122
lngAccounts(3) = 8777541
lngAccounts(4) = 8451277
lngAccounts(5) = 1302850
lngAccounts(6) = 8080152
lngAccounts(7) = 4562555
lngAccounts(8) = 5552012
lngAccounts(9) = 5050552
lngAccounts(10) = 7825877
lngAccounts(11) = 1250255
lngAccounts(12) = 1005231
lngAccounts(13) = 6545231
lngAccounts(14) = 3852085
lngAccounts(15) = 7576651
lngAccounts(16) = 7881200
lngAccounts(17) = 4581002

End Sub

RE: Help with homework

CDRIVE — Sun, 11 May 2008 00:23:18 GMT

mike123 (5/10/2008)

I'm having trouble with checking the number from the textbox with the numbers in the arrays. I'm not really sure where to go from here.

Here is what I have so far:

Dim intAccounts(17) As Integer
Dim intCount As Integer

intAccounts(0) = 5658845
intAccounts(1) = 4520125
intAccounts(2) = 7895122

Mike, the first thing you need to do is change intAccounts(17) to a Long Integer, or you will get an Overflow error.

Option Explicit
Dim lngAccounts(17) As Long

Integers can only hold numerical values between -32,768 to 32,767. Secondly, if your instructor will permit you to use a ListBox along with your TextBox it will make searching for a value match very convenient. Once you have the array values in a ListBox you can search for a match with something like this partial code that goes in a For - Next Loop...

If (lngAccounts(i)) = Text1.Text Then
List1.ListIndex = (i)
MsgBox "A Match Has Been Found!"
End If

As Keith stated earlier, we will help with assignments but encourage the student to take the initiative to at least attempt to complete the code snippets themselves.

Good luck!

RE: Help with homework

mike123 — Sat, 10 May 2008 19:12:50 GMT

Hi Keithuk. I have seen helping a lot of people on this forum. First I want to thank you for your time.

I'm having trouble with checking the number from the textbox with the numbers in the arrays. I'm not really sure where to go from here.

Here is what I have so far:

Dim intAccounts(17) As Integer
Dim intCount As Integer

intAccounts(0) = 5658845
intAccounts(1) = 4520125
intAccounts(2) = 7895122
intAccounts(3) = 8777541
intAccounts(4) = 8451277
intAccounts(5) = 1302850
intAccounts(6) = 8080152
intAccounts(7) = 4562555
intAccounts(8) = 5552012
intAccounts(9) = 5050552
intAccounts(10) = 7825877
intAccounts(11) = 1250255
intAccounts(12) = 1005231
intAccounts(13) = 6545231
intAccounts(14) = 3852085
intAccounts(15) = 7576651
intAccounts(16) = 7881200
intAccounts(17) = 4581002

RE: Help with homework

Keithuk — Fri, 09 May 2008 10:43:13 GMT

Welcome to A1vbcode Mike.

Well we won't do homework for you but we will help with any problems you have.

Which part are you having trouble with?

Putting the number into an array?

Checking the number entered in a TextBox with the numbers in the array?

Help with homework

mike123 — Thu, 08 May 2008 23:43:18 GMT

Hi. I am stuck on this problem and I could not find an examples. Can someone help me with this? I really appreciate it. Thank you in advance.

Charge Account Validation:
Create an application that allows the user to enter a charge account number. The application should be determine whether the number is valid by comparing it to the numbers in the following list(there are more numbers but I'll just add to the code):
5658845
8080152
1005231
The list of numbers should be stored in an array. A sequential search should be used to locate the number entered by the user. If the user enters a number that is in the array, the program should display a message indicating the number is valid. If the user enters a number that is not in the array, the program should display a message indicating the number is invalid.

dim Accounts() as integer= {5658845,8080152,1005231}