Вверх ↑
Ответов: 817
Рейтинг: 52
#1: 2016-09-06 21:19:59 ЛС | профиль | цитата
Настольгия замучила по старым временам.
Сваял АДКМ и сижу пою
Присоединяйтесь

Add(MainForm,317165,210,301)
{
Width=546
Height=372
Caption="АДКМ"
BorderStyle=3
Position=1
link(onCreate,1925149:doData,[(250,321)(250,307)])
}
Add(ChildPanel,6660468,217,112)
{
}
BEGIN_SDK
Add(EditMulti,3601996,21,21)
{
}
Add(Panel,677642,35,105)
{
Width=540
Height=57
Align=2
BorderWidth=0
BevelInner=0
BevelOuter=2
}
Add(GLabel,15132428,336,28)
{
Left=1
Top=1
Width=502
Height=25
Align=2
Font=[MS Sans Serif,14,1,0,1]
ColorShadow=12632256
Caption="А Д К М"
AutoSize=1
Alignment=2
VAlignment=0
DepthShadow=2
Antialiased=0
}
Add(GLabel,3238548,385,28)
{
Left=1
Top=26
Width=502
Height=22
Align=2
Font=[MS Sans Serif,10,1,0,1]
ColorShadow=12632256
Caption="Автоматический датчик кодов Морзе"
AutoSize=1
Alignment=2
VAlignment=0
DepthShadow=1
Antialiased=0
}
END_SDK
Add(StyleXP,472618,175,112)
{
}
Add(ChildPanel,10670843,294,371)
{
link(Data1,3546268:Position,[])
link(Data2,8245779:Part1,[(307,355)(475,355)])
link(Data3,8245779:Part2,[(314,361)(482,361)])
}
BEGIN_SDK
Add(EditMulti,7754910,7,7)
{
DataCount=3
Width=664
Height=550
}
Add(Panel,6311063,700,21)
{
Left=10
Top=105
Width=519
Height=223
Color=14803425
}
Add(Button,8589858,63,161)
{
Left=15
Top=15
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Hint="и-тооль-коо-оо-дноо"
Caption="1"
link(onClick,10945128:doWork1,[])
}
Add(Button,7170234,63,168)
{
Left=55
Top=15
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Hint="две-не-хоо-роо-шоо"
Caption="2"
link(onClick,10945128:doWork2,[])
}
Add(StrList,6495801,189,91)
{
Strings=#5:01111|5:00111|5:00011|5:00001|5:00000|5:10000|5:11000|5:11100|5:11110|1:1|5:11111|4:0111|4:1010|3:001|3:101|1:0|2:10|3:110|4:1111|4:1101|4:1100|4:0000|5:11011|4:0010|4:1011|3:011|2:01|4:0110|3:010|3:111|4:0100|3:100|4:0001|5:00100|4:0101|4:1110|3:000|2:11|2:00|1:1|4:1001|4:1000|4:0011|6:000000|
}
Add(ArrayRW,14249675,189,161)
{
link(onRead,11950017:doStart,[])
link(Array,6495801:Array,[(195,149)(209,149)])
}
Add(Str_Enum,10658735,301,161)
{
Delimiter=""
link(onEnum,593643:doCase,[])
link(onEndEnum,11950017:doStopFlag,[(346,174)(346,200)(240,200)(240,181)])
link(String,14249675:Item,[(307,149)(220,149)(220,205)(195,205)])
}
Add(Case,593643,357,161)
{
Value=Integer(0)
link(onNextCase,7941660:doBeep,[(419,167)(419,139)])
link(onTrue,12342310:doBeep,[(417,174)(417,202)])
}
Add(Beep,12342310,469,196)
{
@Hint=#2:Ти|
Freq=2500
Duration=150
link(Freq,14550533:Var1,[(475,96)])
link(Duration,7754910:Data2,[(482,52)(20,52)])
AddHint(26,-26,28,13,@Hint)
}
Add(Beep,7941660,497,133)
{
@Hint=#3:Таа|
Freq=2500
Duration=450
link(Freq,14550533:Var2,[])
link(Duration,7754910:Data3,[(510,39)(27,39)])
AddHint(21,-36,34,13,@Hint)
}
Add(ChanelToIndex,10945128,119,161)
{
Count=45
link(onIndex,14249675:doRead,[])
}
Add(Button,14046554,63,175)
{
Left=95
Top=15
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Hint="три-те-бе-маа-лоо"
Caption="3"
link(onClick,10945128:doWork3,[])
}
Add(Button,109035,63,182)
{
Left=135
Top=15
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Hint="че-тве-ри-те-каа"
Caption="4"
link(onClick,10945128:doWork4,[])
}
Add(Button,9855830,63,189)
{
Left=175
Top=15
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Hint="пя-ти-ле-ти-е"
Caption="5"
link(onClick,10945128:doWork5,[])
}
Add(Button,5735138,63,196)
{
Left=215
Top=15
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Hint="поо-шес-ти-бе-ри"
Caption="6"
link(onClick,10945128:doWork6,[])
}
Add(Button,5817976,63,203)
{
Left=255
Top=15
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Hint="даа-даа-се-ме-ри"
Caption="7"
link(onClick,10945128:doWork7,[])
}
Add(Button,3606178,63,210)
{
Left=295
Top=15
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Hint="воо-сьмоо-гоо-и-ди"
Caption="8"
link(onClick,10945128:doWork8,[])
}
Add(Button,10892908,63,217)
{
Left=335
Top=15
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Hint="ноо-наа-ноо-наа-ти"
Caption="9"
link(onClick,10945128:doWork9,[])
}
Add(Button,2325730,63,224)
{
Left=375
Top=15
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Hint="ноль"
Caption="0"
link(onClick,10945128:doWork10,[])
}
Add(Button,955889,63,231)
{
Left=415
Top=15
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Hint="нооль-тоо-оо-коо-лоо"
Caption="0д"
link(onClick,10945128:doWork11,[])
}
Add(Thread,11950017,252,161)
{
Delay=50
FastStop=0
Point(doStopFlag)
link(onExec,10658735:doEnum,[])
}
Add(Button,8409285,63,238)
{
Left=25
Top=55
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Hint="йа-крат-коо-еее"
Caption="Й"
link(onClick,10945128:doWork12,[])
}
Add(Button,7065129,63,245)
{
Left=65
Top=55
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Ц"
link(onClick,10945128:doWork13,[])
}
Add(Button,14114204,63,252)
{
Left=105
Top=55
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="У"
link(onClick,10945128:doWork14,[])
}
Add(Button,9430751,63,259)
{
Left=145
Top=55
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="К"
link(onClick,10945128:doWork15,[])
}
Add(Button,4301567,63,266)
{
Left=185
Top=55
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Е"
link(onClick,10945128:doWork16,[])
}
Add(Button,3862032,63,273)
{
Left=225
Top=55
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Н"
link(onClick,10945128:doWork17,[])
}
Add(Button,2830849,63,280)
{
Left=265
Top=55
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Г"
link(onClick,10945128:doWork18,[])
}
Add(Button,14873871,63,287)
{
Left=305
Top=55
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Ш"
link(onClick,10945128:doWork19,[])
}
Add(Button,6281555,63,294)
{
Left=345
Top=55
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Щ"
link(onClick,10945128:doWork20,[])
}
Add(Button,4135492,63,301)
{
Left=385
Top=55
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="З"
link(onClick,10945128:doWork21,[])
}
Add(Button,3453714,63,308)
{
Left=425
Top=55
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Х"
link(onClick,10945128:doWork22,[])
}
Add(GetDataEx,14550533,497,91)
{
link(Data,7754910:Data1,[(503,64)(13,64)])
}
Add(Button,5879840,63,315)
{
Left=465
Top=55
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Ъ"
link(onClick,10945128:doWork23,[])
}
Add(Button,332616,63,322)
{
Left=35
Top=95
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Ф"
link(onClick,10945128:doWork24,[])
}
Add(Button,7590334,63,329)
{
Left=75
Top=95
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Ы"
link(onClick,10945128:doWork25,[])
}
Add(Button,1946179,63,336)
{
Left=115
Top=95
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="В"
link(onClick,10945128:doWork26,[])
}
Add(Button,5393790,63,343)
{
Left=155
Top=95
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="А"
link(onClick,10945128:doWork27,[])
}
Add(Button,4393399,63,350)
{
Left=195
Top=95
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="П"
link(onClick,10945128:doWork28,[])
}
Add(Button,1298394,63,357)
{
Left=235
Top=95
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Р"
link(onClick,10945128:doWork29,[])
}
Add(Button,15105982,63,364)
{
Left=275
Top=95
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="О"
link(onClick,10945128:doWork30,[])
}
Add(Button,16283369,63,371)
{
Left=315
Top=95
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Л"
link(onClick,10945128:doWork31,[])
}
Add(Button,9041386,63,378)
{
Left=355
Top=95
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Д"
link(onClick,10945128:doWork32,[])
}
Add(Button,5677446,63,385)
{
Left=395
Top=95
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Ж"
link(onClick,10945128:doWork33,[])
}
Add(Button,9268968,63,392)
{
Left=435
Top=95
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Э"
link(onClick,10945128:doWork34,[])
}
Add(Button,15121792,63,399)
{
Left=50
Top=135
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Я"
link(onClick,10945128:doWork35,[])
}
Add(Button,1744828,63,406)
{
Left=90
Top=135
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Ч"
link(onClick,10945128:doWork36,[])
}
Add(Button,8042172,63,413)
{
Left=130
Top=135
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="С"
link(onClick,10945128:doWork37,[])
}
Add(Button,1496966,63,420)
{
Left=170
Top=135
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="М"
link(onClick,10945128:doWork38,[])
}
Add(Button,96143,63,427)
{
Left=210
Top=135
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="И"
link(onClick,10945128:doWork39,[])
}
Add(Button,16096917,63,434)
{
Left=250
Top=135
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Т"
link(onClick,10945128:doWork40,[])
}
Add(Button,8801021,63,441)
{
Left=290
Top=135
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Ь"
link(onClick,10945128:doWork41,[])
}
Add(Button,4270569,63,448)
{
Left=330
Top=135
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Б"
link(onClick,10945128:doWork42,[])
}
Add(Button,2455149,63,455)
{
Left=370
Top=135
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="Ю"
link(onClick,10945128:doWork43,[])
}
Add(Button,10084420,63,462)
{
Left=410
Top=135
Width=35
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption="."
link(onClick,10945128:doWork44,[])
}
Add(Button,2992456,63,469)
{
Left=110
Top=175
Width=265
Height=35
Font=[MS Sans Serif,12,1,0,1]
Caption=""
link(onClick,10945128:doWork45,[])
}
END_SDK
Add(Label,6171946,259,112)
{
Left=5
Top=65
Width=52
Height=17
Caption="Скорость"
}
Add(TrackBar,3880313,308,301)
{
Left=55
Top=65
Height=25
HintPosition=0
Max=13
Min=6
Position=6
ThumbLength=10
Point(onStop)
link(onPosition,10281783:doEvent1,[])
}
Add(Label,7755289,301,112)
{
Left=220
Top=65
Width=46
Height=17
Caption="Частота"
}
Add(TrackBar,3546268,294,245)
{
Left=265
Top=65
Width=190
Height=25
HintPosition=0
Max=3000
Min=1000
TickCount=100
Position=1900
ThumbLength=10
link(onPosition,11662982:doText,[])
}
Add(Label,11662982,343,245)
{
Left=455
Top=65
Width=28
Height=17
Caption="1900"
}
Add(Label,9610438,518,252)
{
Left=155
Top=65
Caption="6 групп"
AutoSize=1
}
Add(StrCat,12715540,476,252)
{
Str2=" групп"
link(onStrCat,9610438:doText,[])
}
Add(Hub,10281783,364,301)
{
link(onEvent1,12715540:doStrCat,[(463,307)(463,258)])
link(onEvent2,15509984:doRead,[])
}
Add(StrList,670280,420,231)
{
Strings=#1:1|1:1|1:1|1:1|1:1|1:1|7:150;450|7:138;413|7:125;375|7:113;338|7:100;300|6:88;264|6:75;225|6:63;188|
}
Add(ArrayRW,15509984,420,308)
{
link(onRead,8245779:doSplit,[])
link(Array,670280:Array,[(426,292)(440,292)])
}
Add(MultiStrPart,8245779,469,308)
{
}
Add(DoData,1925149,259,301)
{
Data=Integer(6)
link(onEventData,3880313:doPosition,[])
}

карма: 1

0
Редактировалось 1 раз(а), последний 2016-09-07 10:03:08