Commtech wireless Mercury 8-Line Manuel d'utilisateur télécharger pdf (Page 92)

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

1 2 ... 87 88 89 90 91 92 93 94 95 96 97 ... 123 124

Commentaires sur ces manuels

Pas de commentaire

Commtech wireless Mercury 8-Line Manuel d'utilisateur Page 92

Commentaires sur ces manuels