User manual
ECE 477 Final Report Spring 2004
MSComm1.CommPort = 1 ' Set the port number
MSComm1.Settings = "9600,N,8,1" ' Set UART parameters
MSComm1.PortOpen = True ' Required, might lock port
Call SendToSerial(CurMenu.menu)
End Sub
Private Sub Happy_Delay()
'pause for 0.1 seconds to allow RF buffer to send
Start = Timer 'Microsoft.VisualBasic.DateAndTime.Timer
Finish = Start + 0.02 ' Set end time for .05-second duration.
Do While Timer < Finish
' Do other processing while waiting for time to elapse.
Loop
End Sub
Private Sub SendToSerial(InTxt As String)
Dim Lines() As String
Dim Final As String
Dim temp As String
DOutput.Text = ""
Lines = Split(InTxt, vbNewLine)
'Final = ""
Dim Addr As Integer
Addr = 3
MSComm1.Output = Chr(0) + Chr(0) + " Welcome To "
Call Happy_Delay
MSComm1.Output = Chr(0) + Chr(1) + " The Casino Royale "
Call Happy_Delay
MSComm1.Output = Chr(0) + Chr(2) + "----------------------"
Call Happy_Delay
For Each i In Lines
'pad to 22 characters
temp = i
Do While (Len(temp) < 22)
temp = temp + " "
Loop
'Final = Final + Temp
If Addr <= 15 Then
MSComm1.Output = Chr(0) + Chr(Addr) + Trunc_Width(temp)
End If
Addr = Addr + 1
Call Happy_Delay
F-21