User manual

ECE 477 Final Report Spring 2004
'MSComm1.Output = Temp
'CheckSum = 0
'temp = i
'For j = 1 To Len(temp)
' k = Mid(temp, j, 1)
' CheckSum = CheckSum Xor AscW(k)
'Next j
'MsgBox CheckSum
DOutput.Text = DOutput.Text + Trunc_Width(temp) + vbNewLine
Next i
'DOutput.Text = Join(Lines)
End Sub
Private Sub MenuLoad_Click()
'Const CATMAX = 3 'Category Maximum
'Const ITEMMAX = 16 'Item Maximum
'Dim i As Integer
Dim i As Integer
Dim j As Integer
NoStr = ARROW + " No" + vbNewLine + SPACE + " Yes" + vbNewLine
YesStr = SPACE + " No" + vbNewLine + ARROW + " Yes" + vbNewLine
Dim item_menu(CATMAX) As New menu_screen
Dim item1_screen(ITEMMAX) As New menu_screen
Dim item2_screen(ITEMMAX) As New menu_screen
Dim item3_screen(ITEMMAX) As New menu_screen
Dim item1_cN(ITEMMAX) As New menu_screen
Dim item2_cN(ITEMMAX) As New menu_screen
Dim item3_cN(ITEMMAX) As New menu_screen
Dim item1_cY(ITEMMAX) As New menu_screen
Dim item2_cY(ITEMMAX) As New menu_screen
Dim item3_cY(ITEMMAX) As New menu_screen
For i = 0 To CATMAX - 1
item_type(i) = ""
Next i
For i = 0 To ITEMMAX - 1
item1(i) = ""
item2(i) = ""
item3(i) = ""
Next i
Open Text2.Text For Input As #1
For i = 0 To CATMAX - 1
Input #1, item_type(i)
Next i
For i = 0 To ITEMMAX - 1
F-22