Hola que tal les comento mi caso:
Realicé una aplicación que utiliza varios Timer (para ser más exacto 3) que se apagan y se prenden cada cierto tiempo, uno de ellos esta constantemente prendido lo cargo en el load del Form principal con su propiedad enabled = true,
el detalle es que después de un tiempo digamos horas esta ya no responde y se queda congelada y no responde.
La función de esta aplicación es que recibe datos por medio del puerto serial y de un protocolo de comunicación del cual arroja ciertos datos, les pongo un trozo de código para que me orienten acerca de este problema.
Private Sub tmrEntradas_Timer()
Call fnRecorrerEntradas
End Sub
Public Function fnRecorrerEntradas()
Dim c As Integer
For c = 0 To 24 Step 1
If c >= 24 And GBLEstatusTorreta(GBLCiclo).Torreta = 1 Then
c = 0
GBLEstatusTorreta(GBLCiclo).Torreta = GBLEstatusTorreta(GBLCiclo).Torreta + 1
tmrEntradas.Enabled = False
tmrEstatus.Enabled = True
Exit Function
ElseIf c >= 17 And GBLEstatusTorreta(GBLCiclo).Torreta = 2 Then
c = 0
GBLEstatusTorreta(GBLCiclo).Torreta = 1
countProgress.Caption = ""
tmrEstatus.Enabled = True
tmrEntradas.Enabled = False
Exit Function
End If
Call sbEntradas(c)
Call fnDetenerTiempoDos(GBLTiempo)
Call fnDetenerTiempo(GBLTiempoDos)
Next c
End Function
Private Sub sbEntradas(ByVal i As Integer)
Dim sintciclo As Integer
Dim chksum As Integer
Dim j As Byte
Dim indx As Byte
If i >= 24 Then
i = 0
End If
GBLTipo = "ENTRADA"
protocolo__TX(0) = &H1
protocolo__TX(1) = CByte(GBLEstatusTorreta(GBLCiclo).Torreta)
protocolo__TX(2) = &H0
protocolo__TX(3) = &H3C
protocolo__TX(4) = i 'entrada que se quiere leer
For j = 5 To 19 Step 1
protocolo__TX(j) = 0
Next j
chksum = 0
For indx = 0 To 19 Step 1
chksum = chksum + protocolo__TX(indx)
Next indx
chksum = chksum And 255
chksum = chksum Xor 255
chksum = chksum + 1
protocolo__TX(20) = CByte(chksum And &HFF)
'Envia los datos por el puerto serial
For indx = 0 To 20 Step 1
MSComm1.Output = Chr(protocolo__TX(indx))
Next indx
End Sub
Public Function fnDetenerTiempo(ByVal TicksEsperando As Long)
Dim TicksIniciales As Long
TicksIniciales = GetTickCount() + TicksEsperando
Do While TicksIniciales > GetTickCount()
DoEvents
Loop
End Function
Public Function fnDetenerTiempoDos(ByVal TicksEsperando As Long)
Dim TicksIniciales As Long
TicksIniciales = GetTickCount() + TicksEsperando
Do While TicksIniciales > GetTickCount()
Loop
End Function
Las propiedad interval del Timer es de 1000 y Enabled= False (la propiedad enabled la enciendo en el load ),
La variable GBLtiempo = 1000
"" GBLtiempoDos= 300
Me comentaban que le detalle podría ser porque tengo declaradas variables detro del metodo del Timer, porque según esto esas variables no se destruyen en tiempo de ejecución o cuando abandona el evento Timer y me recomendarón
aplicar un Nothing y declarar las variables en la clase osea fuera del metodo Timer.
Espero me puedan ayudar de antemano mil Gracias!!
