Программа - шутка, демонстрация возможностей CMD скриптов.

02.07.08

Разработка - Математика и алгоритмы

Демонстрашка возможностей скриптов

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
Str.cmd
.1214868618 1,26Kb
28 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой
Это CMDшка которая компилит маленькую программку при помощи "debug". Программка просто отображает бегущую строчку. Потом удаляется тем же скриптом.

Скрипт:

8<--------------------------------------------------------------------------------------------------------------------------------------------------
echo off
goto Self

a 100
mov cx,01C4
push cx
push cx
mov ah,0 ;­ з «® в ©¬Ґа 
int 1A
mov bx,dx
add bx,0
int 1A
cmp dx,bx
jle 010E ; Є®­Ґж в ©¬Ґа 
pop cx
mov si,014D
sub cx,01C4
sub si,cx
mov di,400
mov cx,14
rep movsb
mov byte ptr [di],24
mov bh,0
mov dx,0c1f
mov ah,02
int 10
mov dx,400
mov ah,09
int 21
mov ah, 86
inc cx
inc cx
xor dx,dx
int 15
mov ah,01
int 16
pop cx
jnz 014C
loop 0103
jmp 0100
ret
db " __-~-_-~-_-~-_-~-_-~-_-~-_-~-_-~-_-~-"
db " ќв® ¤«ЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁ­­ п бва®Є . Њ®¦Ґв Ўлвм ¤®"
db " 64Є ¤«Ё­®©. Ђ ҐйҐ вгв ¬®¦Ґв Ўлвм §«®ўаҐ¤­л© Є®¤ Є®в"
db "®ал© § а §Ёв ўбҐ ‚ иЁ ¤®Єг¬Ґ¬­вл Ё ЇҐаҐЇЁиҐв"
db " DBF­лҐ д ©«ҐЈЁ!!!!!!! Ќ® ў®®ЎйҐ-в® нв® Їа®бв® ¤Ґ¬®­б"
db "ва жЁп в®Ј®, зв® ¬®¦­® § ЇЁе вм  бᥬЎ«Ґа­л© «ЁбвЁ­"
db "Ј ў CMDиЄг Ё бЄ®¬ЇЁ«Ёвм ҐЈ® бв ­¤ ав­л¬Ё б।бвў ¬"
db "Ё Windows. ‚®®ЎйҐ ¬®¦­® нв® § ЇЁе вм ў «оЎ®© бЄаЁЇв."
db " „ ¦Ґ ў 1‘­л© ¬®¤г«м. C ­ Ё«гзиЁ¬Ё Ї®¦Ґ« ­Ёп¬Ё MadDAD. $"

rcx
219
n r_string.com
w
q

If "%1"=="" goto self

:exit

exit

:self

debug < %0 > %~DPN0.log
cls
r_string.com
echo Y|del r_string.com
goto exit

8<--------------------------------------------------------------------------------------------------------------------------------------------------

Вступайте в нашу телеграмм-группу Инфостарт

См. также

Математика и алгоритмы Программист 1С 8.3 Абонемент ($m)

Данная внешняя обработка для платформы 1С:Предприятие реализует усовершенствованный алгоритм Левенштейна для вычисления схожести строк с учетом различных лингвистических особенностей русского языка. В отличие от классической реализации, этот алгоритм учитывает фонетические, визуальные и контекстные особенности набора текста.

1 стартмани

07.11.2025    4668    12    InFlach    17    

26

Математика и алгоритмы Запросы Программист 1С:Предприятие 8 Бесплатно (free)

Рассмотрим быстрый алгоритм поиска дублей с использованием hash функции по набору полей шапки и табличных частей.

08.07.2024    4811    ivanov660    9    

23

Математика и алгоритмы Программист 1С:Предприятие 8 1C:Бухгалтерия Россия Абонемент ($m)

На написание данной работы меня вдохновила работа @glassman «Переход на ClickHouse для анализа метрик». Автор анализирует большой объем данных, много миллионов строк, и убедительно доказывает, что ClickHouse справляется лучше PostgreSQL. Я же покажу как можно сократить объем данных в 49.9 раз при этом: 1. Сохранить значения локальных экстремумов 2. Отклонения от реальных значений имеют наперед заданную допустимую погрешность.

1 стартмани

30.01.2024    12944    stopa85    12    

43

Математика и алгоритмы Бесплатно (free)

Разработка алгоритма, построенного на модели симплекс-метода, для нахождения оптимального раскроя.

19.10.2023    20367    user1959478    57    

40

Математика и алгоритмы Разное 1С:Предприятие 8 1C:Бухгалтерия Россия Абонемент ($m)

Расширение (+ обработка) представляют собою математический тренажер. Ваш ребенок сможет проверить свои знание на математические вычисление до 100.

2 стартмани

29.09.2023    12330    maksa2005    8    

27

Математика и алгоритмы Инструментарий разработчика Программист 1С:Предприятие 8 Россия Абонемент ($m)

Что ж... лучше поздно, чем никогда. Подсистема 1С для работы с регулярными выражениями: разбор выражения, проверка на соответствие шаблону, поиск вхождений в тексте.

1 стартмани

09.06.2023    20704    11    SpaceOfMyHead    20    

65

Математика и алгоритмы Программист 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Три задачи - три идеи - три решения. Мало кода, много смысла. Мини-статья.

03.04.2023    13897    RustIG    9    

30

Механизмы платформы 1С Математика и алгоритмы Программист 1С:Предприятие 8 Россия Бесплатно (free)

В статье анализируются средства платформы для решения системы линейных уравнений в 1С. Приводятся доводы в пользу некорректной работы встроенных алгоритмов, а значит потенциально некорректного расчета себестоимости в типовых конфигурациях.

23.11.2022    12963    gzharkoj    15    

27
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. brr 184 01.07.08 08:59 Сейчас в теме
Строка в какой кодировке?
2. MadDAD 138 01.07.08 09:20 Сейчас в теме
Строка как и комментарии к коду в кодировке 866 (DOS)
3. andrewalexk 01.07.08 10:56 Сейчас в теме
:)
.. а без скринов не кошерно...
aleks_cons; +1 Ответить
4. MadDAD 138 02.07.08 02:23 Сейчас в теме
Да ам вобщем то скринить нечего :)
5. Dolly_EV 270 02.07.08 08:32 Сейчас в теме
Подскажите для неассемблиста - чем регулируется видимая ширина строкии "плавность" (а то как-то рывками все...)
aleks_cons; +1 Ответить
6. MadDAD 138 02.07.08 08:45 Сейчас в теме
jle 010E ; Конец таймера
pop cx
mov si,014D
sub cx,01C4
sub si,cx
mov di,400
mov cx,24 ; <- Это длина строки (отображается от начальной позиции)
rep movsb
mov byte ptr [di],24
mov bh,0
mov dx,0c1f ; <- А вот тут задается начальная позиция (экран - как длинная строка, вектор 80*25)
mov ah,02
int 10

Плавнее, даже не знаю, можно задержку в таймере сделать, а лучше распахнуть на полный экран, тогда все будет плавно :)... Забыл сказать вроде тут таймер вообще не включен(add bx,0) ...
7. MadDAD 138 03.07.08 07:22 Сейчас в теме
Вот нашел статью которая сподвигла... http://wasm.ru/article.php?article=nocompiler

В код приведенный в статье я добавил таймер.
Для отправки сообщения требуется регистрация/авторизация