Вверх ↑
Этот топик читают: Гость
Ответов: 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 раз(а), последний 2016-09-07 10:03:08
карма: 1

0
Ответов: 8937
Рейтинг: 824
#2: 2016-09-06 22:05:46 ЛС | профиль | цитата
-= DriveR =-, тема есть: "В помощь радиолюбителю", там ностальгия процветает
Где-то был у меня датчик с регулировкой длительности всех тчк/тире в каждом знаке для подделки почерка шпионов
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#3: 2016-09-06 23:56:06 ЛС | профиль | цитата
-= DriveR =-, обнаглеть до работы мышкой - это что-то.
И особенно убил "короткий 0"
Ну а вообще-то
Автоматический датчик кода Морзе (АДКМ) — специальный аппарат (или программа) для передачи случайно сгенерированных несмысловых текстов кодом Морзе. Промышленностью для нужд радиошкол и радиокружков выпускались модели АДКМ-77 и АДКМ-85, а также Контур-511.
В настоящее время в связи с развитием компьютерной техники для тренировки и совершенствования навыков используются программы-АДКМ

То, что ты выложил, это ДКМ

Редактировалось 3 раз(а), последний 2016-09-07 01:00:10
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 817
Рейтинг: 52
#4: 2016-09-07 09:23:42 ЛС | профиль | цитата
Леонид писал(а):
Где-то был у меня датчик с регулировкой длительности всех тчк/тире

А это для чего так? Вроде есть четкий стандарт, в котором прописано, что длительность тире = трем точкам, тишина м-ду знаками = точке, тишина м-ду группами = тире
Tad писал(а):
И особенно убил "короткий 0"

А чем убил то, своей короткостью?
Tad писал(а):
случайно сгенерированных несмысловых текстов кодом Морзе

Это мысль, сделаю что бы автоматом выдавал.
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#5: 2016-09-07 09:44:11 ЛС | профиль | цитата
-= DriveR =- писал(а):
А чем убил то, своей короткостью?
Короткий 0 - буква "Т" (тире), а не "Е" (точка)
Кстати, кроме 4,5,6 все остальные цифры имеют свой "короткий" эквивалент.
В 2004 дабавили в азбуку Морзе новый код для символа @ (· — — · — ·), для удобства передачи адресов электронной почты.
Следует принять во внимание, что коды знаков препинания у нас сильно отличаются от международных. Например, то, что мы считаем "запятой", в международном коде соответствует "точке". А "запятая" по международному коду передается так же, как мы передаем "восклицательный знак".


--- Добавлено в 2016-09-07 09:48:32

-= DriveR =- писал(а):
А это для чего так? Вроде есть четкий стандарт, в котором прописано, что длительность тире = трем точкам, тишина м-ду знаками = точке, тишина м-ду группами = тире
Леонид писал(а):
для подделки почерка шпионов

http://www.cqham.ru/forum/attachment.php?attachmentid=44071&d=1258999489

Редактировалось 3 раз(а), последний 2016-09-07 10:08:40
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 817
Рейтинг: 52
#6: 2016-09-07 10:01:51 ЛС | профиль | цитата
Tad писал(а):
Короткий 0 - буква "Т" (тире), а не "Е" (точка)

Ё-моё, забывать стал (поправил)
Tad писал(а):
В 2004 дабавили в азбуку Морзе новый код для символа @

Хе.... когда я учил эту морзянку в положении жима от пола тогда только избранные знали что такое эл. почта
карма: 1

0
Ответов: 8937
Рейтинг: 824
#7: 2016-09-07 10:02:55 ЛС | профиль | цитата
-= DriveR =- писал(а):
тишина м-ду знаками = точке, тишина м-ду группами = тире

Пауза внутри знака -- точка, пауза между знаками -- тире, пауза между группами знаков (словами) -- до пяти тире
Вы шпионских фильмов не смотрели, на вертикальном ключе у каждого радиста свой "почерк". Кроме того тире в окончании знака желательно делать чуть длиннее, а в середине знака можно и чуть укоротить без ущерба для приёма.
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#8: 2016-09-07 10:41:19 ЛС | профиль | цитата
Леонид писал(а):
тема есть: "В помощь радиолюбителю"
Найти бы её.
Была у меня в "Избранное" и куда-то исчезла.

--- Добавлено в 2016-09-07 10:45:22

Вот нашёл.
http://forum.hiasm.com/topic/12296

-= DriveR =- , глянь на ДКМ от Леонида, http://forum.hiasm.com/getfile/31784
Там и ДКМ и АДКМ.

Редактировалось 6 раз(а), последний 2016-09-07 12:04:01
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
8
Сообщение
...
Прикрепленные файлы
(файлы не залиты)