' POS Initialize stuff:
Private Sub FT100_Initialize()
    ESC = Chr(27)
    FT100_CLS = Chr(12)
    FT100_HORIZONTAL_SCROLL_MODE = ESC & Chr(19)
    FT100_SELECT_LINE_1 = ESC & "QA"
    FT100_SELECT_LINE_2 = ESC & "QB"
End Sub

'
' Display a string on a certain line on the FT100 P.O.S. display:
Public Function FT100_Display(ByVal LineNumber As Byte, ByVal DisplayString As String)
    With FT100
        Select Case LineNumber
            Case 1:
                .Output = FT100_SELECT_LINE_1 & DisplayString & vbCr
            Case 2:
                .Output = FT100_SELECT_LINE_2 & DisplayString & vbCr
        End Select
    End With
End Function

'
' Timed display stuff:
Public Sub UpdateDistance()
    If TotalDistance = "" Then Exit Sub             'If not found, then ignore
    Call FT100_Display(2, "Total " & TotalDistance)
End Sub
'
'
Public Sub UpdateDistanceToday()
    If TodayDistance = "" Then Exit Sub
    Call FT100_Display(2, "Today " & TodayDistance)
End Sub
'
'
Public Sub UpdateMaxSpeedToday()
    If TodayMaxSpeed = "" Then Exit Sub
    Call FT100_Display(2, "Max today " & TodayMaxSpeed)
End Sub
'
'
Public Sub UpdateMaxSpeedKmhToday()
    If TodayMaxSpeedKmh = "" Then Exit Sub
    Call FT100_Display(2, "Max today " & TodayMaxSpeedKmh)
End Sub
'
'
Public Sub UpdateLastUpdateTime()
    If LastUpdateTime = "" Then Exit Sub
    Call FT100_Display(2, "Last update " & LastUpdateTime)
End Sub
'
'
Public Sub UpdateTimeToday()
    If TodayTime = "" Then Exit Sub
    Call FT100_Display(2, "Time today " & TodayTime)
End Sub
'
'
Public Sub UpdateTotalMaxSpeed()
    If TotalMaxSpeed = "" Then Exit Sub
    Call FT100_Display(2, "Max ever " & TotalMaxSpeed)
End Sub
'
'
Public Sub UpdateTotalMaxSpeedKmh()
    If TotalMaxSpeedKmh = "" Then Exit Sub
    Call FT100_Display(2, "Max ever " & TotalMaxSpeedKmh)
End Sub
'
'
Public Sub UpdateTotalTime()
    If TotalTime = "" Then Exit Sub
    Call FT100_Display(2, "Total" & TotalTime)
End Sub
'
' Show day number and time on line 1,returns current second:
Public Function GetAndUpdateCurrentTime() As Byte
Dim strTime As String
Dim tmpSeconds As Byte
    strTime = Format(Time, "hh:mm:ss")
    tmpSeconds = Val(Right(strTime, 2))
    strTime = DateDiff("d", constStartDate, Date) & ":" & strTime   'Add day number
    strTime = Space(14 - Len(strTime)) & strTime                    'Align it
    FT100.Output = FT100_SELECT_LINE_1 & "Lucy's" & strTime & vbCr  'Display it
    GetAndUpdateCurrentTime = tmpSeconds
End Function

'
Dim FT100 As MSComm
'
' Form stuff:
Private Sub Form_Load()
    Call FT100_Initialize                           'Initialize FT100 control variables.
    Set FT100 = Me.MSComm1                          'Make link with MSComm control.
    With FT100
        .PortOpen = True                            'Enable communications with FT100.
        .Output = FT100_CLS                         'Clear the screen, because when powered on,
                                                    'the display displays arterisks.
        .Output = FT100_HORIZONTAL_SCROLL_MODE      'Set horizontal scroll mode.
    End With
    Call FT100_Display(1, "   Peacoque Labs")       'Display an intro
    Call FT100_Display(2, " HamsterTracker(tm)")
    Me.Timer1.Interval = 1000                       'One second.
    Me.Timer1.Enabled = True                        'Start the timer.
    Me.Show                                         'There is not a whole lot to show, but anyway.
End Sub
'
' More form stuff:
Private Sub Form_Unload(Cancel As Integer)
    FT100.PortOpen = False                          'Close in a fasionly way.
End Sub

'
' The Timer handler:
Private Sub Timer1_Timer()
    SecondsCounter = GetAndUpdateCurrentTime    'Always update time every second
    Select Case SecondsCounter
        Case 0:
            Call DownloadData                   'Refresh data once every minute
            Call UpdateDistance
        Case 10:
            Call UpdateLastUpdateTime
        Case 20, 24, 28:
            Call UpdateMaxSpeedToday
        Case 22, 26:
            Call UpdateMaxSpeedKmhToday
        Case 30:
            Call UpdateDistanceToday
        Case 40, 44, 48:
            Call UpdateTotalMaxSpeed
        Case 42, 46:
            Call UpdateTotalMaxSpeedKmh
        Case 50, 54, 58:
            Call UpdateTotalTime
        Case 52, 56:
            Call UpdateTimeToday
    End Select
End Sub