User's Manual

290 Module - eAPI sample
lab_clock = & Format$(Now, hh:nn:ss)
’ Update guarding
lcl_guarding = Timer - g_guarding
If lcl_guarding < 0 Then lcl_guarding = lcl_guarding + 86400
If (lab_guarding <> Format$(lcl_guarding, 00000)) Then
lab_guarding = Format$(lcl_guarding, 00000)
End If
’ Process ekernel
process_ekernel
’ Enable timer to resume processing
tim.Enabled = True
End Sub
Private Sub txt_log_GotFocus()
lst_log.SetFocus
End Sub
Sub log(log_type As String, log_sts As String, log_dta As String)
Dim lcl_rc As Integer
’ Check log_type
Select Case log_type
eAPI_form - 7
Case I
Case O
Case S
Case E
Case Else
lcl_rc = MsgBox(Invalid log type & log_type)
Exit Sub
End Select
’ Check log_sts
Select Case log_sts
Case TCP
Case COM
Case INF
Case ERR
Case Else
lcl_rc = MsgBox(Invalid log status & log_sts)
Exit Sub
End Select
’ Add log data to listbox
lst_log.AddItem log_type & : & log_sts & : & log_dta
Do While lst_log.ListCount > 99
lst_log.RemoveItem 0
Loop
lst_log.ListIndex = lst_log.ListCount - 1
’------------------------------------------------------------------------
--------
’ Add log data to logfile
’
-------------------------------------------------------------------------
-------
’ do not log is g_log_days=0
Nortel Communication Server 1000
DECT Messenger Installation and Commissioning — Book 1
NN43120-301 02.01 4 June 2010
Copyright © 2003-2010 Nortel Networks. All Rights Reserved.
.