User's Manual

If lcl_ekernel_cur_state <> g_ekernel_prv_state Then
g_ekernel_prv_state = lcl_ekernel_cur_state
Select Case lcl_ekernel_cur_state
Case 0
lab_ekernel_msg = Closed
lab_ekernel_state.BackColor = RGB(0, 0, 0)
Case 1
lab_ekernel_msg = Open
lab_ekernel_state.BackColor = RGB(200, 130, 0)
Case 2
lab_ekernel_msg = Listening
lab_ekernel_state.BackColor = RGB(255, 255, 0)
Case 3
lab_ekernel_msg = Connection pending
lab_ekernel_state.BackColor = RGB(200, 130, 0)
Case 4
lab_ekernel_msg = Resolving host
lab_ekernel_state.BackColor = RGB(200, 130, 0)
Case 5
lab_ekernel_msg = Host resolved
lab_ekernel_state.BackColor = RGB(200, 130, 0)
Case 6
lab_ekernel_msg = Connecting
lab_ekernel_state.BackColor = RGB(200, 130, 0)
Case 7
lab_ekernel_msg = Connected
lab_ekernel_state.BackColor = RGB(0, 200, 0)
Case 8
lab_ekernel_msg = Closing
lab_ekernel_state.BackColor = RGB(200, 130, 0)
Case 9
lab_ekernel_msg = Error
lab_ekernel_state.BackColor = RGB(128, 0, 0)
Case Else
End Select
End If
' Only process if ekernel_outq is populated
If lst_ekernel_outq.ListCount = 0 Then Exit Sub
' Not yet connected
If ip_ekernel.State <> 7 Then
On Error Resume Next
Err = 0
If ip_ekernel.State <> sckClosed Then ip_ekernel.Close
g_ekernel_local_address = N/A
g_ekernel_local_port = N/A
lab_ekernel_local_address = & g_ekernel_local_address
lab_ekernel_local_port = & g_ekernel_local_port
ip_ekernel.RemoteHost = g_ekernel_remote_address
ip_ekernel.RemotePort = g_ekernel_remote_port
ip_ekernel.Connect
DoEvents
Exit Sub
On Error GoTo 0
End If
' Connected
g_ekernel_local_address = ip_ekernel.LocalIP
g_ekernel_local_port = ip_ekernel.LocalPort
lab_ekernel_local_address = & g_ekernel_local_address
lab_ekernel_local_port = & g_ekernel_local_port
'
--------------------------------------------------------------------------
' Handle requests in ekernel jobqueue
'
Module - eAPI sample
76 DECT Messenger Installation and Commissioning — Book 1 March 2012
Comments? [e-mail]