Вывод текста через каждые 10 секунд или по нажатию

@tahir_ · Регистрация: 18.05.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте ребята!

Помогите советом, как осуществить такую штуку

"вывод текста через каждые 10 секунд или по нажатию",

повиснуть на int 1Ch и 09h, только как быть с временем, переменную взять или что?

код не нужен, сам напишу, посоветуйте.

@Mikl___ · 06.04.2016, 09:36

tahir_,
опрос таймера int 1Ah или int 15h

Assembler

;---получение значения счетчика и установка задержки
            MOV   AH,0   ;номер функции для "чтения"
            INT   1AH    ;получаем значение счетчика
            ADD   DX,91  ;добавляем 5 сек. к младшему слову 18,2*5=91
            MOV   BX,DX  ;запоминаем требуемое значение в BX
;---постоянная проверка значения счетчика времени суток BIOS
REPEAT:     INT   1AH    ;получаем значение счетчика
            CMP   DX,BX  ;сравниваем с искомым
            JNE   REPEAT ;если неравен, то повторяем снова
                         ;иначе, задержка окончена

@alexcoder · 06.04.2016, 09:37

В задании же не указано, что программа должна быть TSR. Если Все-таки TSR, то, да, повиснуть на прерываниях. Я бы сделал два счетчика, один на 182 тика (10 секунд) cnt1, второй - на 18 тиков (1 сек) cnt2. Изначально cnt1=182, cnt2=0. При входе в 1С проверять, cnt2=0? если нет, вывести сообщение, уменьшить на 1. Если да, стереть сообщение.
cnt1=cnt1-1 при каждом тике. Если cnt1 стал равен 0, вновь занести 182, и cnt2=18.
При нажатии клавиши сделать cnt2=18

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

@tahir_ · 06.04.2016, 10:53 **[ТС]**

Mikl___, alexcoder, спасибо,
а можно из обработчика вызвать прерывание DOS int 21h ?

@Mikl___ · 06.04.2016, 10:55

tahir_,
нет, нельзя. А чем тебя пример с задержкой не устраивает?

@tahir_ · 06.04.2016, 11:01 **[ТС]**

Mikl___, можно и так,
а обработчик от клавиатуры куда тогда - увеличиваем какую нибудъ переменную в обработчике, выходим из обработчика, и в том цикле который ты привел сделать проверку переменной и дальше разветвление по коду?

@Constantin Cat · 06.04.2016, 11:17

Сообщение от tahir_

а можно из обработчика вызвать прерывание DOS int 21h

Его нельзя INT'ом вызывать, только CALL FAR'ом.

@Mikl___ · 06.04.2016, 11:36

tahir_,

Assembler

            MOV   AH,0   
            INT   1Ah   
            ADD   DX,182
            MOV   Timer,DX
REPEAT: mov ah,1
            int 16h
            jnz exit
            MOV   AH,0
            int   1Ah    ;получаем значение счетчика
            CMP   DX,Timer  ;сравниваем с искомым
            JNE   REPEAT
exit:

@tahir_ · 06.04.2016, 13:30 **[ТС]**

Спасибо парни, разобрался.

@kolobok0 · 06.04.2016, 17:44

всё можно, если знаешь как...

для начала - опиши те проблемы которые прейдут если позовёшь досовское прерывание.
далее ещё проще - решить их и вся не долга.

(круглый)

@tahir_ · 07.04.2016, 13:45 **[ТС]**

есть такой вопрос , после примера Mikl___, добавил обработку по клавишам, но не всегда работает с первого раза нажатие клавиш, т.е. иногда по два раза нажимать надо,
пробывал добавить очистку буфера

Assembler

klava proc
 mov ah,1
 int 16h
 jz klava_exit
 mov ah,0
 int 16h
 jmp klava
klava_exit:
 ret
endp

не помогает, и так

Assembler

 cli
 xor ax,ax
 mov es,ax
 mov al,byte ptr es:[41ah]
 mov byte ptr es:[41ch],al
 push ds
 pop es
 sti

@Mikl___ · 07.04.2016, 15:09

tahir_,
для чего jz klava_exit если у меня jnz exit ? И после mov ah,0/int 16h твоя программа на задержку в 10 секунд реагировать не будет, а будет тупо ожидать нажатия на клавиатуру

@tahir_ · 07.04.2016, 21:32 **[ТС]**

Mikl___, ой , эт я в заблуждение ввел, вот целиковый код проги,
этот кода работает, только иногда клавиши ни с первого раза,
нужно ли очищать буфер клавиатуры после mov ah,01h int 16h ???

Assembler

model small
 stack 100h
 
dataseg
  algoritm dd 0       ;рандом число
       min dd 1         ;минимальн. число для рандома
       max dd 5        ;максм.число для рандома
     timer dw 0         ;время 
codeseg
.386
start:
 mov ax,@data
 mov ds,ax
 mov es,ax
 
 mov ax,3
 int 10h
 
osnova:
 mov ah,0
 int 1ah
 add dx,182    ;18,2тик в секунду * 10 = 10 секунд
 mov [timer],dx  
 
repeat: 
 mov ah,01h
 int 16h
 
;если нажата была F1
 cmp ax,3b00h ;F1
 je f1
;если нажата была F2
 cmp ax,3c00h ;F2
 je f2
;если нажата была F3, выход в ДОС
 cmp ax,3d00h ;F3
 je exit 
 
 call klava
;читать часы (счетчик тиков),
 mov ah,0h
 int 1ah
 cmp dx,[timer]
 
;если прошло 10 секунд или более
 ja sec_10
;если  прошло менее 10 секунд
 jb repeat  ;на цикл
 
;прошло 10 секунд
sec_10:
;получим число рандом
  call random
;запишем число в квадрат 
call write_chislo
;приыгаем на основной цикл
 jmp osnova
 
;нажата была клава F1
f1:
 call klava
 inc [algoritm]       ;увеличиваем число
 call write_chislo  ;запишем число в квадрат 
 jmp osnova         ;приыгаем на основной цикл
 
;нажата была клава F2
f2:
; mov ax,0
; int 16h
 call klava
 call random
 call write_chislo
 jmp osnova
 
;нажата была клава F3, выход в дос
exit:
; mov ax,0
; int 16h
 call klava
 mov ax,4c00h
 int 21h
 
;procedure random
;получение рандом числа, взято в сети интернет
random proc
 push ecx edx ebx edi esi
 db 0Fh ;опкод команды rdtsc
 db 31h ;
 xchg esi,eax
 xchg edi,edx
 db 0Fh ;
 db 31h ;опкод команды rdtsc
 xor eax,edi
 xor edx,esi
 xor edx,edx
 mov ecx,[max]
 add ecx,1h
 sub ecx,[min]
 div ecx
 add edx,[min]
 mov eax,edx
 pop esi edi ebx edx ecx
 mov [algoritm],eax          ;рандомное число в квадрат
 ret
endp
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
пишем число
write_chislo proc
;проверим больше ли оно 5, если увеличивали клавишей F1, если больше то будет оно 1
 cmp [algoritm],5
 jbe write_chislo_1
 mov [algoritm],1
 
write_chislo_1: 
 mov eax,[algoritm]
 add eax,30h        ;чтоб символ был на экране прибавим 30h, смотрите таблицу ASCII
 
;запись в видеобуфер числа
 push 0B800h
 pop es
 mov bx,1680
 mov ah,7  
 mov word ptr es:[bx],ax
 push ds
 pop es
 ret              ;возврат
endp
 
;очистка буфера клавиатуры
klava proc
 mov ah,1
 int 16h
 jz klava_exit
 mov ah,0
 int 16h
 jmp klava
klava_exit:
 ret
endp
end start

Добавлено через 1 час 55 минут
сейчас помогло

Assembler

 cli
 xor ax,ax
 mov es,ax
 mov al,byte ptr es:[41ah]
 mov byte ptr es:[41ch],al
 push ds
 pop es
 sti

Добавлено через 3 часа 57 минут
все решил, вот окончательный вариант

Assembler

;Модель small поддерживает один сегмент кода и один сегмент данных.
model small
 
;Стек - это структура данных, которая используется для временного,  хранения информации. в данном случаи он 256 байт.
 stack 100h
 
;начало сегмента данных
dataseg
  algoritm dd 0       ;рандом число
       min dd 1         ;минимальн. число для рандома
       max dd 5        ;максм.число для рандома
     timer dw 0         ;время 
 
     ;сегмент кода
codeseg
 
;директива что будем использовать инструкции 386 процессора 
.386
 
;метка начало кода
start:
; настройка сегментынх регистров на данные
 mov ax,@data
 mov ds,ax
 mov es,ax
 
;очишаем экран
 mov ax,3
 int 10h
 
;рисуем квадрат, прямой записью в видео буфер
 push 0B800h ;настройка сегмента на видеобуфер
 pop es             
 mov bx,1020  ;смещение в памяти, с которой начинаем рисовать
 mov cx,10      ;размер квадрата( вдоль столбца)
vid_2:
 push cx
 mov cx,20   ;размер квадрата( вдоль строки)
 mov al,219  ; символ для зарисовки
 mov ah,3     ;цвет символа
vid_1:
 mov word ptr es:[bx],ax ; помещаем ax в видеобуфер
 inc bx       ;смещение=смещение+1;
 inc bx
 loop vid_1     ;цикл пока CX>0,метка vid_1
 add bx,120   ;смещение в буфере для следующей строчки, рисуем квадрат
 pop cx            ;возвращаем cx
 loop vid_2     ;цикл пока CX>0,метка vid_2
 
 push ds  ;восстанавливаем регистр ds
 pop es
 
;начало основного цикла опроса нажатия клавиш и работа таймера  
osnova:
;читать часы (счетчик тиков),
;CX,DX = счетчик тиков с момента сброса. CX - старшая часть значения.
 mov ah,0
 int 1ah
 add dx,182    ;18,2тик в секунду * 10 = 10 секунд
 mov [timer],dx   ;переменная которая содержит время когда пройжет 10 секунд ожидания
 
;начало под-цикла опроса нажатия клавиш и работа задержки  
repeat: 
;Получить состояние клавиатуры
;AH - скан-код
;AL - ASCII код
 mov ax,0100h
 int 16h
 jz tik2 ;если не была нажата какая либо клавиша
 
;если нажата была F1
 cmp ax,3b00h ;F1
 je f1
;если нажата была F2
 cmp ax,3c00h ;F2
 je f2
;если нажата была F3, выход в ДОС
 cmp ax,3d00h ;F3
 je exit 
 
tik2:
;читать часы (счетчик тиков),
 mov ah,0h
 int 1ah
 cmp dx,[timer]
;если прошло 10 секунд или более
 ja sec_10
 
;если  прошло менее 10 секунд
 jb repeat  ;на цикл
 
;прошло 10 секунд
sec_10:
;получим число рандом
  call random
;запишем число в квадрат 
 call write_chislo
;приыгаем на основной цикл
 jmp osnova
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;нажата была клава F1
f1:
 call klava
 inc [algoritm]       ;увеличиваем число
 call write_chislo  ;запишем число в квадрат 
 jmp osnova         ;приыгаем на основной цикл
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;нажата была клава F2
f2:
 call klava
 call random
 call write_chislo
 jmp osnova
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;нажата была клава F3, выход в дос
exit:
 call klava
 mov ax,4c00h
 int 21h
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;procedure random
;получение рандом числа, взято в сети интернет
random proc
 push ecx edx ebx edi esi
 db 0Fh ;опкод команды rdtsc
 db 31h ;
 xchg esi,eax
 xchg edi,edx
 db 0Fh ;
 db 31h ;опкод команды rdtsc
 xor eax,edi
 xor edx,esi
 xor edx,edx
 mov ecx,[max]
 add ecx,1h
 sub ecx,[min]
 div ecx
 add edx,[min]
 mov eax,edx
 pop esi edi ebx edx ecx
 mov [algoritm],eax          ;рандомное число в квадрат
 ret
endp
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
пишем число внутрь квадрата
write_chislo proc
;проверим больше ли оно 5, если увеличивали клавишей F1, если больше то будет оно 1
 cmp [algoritm],5
 jbe write_chislo_1
 mov [algoritm],1
 
write_chislo_1: 
 mov eax,[algoritm]
 add eax,30h        ;чтоб символ был на экране прибавим 30h, смотрите таблицу ASCII
 
;запись в видеобуфер числа
 push 0B800h
 pop es
 mov bx,1680
 mov ah,7    ;;fon
 mov word ptr es:[bx],ax
 push ds
 pop es
 ret              ;возврат
endp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
;очистка буфера клавиатуры
klava proc
 cli ;запрещаем прерывания
 xor ax,ax 
 mov es,ax
 mov al,byte ptr es:[41ah] делаем чтоб указатель на конец буфера указывал на начало буфера
 mov byte ptr es:[41ch],al
 push ds
 pop es
 sti ;разрешаем прерывания
 ret
endp
 
end start

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

@tahir_ 183 / 121 / 26 Регистрация: 18.05.2015 Сообщений: 509
		1
	Вывод текста через каждые 10 секунд или по нажатию 06.04.2016, 09:03. Показов 2653. Ответов 12 Метки нет (Все метки) Здравствуйте ребята! Помогите советом, как осуществить такую штуку "вывод текста через каждые 10 секунд или по нажатию", повиснуть на int 1Ch и 09h, только как быть с временем, переменную взять или что? код не нужен, сам напишу, посоветуйте. 0

@alexcoder 1779 / 757 / 153 Регистрация: 03.06.2009 Сообщений: 5,934
	06.04.2016, 09:37	3
	В задании же не указано, что программа должна быть TSR. Если Все-таки TSR, то, да, повиснуть на прерываниях. Я бы сделал два счетчика, один на 182 тика (10 секунд) cnt1, второй - на 18 тиков (1 сек) cnt2. Изначально cnt1=182, cnt2=0. При входе в 1С проверять, cnt2=0? если нет, вывести сообщение, уменьшить на 1. Если да, стереть сообщение. cnt1=cnt1-1 при каждом тике. Если cnt1 стал равен 0, вновь занести 182, и cnt2=18. При нажатии клавиши сделать cnt2=18 В принципе, можно будет оптимизировать, чтобы каждый тик не выводить/стирать, но я бы это делал, когда основной каркас программы уже готов. 1

@tahir_ 183 / 121 / 26 Регистрация: 18.05.2015 Сообщений: 509
	06.04.2016, 10:53 [ТС]	4
	Mikl___, alexcoder, спасибо, а можно из обработчика вызвать прерывание DOS int 21h ? 0

@Mikl___ Ушел с форума 16341 / 7660 / 1076 Регистрация: 11.11.2010 Сообщений: 13,706
	06.04.2016, 10:55	5
	tahir_, нет, нельзя. А чем тебя пример с задержкой не устраивает? 0

@tahir_ 183 / 121 / 26 Регистрация: 18.05.2015 Сообщений: 509
	06.04.2016, 11:01 [ТС]	6
	Mikl___, можно и так, а обработчик от клавиатуры куда тогда - увеличиваем какую нибудъ переменную в обработчике, выходим из обработчика, и в том цикле который ты привел сделать проверку переменной и дальше разветвление по коду? 0

@Constantin Cat 3408 / 1827 / 489 Регистрация: 28.02.2015 Сообщений: 3,696
	06.04.2016, 11:17	7
	Сообщение от tahir_ а можно из обработчика вызвать прерывание DOS int 21h Его нельзя INT'ом вызывать, только CALL FAR'ом. 1

@tahir_ 183 / 121 / 26 Регистрация: 18.05.2015 Сообщений: 509
	06.04.2016, 13:30 [ТС]	9
	Спасибо парни, разобрался. 0

@kolobok0 50 / 49 / 10 Регистрация: 24.01.2010 Сообщений: 225
	06.04.2016, 17:44	10
	всё можно, если знаешь как... для начала - опиши те проблемы которые прейдут если позовёшь досовское прерывание. далее ещё проще - решить их и вся не долга. (круглый) 0

@Mikl___ Ушел с форума 16341 / 7660 / 1076 Регистрация: 11.11.2010 Сообщений: 13,706
	07.04.2016, 15:09	12
	tahir_, для чего jz klava_exit если у меня jnz exit ? И после mov ah,0/int 16h твоя программа на задержку в 10 секунд реагировать не будет, а будет тупо ожидать нажатия на клавиатуру 2

Вывод текста через каждые 10 секунд или по нажатию

Решение