Searchparallel project (see arrays.ppt presentation)

Public Class frmDept

Inherits System.Windows.Forms.Form

Dim deptNumArray(3) As Integer

Dim deptArray(3) As String

Private Sub frmDept_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

deptNumArray(0) = 15

deptNumArray(1) = 26

deptNumArray(2) = 37

deptNumArray(3) = 56

deptArray(0) = "Books"

deptArray(1) = "Toys"

deptArray(2) = "Gifts"

deptArray(3) = "Cookware"

End Sub

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click

Dim indFound As String = "N"

Dim wkSub As Integer = 0

Do While indFound = "N" And wkSub < deptArray.Length

If CInt(txtDeptNum.Text) = deptNumArray(wkSub) Then

indFound = "Y"

Else

wkSub = wkSub + 1

End If

Loop

If indFound = "Y" Then

lblShowDeptName.Text = deptArray(wkSub)

Else

lblShowDeptName.Text = "No match found"

End If

End Sub

End Class

Createsoupfile project

Public Class frmSoupCreate

Inherits System.Windows.Forms.Form

Private Sub btnWrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWrite.Click

Dim wkOrderNo As Integer, wkItemNo As Integer

Dim wkNumOrd As Integer

wkOrderNo = CInt(txtOrderNo.Text)

wkItemNo = CInt(txtItemNo.Text)

wkNumOrd = CInt(txtNumOrd.Text)

WriteLine(1, wkOrderNo, wkItemNo, wkNumOrd)

End Sub

Private Sub frmSoupCreate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

FileOpen(1, "soup", OpenMode.Output)

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

txtOrderNo.Clear()

txtItemNo.Clear()

txtNumOrd.Clear()

End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

FileClose(1)

Me.Close()

End Sub

End Class

Soupsearch project

Public Class frmSoup

Inherits System.Windows.Forms.Form

Dim itemNoArray(8) As Integer

Dim itemNameArray(8) As String

Private Sub frmSoupCreate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

itemNoArray(0) = 3

itemNoArray(1) = 12

itemNoArray(2) = 15

itemNoArray(3) = 17

itemNoArray(4) = 24

itemNoArray(5) = 25

itemNoArray(6) = 27

itemNoArray(7) = 28

itemNoArray(8) = 45

itemNameArray(0) = "SEAFOOD CHOWDER"

itemNameArray(1) = "CORN CHOWDER"

itemNameArray(2) = "CLAM CHOWDER"

itemNameArray(3) = "TOMATO SOUP"

itemNameArray(4) = "CHICKEN SOUP"

itemNameArray(5) = "VEGETABLE SOUP"

itemNameArray(6) = "ONION SOUP"

itemNameArray(7) = "GREEN PEA SOUP"

itemNameArray(8) = "WONTON SOUP"

FileOpen(1, "soup", OpenMode.Input)

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

txtOrderNo.Clear()

txtItemNo.Clear()

txtNumOrd.Clear()

End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

FileClose(1)

Me.Close()

End Sub

Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click

Dim wkOrderNo As Integer, wkItemNo As Integer

Dim wkNumOrd As Integer

If Not EOF(1) Then

Input(1, wkOrderNo)

Input(1, wkItemNo)

Input(1, wkNumOrd)

txtOrderNo.Text = wkOrderNo

txtItemNo.Text = wkItemNo

txtNumOrd.Text = wkNumOrd

txtItemName.Text = SearchArray(wkItemNo)

'txtItemName.Text = SearchWhile(wkItemNo)

Else

MessageBox.Show("EOF reached")

btnRead.Visible = False

End If

End Sub

Function SearchArray(ByVal wkItemNo)

Dim itemSub As Integer = 0

Dim matchInd As String = "NO"

Do Until itemSub > 8 Or matchInd = "YES"

If wkItemNo = itemNoArray(itemSub) Then

matchInd = "YES"

Else

itemSub = itemSub + 1

End If

Loop

If matchInd = "YES" Then

Return itemNameArray(itemSub)

Else

Return "Match Not Found"

End If

End Function

'Function SearchWhile(ByVal wkItemNo)

' Dim itemSub As Integer = 0

' Dim matchInd As String = "NO"

' Do While itemSub < 9 And matchInd = "NO"

' If wkItemNo = itemNoArray(itemSub) Then

' matchInd = "YES"

' Else

' itemSub = itemSub + 1

' End If

' Loop

' If matchInd = "YES" Then

' Return itemNameArray(itemSub)

' Else

' Return "Match Not Found"

' End If

'End Function

End Class

Substringsoup project

Public Class frmSoup

Inherits System.Windows.Forms.Form

Dim itemArray(8) As String

Private Sub frmSoupCreate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

itemArray(0) = "03SEAFOOD CHOWDER"

itemArray(1) = "12CORN CHOWDER"

itemArray(2) = "15CLAM CHOWDER"

itemArray(3) = "17TOMATO SOUP"

itemArray(4) = "24CHICKEN SOUP"

itemArray(5) = "25VEGETABLE SOUP"

itemArray(6) = "27ONION SOUP"

itemArray(7) = "28GREEN PEA SOUP"

itemArray(8) = "45WONTON SOUP"

FileOpen(1, "soup", OpenMode.Input)

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

txtOrderNo.Clear()

txtItemNo.Clear()

txtNumOrd.Clear()

End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

FileClose(1)

Me.Close()

End Sub

Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click

Dim wkOrderNo As Integer, wkItemNo As Integer

Dim wkNumOrd As Integer

If Not EOF(1) Then

Input(1, wkOrderNo)

Input(1, wkItemNo)

Input(1, wkNumOrd)

txtOrderNo.Text = wkOrderNo

txtItemNo.Text = wkItemNo

txtNumOrd.Text = wkNumOrd

txtItemName.Text = SearchArray(wkItemNo)

Else

MessageBox.Show("EOF reached")

btnRead.Visible = False

End If

End Sub

Function SearchArray(ByVal wkItemNo)

Dim itemSub As Integer = 0

Dim matchInd As String = "NO"

Do Until itemSub > 8 Or matchInd = "YES"

'If wkItemNo = Microsoft.VisualBasic.Left(itemArray(itemSub), 2) Then

If wkItemNo = itemArray(itemSub).Substring(0, 2) Then

matchInd = "YES"

Else

itemSub = itemSub + 1

End If

Loop

If matchInd = "YES" Then

'Return Microsoft.VisualBasic.Mid(itemArray(itemSub), 3)

Return itemArray(itemSub).Substring(2)

Else

Return "Match Not Found"

End If

End Function

End Class

Typearray project

Public Class frmSoup

Inherits System.Windows.Forms.Form

Dim itemArray(8) As itemInfo

Private Sub frmSoupCreate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

itemArray(0).itemNo = 3

itemArray(1).itemNo = 12

itemArray(2).itemNo = 15

itemArray(3).itemNo = 17

itemArray(4).itemNo = 24

itemArray(5).itemNo = 25

itemArray(6).itemNo = 27

itemArray(7).itemNo = 28

itemArray(8).itemNo = 45

itemArray(0).itemName = "SEAFOOD CHOWDER"

itemArray(1).itemName = "CORN CHOWDER"

itemArray(2).itemName = "CLAM CHOWDER"

itemArray(3).itemName = "TOMATO SOUP"

itemArray(4).itemName = "CHICKEN SOUP"

itemArray(5).itemName = "VEGETABLE SOUP"

itemArray(6).itemName = "ONION SOUP"

itemArray(7).itemName = "GREEN PEA SOUP"

itemArray(8).itemName = "WONTON SOUP"

FileOpen(1, "soup", OpenMode.Input)

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

txtOrderNo.Clear()

txtItemNo.Clear()

txtNumOrd.Clear()

End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

FileClose(1)

Me.Close()

End Sub

Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click

Dim wkOrderNo As Integer, wkItemNo As Integer

Dim wkNumOrd As Integer

If Not EOF(1) Then

Input(1, wkOrderNo)

Input(1, wkItemNo)

Input(1, wkNumOrd)

txtOrderNo.Text = wkOrderNo

txtItemNo.Text = wkItemNo

txtNumOrd.Text = wkNumOrd

txtItemName.Text = SearchArray(wkItemNo)

Else

MessageBox.Show("EOF reached")

btnRead.Visible = False

End If

End Sub

Function SearchArray(ByVal wkItemNo)

Dim itemSub As Integer = 0

Dim matchInd As String = "NO"

Do Until itemSub > 8 Or matchInd = "YES"

If wkItemNo = itemArray(itemSub).itemNo Then

matchInd = "YES"

Else

itemSub = itemSub + 1

End If

Loop

If matchInd = "YES" Then

Return itemArray(itemSub).itemName

Else

Return "Match Not Found"

End If

End Function

End Class

modArray

Module modArray

Public Structure itemInfo

Dim itemNo As Integer

Dim itemName As String

End Structure

End Module

Arraylistbox project

Public Class frmDept

Inherits System.Windows.Forms.Form

Dim deptNumArray(3) As Integer

Dim deptArray(3) As String

Private Sub frmDept_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

deptNumArray(0) = 15

deptNumArray(1) = 26

deptNumArray(2) = 37

deptNumArray(3) = 56

deptArray(0) = "Books"

deptArray(1) = "Toys"

deptArray(2) = "Gifts"

deptArray(3) = "Cookware"

End Sub

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click

Dim indFound As String = "N"

Dim wkSub As Integer = 0

Dim wkLine As String

Do While indFound = "N" And wkSub < deptArray.Length

If CInt(txtDeptNum.Text) = deptNumArray(wkSub) Then

indFound = "Y"

Else

wkSub = wkSub + 1

End If

Loop

If indFound = "Y" Then

lblShowDeptName.Text = deptArray(wkSub)

cboBudget.SelectedIndex = wkSub

wkLine = "Dept # " & deptNumArray(wkSub) & " is " & _

deptArray(wkSub) & " and has a budget of " & _

FormatCurrency(cboBudget.SelectedItem)

lstShow.Items.Add(wkLine)

Else

lblShowDeptName.Text = "No match found"

End If

End Sub

End Class