Вверх ↑
Ответов: 8926
Рейтинг: 823
#1: 2008-07-31 15:54:49 ЛС | профиль | цитата
andrestudio, а вот так измерить: code_9617.txt
------------ Дoбавленo:

вот так точнее:

Add(MainForm,14187007,28,35)
{
Left=20
Top=105
link(onCreate,11537040:doStart,[])
}
Add(LPT,13784985,217,56)
{
link(onStatus,12832022:doCompare,[])
}
Add(Thread,11537040,77,49)
{
Delay=0
link(onExec,8415713:doNext,[])
}
Add(Counter,8415713,126,49)
{
Max=60
link(onNext,3654578:doEvent1,[])
}
Add(Hub,3654578,168,49)
{
OutCount=4
link(onEvent1,650757:doCompare,[(208,55)(208,20)])
link(onEvent2,13784985:doData,[])
link(onEvent3,13784985:doCheck,[])
link(onEvent4,9118943:doCompare,[(208,76)(208,118)])
}
Add(If_else,650757,217,14)
{
Op2=Integer(0)
link(onTrue,15904317:doClear,[(348,20)(348,69)])
}
Add(If_else,9118943,217,112)
{
Op2=Integer(60)
link(onTrue,11839337:doEnum,[])
}
Add(StrList,15904317,357,56)
{
}
Add(If_else,12832022,259,56)
{
Op2=Integer(126)
link(onTrue,5995372:doWork1,[])
link(onFalse,5995372:doWork2,[])
}
Add(ArrayEnum,11839337,371,112)
{
link(onItem,13273243:doValue,[])
link(onEndEnum,3060915:doNext,[(426,125)(426,174)])
link(Array,15904317:Array,[])
}
Add(ChanelToIndex,5995372,308,56)
{
link(onIndex,15904317:doAdd,[])
}
Add(InfoTip,15597934,497,28)
{
Info=#105:Здесь хранится и выдаётся по окончании цикла опроса массив состояния 61 клавиш: 0 - не нажата, 1 - нажата|
Width=106
Height=109
}
Add(Label,8334067,497,217)
{
Left=130
Top=45
}
Add(Memory,13273243,434,112)
{
}
Add(Hub,898194,371,175)
{
link(onEvent1,12565322:doStrCat,[(419,181)(419,223)])
link(onEvent2,3060915:doReset,[])
}
Add(Timer,13660940,322,175)
{
link(onTimer,898194:doEvent1,[])
}
Add(Counter,3060915,434,168)
{
Max=9999999
}
Add(StrCat,12565322,434,217)
{
Str2=" циклов в секунду"
link(onStrCat,8334067:doText,[])
link(Str1,3060915:Count,[])
}

, правда надо учитывать, что могут быть перерывы в опросе на 10-20 миллисекунд - Windows всё-таки
карма: 19

0
файлы: 1code_9617.txt [1.5KB] [242]