Вверх ↑
Ответов: 1061
Рейтинг: 22
#1: 2012-03-30 11:01:35 ЛС | профиль | цитата
Kazbek17 писал(а):
А можно справочку с IC или ссылку буду благодарен.
RinniX писал(а):
lnLineCode
Kazbek17 писал(а):
Это я уже читал,я думал может что новое есть.

"http://hiasm.com/wiki.html" далее "Тут пишем, что хотим" далее "InLine"
------------ Дoбавленo в 11.01:
188.16.195.193 писал(а):
RinniX писал(а)мне кажется будет проще!
nesco писал(а)у тебя чисто плавающая единица, а ведь иногда надо управлять несколькими включеними

тогда уж так
code_27431.txt

или так

Add(TabControl,14788027,77,105)
{
Width=488
Height=21
Align=2
Tabs=#1:0|1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|
Bitmaps=[]
HotTrack=0
Point(CurTabIndx)
Point(CurTabCaption)
Point(PageTab)
link(onChange,12616179:doGetIndex,[])
}
Add(MultiElementEx,12616179,126,105)
{
@Hint=#6:Логика|
link(onBit1,9841644:doVisible,[])
link(onBit2,1659481:doVisible,[])
link(onBit3,7238493:doVisible,[])
link(onBit4,3465787:doVisible,[])
link(onBit5,634997:doVisible,[])
link(onBit6,6983627:doVisible,[])
link(onBit7,10733219:doVisible,[])
link(onBit8,9010822:doVisible,[])
link(onBit9,5330074:doVisible,[])
link(onBit10,10476162:doVisible,[])
}
BEGIN_SDK
Add(EditMultiEx,704424,91,21)
{
WorkCount=#10:doGetIndex|
EventCount=#6:onBit1|6:onBit2|6:onBit3|6:onBit4|6:onBit5|6:onBit6|6:onBit7|6:onBit8|6:onBit9|7:onBit10|
Width=167
Height=186
VOffset=56
link(doGetIndex,652551:doWork,[])
}
Add(IntToBits,2080325,168,77)
{
Count=10
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit1,704424:onBit1,[])
link(onBit2,704424:onBit2,[])
link(onBit3,704424:onBit3,[])
link(onBit4,704424:onBit4,[])
link(onBit5,704424:onBit5,[])
link(onBit6,704424:onBit6,[])
link(onBit7,704424:onBit7,[])
link(onBit8,704424:onBit8,[])
link(onBit9,704424:onBit9,[])
link(onBit10,704424:onBit10,[])
}
Add(InlineCode,652551,112,77)
{
WorkPoints=#6:doWork|
EventPoints=#7:onEvent|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|48:uses kol,Share,Debug; |0:|4:type|28: THiAsmClass = class(TDebug)|10: private|9: public|50: data: THI_Event; |53: onEvent: THI_Event; |49: Procedure doWork(var _Data:TData; Index:Word);|5: end;|0:|47:implementation |0:|30:Procedure THiAsmClass.doWork; |32:var op1,op2,result: integer; |30:begin |9: op1:= 1;|53: op2:= Readinteger(_Data,data); |36: result:= op1 shl op2; |30: _hi_OnEvent(onEvent,result); |30:end; |28:end. |
link(onEvent,2080325:doBits,[])
}
END_SDK
Add(Label,10476162,553,161)
{
Left=215
Top=165
Visible=1
Caption="9"
Point(doVisible)
}
Add(Label,5330074,511,154)
{
Left=215
Top=165
Visible=1
Caption="8"
Point(doVisible)
}
Add(Label,9010822,469,147)
{
Left=215
Top=165
Visible=1
Caption="7"
Point(doVisible)
}
Add(Label,10733219,427,140)
{
Left=215
Top=165
Visible=1
Caption="6"
Point(doVisible)
}
Add(Label,6983627,385,133)
{
Left=215
Top=165
Visible=1
Caption="5"
Point(doVisible)
}
Add(Label,634997,343,126)
{
Left=215
Top=165
Visible=1
Caption="4"
Point(doVisible)
}
Add(Label,3465787,301,119)
{
Left=215
Top=165
Visible=1
Caption="3"
Point(doVisible)
}
Add(Label,7238493,259,112)
{
Left=215
Top=165
Visible=1
Caption="2"
Point(doVisible)
}
Add(Label,1659481,217,105)
{
Left=215
Top=165
Visible=1
Caption="1"
Point(doVisible)
}
Add(Label,9841644,175,98)
{
Left=210
Top=165
Visible=1
Caption="0"
Point(doVisible)
}
если уж не нравится плавающая точка!
карма: 0

0