Portal •  Foro •  FAQ •  Buscar •  Temas recientes •  Lista de usuarios •  Registrarse •  Conectarse 
Foro » Gambas » General

Detectar Estado De Conexión Por Medio De 2 Timers

Responder al tema

 

v3ctor
Citar
Mensajes: 1786 Ubicación: Uruguay
Lunes, 22 Junio 2015, 15:32
Objetivo: Detectar Estado De Conexión Por Medio De 2 Timers
que les parece este código?

Public Sub HayConexion()

If Not Desktop.NetworkAvailable Then
LabEstado.Text = "Conexión no disponible"
txtFiltro.Enabled = False
btnBuscar.Enabled = False
Timer1.Start
Timer2.Stop
Return
Else
LabEstado.Text = ""
txtFiltro.Enabled = True
btnBuscar.Enabled = True
Timer1.Stop
Timer2.Start
Endif

End

Public Sub Form_Activate()
HayConexion()
End

Public Sub Timer1_Timer()
HayConexion()
End

Public Sub Timer2_Timer()
If Not Desktop.NetworkAvailable Then Timer1.Start
End

Perfil MP   Sitio web
shordi
Citar
Mensajes: 4982 Ubicación: Albacete
Martes, 23 Junio 2015, 08:40
Objetivo: Re: Detectar Estado De Conexión Por Medio De 2 Timers
Correcto. No es lo que yo haría, sobre todo en bases MySQL donde la comprobación de si está abierta o no conlleva algún delay, pero la idea es correcta.

Perfil MP  
PabloGener
Citar
Mensajes: 18 Ubicación: Ciudadela, Buenos Aires
Jueves, 25 Junio 2015, 00:14
Objetivo: Re: Detectar Estado De Conexión Por Medio De 2 Timers
yo apagaría el Timer1 antes de lanzar HayConexion() otra vez.
además, no es una buena práctica dejar los nombres de controles "por default", yo te recomiendo que a cada Timer le pongas un nombre que represente "para qué se prende". por ejemplo tmrBuscaConexion, tmrCierraFormulario, etc.
con la modificación que yo te sugiero te quedaría así:

Public Sub Timer1_Timer()
Timer1.Stop
HayConexion()
End


digo porque en "HayConexion()" volves a dar .Start a un control que ya está '.starteado'. no se si se entiende el concepto.
saludos!!

Perfil MP   Skype
shordi
Citar
Mensajes: 4982 Ubicación: Albacete
Jueves, 25 Junio 2015, 09:20
Objetivo: Re: Detectar Estado De Conexión Por Medio De 2 Timers
no es una buena práctica dejar los nombres de controles "por default"


Totalmente de acuerdo, sin embargo es un estándar "no oficial" el dejar los nombres por defecto para ejemplos y consultas, de esa manera es muy sencillo probar el ejemplo:
Creas un proyecto nuevo, añades los controles que vengan al caso dejándo los nombres por defecto y pegas el código del foro. Debería funcionar sin problemas. Renombrando los controles la prueba se vuelve mucho más tediosa y prolija.

Saludos.

Perfil MP  
PabloGener
Citar
Mensajes: 18 Ubicación: Ciudadela, Buenos Aires
Jueves, 25 Junio 2015, 17:41
Objetivo: Re: Detectar Estado De Conexión Por Medio De 2 Timers
shordi escribió: [Ver mensaje]
no es una buena práctica dejar los nombres de controles "por default"


Totalmente de acuerdo, sin embargo es un estándar "no oficial" el dejar los nombres por defecto para ejemplos y consultas, de esa manera es muy sencillo probar el ejemplo:
Creas un proyecto nuevo, añades los controles que vengan al caso dejándo los nombres por defecto y pegas el código del foro. Debería funcionar sin problemas. Renombrando los controles la prueba se vuelve mucho más tediosa y prolija.

Saludos.


¡Es cierto! no lo había pensado. lo voy a tener muy en cuenta a la hora de preguntar cosas en el foro, ejemplificando con código "de prueba", para que otros puedan facilmente copiar-y-pegar mi ejemplo y probarlo.

Perfil MP   Skype
Responder al tema
 

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.1465s (PHP: -34% SQL: 134%)
Consultas SQL: 29 - Debug off - GZIP Activado