Леонид писал(а):
Слабо на HiAsm автоматизировать?И ваапче не панятна чаво чел хочет иметь в итоге.
code_36769.txt
------------ Дoбавленo в 21.19:
Чуть поправленно
Add(MainForm,2953706,91,70)
{
Width=329
Height=359
Caption="Монитор файла"
}
Add(Label,11328403,42,70)
{
Left=10
Top=10
Width=123
Height=17
Caption="Файл для мониторинга"
}
Add(Edit,11625570,259,70)
{
Left=10
Top=30
Width=265
Text=""
link(onChange,382029:doPart,[])
}
Add(Button,13538030,147,70)
{
Left=275
Top=30
Width=25
Caption="..."
link(onClick,10347987:doExecute,[])
}
Add(Button,15538241,63,196)
{
Left=10
Top=60
Caption="Старт"
link(onClick,16037744:doFileExists,[])
}
Add(Button,10555842,63,245)
{
Left=75
Top=60
Caption="Стоп"
link(onClick,8042041:doEvent1,[])
}
Add(LED,11710939,329,245)
{
Left=145
Top=60
Width=20
Height=20
}
Add(ODialog,10347987,203,70)
{
FileName=""
link(onExecute,11625570:doText,[])
}
Add(FilePartElm,382029,308,70)
{
Mode=0
Point(Part)
}
Add(DirectoryChanges,15216587,308,182)
{
Flags=24
SubTree=1
link(onChange,15978243:doCompare,[])
link(onError,6508863:doMessage,[])
link(DirName,382029:Part,[])
}
Add(FileTools,16037744,126,175)
{
link(onEnd,1603600:doEvent,[])
link(FileName,5560111:Var1,[(132,144)])
}
Add(IndexToChanel,1603600,168,175)
{
link(onEvent1,7326853:doMessage,[])
link(onEvent2,20257:doEvent1,[])
}
Add(Hub,20257,259,182)
{
link(onEvent1,15216587:doStartWatch,[])
link(onEvent2,11710939:doOn,[(284,195)(284,265)])
}
Add(Hub,8042041,259,245)
{
link(onEvent1,15216587:doStopWatch,[(296,251)(296,195)])
link(onEvent2,11710939:doOff,[])
}
Add(Message,7326853,210,175)
{
Message="Фай не существует!"
Icon=4
}
Add(If_else,15978243,413,182)
{
link(onTrue,14272783:doTimer,[])
link(Op1,15216587:NewFileName,[(419,173)(405,173)(405,229)(321,229)])
link(Op2,5734279:Var2,[])
}
Add(GetDataEx,5560111,259,139)
{
link(Data,11625570:Text,[])
}
Add(Timer,14272783,462,182)
{
Interval=10
Enable=1
AutoStop=1
link(onTimer,15524377:doLoad,[])
}
Add(GetDataEx,5734279,420,139)
{
Angle=3
link(Data,5560111:Var3,[])
}
Add(Message,6508863,350,189)
{
Icon=3
}
Add(Edit,5936825,707,168)
{
Left=180
Top=60
Text="5"
DataType=2
}
Add(ArrayEnum,5744431,560,245)
{
link(onItem,5824489:doCopy,[])
link(Array,15524377:Array,[])
}
Add(Copy,5824489,602,245)
{
Position=1
Count=5
link(onCopy,1244188:doCompare,[])
}
Add(StrMask,1244188,651,245)
{
Mask="* #*"
link(onTrue,15320957:doCompare,[])
}
Add(Hub,12394452,525,224)
{
link(onEvent1,14436119:doClear,[(830,230)(830,265)])
link(onEvent2,5744431:doEnum,[(550,237)(550,251)])
}
Add(If_else,15320957,700,252)
{
Type=4
link(onTrue,139615:doTrim,[])
link(Op1,5744431:Index,[(706,243)(692,243)(692,285)(573,285)])
link(Op2,5936825:Text,[])
}
Add(StrList,15524377,546,154)
{
FileName="C:\A_WinGamesHiAsm\hiasm_4,04b185\Gitarist_Test.txt"
link(onChange,12394452:doEvent1,[(585,160)(585,216)(515,216)(515,230)])
link(FileName,5734279:Var3,[(559,144)])
}
Add(StringTable,14436119,847,252)
{
Left=8
Top=93
Width=295
Height=220
Columns=#8:Table=40|10:ToolRef=40|7:Tool=40|7:Size=40|10:Exp Ord=60|14:Plated Hits=60|16:Unplated Hits=60|13:Total Hits=60|
Grid=0
}
Add(Trim,139615,749,252)
{
Char=" "
Mode=7
link(onTrim,16262397:doReplace,[])
link(Text,5744431:Item,[(755,243)(741,243)(741,292)(566,292)])
}
Add(Replace,16262397,791,252)
{
SubStr=" "
DestStr=";"
link(onReplace,14436119:doAdd,[])
}