Вверх ↑
Ответов: 8926
Рейтинг: 823
#1: 2008-07-31 12:04:05 ЛС | профиль | цитата
unalex, с этого надо было начинать. Без небольшого количества пайки здесь не обойтись - надо сделать развёртку 6-бит -- 64 выходнных линий (максимум 5 корпусов микросхем, если серия 155: К155ИД3 - 4 шт, К155ЛА3 - 1 шт ).
На кажой из этих линий поочерёдно появляется 0 и если клавиша нажата - этот 0 будет и на входе LTP, хоть все сразу нажимай
------------ Дoбавленo:

Вот:

Add(MainForm,14187007,28,98)
{
Left=20
Top=105
link(onCreate,11537040:doStart,[])
}
Add(LPT,13784985,231,119)
{
link(onStatus,12832022:doCompare,[])
}
Add(Thread,11537040,91,112)
{
Delay=1
link(onExec,8415713:doNext,[])
}
Add(Counter,8415713,140,112)
{
Max=60
link(onNext,3654578:doEvent1,[])
}
Add(Hub,3654578,182,112)
{
OutCount=4
link(onEvent1,650757:doCompare,[(222,118)(222,83)])
link(onEvent2,13784985:doData,[])
link(onEvent3,13784985:doCheck,[])
link(onEvent4,9118943:doCompare,[(222,139)(222,181)])
}
Add(If_else,650757,231,77)
{
Op2=Integer(0)
link(onTrue,15904317:doClear,[(362,83)(362,132)])
}
Add(If_else,9118943,231,175)
{
Op2=Integer(60)
link(onTrue,11839337:doEnum,[])
}
Add(StrList,15904317,371,119)
{
}
Add(If_else,12832022,273,119)
{
Op2=Integer(126)
link(onTrue,5995372:doWork1,[])
link(onFalse,5995372:doWork2,[])
}
Add(ArrayEnum,11839337,385,175)
{
link(Array,15904317:Array,[])
}
Add(ChanelToIndex,5995372,322,119)
{
link(onIndex,15904317:doAdd,[])
}
Add(InfoTip,15597934,427,98)
{
Info=#105:Здесь хранится и выдаётся по окончании цикла опроса массив состояния 61 клавиш: 0 - не нажата, 1 - нажата|
Width=106
Height=109
}

карма: 19

0