Freeze on ticker

[Thor]

Hi there, I exerienced that the app is freezing after a certaint number of enable and disable on the ticker.
I just replaced the ticker with a timer class(written in pure vb,and using some api calls) and now the freeze is gone, so it must be something with the vbcorelib ticker.

I created a class that would hold the timer.

VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "ArielTimer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'** VBcore time ticker class
'** www.kellyethridge.com/vbcorlib/

Private WithEvents mTicker As Ticker
Attribute mTicker.VB_VarHelpID = -1
Private mEnabled As Boolean 'Timer running?
Private mInterval As Long 'Timer interval, ms
Public Event OnTimer()

Public Property Get Enabled() As Boolean
'----------------------------------------
'Read current Enabled status
'----------------------------------------
Enabled = mEnabled
End Property

Public Property Let Enabled(ByVal vEnabled As Boolean)
'-----------------------------------------------------
'Reset and Enable timer
'-----------------------------------------------------
If mEnabled <> vEnabled Then mTicker.Enabled = vEnabled
mEnabled = vEnabled
End Property

Public Property Let Interval(vInterval As Long)
'-----------------------------------------------
'Set new interval & reset timer
'-----------------------------------------------
If vInterval > 0 Then
mInterval = vInterval
mTicker.Interval = mInterval
End If
End Property

Private Sub mTicker_Elapsed(ByRef Data As Variant)
RaiseEvent OnTimer
End Sub

Public Property Get Interval() As Long
'----------------------------------------
'Read current Interval
'----------------------------------------
Interval = mInterval
End Property

Private Sub Class_Initialize()
'--------------------------------
'Initialise Timer
'--------------------------------
mEnabled = False: mInterval = 1000
Set mTicker = NewTicker(mInterval)
End Sub

Private Sub Class_Terminate()
'------------------------------------
'Terminate timer
'------------------------------------
mEnabled = False: mTicker.StopTicker
Set mTicker = Nothing
End Sub

I haven't tried to check if the freeze is gone if I don't use the class.But I can't understand if that would make it different?
any ideas?
other than that I would like to say thank you for putting so much work in making such a lib.impressive.
Have a nice holyday.

[Kelly Ethridge]

Hello there,

Can you share some code that will cause the problem? Does is happen in the IDE and/or compiled code?

I put a button on a form and in the click event I just toggled the ticker enable property. the ticker had an interval of 100ms. In the ticker event I just incremented and displayed a count. Should that be enough to cause the problem?

Kelly

[Thor]

I used the ticker as a timeout.
interval = 2000ms
so if things respond normal the ticker would be disabled witout any delays.

button event start
ticker1.enabled
winsock.connect
button event end

ticker1 event start
'no sucess
ticker1.disabled
'timeout stuff
ticker1 event end

winsock connected start
'sucsess
ticker.disabled
winsock connected end

winsock dataarrival event start
'incomming data
winsock dataarrival event end


I had more tickers that is used as timeouts in the same way. only one ticker is active in one time (yes I could managed with just one ticker, but code looks better).

here is some code from the winsock dataarrvial
Dim buffer As String
If (Client.State <> SockState.sckConnected) Then Exit Sub
Client.GetData buffer
buffer = LCase(buffer)
Select Case level
Case 0 ' login
If InStr(buffer, "login: ") Then 'username
SendData username & nl
ElseIf InStr(buffer, "username: ") Then
SendData username & nl
End If
If InStr(buffer, "password: ") Then 'password
SendData password & nl
End If

ArTimer_level_0.Enabled = True 'timeout test

If InStr(buffer, "$") Then
ArTimer_level_0.Enabled = False ' timeout finished
SendData "blabla" & nl
level = 1'next level
end if
case 1 '
case 2
end select

When I experienced the craches I was bugseeking the code and the last response from the app where that it where setting the ticker.enable. the freeze is comming in both IDE and compiled. I found this vb code, that is used almost the same way, so I changed only the nessesary, and it worked without any crashes.

Private WithEvents standAloneTimer As CTimer 'Single Ctimer object
Set standAloneTimer = New CTimer
standAloneTimer.Interval = 2000
Private Sub standAloneTimer_Timer()
List2.AddItem "Standalone Timer"
End Sub
standAloneTimer.Enabled = true


I can try and get a better crash code example for you later.

[thor]

www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=49263&lngWId=1

[Kelly Ethridge]

Hello,

Ok, could you give this compiled version of VBCorLib a try?

www.kellyethridge.com/vbcorlib/VBCorLib.dll

The one thing I changed is that if you set Enabled = True and the Ticker is already running then it will reset the Ticker. Before I was simply exiting the routine if Enabled was being set to the same value already set in the Ticker.

[thor]

tried it now. still a freeze.
do I have to restart windows after I replaced the dll?

[Kelly Ethridge]

Hello,

I've never had to reboot after replacing the DLL. As long as you replaced the already registered DLL it should just take it's place on new usage.

Anyways, is there any way I can get your code for testing? You are using Winsock and I would like to recreate the context of your code. Do you provide the server that your Winsock connects to, also? Or do you connect to something I can access?

-Kelly

[thor]

thank you.
the update seems to fix the freezes
pewh. good it wasn't my bad coding