I am using a diagnostic window with many outputs that are controlled to turn on, off or be disabled with radio buttons. I also have three dampers that have a diagnostic routine which cycles them with pauses at close and open. This routine below activates the radio button associated with the damper to close and open it. It would be nice to see this visual associated with the damper as it cycles.
Call to the timer from the three damper check box’s:
[code]DamperSelected = me.index rem Use in DamperDiag Timer
if me.Value then
DamperDiag.Mode=2 Rem DamperDiag is the timer
else
DamperDiag.Mode=0 Rem DamperDiag is the timer
end[/code]
Code in Timer:
[code]Var Damper As Dampers
Damper = new Dampers
Select Case DamperSelected Rem saved property
Case 0 Rem Stairway Damper
StairwayDamper(2).Value = True Rem Radio button. Open Damper. This will not show the radio button change which is understanable. This is the problem due to the timer thread
Damper.pause(3*60) Rem 3 sec Pause
StairwayDamper(0).Value = True Rem Radio button. Close Damper.
Damper.pause(3*60) Rem 3 sec Pause
Case 1 Rem Bedroom Damper
BedroomDamper(2).Value = True Rem Radio button. Open Damper This will not show the radio button change
Damper.pause(3*60) Rem 3 sec Pause
BedroomDamper(0).Value = True Rem Radio button. Close Damper
Damper.pause(3*60) Rem 3 sec Pause
Case 2 Rem Diningroom Damper
DiningDamper(2).Value = True Rem Radio button. Open Damper This will not show the radio button change
Damper.pause(3*60) Rem 3 sec Pause
DiningDamper(0).Value = True Rem Radio button. Close Damper
Damper.pause(3*60) Rem 3 sec Pause
end[/code]