A TBEM stess experiment

Michael,

I was experimenting with TBEM module in order to stress it a bit ;)
I wanted to have different events fired at different time interval. See below example.
[code=thinbasic]
uses "TBEM"
uses "Console"

dim event000Sec as long
dim event001Sec as long
dim event005Sec as long
dim event010Sec as long
dim event050Sec as long
dim event100Sec as long

%evg_Timers = 1

%evt_000Secs = 1
%evt_001Secs = 2
%evt_005Secs = 3
%evt_010Secs = 4
%evt_050Secs = 5
%evt_100Secs = 6


function Event_Print_000Secs()
Console_PrintAt("Timer occurs every 10 MilliSecs " & gettickcount, 1, 7, 9)
end function

function Event_Print_001Secs()
Console_PrintAt("Timer occurs every 100 MilliSecs " & gettickcount, 5, 8, 9)
end function

function Event_Print_005Secs()
Console_PrintAt("Timer occurs every 500 MilliSecs " & gettickcount, 10, 9, 10)
end function

function Event_Print_010Secs()
Console_PrintAt("Timer occurs every 1 seconds " & time$ , 15, 10, 11)
end function

function Event_Print_050Secs()
Console_PrintAt("Timer occurs every 5 seconds " & time$ , 20, 11, 12)
end function

function Event_Print_100Secs()
Console_PrintAt("Timer occurs every 10 seconds " & time$ , 25, 12, 13)
end function

event000Sec = TBEM_AddEvent ("Event_Print_000Secs", %evt_000Secs, getTickcount, %evg_Timers, %TRUE)
TBEM_SetRepeat (event000Sec, %TRUE , 10)
'tbem_addtrigger (%evt_000Secs, %TRUE)

event001Sec = TBEM_AddEvent ("Event_Print_001Secs", %evt_001Secs, getTickcount, %evg_Timers, %TRUE)
TBEM_SetRepeat (event001Sec, %TRUE , 100)
'tbem_addtrigger (%evt_001Secs, %TRUE)

event005Sec = TBEM_AddEvent ("Event_Print_005Secs", %evt_005Secs, getTickcount, %evg_Timers, %TRUE)
TBEM_SetRepeat (event005Sec, %TRUE , 500)
tbem_addtrigger (%evt_005Secs, %TRUE)

event010Sec = TBEM_AddEvent ("Event_Print_010Secs", %evt_010Secs, getTickcount, %evg_Timers, %TRUE)
TBEM_SetRepeat (event010Sec, %TRUE , 1000)
tbem_addtrigger (%evt_010Secs, %TRUE)

event050Sec = TBEM_AddEvent ("Event_Print_050Secs", %evt_050Secs, getTickcount, %evg_Timers, %TRUE)
TBEM_SetRepeat (event050Sec, %TRUE , 5000)
tbem_addtrigger (%evt_050Secs, %TRUE)

event100Sec = TBEM_AddEvent ("Event_Print_100Secs", %evt_100Secs, getTickcount, %evg_Timers, %TRUE)
TBEM_SetRepeat (event100Sec, %TRUE , 10000)
tbem_addtrigger(%evt_100Secs, %TRUE)

while %TRUE
TBEM_run(%evg_Timers)
wend


[/code]

I have a problem and some questions.
Problem:

• if commented triggers are uncommented, nothing happened. Maybe I missed something

Questions:

• once event is created and active, do I also have to call tbem_addtrigger even if event has been set as active?
• event type must be a unique number all around or unique inside a group? If event type is unique all around, why groups?
  I mean, can I have EventType 1 in 2 different groups? If yes, how can tbem_addtrigger knows what to trigger

Sorry for "stressing" it/you ;)

Ciao
Eros

Just further info.
If you uncomment first 4 events (10 millisec, 100 millisec, 500 millisec, 1 sec) and comment last 2 all is working.
If you uncomment also 5 sec event no events seem fired anymore other than the very first time.

So it seems not related to the kind of events but maybe the number of them or at the complexity.

Ciao
Eros

Maybe problem is related to the number of events because I setup 5 events all to be fired every second and it dosen't work
With 4 events it works

Hi Eros,

just saw this this morning and have to go to work now. I'll will check it tonight and let you know. Thanks for testing it.

Hi Eros,

I hope I squished the bug. There where some time related problems with TBEM_Run. Let me know if it works ok now.

Get the latest version from the usual place. And I'm sorry for the inconvenience this has caused.

Michael

Works great now,

thanks a lot Mike for quick fix!


Petr

Quick???? At first I was pulling my hair out as I thought it was a problem with pointers. Well, it was a logic error. Hard to track but I think I got. But I won't say now that this module is bullet proofed.

Thanks a lot Michael.
Maybe I will "stress" it a little more later.

Did you think about my previous questions?
I really like this module so I want it clear in my mind! I see a lot of possible usages.

Thanks a lot.
Eros

You mean the data trigger? You said forget about it. :P But I didn't. Let's discuss it in the topic you posted there first.

No, I was referring to questions in first post here:

Quote:

---

Originally Posted by ErosOlmi

Questions:

• once event is created and active, do I also have to call tbem_addtrigger even if event has been set as active?
• event type must be a unique number all around or unique inside a group? If event type is unique all around, why groups?
  I mean, can I have EventType 1 in 2 different groups? If yes, how can tbem_addtrigger knows what to trigger

---