User manual

ECE 477 Final Report Spring 2004

Private Sub CmdRight_Click()

Call Menu_move(3, CurMenu)

End Sub

Private Sub CmdUp_Click()

Call Menu_move(1, CurMenu)

End Sub

Private Sub Command1_click()

Dim Items() As String

Dim Counter As Integer

Dim QTY As Integer

Dim Found As Boolean

Items = Split(Text1.Text, ",")

Found = False

For Counter = 0 To (List1.ListCount - 1)

If (Items(0) = List1.List(Counter)) And (Items(1) =

List2.List(Counter)) Then

QTY = List3.List(Counter)

QTY = QTY + 1

List3.List(Counter) = QTY

Found = True

End If

If Not Found Then

List1.AddItem (Items(0))

List2.AddItem (Items(1))

List3.AddItem ("1")

Found = False

For Counter = 0 To (Combo1.ListCount - 1)

If Items(1) = Combo1.List(Counter) Then

Found = True

End If

If Not Found Then

Combo1.AddItem (Items(1))

End If

End Sub

Public Sub Menu_move(dir As Integer, Ptr As menu_screen)

Select Case dir

Case 1: 'up

If (Not (Ptr.up.menu = "")) Then

Set Ptr = Ptr.up

End If

F-19