Control de tiempo
Hola necesito controlar en visual basic 6.0 que cuando transcurran 5 minutos de la hora tomada del sistema envíe un mensaje.
No logro hacer que mi sistema que he creado cliente servidor con winsock cada 5 minutos el cliente envíe un mensaje en string a la base avisando que esta conetcado.
Si alguien me puede ayudar gracias.
No logro hacer que mi sistema que he creado cliente servidor con winsock cada 5 minutos el cliente envíe un mensaje en string a la base avisando que esta conetcado.
Si alguien me puede ayudar gracias.
1 respuesta
Respuesta de santiagomf
1
Yo utilizaría un 'Timer' (de la barra de herramientas).
El único problema sería que no admite intervalos de 5 minutos, por lo que tendríamos que llevar un contador de minutos.
El código sería algo así:
Option Explicit
Dim minutosTranscurridos As Integer
Private Sub Form_Load()
minutosTranscurridos = 0
Me.Timer1.Interval = 60 * 1000# ' Va en milisegundos
End Sub
Private Sub Timer1_Timer()
minutosTranscurridos = minutosTranscurridos + 1
If minutosTranscurridos >= 5 Then
' Código para mandar el mensaje
minutosTranscurridos = 0
End If
End Sub
El único problema sería que no admite intervalos de 5 minutos, por lo que tendríamos que llevar un contador de minutos.
El código sería algo así:
Option Explicit
Dim minutosTranscurridos As Integer
Private Sub Form_Load()
minutosTranscurridos = 0
Me.Timer1.Interval = 60 * 1000# ' Va en milisegundos
End Sub
Private Sub Timer1_Timer()
minutosTranscurridos = minutosTranscurridos + 1
If minutosTranscurridos >= 5 Then
' Código para mandar el mensaje
minutosTranscurridos = 0
End If
End Sub
