Форум программистов, компьютерный форум, киберфорум
Наши страницы
Assembler, MASM, TASM
Войти
Регистрация
Восстановить пароль
 
gra-iro
2 / 2 / 1
Регистрация: 24.10.2011
Сообщений: 25
#1

Инвертация цветов по таймеру (TASM) - Assembler

24.10.2011, 19:48. Просмотров 720. Ответов 4
Метки нет (Все метки)

Всем доброе время суток!
Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
.model   tiny
        .386
        .code
        org      100h
start:
        mov     ax,3
        int         10h
 
        xor         dx,dx
        mov         si,8
        push        0cccch
 
p1:  mov        ax,200h
        int         10h
        pop         ax
        not         ax
        push        ax
        xor         dl,dl
        inc         dh
 
        mov         cx,16
 
p:     pop          ax
        ror         ax,1
        push        ax
        jc          black
        mov         al,20h
        jmp         next
black:  mov         al,0dbh
next:   int         29h
        loop        p
 
        dec         si
        jnz         p1
        pop         ax
        int         20h
        end         start
Данный код рисует шахматную доску. Помогите пожалуйста сделать по таймеру (2-5 сек) инвертацию цветов квадратов (с черного на белый и наоборот).
 Комментарий модератора 
выделяйте код специальными тегами

http://www.cyberforum.ru/windows-forms/thread1419996.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.10.2011, 19:48
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Инвертация цветов по таймеру (TASM) (Assembler):

Есть н цветов разных видов. Составьте все возможные сочетания букетов из всех этих цветов. Количество цветов и их названия вводит пользователь
Есть n цветов разных видов. Составьте все возможные сочетания букетов из всех...

Инвертация
Почему-то не работает инвертация. Я вывожу изображение в канвасе, и теперь мне...

10->2 + сдвиг+инвертация
Народ пожалуйста подскажите есть ли у меня ошибки в лабе Написать...

Инвертация цвета TColor для Form.Canvas
Как инвертировать цвет для канвы формы? Я сделал вот так, но что-то мне не...

Получить из множества цветов спектра новое множество путем исключения трех цветов
Задано множество, содержащее все цвета светового спектра от красного ...

4
zzzyyyxxx
763 / 307 / 11
Регистрация: 27.05.2011
Сообщений: 704
25.10.2011, 08:03 #2
нужное время сам(а) подбери.
Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
       .model   tiny
        .386
        .code
        org      100h
start:
    mov ax,3
    int 10h
 
    mov ax,0b800h
    mov es,ax
 
    xor si,si
    mov dh,0        ;bl
    mov dl,8        ;wh
    mov cx,8
stolb:
    push cx 
    
;1-а  строка
        mov cx,8
    line:
        push cx
        mov cx,2
;color
        cmp ah,dl       ;wh
        je nx
        mov ah,dl       ;wh
        jmp kub
    nx:
        mov ah,dh       ;bl
        kub:
            mov byte ptr es:[si],0dbh
            inc si
            mov byte ptr es:[si],ah
            inc si
        loop kub
        pop cx  
        loop line
        
    pop cx
    xchg dh,dl  
    mov ah,1        ;sboi
    add si,128
    loop stolb
    
    call TIMER
    xor si,si
    mov cx,8
    xchg dl,dh
    add ah,7        ;определение цвета для нового кадра
    jmp  stolb
    ;цикл бесконечный, поэтому нет выхода из программы
        
 TIMER proc
    push es
    mov ax,40h
    mov es,ax        
mf:
    mov al,byte ptr es:[40h]
    sub al,10               ;чем больше значение тем дольше (не более 0ffh или 255d)
ms:
    cmp al,byte ptr es:[40h]
    jle ms        
    pop es
ret
TIMER endp
        end             start
1
taras atavin
4204 / 1763 / 212
Регистрация: 24.11.2009
Сообщений: 27,565
25.10.2011, 08:12 #3
А что такое "инвертация"?
0
zzzyyyxxx
763 / 307 / 11
Регистрация: 27.05.2011
Сообщений: 704
25.10.2011, 08:19 #4
taras atavin, ну бывает, кто не ошибается?
там, дальше растолковывается суть -
Цитата Сообщение от gra-iro Посмотреть сообщение
(с черного на белый и наоборот)
1
gra-iro
2 / 2 / 1
Регистрация: 24.10.2011
Сообщений: 25
25.10.2011, 16:18  [ТС] #5
zzzyyyxxx, огромное спасибо!!!
0
25.10.2011, 16:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.10.2011, 16:18
Привет! Вот еще темы с решениями:

Задать два перечислимых типа: первый - коды цветов, второй - названия цветов
Задать два перечислимых типа: первый коды цветов, второй - названия цветов....

Создать гистограмму цветов из цветов загруженного изображения и искать с помощью нее пиксели одинакового цвета
Необходимо создать гистограмму цветов из цветов загруженного изображения и...

Вычислить количество способов, которыми можно купить букет из 3 роз двух цветов, если в продаже имеются розы 3 цветов: белые, розовые и красные.
Здравствуйте дорогие форумчане нужна ваша помощь нужно посмотреть вот эту...

Конвертация цветов в коды цветов
Здраствуйте. Помогите мне научится шагу интерпретации на Лазаврус. Цель -...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru