bdd2

А ты умеешь СТУЧАТЬ? (или Азбука Морзе на 1С)

Опубликовал Юрий Тимофеев (Tatitutu) в раздел Программирование - Практика программирования

Азбука Морзе теперь и на языке 1С .
А ты знаешь, как звучит сигнал "SOS" ?
А ты сможешь в трудную минуту его просигналить ?

А ты знаешь, как звучит сигнал "SOS" ? - можно прослушать

Можно научится его выбивать.

Таблица символов.

Вам интересно ? Тогда просто кликайте мышкой по кнопке "Стучать" -

"настучите" ,какой-то код и программа попытается перевести.

Учится никогда не поздно, в жизни все может пригодится.

Скачать файлы

Наименование Файл Версия Размер
Morze.zip
.zip 541,00Kb
20.02.12
197
.zip 541,00Kb 197 Скачать

См. также

Добавить вознаграждение
Комментарии
1. larissa builova (larisab) 157 22.03.10 20:12 Сейчас в теме
"Тatitutu - самый лучший выдумщик на свете !"
Стучать, перевести!
Да, и на этот раз!!!
Классно, посмеялась над азбукой В - видала, Л - лунатики )))))
Tatitutu; +1 Ответить
2. Сергей Солнышкин (Myti) 91 22.03.10 22:43 Сейчас в теме
3. MaxDavid (MaxDavid) 126 23.03.10 00:16 Сейчас в теме
Гм...
Если открыть таблицу символов, закрыть и снова открыть - она будет пустой.
4. Юрий Тимофеев (Tatitutu) 3557 23.03.10 06:52 Сейчас в теме
(3) Таки это - конспирация, батенька (с)
Фильмов что ли про войну не смотрел, в дверь стучать - шифровку нужно съесть )))
5. Юрий Тимофеев (Tatitutu) 3557 23.03.10 07:04 Сейчас в теме
(3) Ты мне лучше скажи, ты хозяин своего голоса ?

Новый голос за А ты умеешь СТУЧАТЬ ? (или Азбука Морзе на 1С)
От кого noreply@infostart.ru добавить▼
Кому Tatitutu@narod.ru
Отправлено 23 марта 2010 в 00:06


Tatitutu,

Новый голос за "А ты умеешь СТУЧАТЬ ? (или Азбука Морзе на 1С)" от пользователя MaxDavid.
Оценка: +1

Перейти на страницу объекта http://infostart.ru/public/67755/

MID #1556064.271 (23.03.2010 00:06:46)


Письма о том что ты снял голос нет. Так ладно, но еще

Новый голос за А ты умеешь СТУЧАТЬ ? (или Азбука Морзе на 1С)
От кого noreply@infostart.ru добавить▼
Кому Tatitutu@narod.ru
Отправлено 22 марта 2010 в 23:36


Tatitutu,

Новый голос за "А ты умеешь СТУЧАТЬ ? (или Азбука Морзе на 1С)" от пользователя bashta.aleksey.
Оценка: +1

Перейти на страницу объекта http://infostart.ru/public/67755/

MID #1556036.271 (22.03.2010 23:36:37)


и еще

Новый голос за А ты умеешь СТУЧАТЬ ? (или Азбука Морзе на 1С)
От кого noreply@infostart.ru добавить▼
Кому Tatitutu@narod.ru
Отправлено 22 марта 2010 в 23:01


Tatitutu,

Новый голос за "А ты умеешь СТУЧАТЬ ? (или Азбука Морзе на 1С)" от пользователя Eugeneer.
Оценка: +1

Перейти на страницу объекта http://infostart.ru/public/67755/

MID #1555992.271 (22.03.2010 23:01:54)


и еще

Новый голос за А ты умеешь СТУЧАТЬ ? (или Азбука Морзе на 1С)
От кого noreply@infostart.ru добавить▼
Кому Tatitutu@narod.ru
Отправлено 22 марта 2010 в 21:16


Tatitutu,

Новый голос за "А ты умеешь СТУЧАТЬ ? (или Азбука Морзе на 1С)" от пользователя Boris.Andry.
Оценка: +1

Перейти на страницу объекта http://infostart.ru/public/67755/

MID #1555947.271 (22.03.2010 21:16:32)


и.т.д. и еще....вчера в 22:00 скачавших файл было 15 человек.

Сегодня утром 1 человек скачал и 1 человек проголосовал.
Что на это ты скажешь ? Сайт тупит или тормозит ? Нет !!!
- это конспирация, батенька (с)
Что на это ты скажешь ? Сайт тупит или тормозит ? Не
6. Юрий Португалов (Sprite) 471 23.03.10 07:54 Сейчас в теме
Баки текут.
Даже не открывая "+".
Лет 30 назад в Армии был воздушным стрелком радистом. Теперь прикольно вспомнить.
Улыбнуло :D
Tatitutu; +1 Ответить
7. Александр Рытов (Арчибальд) 2652 23.03.10 08:28 Сейчас в теме
Глюк какой-то. Ставлю плюс, но не вижу его :o
8. Юрий Тимофеев (Tatitutu) 3557 23.03.10 08:34 Сейчас в теме
(7) И я , а том же :D - это конспирация, батенька (с)
Фокус такой - ни кто не качает, ни кто не ставит плюсы (а их бы было уже далеко за 10)
Сайт же ФСБ мониторит... а потом придут к тебе и спросят
"Уважаемый, Арчибальд, а для чего Вам азбука Морзе - Вы, что шпион"

Это глобальный заговор. Вот попробуй поставить заново, тебе вежливо ответят, что Вы уже голосовали ))))
9. Александр Рытов (Арчибальд) 2652 23.03.10 08:40 Сейчас в теме
(8) Ну, в мое время азбуку Морзе в школе изучали, в ДОСААФовских кружках :D
А насчет глобального заговора Абадонна должен быть в курсе - он искусный в ентом деле полиглот :idea:
10. Юрий Тимофеев (Tatitutu) 3557 23.03.10 08:52 Сейчас в теме
(9)
Шухер ! Облава !!! Нас спалили...На главной странице у публикации 9 звезд , а здесь только 1 - это подства и засада...

думал Штирлиц первый раз зайдя на ИС
12. Трактор Трактор (Трактор) 1107 23.03.10 10:17 Сейчас в теме
Звуком морзянку даёт? ИМХО рисовать точки и тире глупейшее занятие.
13. MaxDavid (MaxDavid) 126 23.03.10 10:18 Сейчас в теме
(10)Вроде поправили. Хотя теперь на главной странице все мои настройки слетели...
Tatitutu, то ты Эксели роняешь, то порталы. Нехорошо... :)
14. Юрий Тимофеев (Tatitutu) 3557 23.03.10 10:54 Сейчас в теме
(12)
ИМХО рисовать точки и тире глупейшее занятие

я уважаю твое мнение - и мой совет - НЕ РИСУЙ.
16. Юрий Тимофеев (Tatitutu) 3557 23.03.10 10:58 Сейчас в теме
(13) тише...эфир прослушивается...
переходи на
-- --- .-. --.. .
17. Трактор Трактор (Трактор) 1107 23.03.10 11:02 Сейчас в теме
(14) Умеешь говорить :-) Это тебе не я.

Моё первое образование включает в себя знание азбуки Морзе. Я даже писал датчик кода Морзе в 1991 году. Звуком. На бейсике, потом переписал на ассемблере. Для компьютера БК0011. А приёмник написать так и не осилил.
18. Юрий Тимофеев (Tatitutu) 3557 23.03.10 11:26 Сейчас в теме
(17) Так кто на что учился :D
Моё первое образование включает в себя знание азбуки Морзе

нет в школе меня этому не учили, научился сам - ради интереса, с друзьями в подвале перестукивались,
а вот в моем первом высшем образовании - Командно - тактической вещевого и продовольственного обеспечения войск (гражданская специальноть инженер - экономист) учили и неплохо учили. И даже пригодилось в жизни, но это совершенно другая история.
19. bulpi bulpi (bulpi) 100 23.03.10 11:36 Сейчас в теме
Всем радистам - привет! Ностальгия, ептыть!!!
Tatitutu; +1 Ответить
20. Евгений Ильяшенков (ЗАК) 23.03.10 19:59 Сейчас в теме
21. larissa builova (larisab) 157 23.03.10 20:36 Сейчас в теме
(20) "Бить будете, папаша?" (с)
23. Юрий Португалов (Sprite) 471 23.03.10 21:32 Сейчас в теме
:idea: Беглая мысль:
А может быть сделать иммитатор ключа, повесить на "Del".
Как определить длительность нажатия? Может быть в кладовочке у Альфа что-то имеется?
Ваще было бы классноо!
24. Юрий Португалов (Sprite) 471 23.03.10 21:39 Сейчас в теме
Беглая мысль:
А может быть сделать иммитатор ключа, повесить на "Del".
Как определить длительность нажатия? Может быть в кладовочке у Альфа что-то имеется?
Ваще было бы классноо!
25. Алексей (ACE$) 102 23.03.10 22:00 Сейчас в теме
В радиокружке изучали... На слух тренировались принимать. Только мнемоники у нас другие были: типа "На-ти-на-ти дай-дай-ви-на" - CQ
Ностальгия...
Tatitutu; +1 Ответить
26. Юрий Тимофеев (Tatitutu) 3557 23.03.10 22:10 Сейчас в теме
(24) в обработке определяется время нажатия клавиши,
только оно разное - при нажатии клавишой или кликом мышки
27. Александр Цегельников (markers) 186 24.03.10 07:31 Сейчас в теме
28. Александр Медведев (sashankz) 24.03.10 12:58 Сейчас в теме
настольгия....
в армии учили такое дело гдето до сих пор есть это дело в блакноте солдатском))
у нас минимум был 60зн в мин
инекоторые до 120 доходили ... а так прием обычно в районе 90-120 идет

ну а так спасибо конечно
только у нас напевки (словестное сочетание) дургие были
и учатся именно они так напевками очень просто .. ток в начале сложно
Tatitutu; +1 Ответить
29. Дмитрий Литовченко (kompas-dm) 743 24.03.10 16:47 Сейчас в теме
В разведшколе напевки были другие :
а - ти-та
б - бей ба-ра-бан
в - вол- ча-та
и т.д.
Пели на скорость страницами...
mgb; Tatitutu; +2 Ответить
30. Константин Воробьёв (kostik_love) 242 24.03.10 18:29 Сейчас в теме
давайте и для 8-ки такую
:(((
31. Юрий Тимофеев (Tatitutu) 3557 24.03.10 19:51 Сейчас в теме
только на 8.2 могу выложить
32. Юрий Португалов (Sprite) 471 24.03.10 20:51 Сейчас в теме
(26) Посмотрю в Конфигураторе. Но мышью по кнопе у меня как-то не корректно отрабатывает.
А может быть через Formex?:
ПриНажатииЛевойКнопки() и далее через ОбработкуОжидания() ловим время, заканчивая ПриОтжатииЛевойКнопки() Благо у Альфа "Обработка Ожидания" ловит миллисекунды.
ПриНажатииКнопкиКлавиатуры() - не получится. Потому, что нет "ПриОтжатии...."
33. Анатолий Ситников (acsent) 999 26.03.10 15:54 Сейчас в теме
Разве где-то еще вручную стучат на таких доисторических приборах?
34. Юрий Тимофеев (Tatitutu) 3557 26.03.10 15:58 Сейчас в теме
(33) ой, как СТУЧААААААААААТ
разве не слышишь...та...ти...ту.ту :D
35. Анатолий Ситников (acsent) 999 26.03.10 16:03 Сейчас в теме
(34) То что некоторые фапают ностальгируют - это понятно
36. Юрий Тимофеев (Tatitutu) 3557 26.03.10 16:27 Сейчас в теме
(35) так это и есть главный результат ! Если хоть кому то приятно сделал уже самый большой плюс для меня.
Sprite; larisab; +2 Ответить
37. Трактор Трактор (Трактор) 1107 27.03.10 12:57 Сейчас в теме
38. Максим Епанчинцев (McSeem) 89 30.03.10 05:12 Сейчас в теме
Думаю, нужна доработка в виде обратной операции - перевод русского текста в морзянку и вывод звука (на спикер, или при помощи чередования файлов tochka.wav и tire.wav).
39. Трактор Трактор (Трактор) 1107 30.03.10 10:18 Сейчас в теме
(38) Я даже алфавит скачал с сайта http://www.morsetone.ru/. Затолкал файлы mp3 в макеты обработки. Осталось только ввод текста и создание файлов m3u прикрутить. Возьмёшься? У меня руки до этого дойдут совсем не скоро.
41. Максим Епанчинцев (McSeem) 89 30.03.10 12:14 Сейчас в теме
(39) Раз есть готовые mp3 файлы по буквам, то так даже проще. Вот процедурка создания плейлиста, на большее у меня тоже нет времени. ;)

//******************************************************************************
// Вывод()
//
Процедура Вывод(ИсходныйТекст)

// Инициализация переменных
ПутьВыводимогоФайла = КаталогВременныхФайлов() + "Morze.m3u";
ПутьMP3Файлов = КаталогИБ() + "morze\"; // здесь должны лежать файлы а.mp3 - 9.mp3, а также желательны Пробел.mp3 и Ошибка.mp3
Плейлист = СоздатьОбъект("Текст");
Плейлист.ДобавитьСтроку("#EXTM3U");
ДлинаТекста = СтрДлина(ИсходныйТекст);
МаксРазрядность = СтрДлина(Строка(ДлинаТекста));
ТЗОдобренныеСимволы = СоздатьОбъект("ТаблицаЗначений");
ТЗОдобренныеСимволы.НоваяКолонка("Символ", "Строка", 1);
ТЗОдобренныеСимволы.НоваяКолонка("СуществуетФайл", "Число", 1, 0);
Для i = 1 По ДлинаТекста Цикл
ТекСимв = НРег(Сред(ИсходныйТекст, i, 1));
Если (СокрЛП(ТекСимв) = "") Тогда
ТекСимв = "Пробел";
Иначе // проверяем существование файлов, с сохранением результатов проверки в ТЗ
гн = 0;
Если ТЗОдобренныеСимволы.НайтиЗначение(ТекСимв, гн, "Символ") = 1 Тогда
Если ТЗОдобренныеСимволы.ПолучитьЗначение(гн, "СуществуетФайл") = 0 Тогда
ТекСимв = "Ошибка";
КонецЕсли;
Иначе
ТЗОдобренныеСимволы.НоваяСтрока();
ТЗОдобренныеСимволы.Символ = ТекСимв;
ТЗОдобренныеСимволы.СуществуетФайл = ФС.СуществуетФайл(ПутьMP3Файлов + ТекСимв + ".mp3");
КонецЕсли;
КонецЕсли;
Плейлист.ДобавитьСтроку("#EXTINF:1,Символ " + ТекСимв);
Плейлист.ДобавитьСтроку(Формат(i, "Ч(0)" + МаксРазрядность) + ". " + ПутьMP3Файлов + ТекСимв + ".mp3");
КонецЦикла;
Плейлист.Записать(ПутьВыводимогоФайла);
ЗапуститьПриложение(ПутьВыводимогоФайла);

КонецПроцедуры // Вывод
42. Максим Епанчинцев (McSeem) 89 30.03.10 12:18 Сейчас в теме
Как бы тут от случайного даблпоста избавиться? :(