Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Низкоуровневое программирование > Assembler
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 27.05.2018, 23:28   #1
Capitoska
 
Регистрация: 27.05.2018
Сообщений: 4
Репутация: 10
По умолчанию Мигающий экран

Помогите пожалуйста составить программу по выводу на экран мигающего окна, окрашенного красным цветом. Период и длительность мигания ввести с клавиатуры. Интегрированная среда программирования Tasm 5.0.
Дело в том, что я пишу на другом языке программирования, а ещё и этот надо сдавать. Помогите.
Capitoska вне форума   Ответить с цитированием
Старый 28.05.2018, 07:51   #2
Ulex
Непрофессионал
Профессионал
 
Аватар для Ulex
 
Регистрация: 01.01.2008
Адрес: город Н-ск.
Сообщений: 1,411
Репутация: 1100
По умолчанию

Нашёл что-то подобное, вроде даже работает.
Я же правильно понял, что это что-то под ДОС ?
Вложения
Тип файла: zip proga75.zip (1.9 Кб, 11 просмотров)
__________________
И чем больше я узнавал людей, тем больше мне нравились компьютеры.
------------------------------------
Страничка с моими программками http://ulex-masm.ru
Ulex вне форума   Ответить с цитированием
Старый 29.05.2018, 02:12   #3
Capitoska
 
Регистрация: 27.05.2018
Сообщений: 4
Репутация: 10
По умолчанию

Хм, спасибо за код. Это как раз то, что мне надо. Только вот у меня маленькая проблемка появилась. При компиляции кода почему-то не работает программа ( не показывает красное окно), но exe файл, которое вы мне скинули исправно работает. Может знаете, с чем это может быть связано?
Capitoska вне форума   Ответить с цитированием
Старый 29.05.2018, 09:23   #4
R71MT
Профессионал
 
Аватар для R71MT
 
Регистрация: 16.06.2011
Сообщений: 1,230
Репутация: 1048
По умолчанию

если таймер вводить в диапазоне 1-9, то можно ещё так:
Код:

; fasm-code
; мигающий красный экран
;------------------------
org  100h
jmp  start

tRed    db   'Second 1-9: $'
slp     dw   0     ; счётчик

start:  mov   ax,3            ; мода 80х25/16
        int   10h
        push  0b800h 0
        pop   fs es           ; FS = bios, ES = видеобуфер

        mov   ah,9            ; мессага
        mov   dx,tRed
        int   21h
        mov   ah,1            ; ввод секунд 0-9
        int   21h
        and   ax,0fh          ; символ-в-число
        shl   ax,4            ; *16 для тиков
        mov   [slp],ax        ; запомнить счётчик!

        mov   ah,2            ; скрыть курсор
        mov   dx,1a01h
        int   10h

        mov   bx,0cdbh        ; 0Сh = красный, DBh = квадрат.

@fill:  mov   cx,80*25        ; символов на экране
        mov   ax,bx           ;  ..что выводить
        xor   di,di           ;    ..куда
        rep   stosw           ;      ..вывод на экран!
        call  Sleep           ; спать!

        mov   cx,80*25        ; проснуться и повторить
        mov   al,' '          ; только не квадрат, а пробел (очистить экран)
        xor   di,di
        rep   stosw
        call  Sleep

        mov   ah,6            ; проверить буфер клавы..
        mov   dl,-1
        int   21h
        cmp   al,13           ; Enter?
        jnz   @fill           ; нет - повторить..

@exit:  mov   ah,4ch
        int   21h             ; на выход!

;--- Таймер ---------
Sleep:  mov   bp,word[fs:46ch]   ; считать тики с биоса
        add   bp,[slp]           ; прибавить задержку
@wait:  mov   dx,word[fs:46ch]   ; ещё-раз считать
        cmp   dx,bp              ;
        jbe   @wait              ; если разница меньше..
        ret                      ; иначе: вернуться!

Вложения
Тип файла: zip RedBull.zip (1.0 Кб, 4 просмотров)
__________________
Нашедшего выход - затаптывают первым..
R71MT вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Что означает мигающий значек с изображением фотоаппарата (камеры) 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 Паскаль 1 04.06.2009 17:35
Как сделать мигающий текст в Pascale??? Danilyuk Паскаль 1 31.05.2008 17:57


07:27.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru