|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.05.2018, 22:28 | #1 |
Регистрация: 27.05.2018
Сообщений: 4
|
Мигающий экран
Помогите пожалуйста составить программу по выводу на экран мигающего окна, окрашенного красным цветом. Период и длительность мигания ввести с клавиатуры. Интегрированная среда программирования Tasm 5.0.
Дело в том, что я пишу на другом языке программирования, а ещё и этот надо сдавать. Помогите. |
28.05.2018, 06:51 | #2 |
Непрофессионал
Участник клуба
Регистрация: 01.01.2008
Сообщений: 1,405
|
Нашёл что-то подобное, вроде даже работает.
Я же правильно понял, что это что-то под ДОС ?
И чем больше я узнавал людей, тем больше мне нравились компьютеры.
------------------------------------ Страничка с моими программками http://ulex-masm.ru |
29.05.2018, 01:12 | #3 |
Регистрация: 27.05.2018
Сообщений: 4
|
Хм, спасибо за код. Это как раз то, что мне надо. Только вот у меня маленькая проблемка появилась. При компиляции кода почему-то не работает программа ( не показывает красное окно), но exe файл, которое вы мне скинули исправно работает. Может знаете, с чем это может быть связано?
|
29.05.2018, 08:23 | #4 |
Участник клуба
Регистрация: 16.06.2011
Сообщений: 1,428
|
если таймер вводить в диапазоне 1-9, то можно ещё так:
Код:
Нашедшего выход - затаптывают первым..
|
25.01.2019, 16:44 | #5 |
Новичок
Джуниор
Регистрация: 24.01.2019
Сообщений: 1
|
.286
.model small .stack 100h .data timeRed dw 0 timeAll dw 0 flRB db 1 cntM db 0 deltime dw 0 msgRed db 'time RED = $' msgPeriod db 'time Period = $' cr = 0dh ; 楤 뢮 ᥫ lf = 0ah string db 255, 0, 255 dup (?) errmsg db 'error: illegal symbol' crlf db cr,lf,'$' negflag dw ? .code start: mov ax, @data mov ds, ax mov ah,9 lea dx, msgRed int 21h call IntegerIN mov [timeRed], ax mov ah,9 lea dx, msgPeriod int 21h call IntegerIN mov [timeAll], ax mov ah, 0fh int 10h push ax mov ax,0003h int 10h mov ax, [timeRed] mov [deltime], ax mov ax,0B800h mov es,ax mov di, 80*2 next: push di mov ax, 04400h cmp [flRB], 0 jnl next_setB mov ax, 00000h next_setB: mov bx, 2 add di, 2 next_copy2: mov [esi], ax add di, 2 add bx, 2 cmp bx, 80*2-2 jne next_copy2 mov bx, 2 add di, 4 cmp di, (80*2)*24 jnl end_copy jmp next_copy2 end_copy: pop di call delay neg [flRB] mov ax, [timeRed] cmp [flRB], 0 jnl next_setB2 mov dx, ax mov ax, [timeAll] sub ax, dx next_setB2: mov [deltime], ax mov ah,01h int 16h je next pop ax mov ah, 00h int 10h mov ax,4C00h ; 蠥 ணࠬ int 21h IntegerIn proc ; 楤 楫 ax mov ah,0ah lea dx,string int 21h xor ax,ax lea si,string+2 mov negflag,ax cmp byte ptr [si],'-' jne m2 not negflag inc si jmp m3 m2: cmp byte ptr [si],'+' jne m3 inc si m3: cmp byte ptr [si],cr je ex1 cmp byte ptr [si],'0' jb er cmp byte ptr [si],'9' ja er mov bx,10 mul bx sub byte ptr [si],'0' add al,[si] adc ah,0 inc si jmp m3 er: lea dx,errmsg mov ah,9 int 21h jmp IntegerIn ex1: cmp negflag,0 je ex neg ax ex: push ax mov ah,9 lea dx,crlf int 21h pop ax ret IntegerIn endp delay proc near mov ah,2Ch int 21h mov [cntM], cl mov bx,dx xor dx, dx mov al, bh mov cx, 100 mul cx mov dl, bl add ax, dx push ax del1: mov ah,2Ch int 21h cmp [cntM], cl jnl del_ncm add dh, 60 del_ncm: mov bx,dx xor dx, dx mov al, bh mov cx, 100 mul cx mov dl, bl add ax, dx pop dx sub ax, dx push dx cmp ax, [deltime] jl del1 pop ax ret delay endp end start Помогите, пожалуйста, с комментариями к этой задаче. Что и как делается? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Что означает мигающий значек с изображением фотоаппарата (камеры) | Katerin_angel | Безопасность, Шифрование | 1 | 23.11.2012 09:26 |
Мигающий курсор при нажатии на кнопку-картинку | raBpywa | HTML и CSS | 0 | 03.03.2012 14:12 |
Экран смерти | Bat{CMD}_Men | Общие вопросы Delphi | 17 | 31.08.2009 00:57 |
Как переместить мигающий курсор? | Сергей089 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 04.06.2009 17:35 |
Как сделать мигающий текст в Pascale??? | Danilyuk | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 31.05.2008 17:57 |