'***************************************************************************
|
'* Form frmSosPhone *
|
'* *
|
'* This forms acts a interface for each E301 module (a sos phone). *
|
'* It implements the full funcionality of the module, but with a very *
|
'* plain graphic design, jut to make it as easy to anderstand as possible. *
|
'* *
|
'* EQUITEL C.V. February 2007 ALMDI*
|
'***************************************************************************
|
|
Public Class frmSosPhone
|
|
#Region "Declarations"
|
Public WithEvents mSosPhone As ClassSosPhone
|
'Delegates to implement safety cross-thread calls within the events
|
Delegate Sub AudioTestLedChangeCallback(ByVal Color As String)
|
Delegate Sub WindowShowCallBack()
|
Delegate Sub AlarmRefeshCallBack()
|
Delegate Sub SliderVolumeRefreshCallBack()
|
Delegate Sub ShowDataInCallBack(ByVal Value As Byte)
|
Delegate Sub IncomingCallResponseCallBack(ByVal kind As String, ByVal MasterSlave As Byte)
|
Delegate Sub ShowAlarmsCallBack()
|
Delegate Sub ButtonEnableRefreshCallBack()
|
#End Region
|
|
#Region "Constructor"
|
Public Sub New(ByVal Ip As String, ByVal N As Integer, ByVal Description As String)
|
InitializeComponent()
|
mSosPhone = New ClassSosPhone(Ip, N, Description)
|
Me.Text = "Sos Phone " + mSosPhone.Number + "->" + mSosPhone.IP + " [" + mSosPhone.Description + "]"
|
LedTestFon.Image = ImageListLeds.Images.Item("Off")
|
lblIncomingCall.Visible = False
|
ButtonEnableRefresh()
|
End Sub
|
#End Region
|
|
#Region "Events"
|
Public Event Log As TxtEventHandler
|
Public Event ConnectionSuccessful As EventHandler
|
Public Event ConnectionFailed As EventHandler
|
|
Protected Overridable Sub OnLog(ByVal Txt As String)
|
Dim e As New TxtEventArgs
|
e.TxtLog = Txt
|
RaiseEvent Log(Me, e)
|
End Sub
|
|
Protected Overridable Sub OnConnectionSuccessful()
|
RaiseEvent ConnectionSuccessful(Me, New EventArgs())
|
End Sub
|
|
Protected Overridable Sub OnConnectionFailed()
|
RaiseEvent ConnectionFailed(Me, New EventArgs())
|
End Sub
|
#End Region
|
|
#Region "Form Controls behaviour"
|
Private Sub BtnWaitingMessage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnWaitingMessage.Click
|
mSosPhone.AudioMessageOn(ClassSosPhone.AudioMessageType.ReceivedCall, MasterOrSlave())
|
End Sub
|
|
Private Sub BtnOutOfServiceMessage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOutOfServiceMessage.Click
|
mSosPhone.AudioMessageOn(ClassSosPhone.AudioMessageType.OutOfService, MasterOrSlave())
|
End Sub
|
|
Private Sub BtnMessageOff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMessageOff.Click
|
mSosPhone.AudioMessageOff(MasterOrSlave())
|
End Sub
|
|
Private Sub BtnCallToneON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCallToneON.Click
|
mSosPhone.ToneOn(MasterOrSlave(), ClassSosPhone.ToneType.Ringing)
|
End Sub
|
|
Private Sub BtnOccupiedToneON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOccupiedToneON.Click
|
mSosPhone.ToneOn(MasterOrSlave(), ClassSosPhone.ToneType.Occupied)
|
End Sub
|
|
Private Sub BtnToneOFF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnToneOFF.Click
|
mSosPhone.ToneOff(MasterOrSlave())
|
End Sub
|
|
Private Sub BtnAudioOn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAudioOn.Click
|
mSosPhone.AudioOn(P_MAS)
|
lblIncomingCall.Visible = False
|
TimerFlashLabel.Enabled = False
|
'When audio starts, the microphone volume is always the maximum
|
SliderVolMic.Value = 7
|
LblVolMic.Text = "7"
|
End Sub
|
|
Private Sub BtnAudioOff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAudioOff.Click
|
mSosPhone.AudioOff(MasterOrSlave())
|
End Sub
|
|
Private Sub BtnMaitenanceTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMaitenanceTest.Click
|
mSosPhone.MaitenanceTest()
|
End Sub
|
|
Private Sub BtnAudioTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAudioTest.Click
|
LedAudioTestChange("Off")
|
mSosPhone.AudioTest(MasterOrSlave())
|
End Sub
|
|
Private Sub BtnReadIO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnReadIO.Click
|
mSosPhone.ReadAuxiliaryPort()
|
End Sub
|
|
Private Sub BtnWriteIO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnWriteIO.Click
|
Dim Value As Byte = 0
|
If Bt_Out_0.Text = "1" Then Value = Value Or &H1
|
If Bt_Out_1.Text = "1" Then Value = Value Or &H2
|
If Bt_Out_2.Text = "1" Then Value = Value Or &H4
|
If Bt_Out_3.Text = "1" Then Value = Value Or &H8
|
If Bt_Out_4.Text = "1" Then Value = Value Or &H10
|
If Bt_Out_5.Text = "1" Then Value = Value Or &H20
|
If Bt_Out_6.Text = "1" Then Value = Value Or &H40
|
If Bt_Out_7.Text = "1" Then Value = Value Or &H80
|
mSosPhone.WriteAuxiliaryPort(Value)
|
End Sub
|
|
Private Sub SliderVolOut_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles SliderVolOut.MouseUp
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
mSosPhone.ChangeOutputVolume(MasterOrSlave(), SliderVolOut.Value)
|
End If
|
End Sub
|
|
Private Sub Btn_ECO_ON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_ECO_ON.Click
|
mSosPhone.EchoCancellerOn()
|
End Sub
|
|
Private Sub Btn_ECO_OFF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_ECO_OFF.Click
|
mSosPhone.EchoCancellerOff()
|
End Sub
|
|
Private Sub SliderVolMic_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles SliderVolMic.MouseUp
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
mSosPhone.ChangeMicVolume(MasterOrSlave(), SliderVolMic.Value)
|
End If
|
End Sub
|
|
Private Sub SliderVolMic_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SliderVolMic.Scroll
|
LblVolMic.Text = Format(SliderVolMic.Value, "0")
|
End Sub
|
|
Private Sub SliderVolOut_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SliderVolOut.Scroll
|
LblVolOut.Text = SliderVolOut.Value.ToString
|
End Sub
|
|
Private Sub Bt_Out_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Out_0.Click, Bt_Out_1.Click, Bt_Out_2.Click, Bt_Out_3.Click, Bt_Out_4.Click, Bt_Out_5.Click, Bt_Out_6.Click, Bt_Out_7.Click
|
If sender.text = "0" Then sender.text = "1" Else sender.text = "0"
|
End Sub
|
|
Private Sub frmSosPhone_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
|
Me.Hide()
|
e.Cancel = True
|
End Sub
|
|
Private Sub ChkMaster_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkMaster.Click
|
If Not ChkMaster.Checked Then
|
ChkMaster.Checked = True
|
ChkSlave.Checked = Not ChkMaster.Checked
|
SliderVolumeRefresh()
|
End If
|
End Sub
|
|
Private Sub ChkSlave_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkSlave.Click
|
If Not ChkSlave.Checked Then
|
ChkSlave.Checked = True
|
ChkMaster.Checked = Not ChkSlave.Checked
|
SliderVolumeRefresh()
|
End If
|
End Sub
|
|
Private Sub TimerFlashLabel_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerFlashLabel.Tick
|
lblIncomingCall.Visible = Not lblIncomingCall.Visible
|
End Sub
|
#End Region
|
|
#Region "Sos Phone Event Trap"
|
|
Private Sub mSosPhone_Log(ByVal sender As Object, ByVal e As TxtEventArgs) Handles mSosPhone.Log
|
Dim S As String
|
S = "P" + mSosPhone.Number + "-> " + e.TxtLog
|
OnLog(S)
|
End Sub
|
|
Private Sub mSosPhone_IncomingUserCall(ByVal sender As Object, ByVal e As ByteEventArgs) Handles mSosPhone.IncomingUserCall
|
'Dim D As New IncomingCallResponseCallBack(AddressOf IncomingCallResponse)
|
'Me.Invoke(D, "User", e.Data)
|
End Sub
|
|
Private Sub mSosPhone_IncomingServiceCall(ByVal sender As Object, ByVal e As ByteEventArgs) Handles mSosPhone.IncomingServiceCall
|
'Dim D As New IncomingCallResponseCallBack(AddressOf IncomingCallResponse)
|
'Me.Invoke(D, "Service", e.Data)
|
End Sub
|
|
|
Private Sub mSosPhone_AudioTestResult(ByVal sender As Object, ByVal e As ByteEventArgs) Handles mSosPhone.AudioTestCompleted
|
Dim Color As String
|
Dim d As New AudioTestLedChangeCallback(AddressOf LedAudioTestChange)
|
If e.Data = TST_OK Then Color = "Verde" Else Color = "Rojo"
|
Invoke(d, Color)
|
End Sub
|
|
Private Sub mSosPhone_LecturaIO(ByVal sender As Object, ByVal e As ByteEventArgs) Handles mSosPhone.AuxilaryPortRead
|
Dim A As New ShowDataInCallBack(AddressOf ShowDataIn)
|
Me.Invoke(A, e.Data)
|
End Sub
|
|
Private Sub mSosPhone_MaintenanceTestResponse(ByVal sender As Object, ByVal e As EventArgs) Handles mSosPhone.MaitenanceTestCompleted
|
'Dim A As New AlarmRefeshCallBack(AddressOf AlarmRefresh)
|
'Dim S As New SliderVolumeRefreshCallBack(AddressOf SliderVolumeRefresh)
|
'Me.Invoke(A)
|
'Me.Invoke(S)
|
End Sub
|
|
Private Sub mSosPhone_Alarm(ByVal sender As Object, ByVal e As EventArgs) Handles mSosPhone.AlarmsReceived
|
'Dim A As New ShowAlarmsCallBack(AddressOf ShowAlarms)
|
'Me.Invoke(A)
|
End Sub
|
|
Private Sub mSosPhone_ConnectionSuccesfull(ByVal sender As Object, ByVal e As EventArgs) Handles mSosPhone.ConnectionSuccesful
|
Dim D As New ButtonEnableRefreshCallBack(AddressOf ButtonEnableRefresh)
|
Me.Invoke(D)
|
OnConnectionSuccessful()
|
End Sub
|
|
Private Sub mSosPhone_OnConnectionFailed(ByVal sender As Object, ByVal e As EventArgs) Handles mSosPhone.ConnectionFailed
|
Dim D As New ButtonEnableRefreshCallBack(AddressOf ButtonEnableRefresh)
|
Me.Invoke(D)
|
OnConnectionFailed()
|
End Sub
|
#End Region
|
|
#Region "Auxilary functions"
|
Private Sub AlarmRefresh()
|
If mSosPhone.UpdatedAlarms Then
|
ChkBx_DM.Checked = mSosPhone.MasterDoorAlarm
|
ChkBx_DS.Checked = mSosPhone.SlaveDoorAlarm
|
ChkBx_AM.Checked = mSosPhone.MasterAudioOn
|
ChkBx_AS.Checked = mSosPhone.SlaveAudioOn
|
ChkBx_TM.Checked = mSosPhone.MasterToneOn
|
ChkBx_TS.Checked = mSosPhone.SlaveToneOn
|
ChkBx_LB.Checked = mSosPhone.LowBattery
|
ChkBx_PF.Checked = mSosPhone.PowerFail
|
Else
|
ChkBx_DM.Checked = False
|
ChkBx_DS.Checked = False
|
ChkBx_AM.Checked = False
|
ChkBx_AS.Checked = False
|
ChkBx_TM.Checked = False
|
ChkBx_TS.Checked = False
|
ChkBx_LB.Checked = False
|
ChkBx_PF.Checked = False
|
ChkBx_DM.CheckState = CheckState.Indeterminate
|
ChkBx_DS.CheckState = CheckState.Indeterminate
|
ChkBx_AM.CheckState = CheckState.Indeterminate
|
ChkBx_AS.CheckState = CheckState.Indeterminate
|
ChkBx_TM.CheckState = CheckState.Indeterminate
|
ChkBx_TS.CheckState = CheckState.Indeterminate
|
ChkBx_LB.CheckState = CheckState.Indeterminate
|
ChkBx_PF.CheckState = CheckState.Indeterminate
|
End If
|
End Sub
|
|
Private Sub ShowDataIn(ByVal Value As Byte)
|
RB_Input_0.Checked = ((Value And &H1) <> 0)
|
RB_Input_1.Checked = ((Value And &H2) <> 0)
|
RB_Input_2.Checked = ((Value And &H4) <> 0)
|
RB_Input_3.Checked = ((Value And &H8) <> 0)
|
RB_Input_4.Checked = ((Value And &H10) <> 0)
|
RB_Input_5.Checked = ((Value And &H20) <> 0)
|
RB_Input_6.Checked = ((Value And &H40) <> 0)
|
RB_Input_7.Checked = ((Value And &H80) <> 0)
|
End Sub
|
|
Private Sub IncomingCallResponse(ByVal Kind As String, ByVal MasterSlave As Byte)
|
Me.Show()
|
TabOrdenes.SelectedTab = TabOrdenesFonia
|
ChkMaster.Checked = (MasterSlave = P_MAS)
|
ChkSlave.Checked = (MasterSlave = P_ESC)
|
lblIncomingCall.Text = Kind + " incoming Call !"
|
lblIncomingCall.Visible = True
|
TimerFlashLabel.Enabled = True
|
End Sub
|
|
Private Sub ShowAlarms()
|
AlarmRefresh()
|
TabOrdenes.SelectedTab = TabEstado
|
Me.Show()
|
End Sub
|
|
Private Sub ButtonEnableRefresh()
|
Me.Btn_ECO_OFF.Enabled = mSosPhone.Connected
|
Me.Btn_ECO_ON.Enabled = mSosPhone.Connected
|
Me.BtnAudioOff.Enabled = mSosPhone.Connected
|
Me.BtnAudioOn.Enabled = mSosPhone.Connected
|
Me.SliderVolMic.Enabled = mSosPhone.Connected
|
Me.SliderVolOut.Enabled = mSosPhone.Connected
|
Me.BtnOccupiedToneON.Enabled = mSosPhone.Connected
|
Me.BtnToneOFF.Enabled = mSosPhone.Connected
|
Me.BtnCallToneON.Enabled = mSosPhone.Connected
|
Me.BtnMessageOff.Enabled = mSosPhone.Connected
|
Me.BtnOutOfServiceMessage.Enabled = mSosPhone.Connected
|
Me.BtnWaitingMessage.Enabled = mSosPhone.Connected
|
Me.BtnAudioTest.Enabled = mSosPhone.Connected
|
Me.BtnMaitenanceTest.Enabled = mSosPhone.Connected
|
Me.GB_Outputs.Enabled = mSosPhone.Connected
|
Me.GB_Inputs.Enabled = mSosPhone.Connected
|
Me.BtnWriteIO.Enabled = mSosPhone.Connected
|
Me.BtnReadIO.Enabled = mSosPhone.Connected
|
Me.Label1.Enabled = mSosPhone.Connected
|
Me.Label3.Enabled = mSosPhone.Connected
|
Me.Label4.Enabled = mSosPhone.Connected
|
Me.Label5.Enabled = mSosPhone.Connected
|
Me.Label6.Enabled = mSosPhone.Connected
|
Me.Label7.Enabled = mSosPhone.Connected
|
Me.LblVolOut.Enabled = mSosPhone.Connected
|
Me.LblVolMic.Enabled = mSosPhone.Connected
|
Me.ChkMaster.Enabled = mSosPhone.Connected
|
Me.ChkSlave.Enabled = mSosPhone.Connected
|
End Sub
|
|
Private Sub SliderVolumeRefresh()
|
Dim M As Byte
|
M = MasterOrSlave()
|
If M = P_MAS Then
|
If mSosPhone.MasterVolume >= 1 And mSosPhone.MasterVolume <= 7 Then
|
SliderVolOut.Value = mSosPhone.MasterVolume
|
LblVolOut.Text = mSosPhone.MasterVolume.ToString
|
Else
|
SliderVolOut.Value = 1
|
LblVolOut.Text = "¿" + mSosPhone.MasterVolume.ToString + "?"
|
End If
|
Else
|
If mSosPhone.MasterVolume >= 1 And mSosPhone.SlaveVolume <= 7 Then
|
SliderVolOut.Value = mSosPhone.SlaveVolume
|
LblVolOut.Text = mSosPhone.SlaveVolume.ToString
|
Else
|
SliderVolOut.Value = 1
|
LblVolOut.Text = "¿" + mSosPhone.SlaveVolume.ToString + "?"
|
End If
|
End If
|
End Sub
|
|
Private Sub LedAudioTestChange(ByVal color As String)
|
LedTestFon.Image = ImageListLeds.Images.Item(color)
|
End Sub
|
|
Private Function MasterOrSlave() As Byte
|
If ChkMaster.Checked Then
|
Return P_MAS
|
Else
|
Return P_ESC
|
End If
|
End Function
|
|
#End Region
|
End Class
|
