User manual

ECE 477 Final Report Spring 2004
Set item3_cY(i).left = item3_screen(i)
item3_cY(i).menu = "Are you sure you want a(n)" + vbNewLine + SPACE +
item3(i) + vbNewLine + YesStr + vbNewLine
Next i
Call SendToSerial(item_menu(0).menu)
End Sub
Private Sub MSComm1_OnComm()
Dim temp As String
MSComm1.Output = OutgoingText.Text ' Send data
Buffer$ = Buffer$ & MSComm1.Input ' Read data
temp = Buffer$
' If Temp = "+" Then
' Call Command1_click
' Text1.Text = ""
' Else
' Text1.Text = Text1.Text & Temp
' End If
'MsgBox (Temp)
Select Case temp
Case Chr(2) 'up
Call CmdUp_Click
Case Chr(3) 'down
Call CmdDown_Click
Case Chr(4) 'left
Call CmdLeft_Click
Case Chr(5), Chr(6) 'right
Call CmdRight_Click
End Select
End Sub
Private Sub SendText_Click()
'Dim Temp As String
MSComm1.Output = OutgoingText.Text ' Send data
End Sub
Private Sub TableReady_Click()
Dim Counter As Integer
Dim Address As Byte
Dim OpCode As Byte
Dim Cmd As Integer
Dim myString As String
For Counter = 0 To (List2.ListCount - 1)
If (Combo1.Text = List2.List(Counter)) Then
F-26