User manual

ECE 477 Final Report Spring 2004
Case 2: 'down
If Not (Ptr.down Is Nothing) Then
Set Ptr = Ptr.down
End If
Case 3: 'right
If Not (Ptr.item = "") Then 'Item Order Screen
Text1.Text = Ptr.item + ",1"
Call Command1_click
Text1.Text = ""
Set Ptr = item_menu(0)
ElseIf Not (Ptr.right Is Nothing) Then
Set Ptr = Ptr.right
End If
Case 4:
'Set Ptr = item_menu(0)
If Not (Ptr.left Is Nothing) Then
Set Ptr = Ptr.left
End If
End Select
Call SendToSerial(Ptr.menu)
End Sub
Private Sub Dir1_Change()
Dir1.Path = Drive1.Drive
File1.Path = Dir1.Path
' File1.Pattern = "*.txt"
End Sub
Private Sub Drive1_Change()
ChDrive Drive1.Drive
Call Dir1_Change
End Sub
Private Sub File1_Click()
Text2.Text = File1.Path + "\" + File1.FileName
End Sub
Private Function Trunc_Width(TruncMe As String) As String
Dim TempStr As String
If Len(TruncMe) > 21 Then
TempStr = Mid(TruncMe, 1, 21)
TempStr = TempStr + " "
Trunc_Width = TempStr
Else
TempStr = TempStr
End If
End Function
Private Sub Form_Load()
F-20