User manual

ECE 477 Final Report Spring 2004
PC Server Software (Visual Basic)
Const CATMAX = 3 'Category Maximum
Const ITEMMAX = 13 'Item Maximum
Const SPACE = " " 'Space character
Const ARROW = "~" 'ARROW character
Dim item_type(CATMAX) As String
Dim item1(ITEMMAX) As String
Dim item2(ITEMMAX) As String
Dim item3(ITEMMAX) As String
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
Dim NoStr As String
Dim YesStr As String
'Dim drinks As New menu_screen
'Dim app As New menu_screen
'
'Dim beer As New menu_screen
'Dim coke As New menu_screen
'Dim sprite As New menu_screen
'Dim cheez As New menu_screen
'Dim nacho As New menu_screen
'Dim wings As New menu_screen
'
'Dim beer_c As New menu_screen
'Dim coke_c As New menu_screen
'Dim sprite_c As New menu_screen
'Dim cheez_c As New menu_screen
'Dim nacho_c As New menu_screen
'Dim wings_c As New menu_screen
Dim CurMenu As New menu_screen
Private Sub CmdDown_Click()
Call Menu_move(2, CurMenu)
End Sub
Private Sub CmdLeft_Click()
Call Menu_move(4, CurMenu)
End Sub
F-18