Friend Class frmMain_OLD
|
Inherits System.Windows.Forms.Form
|
|
#Region "Controles"
|
Friend WithEvents BtnSalir As System.Windows.Forms.Button
|
Friend WithEvents BtnLog As System.Windows.Forms.Button
|
#End Region
|
|
#Region "Declaraciones"
|
Dim Postes As New Collection
|
Friend WithEvents Logo As System.Windows.Forms.PictureBox
|
Friend WithEvents ImageListLeds As System.Windows.Forms.ImageList
|
Friend WithEvents ListaPostes As New E301ControlDemo.ClassSosPhoneList
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
Friend WithEvents ImageListLogo As System.Windows.Forms.ImageList
|
Friend WithEvents LBMasterSlave As System.Windows.Forms.ListBox
|
#End Region
|
|
#Region "Código generado por el Diseñador de Windows Forms "
|
Public Sub New()
|
MyBase.New()
|
If m_vb6FormDefInstance Is Nothing Then
|
If m_InitializingDefInstance Then
|
m_vb6FormDefInstance = Me
|
Else
|
Try
|
'Para el formulario de inicio, la primera instancia creada es la instancia predeterminada.
|
If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then
|
m_vb6FormDefInstance = Me
|
End If
|
Catch
|
End Try
|
End If
|
End If
|
'El Diseñador de Windows Forms requiere esta llamada.
|
InitializeComponent()
|
End Sub
|
'Form reemplaza a Dispose para limpiar la lista de componentes.
|
Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
|
If Disposing Then
|
If Not components Is Nothing Then
|
components.Dispose()
|
End If
|
End If
|
MyBase.Dispose(Disposing)
|
End Sub
|
'Requerido por el Diseñador de Windows Forms
|
Private components As System.ComponentModel.IContainer
|
Public ToolTip1 As System.Windows.Forms.ToolTip
|
'Public WithEvents TcpClient As AxMSWinsockLib.AxWinsock
|
'NOTA: el siguiente procedimiento es necesario para el Diseñador de Windows Forms
|
'Se puede modificar mediante el Diseñador de Windows Forms.
|
'No lo modifique con el editor de código.
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
Me.components = New System.ComponentModel.Container
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain_OLD))
|
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
|
Me.BtnSalir = New System.Windows.Forms.Button
|
Me.BtnLog = New System.Windows.Forms.Button
|
Me.ImageListLeds = New System.Windows.Forms.ImageList(Me.components)
|
Me.ImageListLogo = New System.Windows.Forms.ImageList(Me.components)
|
Me.Logo = New System.Windows.Forms.PictureBox
|
Me.ListaPostes = New E301ControlDemo.ClassSosPhoneList
|
Me.Label2 = New System.Windows.Forms.Label
|
Me.LBMasterSlave = New System.Windows.Forms.ListBox
|
CType(Me.Logo, System.ComponentModel.ISupportInitialize).BeginInit()
|
Me.SuspendLayout()
|
'
|
'BtnSalir
|
'
|
Me.BtnSalir.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.BtnSalir.Location = New System.Drawing.Point(511, 288)
|
Me.BtnSalir.Name = "BtnSalir"
|
Me.BtnSalir.Size = New System.Drawing.Size(75, 23)
|
Me.BtnSalir.TabIndex = 27
|
Me.BtnSalir.Text = "SALIR"
|
Me.BtnSalir.UseVisualStyleBackColor = True
|
'
|
'BtnLog
|
'
|
Me.BtnLog.Location = New System.Drawing.Point(430, 288)
|
Me.BtnLog.Name = "BtnLog"
|
Me.BtnLog.Size = New System.Drawing.Size(75, 23)
|
Me.BtnLog.TabIndex = 1
|
Me.BtnLog.Text = "Ver Log..."
|
Me.BtnLog.UseVisualStyleBackColor = True
|
'
|
'ImageListLeds
|
'
|
Me.ImageListLeds.ImageStream = CType(resources.GetObject("ImageListLeds.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
Me.ImageListLeds.TransparentColor = System.Drawing.Color.White
|
Me.ImageListLeds.Images.SetKeyName(0, "Verde")
|
Me.ImageListLeds.Images.SetKeyName(1, "Rojo")
|
Me.ImageListLeds.Images.SetKeyName(2, "Off")
|
'
|
'ImageListLogo
|
'
|
Me.ImageListLogo.ImageStream = CType(resources.GetObject("ImageListLogo.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
Me.ImageListLogo.TransparentColor = System.Drawing.Color.White
|
Me.ImageListLogo.Images.SetKeyName(0, "logo")
|
'
|
'Logo
|
'
|
Me.Logo.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
Me.Logo.Location = New System.Drawing.Point(12, 257)
|
Me.Logo.Margin = New System.Windows.Forms.Padding(0)
|
Me.Logo.Name = "Logo"
|
Me.Logo.Size = New System.Drawing.Size(238, 54)
|
Me.Logo.TabIndex = 32
|
Me.Logo.TabStop = False
|
'
|
'ListaPostes
|
'
|
Me.ListaPostes.BackColor = System.Drawing.Color.White
|
Me.ListaPostes.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawVariable
|
Me.ListaPostes.FormattingEnabled = True
|
Me.ListaPostes.Location = New System.Drawing.Point(12, 52)
|
Me.ListaPostes.Name = "ListaPostes"
|
Me.ListaPostes.Size = New System.Drawing.Size(200, 196)
|
Me.ListaPostes.TabIndex = 33
|
'
|
'Label2
|
'
|
Me.Label2.AutoSize = True
|
Me.Label2.Location = New System.Drawing.Point(12, 36)
|
Me.Label2.Name = "Label2"
|
Me.Label2.Size = New System.Drawing.Size(71, 13)
|
Me.Label2.TabIndex = 34
|
Me.Label2.Text = "SOS Phones:"
|
'
|
'LBMasterSlave
|
'
|
Me.LBMasterSlave.FormattingEnabled = True
|
Me.LBMasterSlave.Items.AddRange(New Object() {"Master", "Slave"})
|
Me.LBMasterSlave.Location = New System.Drawing.Point(218, 52)
|
Me.LBMasterSlave.Name = "LBMasterSlave"
|
Me.LBMasterSlave.Size = New System.Drawing.Size(92, 30)
|
Me.LBMasterSlave.TabIndex = 29
|
'
|
'frmMain
|
'
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
Me.BackColor = System.Drawing.SystemColors.Control
|
Me.ClientSize = New System.Drawing.Size(709, 317)
|
Me.Controls.Add(Me.LBMasterSlave)
|
Me.Controls.Add(Me.Label2)
|
Me.Controls.Add(Me.ListaPostes)
|
Me.Controls.Add(Me.Logo)
|
Me.Controls.Add(Me.BtnLog)
|
Me.Controls.Add(Me.BtnSalir)
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
Me.HelpButton = True
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
Me.Location = New System.Drawing.Point(4, 23)
|
Me.MaximizeBox = False
|
Me.MinimizeBox = False
|
Me.Name = "frmMain"
|
Me.RightToLeft = System.Windows.Forms.RightToLeft.No
|
Me.Text = "EQUITEL E301 Control Demo"
|
CType(Me.Logo, System.ComponentModel.ISupportInitialize).EndInit()
|
Me.ResumeLayout(False)
|
Me.PerformLayout()
|
|
End Sub
|
#End Region
|
|
#Region "Soporte para la actualización "
|
Private Shared m_vb6FormDefInstance As frmMain_OLD
|
Private Shared m_InitializingDefInstance As Boolean
|
Public Shared Property DefInstance() As frmMain_OLD
|
Get
|
If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
|
m_InitializingDefInstance = True
|
m_vb6FormDefInstance = New frmMain_OLD()
|
m_InitializingDefInstance = False
|
End If
|
DefInstance = m_vb6FormDefInstance
|
End Get
|
Set(ByVal value As frmMain_OLD)
|
m_vb6FormDefInstance = value
|
End Set
|
End Property
|
#End Region
|
|
|
Private Sub frmPrincipal_HelpButtonClicked(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles Me.HelpButtonClicked
|
Dim F As New Form
|
F = AboutBox2
|
F.ShowDialog()
|
e.Cancel = True
|
End Sub
|
|
Private Sub Form_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
|
Dim Linea(255) As String
|
Const ConfigurationFile As String = "E301_Control_Demo.ini"
|
|
Control.CheckForIllegalCrossThreadCalls = False
|
VentanaLog.Show()
|
'VentanaLog.Hide()
|
ListaPostes.DisplayMember = "Nombre"
|
TestMode = True
|
|
Try
|
Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(ConfigurationFile)
|
MyReader.TextFieldType = FileIO.FieldType.Delimited
|
MyReader.HasFieldsEnclosedInQuotes = True
|
MyReader.SetDelimiters(" ")
|
While Not MyReader.EndOfData
|
Try
|
Linea = MyReader.ReadFields()
|
If UCase(Linea(0)) = "POSTE" Then
|
If UBound(Linea) <> 4 Then
|
MsgBox("Numero erroneo de campos en definición poste en fichero .ini")
|
Else
|
CreaPoste(Linea(1), Linea(2), CInt(Linea(3)), CInt(Linea(4)))
|
End If
|
End If
|
If UCase(Linea(0)) = "MODOPRUEBAS" Then
|
TestMode = (UCase(Linea(1)) = "SI")
|
End If
|
Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
|
If Mid(Linea(0), 1, 1) <> "#" Then
|
MsgBox("Fichero .ini: Error de sintaxis: " & ex.Message)
|
End If
|
End Try
|
End While
|
End Using
|
Catch
|
MsgBox("ERROR: Configuration file '" + ConfigurationFile + "' not found", MsgBoxStyle.Critical)
|
End
|
End Try
|
|
If ListaPostes.Items.Count > 0 Then ListaPostes.SelectedIndex = 0
|
|
Logo.Image = ImageListLogo.Images.Item("Logo")
|
LedTestFon.Image = ImageListLeds.Images.Item("Off")
|
lblVol.Text = "(D)"
|
'lblVolMic.Text = "(D)"
|
LBMasterSlave.SelectedIndex = 0
|
End Sub
|
|
Private Sub CreaPoste(ByVal Ip As String, ByVal Comentario As String, ByVal PuertoCTRL As Integer, ByVal PuertoRTP As Integer)
|
Dim Poste As ClasePoste
|
Static N As Integer = 1
|
Poste = New ClasePoste(Ip, N, Comentario)
|
Poste.PuertoCTRL = PuertoCTRL
|
Poste.PuertoRTP = PuertoRTP
|
AddHandler Poste.Log, AddressOf OnLog
|
AddHandler Poste.OnExitoConexion, AddressOf OnExitoConexion
|
AddHandler Poste.OnFalloConexion, AddressOf OnFalloConexion
|
AddHandler Poste.OnRespuestaTestFonia, AddressOf OnResultadoTestFonia
|
AddHandler Poste.OnEnvioAlarmas, AddressOf OnEnvioAlarmas
|
AddHandler Poste.OnRespuestaTestMantenimiento, AddressOf OnRespuestaTestMantenimiento
|
AddHandler Poste.OnLecturaIO, AddressOf OnLecturaIO
|
Postes.Add(Poste, N)
|
ListaPostes.Items.Add(Poste)
|
N = N + 1
|
End Sub
|
|
|
Private Sub OnFalloConexion(ByVal NumeroPoste As Integer)
|
ListaPostes.MyRefresh()
|
End Sub
|
|
Private Sub OnExitoConexion(ByVal NumeroPoste As Integer)
|
ListaPostes.MyRefresh()
|
End Sub
|
|
Private Sub OnLog(ByVal S As String, ByVal NumeroPoste As Integer)
|
VentanaLog.NuevaLinea = "P_" + Str(NumeroPoste) + "->" + S + vbCrLf
|
End Sub
|
|
|
Private Function MasterOrSlave() As Byte
|
If LBMasterSlave.SelectedIndex = 1 Then
|
Return P_ESC
|
Else
|
Return P_MAS
|
End If
|
End Function
|
|
|
|
Private Sub Btn_VOZ_ON_LL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
Dim P As ClasePoste
|
P = ListaPostes.SelectedItem
|
P.ActivarSintetizador(ClasePoste.TiposMensaje.LlamadaRecibida, MasterOrSlave())
|
End Sub
|
|
Private Sub Btn_VOZ_ON_F_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
Dim P As ClasePoste
|
P = ListaPostes.SelectedItem
|
P.ActivarSintetizador(ClasePoste.TiposMensaje.FueraDeServicio, MasterOrSlave())
|
End Sub
|
|
Private Sub Btn_VOZ_OFF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
Dim P As ClasePoste
|
P = ListaPostes.SelectedItem
|
P.DesactivarSintetizador(MasterOrSlave())
|
End Sub
|
|
Private Sub BtnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalir.Click
|
End
|
End Sub
|
|
Private Sub BtnLog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLog.Click
|
frmLog.Show()
|
End Sub
|
|
Private Sub BtnTonoLlamadaON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
Dim P As ClasePoste
|
P = ListaPostes.SelectedItem
|
P.ActivarTono(MasterOrSlave(), ClasePoste.TiposTono.Llamada)
|
End Sub
|
|
Private Sub BtnTonoComON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
Dim P As ClasePoste
|
P = ListaPostes.SelectedItem
|
P.ActivarTono(MasterOrSlave(), ClasePoste.TiposTono.Comunicando)
|
End Sub
|
|
Private Sub BtnTonoOFF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
Dim P As ClasePoste
|
P = ListaPostes.SelectedItem
|
P.DesactivarTono(MasterOrSlave())
|
End Sub
|
|
Private Sub BtnFoniaOn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
Dim P As ClasePoste
|
P = ListaPostes.SelectedItem
|
P.ActivarFoníaDesdeCentral(MasterOrSlave())
|
End Sub
|
|
Private Sub BtnFoniaOff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
Dim P As ClasePoste
|
P = ListaPostes.SelectedItem
|
P.DesactivarFoníaDesdeCentral(MasterOrSlave())
|
End Sub
|
|
Private Sub BtnTestMantenimiento_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
Dim P As ClasePoste
|
P = ListaPostes.SelectedItem
|
P.TestMantenimiento()
|
End Sub
|
|
Private Sub BtnTestFonia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
Dim P As ClasePoste
|
P = ListaPostes.SelectedItem
|
LedTestFon.Image = ImageListLeds.Images.Item("Off")
|
P.TestFonia(MasterOrSlave())
|
End Sub
|
|
Private Sub BtnLeerIO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
Dim P As ClasePoste
|
P = ListaPostes.SelectedItem
|
P.LecturaPuerto()
|
End Sub
|
|
Private Sub BtnEscribirIO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
Dim P As ClasePoste
|
Dim Valor As Byte = 0
|
If Bt_Salida_0.Text = "1" Then Valor = Valor Or &H1
|
If Bt_Salida_1.Text = "1" Then Valor = Valor Or &H2
|
If Bt_Salida_2.Text = "1" Then Valor = Valor Or &H4
|
If Bt_Salida_3.Text = "1" Then Valor = Valor Or &H8
|
If Bt_Salida_4.Text = "1" Then Valor = Valor Or &H10
|
If Bt_Salida_5.Text = "1" Then Valor = Valor Or &H20
|
If Bt_Salida_6.Text = "1" Then Valor = Valor Or &H40
|
If Bt_Salida_7.Text = "1" Then Valor = Valor Or &H80
|
P = ListaPostes.SelectedItem
|
P.EscrituraPuerto(Valor)
|
End Sub
|
|
Private Sub OnResultadoTestFonia(ByVal Resultado As Byte)
|
If Resultado = TST_OK Then
|
LedTestFon.Image = ImageListLeds.Images.Item("Verde")
|
Else
|
LedTestFon.Image = ImageListLeds.Images.Item("Rojo")
|
End If
|
End Sub
|
|
Private Sub OnEnvioAlarmas(ByVal EstadoMaestro As Byte, ByVal EstadoEsclavo As Byte, ByVal NumeroPoste As Byte)
|
If ListaPostes.SelectedIndex = (NumeroPoste - 1) Then
|
RefrescaEstadoAlarmas()
|
End If
|
End Sub
|
|
Private Sub OnLecturaIO(ByVal Valor As Byte)
|
RB_Entrada_0.Checked = ((Valor And &H1) <> 0)
|
RB_Entrada_1.Checked = ((Valor And &H2) <> 0)
|
RB_Entrada_2.Checked = ((Valor And &H4) <> 0)
|
RB_Entrada_3.Checked = ((Valor And &H8) <> 0)
|
RB_Entrada_4.Checked = ((Valor And &H10) <> 0)
|
RB_Entrada_5.Checked = ((Valor And &H20) <> 0)
|
RB_Entrada_6.Checked = ((Valor And &H40) <> 0)
|
RB_Entrada_7.Checked = ((Valor And &H80) <> 0)
|
End Sub
|
|
Private Sub RefrescaEstadoAlarmas()
|
Dim P As ClasePoste
|
P = ListaPostes.SelectedItem
|
If P.AlarmasActualizadas Then
|
ChkBx_PAM.Checked = P.PuertaAbiertaMaestro
|
ChkBx_PAE.Checked = P.PuertaAbiertaEsclavo
|
ChkBx_FM.Checked = P.FoniaOnMaestro
|
ChkBx_FE.Checked = P.FoniaOnEsclavo
|
ChkBx_TM.Checked = P.TonoOnMaestro
|
ChkBx_TE.Checked = P.TonoOnEsclavo
|
ChkBx_BB.Checked = P.BateriaBaja
|
ChkBx_AL.Checked = P.FalloAlimentacion
|
Else
|
ChkBx_PAM.Checked = False
|
ChkBx_PAE.Checked = False
|
ChkBx_FM.Checked = False
|
ChkBx_FE.Checked = False
|
ChkBx_TM.Checked = False
|
ChkBx_TE.Checked = False
|
ChkBx_BB.Checked = False
|
ChkBx_AL.Checked = False
|
ChkBx_PAM.CheckState = CheckState.Indeterminate
|
ChkBx_PAE.CheckState = CheckState.Indeterminate
|
ChkBx_FM.CheckState = CheckState.Indeterminate
|
ChkBx_FE.CheckState = CheckState.Indeterminate
|
ChkBx_TM.CheckState = CheckState.Indeterminate
|
ChkBx_TE.CheckState = CheckState.Indeterminate
|
ChkBx_BB.CheckState = CheckState.Indeterminate
|
ChkBx_AL.CheckState = CheckState.Indeterminate
|
End If
|
End Sub
|
|
Private Sub ListaPostes_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
Dim P As ClasePoste
|
P = ListaPostes.SelectedItem
|
|
RefrescaHabilitacionBotones()
|
'Hacemos un test de mantenimiento para que se refresque el valor
|
'de volumen y las alarmas
|
If P.Conectado Then P.TestMantenimiento()
|
End Sub
|
|
|
Private Sub RefrescaHabilitacionBotones()
|
Dim P As ClasePoste
|
P = ListaPostes.SelectedItem
|
|
Me.GB_CanEco.Enabled = P.Conectado
|
Me.Btn_ECO_OFF.Enabled = P.Conectado
|
Me.Btn_ECO_ON.Enabled = P.Conectado
|
Me.AjusteVolumen.Enabled = P.Conectado
|
Me.BtnFoniaOff.Enabled = P.Conectado
|
Me.BotFoniaOn.Enabled = P.Conectado
|
Me.BtnTonoComON.Enabled = P.Conectado
|
Me.BtnTonoOFF.Enabled = P.Conectado
|
Me.BtnTonoLamadaON.Enabled = P.Conectado
|
Me.Btn_VOZ_OFF.Enabled = P.Conectado
|
Me.Btn_VOZ_ON_F.Enabled = P.Conectado
|
Me.Btn_VOZ_ON_LL.Enabled = P.Conectado
|
Me.BtnTestFonia.Enabled = P.Conectado
|
Me.BtnTestMantenimiento.Enabled = P.Conectado
|
Me.GB_Salidas.Enabled = P.Conectado
|
Me.GB_Entradas.Enabled = P.Conectado
|
Me.BtnEscribirIO.Enabled = P.Conectado
|
Me.BtnLeerIO.Enabled = P.Conectado
|
Me.Label4.Enabled = P.Conectado
|
Me.lblVol.Enabled = P.Conectado
|
End Sub
|
|
|
Private Sub OnRespuestaTestMantenimiento(ByVal NumeroPoste As Byte)
|
If ListaPostes.SelectedIndex = (NumeroPoste - 1) Then
|
RefrescaEstadoAlarmas()
|
RefrescaEstadoVolumen()
|
End If
|
End Sub
|
|
Private Sub RefrescaEstadoVolumen()
|
Dim P As ClasePoste
|
P = ListaPostes.SelectedItem
|
If P.VolumenMaestro > 1 And P.VolumenMaestro < 7 Then
|
AjusteVolumen.Value = P.VolumenMaestro
|
lblVol.Text = P.VolumenMaestro.ToString
|
Else
|
AjusteVolumen.Value = 1
|
lblVol.Text = "¿" + P.VolumenMaestro.ToString + "?"
|
End If
|
End Sub
|
|
Private Sub AjusteVolumen_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
|
Dim P As ClasePoste
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
P = ListaPostes.SelectedItem
|
P.AjusteVolumenSalida(MasterOrSlave(), AjusteVolumen.Value)
|
End If
|
End Sub
|
|
Private Sub Btn_ECO_ON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
Dim P As ClasePoste
|
P = ListaPostes.SelectedItem
|
P.CanceladorEcoON()
|
End Sub
|
|
Private Sub Btn_ECO_OFF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
Dim P As ClasePoste
|
P = ListaPostes.SelectedItem
|
P.CanceladorEcoOFF()
|
End Sub
|
|
Private Sub SlideVolMic_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
|
Dim P As ClasePoste
|
If e.Button = Windows.Forms.MouseButtons.Left Then
|
P = ListaPostes.SelectedItem
|
P.AjusteVolumenMicrofono(MasterOrSlave(), SlideVolMic.Value)
|
End If
|
End Sub
|
|
Private Sub SlideVolMic_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
lblVolMic.Text = Format(SlideVolMic.Value, "0")
|
End Sub
|
|
Private Sub AjusteVolumen_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
lblVol.Text = AjusteVolumen.Value.ToString
|
End Sub
|
|
Private Sub Bt_Salida_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
|
If sender.text = "0" Then sender.text = "1" Else sender.text = "0"
|
End Sub
|
|
End Class
|
