Results 1 to 11 of 11

Thread: one final project ! resolved!!!!

  1. Dec 2nd, 2004, 10:02 AM #1
    jlbovo
    jlbovo is offline

    Thread Starter
    Addicted Member
    Join Date
    Oct 2004
    Location
    youngstown, oh
    Posts
    202

    Resolved one final project ! resolved!!!!

    ok this is it, the last program for class, and i think its hard. its a simple idea but i cant put it into code. it for a car repair garage, and they sell there own spark plugs. you would use this prog to look up the garages part number of the spark plug. the user picks brand, then input part number, presses Lookup, and it should display the Garages part number equivenlet to the brand and part number input by user.
    i have once basic form, where user will select the Brand from (lstBrand) and then in a text box(txtPartNumber) the user will input the part number. so im pretty sure i have to either create a two-dimension table, or an array of user-def date type. i am perfering the 2Dtable. i have command button (cmdLookUp) and then in one last label it displays the Garages part number in a Label (lblVBPartNumber).
    -so far thsi is all i have for the table
    VB Code:
    1. Dim strPartNumber(0 to 8, 0 to 3) as String
    i have 9x4 tabl for the data..any help would be great !! thanks - justin
    Last edited by jlbovo; Dec 3rd, 2004 at 01:13 AM.
    Reply With Quote Reply With Quote
  2. Dec 2nd, 2004, 10:33 AM #2
    jlbovo
    jlbovo is offline

    Thread Starter
    Addicted Member
    Join Date
    Oct 2004
    Location
    youngstown, oh
    Posts
    202
    ok i got this going for me so far...
    VB Code:
    1. Private Sub Form_Load()

    2.  
    3.     mstrPartNumber(0, 0) = "PR214"

    4.     mstrPartNumber(0, 1) = "MR43T"

    5.     mstrPartNumber(0, 2) = "RBL8"

    6.     mstrPartNumber(0, 3) = "14K22"

    7.     mstrPartNumber(1, 0) = "PR223"

    8.     mstrPartNumber(1, 1) = "R43"

    9.     mstrPartNumber(1, 2) = "RJ6"

    10.     mstrPartNumber(1, 3) = "14K24"

    11.     mstrPartNumber(2, 0) = "PR224"

    12.     mstrPartNumber(2, 1) = "R43N"

    13.     mstrPartNumber(2, 2) = "RN4"

    14.     mstrPartNumber(2, 3) = "14K30"

    15.     mstrPartNumber(3, 0) = "PR246"

    16.     mstrPartNumber(3, 1) = "R46N"

    17.     mstrPartNumber(3, 2) = "RN8"

    18.     mstrPartNumber(3, 3) = "14K32"

    19.     mstrPartNumber(4, 0) = "PR247"

    20.     msrtPartNumber(4, 1) = "R46TS"

    21.     mstrPartNumber(4, 2) = "RBL17Y"

    22.     mstrPartNumber(4, 3) = "14K33"

    23.     mstrPartNumber(5, 0) = "PR248"

    24.     mstrPartNumber(5, 1) = "R46TX"

    25.     mstrPartNumber(5, 2) = "RBL12-6"

    26.     mstrPartNumber(5, 3) = "14K35"

    27.     mstrPartNumber(6, 0) = "PR324"

    28.     mstrPartNumber(6, 1) = "S46"

    29.     mstrPartNumber(6, 2) = "J11"

    30.     mstrPartNumber(6, 3) = "14K38"

    31.     mstrPartNumber(7, 0) = "PR326"

    32.     mstrPartNumber(7, 1) = "SR46E"

    33.     mstrPartNumber(7, 2) = "XEJ8"

    34.     mstrPartNumber(7, 3) = "14K40"

    35.     mstrPartNumber(8, 0) = "PR444"

    36.     mstrPartNumber(8, 1) = "47L"

    37.     mstrPartNumber(8, 2) = "H12"

    38.     mstrPartNumber(8, 3) = "14K44"

    39.     

    40. End Sub
    that'll load my data into the table. and the part number that is supsoed to come up in the label at the end will always be in Column "0"..ex(0,1)(0,6). eveything in column "1" is Brand A. Column "2" is Brand B. and Column "3" is Brand X...
    Reply With Quote Reply With Quote
  3. Dec 2nd, 2004, 04:46 PM #3
    jlbovo
    jlbovo is offline

    Thread Starter
    Addicted Member
    Join Date
    Oct 2004
    Location
    youngstown, oh
    Posts
    202
    if anyone still wants to help heres my code so far....
    VB Code:
    1. Option Explicit

    2.  
    3. 'Dimension the 2d array.

    4. Dim mstrPartNumber(8, 3) As String

    5. Private Sub cmdLookUp_Click()

    6. 'What happens when you click Look up

    7.  
    8. 'Dimension Variables.

    9. Dim strPartNumber As String

    10.  
    11. 'convert text input in to a variable

    12. strPartNumber = UCase(txtPartNumber.Text)

    13.  
    14. 'used case to decide on brand and part number.

    15. Select Case lstBrand.Text

    16.  
    17. 'case for brand a

    18.     Case "Brand A"

    19.         If strPartNumber = UCase(mstrPartNumber(0, 1)) Then

    20.             lblVBPartNumber.Caption = mstrPartNumber(0, 0)

    21.         End If

    22.         If strPartNumber = UCase(mstrPartNumber(1, 1)) Then

    23.             lblVBPartNumber.Caption = mstrPartNumber(1, 0)

    24.         End If

    25.         If strPartNumber = UCase(mstrPartNumber(2, 1)) Then

    26.             lblVBPartNumber.Caption = mstrPartNumber(2, 0)

    27.         End If

    28.         If strPartNumber = UCase(mstrPartNumber(3, 1)) Then

    29.             lblVBPartNumber.Caption = mstrPartNumber(3, 0)

    30.         End If

    31.         If strPartNumber = UCase(mstrPartNumber(4, 1)) Then

    32.             lblVBPartNumber.Caption = mstrPartNumber(4, 0)

    33.         End If

    34.         If strPartNumber = UCase(mstrPartNumber(5, 1)) Then

    35.             lblVBPartNumber.Caption = mstrPartNumber(5, 0)

    36.         End If

    37.         If strPartNumber = UCase(mstrPartNumber(6, 1)) Then

    38.             lblVBPartNumber.Caption = mstrPartNumber(6, 0)

    39.         End If

    40.         If strPartNumber = UCase(mstrPartNumber(7, 1)) Then

    41.             lblVBPartNumber.Caption = mstrPartNumber(7, 0)

    42.         End If

    43.         If strPartNumber = UCase(mstrPartNumber(8, 1)) Then

    44.             lblVBPartNumber.Caption = mstrPartNumber(8, 0)

    45.         End If

    46. 'case for brand b

    47.     Case "Brand B"

    48.         If strPartNumber = UCase(mstrPartNumber(0, 2)) Then

    49.             lblVBPartNumber.Caption = mstrPartNumber(0, 0)

    50.         End If

    51.         If strPartNumber = UCase(mstrPartNumber(1, 2)) Then

    52.             lblVBPartNumber.Caption = mstrPartNumber(1, 0)

    53.         End If

    54.         If strPartNumber = UCase(mstrPartNumber(2, 2)) Then

    55.             lblVBPartNumber.Caption = mstrPartNumber(2, 0)

    56.         End If

    57.         If strPartNumber = UCase(mstrPartNumber(3, 2)) Then

    58.             lblVBPartNumber.Caption = mstrPartNumber(3, 0)

    59.         End If

    60.         If strPartNumber = UCase(mstrPartNumber(4, 2)) Then

    61.             lblVBPartNumber.Caption = mstrPartNumber(4, 0)

    62.         End If

    63.         If strPartNumber = UCase(mstrPartNumber(5, 2)) Then

    64.             lblVBPartNumber.Caption = mstrPartNumber(5, 0)

    65.         End If

    66.         If strPartNumber = UCase(mstrPartNumber(6, 2)) Then

    67.             lblVBPartNumber.Caption = mstrPartNumber(6, 0)

    68.         End If

    69.         If strPartNumber = UCase(mstrPartNumber(7, 2)) Then

    70.             lblVBPartNumber.Caption = mstrPartNumber(7, 0)

    71.         End If

    72.         If strPartNumber = UCase(mstrPartNumber(8, 2)) Then

    73.             lblVBPartNumber.Caption = mstrPartNumber(8, 0)

    74.         End If

    75. 'Case for brand X

    76.     Case "Brand X"

    77.         If strPartNumber = UCase(mstrPartNumber(0, 3)) Then

    78.             lblVBPartNumber.Caption = mstrPartNumber(0, 0)

    79.         End If

    80.         If strPartNumber = UCase(mstrPartNumber(1, 3)) Then

    81.             lblVBPartNumber.Caption = mstrPartNumber(1, 0)

    82.         End If

    83.         If strPartNumber = UCase(mstrPartNumber(2, 3)) Then

    84.             lblVBPartNumber.Caption = mstrPartNumber(2, 0)

    85.         End If

    86.         If strPartNumber = UCase(mstrPartNumber(3, 3)) Then

    87.             lblVBPartNumber.Caption = mstrPartNumber(3, 0)

    88.         End If

    89.         If strPartNumber = UCase(mstrPartNumber(4, 3)) Then

    90.             lblVBPartNumber.Caption = mstrPartNumber(4, 0)

    91.         End If

    92.         If strPartNumber = UCase(mstrPartNumber(5, 3)) Then

    93.             lblVBPartNumber.Caption = mstrPartNumber(5, 0)

    94.         End If

    95.         If strPartNumber = UCase(mstrPartNumber(6, 3)) Then

    96.             lblVBPartNumber.Caption = mstrPartNumber(6, 0)

    97.         End If

    98.         If strPartNumber = UCase(mstrPartNumber(7, 3)) Then

    99.             lblVBPartNumber.Caption = mstrPartNumber(7, 0)

    100.         End If

    101.         If strPartNumber = UCase(mstrPartNumber(8, 3)) Then

    102.             lblVBPartNumber.Caption = mstrPartNumber(8, 0)

    103.         End If

    104. End Select

    105.         

    106. End Sub

    107. Private Sub Form_Load()

    108. 'loads the table ito memory at load.

    109.  
    110.  
    111. 'the variable mstrPartNumber

    112.     mstrPartNumber(0, 0) = "PR214"

    113.     mstrPartNumber(0, 1) = "MR43T"

    114.     mstrPartNumber(0, 2) = "RBL8"

    115.     mstrPartNumber(0, 3) = "14K22"

    116.     mstrPartNumber(1, 0) = "PR223"

    117.     mstrPartNumber(1, 1) = "R43"

    118.     mstrPartNumber(1, 2) = "RJ6"

    119.     mstrPartNumber(1, 3) = "14K24"

    120.     mstrPartNumber(2, 0) = "PR224"

    121.     mstrPartNumber(2, 1) = "R43N"

    122.     mstrPartNumber(2, 2) = "RN4"

    123.     mstrPartNumber(2, 3) = "14K30"

    124.     mstrPartNumber(3, 0) = "PR246"

    125.     mstrPartNumber(3, 1) = "R46N"

    126.     mstrPartNumber(3, 2) = "RN8"

    127.     mstrPartNumber(3, 3) = "14K32"

    128.     mstrPartNumber(4, 0) = "PR247"

    129.     mstrPartNumber(4, 1) = "R46TS"

    130.     mstrPartNumber(4, 2) = "RBL17Y"

    131.     mstrPartNumber(4, 3) = "14K33"

    132.     mstrPartNumber(5, 0) = "PR248"

    133.     mstrPartNumber(5, 1) = "R46TX"

    134.     mstrPartNumber(5, 2) = "RBL12-6"

    135.     mstrPartNumber(5, 3) = "14K35"

    136.     mstrPartNumber(6, 0) = "PR324"

    137.     mstrPartNumber(6, 1) = "S46"

    138.     mstrPartNumber(6, 2) = "J11"

    139.     mstrPartNumber(6, 3) = "14K38"

    140.     mstrPartNumber(7, 0) = "PR326"

    141.     mstrPartNumber(7, 1) = "SR46E"

    142.     mstrPartNumber(7, 2) = "XEJ8"

    143.     mstrPartNumber(7, 3) = "14K40"

    144.     mstrPartNumber(8, 0) = "PR444"

    145.     mstrPartNumber(8, 1) = "47L"

    146.     mstrPartNumber(8, 2) = "H12"

    147.     mstrPartNumber(8, 3) = "14K44"

    148.     

    149. End Sub
    ...it works great when you look up. but the olny problems i think i might encounter is that when some one enters wrong info. some sort of validatiion. would i use soem type of boolean varibale to give it a check ? any help would be appericated - justin.
    Reply With Quote Reply With Quote
  4. Dec 2nd, 2004, 04:50 PM #4
    dglienna
    dglienna is offline
    Banned dglienna's Avatar
    Join Date
    Jun 2004
    Location
    Center of it all
    Posts
    17,901
    for a wrong part number, or a wrong brand ? The part number would be a little harder. Just use a CASE ELSE and a message.

    well, you could have another SELECT CASE within the first SELECT CASE, that would allow a CASE ELSE for that, too.
    Reply With Quote Reply With Quote
  6. Dec 2nd, 2004, 04:56 PM #5
    jlbovo
    jlbovo is offline

    Thread Starter
    Addicted Member
    Join Date
    Oct 2004
    Location
    youngstown, oh
    Posts
    202
    well....the case part wont be hard, they have to chose that from a list, so i could just use,
    VB Code:
    1. lstBrand.listindex = -1
    for that one i thoguht. u kno if nothing is selceted from the list. but ya, it the number part..if its really hard i think i could just skip that, and instead just make sure that there is something in the text of txtPartNumber.
    thank you for your help, if you can help more please - justin

    more something like this.....
    VB Code:
    1. 'check to make sure somethign is selceted in list.

    2.     If lstBrand.ListIndex = -1 Then

    3.         MsgBox "Please Select Your Brand!!", vbDefaultButton3, "Error!"

    4.         Exit Sub

    5.     End If

    6.     

    7. 'check to make sure there is text in text box.

    8.     If txtPartNumber.Text = "" Then

    9.         MsgBox "Please Enter Your Part Number!!", vbDefaultButton4, "Error!!"

    10.         Exit Sub

    11.     End If
    Last edited by jlbovo; Dec 2nd, 2004 at 05:00 PM.
    Reply With Quote Reply With Quote
  7. Dec 2nd, 2004, 05:05 PM #6
    jlbovo
    jlbovo is offline

    Thread Starter
    Addicted Member
    Join Date
    Oct 2004
    Location
    youngstown, oh
    Posts
    202
    how about if i were to change all the if statments in each seperate case, and then used an else/if, and then have a msgbox ? did you alreayd suggest that, sorry it just came to me, woudl that work though ? ill post an example here in a minute, jsut let me try to figure it out.
    Reply With Quote Reply With Quote
  8. Dec 2nd, 2004, 05:16 PM #7
    jlbovo
    jlbovo is offline

    Thread Starter
    Addicted Member
    Join Date
    Oct 2004
    Location
    youngstown, oh
    Posts
    202
    here i think this might be it, does it seems alright ?
    VB Code:
    1. 'case for brand a

    2.     Case "Brand A"

    3.         If strPartNumber = UCase(mstrPartNumber(0, 1)) Then

    4.         If strPartNumber = UCase(mstrPartNumber(1, 1)) Then

    5.             If strPartNumber = UCase(mstrPartNumber(2, 1)) Then

    6.             If strPartNumber = UCase(mstrPartNumber(3, 1)) Then

    7.                 If strPartNumber = UCase(mstrPartNumber(4, 1)) Then

    8.                 If strPartNumber = UCase(mstrPartNumber(5, 1)) Then

    9.                     If strPartNumber = UCase(mstrPartNumber(6, 1)) Then

    10.                     If strPartNumber = UCase(mstrPartNumber(7, 1)) Then

    11.                         If strPartNumber = UCase(mstrPartNumber(8, 1)) Then

    12.     lblVBPartNumber.Caption = mstrPartNumber(8, 0)

    13. Else

    14.     lblVBPartNumber.Caption = mstrPartNumber(7, 0)

    15.         End If

    16. Else

    17.     lblVBPartNumber.Caption = mstrPartNumber(6, 0)

    18.         End If

    19. Else

    20.     lblVBPartNumber.Caption = mstrPartNumber(5, 0)

    21.         End If

    22. Else

    23.     lblVBPartNumber.Caption = mstrPartNumber(4, 0)

    24.         End If

    25. Else

    26.     lblVBPartNumber.Caption = mstrPartNumber(3, 0)

    27.         End If

    28. Else

    29.     lblVBPartNumber.Caption = mstrPartNumber(2, 0)

    30.         End If

    31. Else

    32.     lblVBPartNumber.Caption = mstrPartNumber(1, 0)

    33.         End If

    34. Else

    35.     lblVBPartNumber.Caption = mstrPartNumber(0, 0)

    36.         End If

    37. Else

    38.         MsgBox "Not a valid part number!!"

    39. End If
    Reply With Quote Reply With Quote
  9. Dec 2nd, 2004, 05:18 PM #8
    dglienna
    dglienna is offline
    Banned dglienna's Avatar
    Join Date
    Jun 2004
    Location
    Center of it all
    Posts
    17,901
    easier to make them SELECT CASE / ELSE
    Reply With Quote Reply With Quote
  11. Dec 2nd, 2004, 05:25 PM #9
    jlbovo
    jlbovo is offline

    Thread Starter
    Addicted Member
    Join Date
    Oct 2004
    Location
    youngstown, oh
    Posts
    202
    can you give me an example david, it would be helpful !
    Reply With Quote Reply With Quote
  12. Dec 2nd, 2004, 11:57 PM #10
    dglienna
    dglienna is offline
    Banned dglienna's Avatar
    Join Date
    Jun 2004
    Location
    Center of it all
    Posts
    17,901

    Re: one final project ! help me

    Code:
    Select Case lstBrand.Text
'case for brand a
Case "Brand A"
  Select Case strPartNumber
    case  UCase(mstrPartNumber(0, 1))
      lblVBPartNumber.Caption = mstrPartNumber(0, 0)
    case UCase(mstrPartNumber(1, 1)) 
      lblVBPartNumber.Caption = mstrPartNumber(1, 0)
: 
: 
: 
     case UCase(mstrPartNumber(8, 1)) 
       lblVBPartNumber.Caption = mstrPartNumber(8, 0)
     case else
        msgbox "You must enter a valid part number!"
     end select
  Case "Brand B"
:
:  enter the same format code as above...
:      ' *     < ---------  Place optional code HERE
     end select
'       enter a msg here if there could be a Brand Name problem, but I don't
'       think there could be if it is a dropdown, in a case else
  end select
    Something like that would be easier to read then nested IF's
    Reply With Quote Reply With Quote
  13. Dec 3rd, 2004, 01:12 AM #11
    jlbovo
    jlbovo is offline

    Thread Starter
    Addicted Member
    Join Date
    Oct 2004
    Location
    youngstown, oh
    Posts
    202

    Re: one final project ! help me

    first id like to say thansk for all your help. you've been a great help man. so heres is what i ened up with and i think its pretty solid.
    Code:
    Private Sub cmdLookUp_Click()
'What happens when you click Look up

'Dimension Variables.
    Dim strPartNumber As String

'check to make sure somethign is selceted in list.
    If lstBrand.ListIndex = -1 Then
        MsgBox "Please Select Your Brand!!", vbDefaultButton3, "Error!"
        Exit Sub
    End If
    
'check to make sure there is text in text box.
    If txtPartNumber.Text = "" Then
        MsgBox "Please Enter Your Part Number!!", vbDefaultButton4, "Error!!"
        Exit Sub
    End If
    
'convert text input in to a variable
strPartNumber = UCase(txtPartNumber.Text)

'used case to decide on brand and part number.
Select Case lstBrand.Text

'case for brand a
    Case "Brand A"
'case for the part number specifc to Brand A.
        Select Case strPartNumber
            Case Is = UCase(mstrPartNumber(0, 1))
                lblVBPartNumber.Caption = mstrPartNumber(0, 0)
            Case Is = UCase(mstrPartNumber(1, 1))
                lblVBPartNumber.Caption = mstrPartNumber(1, 0)
            Case Is = UCase(mstrPartNumber(2, 1))
                lblVBPartNumber.Caption = mstrPartNumber(2, 0)
            Case Is = UCase(mstrPartNumber(3, 1))
                lblVBPartNumber.Caption = mstrPartNumber(3, 0)
            Case Is = UCase(mstrPartNumber(4, 1))
                lblVBPartNumber.Caption = mstrPartNumber(4, 0)
            Case Is = UCase(mstrPartNumber(5, 1))
                lblVBPartNumber.Caption = mstrPartNumber(5, 0)
            Case Is = UCase(mstrPartNumber(6, 1))
                lblVBPartNumber.Caption = mstrPartNumber(6, 0)
            Case Is = UCase(mstrPartNumber(7, 1))
                lblVBPartNumber.Caption = mstrPartNumber(7, 0)
            Case Is = UCase(mstrPartNumber(8, 1))
                 lblVBPartNumber.Caption = mstrPartNumber(8, 0)
            Case Else
                MsgBox "Not a Valid Part number for this Brand!!", vbOKOnly, "error!!"
            End Select
            
'case for brand b
   Case "Brand B"
'case specific to Brand B
        Select Case strPartNumber
            Case Is = UCase(mstrPartNumber(0, 2))
                lblVBPartNumber.Caption = mstrPartNumber(0, 0)
            Case Is = UCase(mstrPartNumber(1, 2))
                lblVBPartNumber.Caption = mstrPartNumber(1, 0)
            Case Is = UCase(mstrPartNumber(2, 2))
                lblVBPartNumber.Caption = mstrPartNumber(2, 0)
            Case Is = UCase(mstrPartNumber(3, 2))
                lblVBPartNumber.Caption = mstrPartNumber(3, 0)
            Case Is = UCase(mstrPartNumber(4, 2))
                lblVBPartNumber.Caption = mstrPartNumber(4, 0)
            Case Is = UCase(mstrPartNumber(5, 2))
                lblVBPartNumber.Caption = mstrPartNumber(5, 0)
            Case Is = UCase(mstrPartNumber(6, 2))
                lblVBPartNumber.Caption = mstrPartNumber(6, 0)
            Case Is = UCase(mstrPartNumber(7, 2))
                lblVBPartNumber.Caption = mstrPartNumber(7, 0)
            Case Is = UCase(mstrPartNumber(8, 2))
                 lblVBPartNumber.Caption = mstrPartNumber(8, 0)
            Case Else
                MsgBox "Not a Valid Part number for this Brand!!", vbOKOnly, "error!!"
'end the specific case.
            End Select
        
'Case for brand X
    Case "Brand X"
'case specific parts numbers for Brand X
        Select Case strPartNumber
            Case Is = UCase(mstrPartNumber(0, 3))
                lblVBPartNumber.Caption = mstrPartNumber(0, 0)
            Case Is = UCase(mstrPartNumber(1, 3))
                lblVBPartNumber.Caption = mstrPartNumber(1, 0)
            Case Is = UCase(mstrPartNumber(2, 3))
                lblVBPartNumber.Caption = mstrPartNumber(2, 0)
            Case Is = UCase(mstrPartNumber(3, 3))
                lblVBPartNumber.Caption = mstrPartNumber(3, 0)
            Case Is = UCase(mstrPartNumber(4, 3))
                lblVBPartNumber.Caption = mstrPartNumber(4, 0)
            Case Is = UCase(mstrPartNumber(5, 3))
                lblVBPartNumber.Caption = mstrPartNumber(5, 0)
            Case Is = UCase(mstrPartNumber(6, 3))
                lblVBPartNumber.Caption = mstrPartNumber(6, 0)
            Case Is = UCase(mstrPartNumber(7, 3))
                lblVBPartNumber.Caption = mstrPartNumber(7, 0)
            Case Is = UCase(mstrPartNumber(8, 3))
                 lblVBPartNumber.Caption = mstrPartNumber(8, 0)
            Case Else
                MsgBox "Not a Valid Part number for this Brand!!", vbOKOnly, "error!!"
'end the specific case Brand X
            End Select
'end all the brand cases.
End Select
        
End Sub
    ...so i understand, and thanks again. this one is resolved.
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules


Click Here to Expand Forum to Full Width