Вверх ↑
Разработчик
Ответов: 26257
Рейтинг: 2140
#1: 2012-11-05 02:34:10 ЛС | профиль | цитата
А нельзя ли повесить выдачу импульсов на KernelChip KeUsb24A, или он не позволяет этого делать Жаль, но у меня нет этого устройства.
------------ Дoбавленo в 02.34:
Вот так работает на MMTimer-e, но только с мсек



Add(MainForm,2953706,462,217)
{
}
Add(MMTimer,4119969,273,105)
{
 Resolution=0
 Interval=5
 Enable=1
 Point(doAutoStop)
 Point(onStop)
 link(onTimer,11442839:doOperation,[])
 link(onStop,8362870:doEvent1,[(317,118)(317,167)])
}
Add(Edit,6806358,217,56)
{
 Left=25
 Top=5
 Width=130
 Cursor=1
 Text="1000"
}
Add(Math,11442839,399,105)
{
 Op2=1
 ResultType=0
 Point(doClear)
 link(Op1,1076077:Var3,[(405,93)(440,93)(440,145)])
}
Add(Button,3654948,105,91)
{
 Left=75
 Top=35
 TabOrder=-1
 Caption="Sart"
 link(onClick,15544446:doEvent1,[])
}
Add(Hub,15544446,168,91)
{
 OutCount=4
 link(onEvent1,11442839:doClear,[(330,97)(330,118)])
 link(onEvent2,15260899:doData,[(200,104)(200,125)])
 link(onEvent3,4119969:doTimer,[])
 link(onEvent4,4631823:doStart,[(196,118)(196,216)])
}
Add(DoData,15260899,217,119)
{
 link(onEventData,4119969:doAutoStop,[])
 link(Data,6806358:Text,[])
}
Add(TimeCounter,4631823,399,210)
{
 link(onStop,2953706:doCaption,[])
}
Add(Edit,14665970,399,168)
{
 Left=180
 Top=5
 Width=130
 Cursor=1
 Text=""
 link(Str,1076077:Var2,[])
}
Add(Hub,8362870,329,161)
{
 link(onEvent1,4631823:doStop,[(360,167)(360,223)])
 link(onEvent2,14665970:doText,[])
}
Add(GetDataEx,1076077,399,140)
{
 link(Data,11442839:Result,[])
}


Но ни в коем случае, никакие визуальные компоненты нельзя цеплять к выходу onTimer
карма: 22

0