Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2013-02-14 22:51:12 ЛС | профиль | цитата
А можно и так
code_30326.txt

------------ Дoбавленo в 21.41:
Gorgar писал(а):
вставить адрес с буфера нельзя
Кто сказал ?
------------ Дoбавленo в 22.51:
Вставляй сколько хош. Кто не даёт ?

Add(MainForm,12029765,98,98)
{
Width=371
Height=93
Caption="Ввод IP"
BorderStyle=1
Position=1
link(onCreate,4914830:doWork1,[])
}
Add(ChildGroupBox,4914830,168,112)
{
}
BEGIN_SDK
Add(EditMulti,310096,21,21)
{
WorkCount=1
Width=573
Height=494
link(doWork1,10721222:doSetFocus,[(105,27)(105,146)])
}
Add(Label,1002684,49,308)
{
Left=10
Top=15
Width=110
Height=25
Font=[Arial,18,1,0,204]
Caption=" . . . "
AutoSize=1
}
Add(GroupBox,12013591,49,350)
{
Left=10
Top=5
Width=343
Height=52
Caption="Ввод IP"
}
Add(Edit,10721222,196,126)
{
Left=10
Top=20
Width=28
Font=[Arial,8,1,0,204]
TabOrder=1
Text=""
Alignment=2
Point(doSetFocus)
Point(doMaxLenField)
link(onChange,1682614:doEvent1,[])
}
Add(Edit,203343,203,217)
{
Left=45
Top=20
Width=28
Font=[Arial,8,1,0,204]
TabOrder=2
Text=""
Alignment=2
DataType=1
MaxLenField=3
Point(doSetFocus)
link(onChange,1451458:doLength,[])
}
Add(Edit,200003,210,308)
{
Left=80
Top=20
Width=28
Font=[Arial,8,1,0,204]
TabOrder=3
Text=""
Alignment=2
DataType=1
MaxLenField=3
Point(doSetFocus)
link(onChange,9589152:doLength,[])
}
Add(Edit,9034583,217,392)
{
Left=115
Top=20
Width=28
Font=[Arial,8,1,0,204]
TabOrder=4
Text=""
Alignment=2
DataType=1
MaxLenField=3
Point(doSetFocus)
link(onChange,3344247:doLength,[])
}
Add(Length,147600,273,133)
{
link(onLength,4566986:doCompare,[])
}
Add(If_else,4566986,322,133)
{
Op2=Integer(3)
link(onTrue,11522229:doCompare,[])
}
Add(If_else,11522229,378,133)
{
Type=1
Op1=Integer(256)
link(onTrue,11943500:doData,[(425,139)(425,115)(112,115)(112,139)])
link(onFalse,203343:doSetFocus,[(424,146)(424,268)(189,268)(189,237)])
link(Op2,1959219:Var3,[(391,121)(368,121)(368,173)])
}
Add(DoData,11943500,119,133)
{
Data=String()
link(onEventData,14167634:doWork2,[])
}
Add(Length,1451458,273,217)
{
link(onLength,2395299:doCompare,[])
}
Add(If_else,2395299,322,217)
{
Op2=Integer(3)
link(onTrue,4671211:doCompare,[])
}
Add(If_else,4671211,378,217)
{
Type=2
Op2=Integer(255)
link(onTrue,2888136:doData,[(417,223)(417,202)(117,202)(117,230)])
link(onFalse,200003:doSetFocus,[(430,230)(430,351)(191,351)(191,328)])
link(Op1,2251410:Var3,[(384,205)(368,205)(368,257)])
}
Add(DoData,2888136,126,224)
{
Data=String()
link(onEventData,2985629:doWork2,[])
}
Add(Length,9589152,273,308)
{
link(onLength,4721293:doCompare,[])
}
Add(If_else,4721293,322,308)
{
Op2=Integer(3)
link(onTrue,16660833:doCompare,[])
}
Add(If_else,16660833,378,308)
{
Type=2
Op2=Integer(255)
link(onTrue,6278796:doData,[(420,314)(420,293)(107,293)(107,321)])
link(onFalse,9034583:doSetFocus,[(437,321)(437,442)(194,442)(194,412)])
link(Op1,3210378:Var3,[(384,296)(371,296)(371,348)])
}
Add(DoData,6278796,112,315)
{
Data=String()
link(onEventData,14623896:doWork2,[])
}
Add(Length,3344247,273,392)
{
link(onLength,3063908:doCompare,[])
}
Add(If_else,3063908,322,392)
{
Op2=Integer(3)
link(onTrue,6562249:doCompare,[])
}
Add(If_else,6562249,378,392)
{
Type=2
Op2=Integer(255)
link(onTrue,7991448:doData,[(421,398)(421,373)(105,373)(105,405)])
link(Op1,10053631:Var3,[(384,380)(368,380)(368,432)])
}
Add(DoData,7991448,112,399)
{
Data=String()
link(onEventData,11315475:doWork2,[])
}
Add(Button,4641221,147,469)
{
Left=160
Top=20
Caption=">>>"
link(onClick,5294825:doString,[])
}
Add(FormatStr,5294825,196,469)
{
DataCount=4
Mask="%1.%2.%3.%4"
link(onFString,10518623:doText,[])
link(Str1,1959219:Var2,[])
link(Str2,2251410:Var2,[])
link(Str3,3210378:Var2,[])
link(Str4,10053631:Var2,[])
}
Add(GetDataEx,10053631,217,427)
{
link(Data,9034583:Text,[])
}
Add(GetDataEx,3210378,210,343)
{
link(Data,200003:Text,[])
}
Add(GetDataEx,2251410,203,252)
{
link(Data,203343:Text,[])
}
Add(GetDataEx,1959219,196,168)
{
link(Data,10721222:Text,[])
}
Add(Hub,1682614,245,126)
{
link(onEvent1,14600087:doLength,[(266,132)(266,62)])
link(onEvent2,147600:doLength,[])
}
Add(If_else,10058878,322,56)
{
Type=2
Op2=Integer(3)
link(onTrue,15765219:doEnum,[])
}
Add(Length,14600087,273,56)
{
link(onLength,10058878:doCompare,[])
}
Add(Str_Enum,15765219,378,56)
{
Delimiter="."
Step=0
link(onEnum,4885146:doEvent,[(421,62)(421,36)(37,36)(37,258)])
link(String,1959219:Var1,[(384,46)(182,46)(182,173)])
}
Add(IndexToChanel,4885146,42,252)
{
Count=5
Point(Index)
link(onEvent2,3602351:doEvent1,[(79,265)(79,258)])
link(onEvent3,2985629:doWork3,[(179,272)])
link(onEvent4,14623896:doWork1,[(179,279)])
link(Index,15765219:NumSubStr,[(48,102)(384,102)])
link(onEvent5,11315475:doWork1,[(172,286)])
}
Add(HubEx,14167634,168,133)
{
link(onEvent,10721222:doText2,[])
}
Add(HubEx,2985629,175,224)
{
link(onEvent,203343:doText2,[])
}
Add(HubEx,14623896,175,315)
{
link(onEvent,200003:doText2,[])
}
Add(HubEx,11315475,168,399)
{
link(onEvent,9034583:doText2,[])
}
Add(Edit,10518623,259,469)
{
Left=225
Top=20
Width=109
Height=19
Color=-16777201
Ctl3D=1
}
Add(DoData,1186545,119,168)
{
Data=Integer(3)
link(onEventData,10721222:doMaxLenField,[(160,174)(160,153)])
}
Add(Hub,3602351,84,252)
{
link(onEvent1,1186545:doData,[(108,258)(108,174)])
link(onEvent2,14167634:doWork3,[(172,265)])
}
END_SDK


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_30326.txt [4.3KB] [229]