Как украсить консольное приложение Win32?

@гендальф · Регистрация: 03.01.2013

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

Мне надо "украсить" консольную программу Win32, но как я не знаю!!! Подскажите пожалуйста!!!!

@Kins · 15.03.2013, 20:58

символами сердечек по периметру окна)

Croessmah · 15.03.2013, 20:59

Я так понял в продолжение этому:
Работа с курсовиком!

@Kastaneda · 15.03.2013, 21:56

Украсить можно как угодно, например так
Вложение 24562

Не по теме:

Модераторы, аттач взят из моего древнего поста, как его можно вставить так, чтоб отображалось изображение, а не ссылка не него?

@Avazart · 16.03.2013, 00:07

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

Модераторы, аттач взят из моего древнего поста, как его можно вставить так, чтоб отображалось изображение, а не ссылка не него?

Да такой возможности не хватает, а заново переливать как то нехорошо...

@Pepsy · 16.03.2013, 00:29

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

Украсить можно как угодно, например так
Вложение 24562

Кинь ссылку, как так сделать оформление?

@гендальф · 16.03.2013, 19:40 **[ТС]**

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

Кинь ссылку, как так сделать оформление?

да скажи пожалуйста как так сделать???

Добавлено через 1 минуту

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

Я так понял в продолжение этому:
Работа с курсовиком!

да ты прав!!! программу я написал а вот препод сказал её украсить как-то!!!!!

@Kastaneda · 16.03.2013, 20:57

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

Кинь ссылку, как так сделать оформление?

Сообщение от гендальф

да скажи пожалуйста как так сделать???

Конкретно то, что на скрине, писалось на ассемблере при помощи прерываний DOS (код). Но можно сделать тоже самое при помощи WinAPI http://msdn.microsoft.com/ru-R... s.85).aspx

Добавлено через 4 минуты
а не, там по ссылке не код, а исполняемый файл. Если очень надо, могу код дать, он у меня до сих пор хранится

@гендальф · 19.03.2013, 19:18 **[ТС]**

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

Конкретно то, что на скрине, писалось на ассемблере при помощи прерываний DOS (код). Но можно сделать тоже самое при помощи WinAPI http://msdn.microsoft.com/ru-R... s.85).aspx

Добавлено через 4 минуты
а не, там по ссылке не код, а исполняемый файл. Если очень надо, могу код дать, он у меня до сих пор хранится

Если не сложно скинь пожалуйста!!!!!!

@Kastaneda · 19.03.2013, 20:06

Сообщение от гендальф

Если не сложно скинь пожалуйста!!!!!!

честно говоря незнаю как ты в этом будешь разбираться, это практически моя первая программа (я программировать с ассемблера начал), поэтому сказать, что там быдлокод - это ничего не сказать

Если будешь компилить, то компилировать в tasm'е как .com файл. Там еще форматирование плывет, это потому что я про tab'ы тогда не знал.

Кликните здесь для просмотра всего текста

Assembler

.model tiny
.data
tabl db 90h,'imul ',0f7h,0ebh,90h
     db 'idiv ',0f7h,0fbh,90h
     db 'div ',0F7h,0F3h,90h,90h
     db 'mul ',0F7h,0E3h,90h,90h
     db 'add ',01,0D8h,90h,90h
     db 'and ',21h,0D8h,90h,90h
     db 'cmp ',39h,0D8h,90h,90h
     db 'dec ',48h,90h,90h,90h
     db 'inc ',40h,90h,90h,90h
     db 'neg ',0F7h,0D8h,90h,90h
     db 'or  ',09h,0D8h,90h,90h
     db 'sub ',29h,0D8h,90h,90h
     db 'xor ',31h,0D8h,90h,90h
     db 'shl ',0d3h,0e0h,90h,90h
     db 'shr ',0d3h,0e8h,90h,90h
     db 'ror ',0d3h,0c8h,90h,90h
     db 'rol ',0d3h,0c0h,90h,90h
     db 'sal ',0d3h,0f0h,90h,90h
     db 'sar ',0d3h,0f8h,90h,90h
     db 'rcr ',0d3h,0d8h,90h,90h
     db 'rcl ',0d3h,0d0h,90h,90h
komand db 'imul bx$'
     db 'idiv bx$'
     db 'div bx$$'
     db 'mul bx$$'
     db 'add ax,bx$'
     db 'and ax,bx$'
     db 'cmp ax,bx$'
     db 'dec ax$$'
     db 'inc ax$$'
     db 'neg ax$$'
     db 'or  ax,bx$';!!!
     db 'sub ax,bx$'
     db 'xor ax,bx$'
     db 'shl ax,cl$';!!!
     db 'shr ax,cl$';!!!
     db 'ror ax,cl$'
     db 'rol ax,cl$'
     db 'sal ax,cl$'
     db 'sar ax,cl$'
     db 'rcr ax,cl$'
     db 'rcl ax,cl$'
op1 db '‚ўҐ¤ЁвҐ 1л© ®ЇҐа**¤:','$';введите 1 операнд
op2 db '‚ўҐ¤ЁвҐ 2®© ®ЇҐа**¤:','$';введите 2 операнд
entm db '‚ўҐ¤ЁвҐ Є®¬**¤г:','$';введите команду
error db 'ЌҐЄ®аҐЄв*л© бЁ¬ў®«!!!'; Не коректный символ
eror db '‚ўҐ¤Ґ**л© ®ЇҐа**¤ Ў®«миҐ,',0Ah,21d dup (08h),' зҐ¬ 16 ЎЁв!!!'; Операнд больше 16 бит.
erorm db 'Џа®Ја*¬¬* *Ґ Ї®¤¤Ґа¦Ёў*Ґв ',0ah,19d dup (08h),'нвг Є®¬**¤г!'; Программа не поддерживает эту команду
erors db '2-®© ®ЇҐа**¤ Ў®«миҐ Ў*©в*',0Ah,0ah,18d dup (08h),'б¬.Readme'; 2-ой операнд больше 1 байта см. Readme
flags db 'CF = 0',0ah,08h,08h,08h,08h,08h,08h
      db 'ZF = 0',0ah,08h,08h,08h,08h,08h,08h
      db 'SF = 0',0ah,08h,08h,08h,08h,08h,08h
      db 'OF = 0',0ah,08h,08h,08h,08h,08h,08h
      db 'PF = 0',0ah,08h,08h,08h,08h,08h,08h
      db 'AF = 0',0ah,08h,08h,08h,08h,08h,08h
      db 'IF = 0',0ah,08h,08h,08h,08h,08h,08h
      db 'DF = 0'
flag db '1'
oper db 7,0, 7 DUP(0)
mnem db 7,0, 7 DUP(0)
AAX db 'AX=0000'
BBX db 'BX=0000'
CCL db 'CL=00  '
DDX db 'DX=0000'
flagi db 'CF - ',19 dup (' '),'OF - ',19 dup (' '),'IF - ',0ah,53 dup (08h)
      db 'ZF - ',19 dup (' '),'PF - ',19 dup (' '),'DF - ',0ah,53 dup (08h)
      db 'SF - ',19 dup (' '),'AF - ',19 dup (' ')
Opfl1 db 'д«*Ј ЇҐаҐ*®б*',0ah,13 dup (08h)
     db 'д«*Ј *г«п',0ah,9 dup (08h)   
     db 'д«*Ј §**Є*'
Opfl2 db 'д«*Ј ЇҐаҐЇ®«*Ґ*Ёп',0ah,17 dup (08h)
      db 'д«*Ј зҐв*®бвЁ',0ah,13 dup (08h)
      db 'д«*Ј Ї®«гЇҐаҐ*®б*'
Opfl3 db 'д«*Ј ЇаҐалў**Ё©',0ah,15 dup (08h)
      db 'д«*Ј **Їа*ў«Ґ*Ёп',0ah,16 dup (08h)
Optf db 'TF - д«*Ј «®ўгиЄЁ'
spravka db '‘Їа*ўЄ*: Alt+д«*Ј (**ЇаЁ¬Ґа Alt+C)' 
nazad db 'Ќ*§*¤ Alt+R'
CF db ' CF- д«*Ј ЇҐаҐ*®б*. “бв***ў«Ёў*Ґвбп ў 1, Ґб«Ё аҐ§г«мв*в ЇаҐ¤л¤гйҐ© ®ЇҐа*жЁЁ',0ah,75d dup (08h) 
   db '*Ґ г¬ҐбвЁ«бп ў ЇаЁҐ¬*ЁЄҐ Ё Їа®Ё§®иҐ« ЇҐаҐ*®б Ё§ бв*аиҐЈ® ЎЁв* Ё«Ё ваҐЎгҐвбп',0ah,75d dup (08h) 
   db '§*Ґ¬ (ЇаЁ ўлзЁв**ЁЁ), Ё**зҐ гбв***ў«Ёў*Ґвбп ў 0.'  
ZF db 'ZF - д«*Ј *г«п. “бв***ў«Ёў*Ґвбп ў 1, Ґб«Ё аҐ§г«мв*в ЇаҐ¤л¤гйҐ© Є®¬**¤л *®«м'
SF db 'SFя- д«*Ј §**Є*. ќв®в д«*Ј ўбҐЈ¤* а*ўҐ* бв*аиҐ¬г ЎЁвг аҐ§г«мв*в*.'
OF db 'OFя- д«*Ј ЇҐаҐЇ®«*Ґ*Ёп. ќв®в д«*Ј гбв***ў«Ёў*Ґвбп ў 1, Ґб«Ё аҐ§г«мв*в ЇаҐ¤л',0ah,75d dup (08h)
   db '¤гйҐ© *аЁд¬ҐвЁзҐбЄ®© ®ЇҐа*жЁЁ **¤ зЁб«*¬Ё б® §**Є®¬ ўле®¤Ёв §* ¤®ЇгбвЁ¬лҐ',0ah,73d dup (08h)
   db '¤«п *Ёе ЇаҐ¤Ґ«л.  '
PF db 'PFя- д«*Ј зҐв*®бвЁ. “бв***ў«Ёў*Ґвбп ў 1, Ґб«Ё ¬«*¤иЁ© Ў*©в аҐ§г«мв*в* ЇаҐ¤л',0ah,75d dup (08h)
   db '¤гйҐ© Є®¬**¤л б®¤Ґа¦Ёв зҐв*®Ґ зЁб«® ЎЁв.'
AF db 'AFя- д«*Ј Ї®«гЇҐаҐ*®б* Ё«Ё ўбЇ®¬®Ј*вҐ«м*®Ј® ЇҐаҐ*®б*. “бв***ў«Ёў*Ґвбп ў 1, ',0ah,75d dup (08h)
   db 'Ґб«Ё ў аҐ§г«мв*вҐ ЇаҐ¤л¤гйҐ© ®ЇҐа*жЁЁ Їа®Ё§®иҐ« ЇҐаҐ*®б (Ё«Ё §*Ґ¬) Ё§ ваҐвм',0ah,75d dup (08h)
   db 'ҐЈ® ЎЁв* ў зҐвўҐавл©'
IFl db 'IFя- д«*Ј ЇаҐалў**Ё©. “бв**®ўЄ* нв®Ј® д«*Ј* ў 1 ЇаЁў®¤Ёв Є в®¬г, зв® Їа®жҐ',0ah,74d dup (08h)
    db 'бб®а ЇҐаҐбв*Ґв ®Ўа*Ў*влў*вм ЇаҐалў**Ёп ®в ў*Ґи*Ёе гбва®©бвў.'
DFl db 'DFя- д«*Ј **Їа*ў«Ґ*Ёп. ќв®в д«*Ј Є®*ва®««ЁагҐв Ї®ўҐ¤Ґ*ЁҐ Є®¬**¤ ®Ўа*Ў®вЄЁ ',0ah,74d dup (08h)
    db 'бва®Є, Є®Ј¤* ®* гбв**®ў«Ґ* ў 1, бва®ЄЁ ®Ўа*Ў*влў*овбп ў бв®а®*г г¬Ґ*миҐ*Ёп',0ah,75d dup (08h)
    db ' *¤аҐб®ў, * Є®Ј¤* DFя= 0я **®Ў®а®в.'
TF db 'TFя- д«*Ј «®ўгиЄЁ. ќв®в д«*Ј Ўл« ЇаҐ¤гб¬®ваҐ* ¤«п а*Ў®вл ®в«*¤зЁЄ®ў, *Ґ ',0ah,73d dup (08h)
   db 'ЁбЇ®«м§гойЁе §*йЁйҐ**л© аҐ¦Ё¬. “бв**®ўЄ* ҐЈ® ў 1 ЇаЁў®¤Ёв Є в®¬г, зв® Ї®б«Ґ ',0ah,76d dup (08h)
   db 'ўлЇ®«*Ґ*Ёп Є*¦¤®© Є®¬**¤л Їа®Ја*¬¬л гЇа*ў«Ґ*ЁҐ ўаҐ¬Ґ**® ЇҐаҐ¤*Ґвбп ®в«*¤зЁ',0ah,74d dup (08h)
   db 'Єг (ўл§лў*Ґвбп ЇаҐалў**ЁҐ 1я(б¬. ®ЇЁб**ЁҐ Є®¬**¤л INT).'  
Press db 'Press ESC to exit'
X1 db 0C9h,78d dup (0CDh),0BBh
X2 db 0bah
X3 db 0C8h,78d dup (0CDh),0BCh
X4 db 0C9h,17d dup (0CDh),0BBh
X5 db 0C9h,59d dup (0CDh),0BBh
X6 db 0C8h,59d dup (0CDh),0BCh
X7 db 0C8h,17d dup (0CDh),0BCh
X8 db 17d dup (0CDh)
qer db 0C9h,27 dup (0CDh),0BBh,3 dup (0Ah,08h,0BAh)
qer1 db 3 dup (0BAh,0Ah,08h),0C8h,27 dup (0CDh),0BCh
oldint9 dd ?  ; здесь будет храниться аддрес старого обработчика
exmsg db '„«п Ї®ўв®а* **¦¬ЁвҐ "R", ¤«п ўле®¤* "ESC"'
exmsg1 db '‚л зв®-в® **¦*«Ё?'
exmsg2 db 'ЃгЄў* "R" **е®¤Ёвбп ¬Ґ¦¤г "E" Ё "T"'
exmsg3 db '’*¬ Ј¤Ґ агббЄ*п "Љ"'
exmsg4 db '€бвЁ** Ј¤Ґ-в® ап¤®¬'
exmsg5 db '„* ЇаЁЎг¤Ґв б в®Ў®© бЁ«*!'
exmsg6 db 'ЃҐиҐ«м¬Ґ иҐ«м¬Ґйм?'
exmsg7 db 'ЏаЁЄ®«м*® ** Є«*ўЁиЁ ¦*вм?'
exmsg8 db 'ЌҐ ўлЄагзЁў*© ¬*Ґ п©ж*'
exmsg9 db '„®бўЁ¤**Ёп!'
.code
org 100h
spr macro
mov ah,06h
mov al,0
mov ch,17d
mov cl,1
mov dh,22d
mov dl,78d
mov bh,10h
int 10h
endm
naz macro
mov ax,1300h
lea bp,nazad
mov cx,11
mov dh,22d
mov dl,32d
mov bx,001bh
int 10h
endm
main:
init: push es
      push ds
      mov ax,3509h            ; принимаем аддрес обработчика int 9
      int 21h
      mov word ptr [oldint9+2],es ; сохраняем аддрес
      mov word ptr [oldint9],bx
      mov ax,2509h
      mov dx,offset int9
      int 21h          ; устанавливаем свой обработчик
      pop ds
      pop es
      jmp start
int9:   push ax
        push es
        xor ax,ax 
        mov es,ax
        mov al,es:0417h  ; берем байт статуса клавиатуры
     test al,08h  ; проверяем не нажат ли Alt
     jnz Zal 
     in al,60h
     cmp al,01h ;сравниваем со скан кодом ESC
     je yes
     jmp no
yes: mov ax,20h ; разблокируем клавиатуру
     out 20h,al
     mov ax,4c00h
     int 21h
     jmp dword ptr cs:[oldint9]      
Zal: in al,60h ; принимаем скан-код с клавиатуры
     cmp al,2Eh ; сравниваем со скан кодом C
     jne Zkl
     call Cflag ;
     jmp Ras
Zkl: cmp al,2Ch ;    сравниваем со скан кодом Z
     jne Skl
     call Zflag
     jmp Ras
Skl: cmp al,1Fh ;сравниваем со скан кодом S
     jne Okl
     call Sflag 
     jmp Ras
Okl: cmp al,18h  ;сравниваем со скан кодом O
     jne Pkl
     call Oflag
     jmp Ras
Pkl: cmp al,19h  ;сравниваем со скан кодом P
     jne Akl
     call Pflag
     jmp Ras
Akl: cmp al,1Eh ;сравниваем со скан кодом A
     jne Ikl
     call Aflag
     jmp Ras
Ikl: cmp al,17h  ;сравниваем со скан кодом I
     jne Dkl
     call Iflag
     jmp Ras
Dkl: cmp al,20h  ;сравниваем со скан кодом D
     jne Rkl
     call Dflag  
     jmp Ras
Rkl: cmp al,13h
     jne Tkl
     call fl
     jmp Ras
Tkl: cmp al,14h
     jne Ras
     call Tflag  
Ras:  mov ax,20h ; разблокируем клавиатуру
      out 20h,al
      pop es ; восстанавливаем регистры
      pop ax
    jmp dword ptr cs:[oldint9] ; передаем управление старому обработчику
no: pop es ; восстанавливаем регистры
    pop ax
    jmp dword ptr cs:[oldint9] ; передаем управление старому обработчику
 
;--------------------------------------------------------------------------------     
start: mov ax,0202h
   push ax
   popf
   pushf
   mov ax,3
   int 10h
   mov cx,0
   mov dl,79d
   mov dh,24d
   mov ax,0600h
   mov bh,10h
   int 10h
   mov cx,0
   mov dl,60d
   mov dh,16d
   mov ax,0600h
   mov bh,30h
   int 10h
   mov ah,13h
   lea bp,X1
   mov cx,80d
   mov dh,17d
   mov dl,0
   xor bh,bh
   mov al,0
   mov bl,17h
   int 10h
   ;-------------
   mov ah,13h
   lea bp,X4
   mov cx,19d
   mov dh,1
   mov dl,61d
   mov bx,0017h
   mov al,0
   int 10h
   ;-----vert polosa-------
   mov si,14d
   mov dh,2
@1:mov ah,13h
   xor bh,bh
   mov al,0
   mov bl,17h
   lea bp,X2
   mov cx,1
   mov dl,61d
   push dx
   int 10h
   pop dx
   dec si
   inc dh
   cmp si,0
   jne @1
 ;---------------------
  mov si,14d
   mov dh,2
@4:mov ah,13h
   xor bh,bh
   mov al,0
   mov bl,17h
   lea bp,X2
   mov cx,1
   mov dl,79d
   push dx
   int 10h
   pop dx
   dec si
   inc dh
   cmp si,0
   jne @4
 ;----------------------
   mov si,6d
   mov dh,18d
@2:mov ah,13h
   xor bh,bh
   mov al,0
   mov bl,17h
   lea bp,X2
   mov cx,1
   mov dl,0
   push dx
   int 10h
   pop dx
   dec si
   inc dh
   cmp si,0
   jne @2 
 ;---------------------
   mov si,6d
   mov dh,18d
@3:mov ah,13h
   xor bh,bh
   mov al,0
   mov bl,17h
   lea bp,X2
   mov cx,1
   mov dl,79d
   push dx
   int 10h
   pop dx
   dec si
   inc dh
   cmp si,0
   jne @3
 ;---------------------
   mov ax,1300h
   mov bx,0017h
   lea bp,X3
   mov cx,80d
   mov dh,24d
   mov dl,0
   int 10h
;-------------------------
   mov si,15d
   mov dh,1
@5:mov ah,13h
   xor bh,bh
   mov al,0
   mov bl,37h
   lea bp,X2
   mov cx,1
   mov dl,0
   push dx
   int 10h
   pop dx
   dec si
   inc dh
   cmp si,0
   jne @5
;------------------------- 
   mov ax,1300h
   lea bp,X5
   mov cx,61d
   mov dx,00h
   xor bh,bh
   mov bl,37h
   int 10h
   ;------------------------
   mov si,14d
   mov dh,1
@6:mov ah,13h
   xor bh,bh
   mov al,0
   mov bl,37h
   lea bp,X2
   mov cx,1
   mov dl,60d
   push dx
   int 10h
   pop dx
   dec si
   inc dh
   cmp si,0
   jne @6
 ;-------------------------
   mov  ax,1300h
   lea bp,X6
   mov cx,61d
   mov dh,15d
   mov dl,0
   xor bh,bh
   mov bl,37h
   int 10h
;------------------------- 
   mov ax,1300h
   lea bp,X7
   mov cx,19d
   mov dh,15d
   mov dl,61d
   xor bh,bh
   mov bl,17h
   int 10h
;-------------------------------
   mov ax,1300h
   lea bp,X8
   mov cx,17d
   mov dh,9
   mov dl,62d
   xor bh,bh
   mov bl,17h
   int 10h   
;-------narisoval---------------
;-------------------------------
    mov ah,13h
    lea bp,flags
    mov al,0
    mov dh,1
    mov dl,64d
    mov bh,0
    mov bl,1Eh
    mov cx,97d
    int 10h
    mov ax,1300h
    mov cx,7
    lea bp,AAX
    mov dh,10d
    mov dl,63d
    mov bx,001Eh
    int 10h
    mov ax,1300h
    mov cx,7
    lea bp,BBX
    mov dh,12d
    mov dl,63d
    mov bx,001eh
    int 10h
;-----------FLAGI-------------------    
call fl 
;-----------END FLAGI-----------
;-----------1 operand--------------------   
A1: mov ah,06h
    mov ch,1
    mov cl,2
    mov dh,1
    mov dl,58d
    mov al,1
    mov bh,30h
    int 10h     ; Очистка строки
    mov ah,2
    xor bh,bh
    mov dh,1
    mov dl,2
    int 10h
lea dx, op1
mov ah,9
int 21h
lea dx,oper
mov ah,0ah
int 21h
lea si,oper+2
call operand
cmp cx,1
je A1
push ax
lea si,AAX
call     hex2ascii 
mov ax,1300h
mov cx,7
lea bp,AAX
mov dh,10d
mov dl,63d
mov bx,001Eh
int 10h
;----------2 operand----
 A2:mov ah,06h
    mov ch,2
    mov cl,2
    mov dh,2
    mov dl,58d
    mov al,1
    mov bh,30h
    int 10h     ; Очистка строки
    mov ah,2
    xor bh,bh
    mov dh,2
    mov dl,2
    int 10h
lea dx,op2
mov ah,9
int 21h
lea dx,oper
mov ah,0ah
int 21h
lea si,oper+2
call operand
cmp cx,1
je A2
push ax
lea si,BBX
call hex2ascii 
    mov ax,1300h
    mov cx,7
    lea bp,BBX
    mov dh,12d
    mov dl,63d
    mov bx,001eh
    int 10h
;---------mnemonika---------
B0: mov ah,06h
    mov ch,3
    mov cl,2
    mov dh,3
    mov dl,58d
    mov al,1
    mov bh,30h
    int 10h     ; Очистка строки
    mov ah,2
    xor bh,bh
    mov dh,3
    mov dl,2
    int 10h
 lea dx,entm
mov ah,9
int 21h
lea dx,mnem
mov ah,0ah
int 21h
lea si,mnem+1 ; адресс введенного операнда
lea di,tabl
push di
B1: inc si
inc di
cmp di,offset [tabl+169d]
ja B3
mov al,byte ptr [si]
cmp al,0Dh
je B2
cmp al,[di]
je B1
lea si,mnem+1
pop di
add di,8
push di
jmp B1
B2:pop ax
 cmp byte ptr [di],' '
je exitmn
B3:call erorp
mov ax,1300h
lea bp,erorm
mov cx,58d
mov dh,6
mov dl,20d
mov bh,0
mov bl,0cfh
int 10h
    mov ah,0
    int 16h
    mov ah,06
    mov ch,5
    mov cl,18d
    mov dh,9
    mov dl,46d
    mov al,0
    mov bh,30h
    int 10h
jmp B0
exitmn: inc di
cmp byte ptr [di],' '
je exitmn
cmp di,offset [tabl+105d]
jbe vseok
pop bx
push bx
cmp bh,0
je vseokcl
call erorp
mov ax,1300h
lea bp,erors
mov cx,54d
mov dh,6
mov dl,20d
mov bh,0
mov bl,0cfh
int 10h
    mov ah,0
    int 16h
    mov ah,06
    mov ch,5
    mov cl,18d
    mov dh,9
    mov dl,46d
    mov al,0
    mov bh,30h
    int 10h
    pop bx
    jmp A2
; DI = адрес начала опкода
vseokcl:lea si,CCl
pop ax
push ax
 mov bx,ax
   shr al,4
   cmp al,9
   jbe cif10
   add al,7
cif10:add al,'0'
   mov byte ptr [si+3],al
   mov ax,bx
   and al,0Fh
   cmp al,9
   jbe cif20
   add al,7
cif20:add al,'0'
   mov byte ptr [si+4],al
mov ax,1300h
mov cx,7
lea bp,CCl
mov dh,12d
mov dl,63d
mov bx,001Eh
int 10h
vseok: mov dx,word ptr [di]
mov word ptr[opcod],dx
; Сдесь можно вствить вывод команды
sub di,5
cmp byte ptr [di],90h
jne V
inc di
V:mov ax,word ptr [di]
mov si,di
add si,2
lea di,komand
XY:mov cx,0ffffh
repne scasw
push ax
mov ax,word ptr [si]
cmp ax,word ptr [di]
je vivod
pop ax
jmp XY
vivod: 
pop ax
sub di,2
push di
cm:cmp byte ptr [di],'$'
je mc
inc di
jmp cm
mc:pop si
sub di,si
mov cx,di
mov ax,1300h
mov bp,si
mov dh,14d
mov dl,63d
mov bx,001Eh
int 10h
   
xor dx,dx
pop bx
pop ax
mov cx,bx
popf
opcod:nop
nop
nop
pushf
push ax
cmp dx,0
je VA
mov ax,dx
lea si,DDX
call hex2ascii
mov ax,1300h
mov cx,7
lea bp,DDX
mov dh,10d
mov dl,71d
mov bx,001Eh
int 10h
VA:pop ax
lea si,AAX
call     hex2ascii 
mov ax,1300h
mov cx,7
lea bp,AAX
mov dh,10d
mov dl,63d
mov bx,001Eh
int 10h
popf        ; сдесь начинается работа с флагами
pushf
jnc Zfl
mov ax,1300h
mov cx,1
lea bp,flag
mov dh,1
mov dl,69d
mov bx,001Fh
int 10h
Zfl:popf
pushf
jnz Sfl
mov ax,1300h
mov cx,1
lea bp,flag
mov dh,2
mov dl,69d
mov bx,001Fh
int 10h
Sfl:popf
pushf
jns Ofl
mov ax,1300h
mov cx,1
lea bp,flag
mov dh,3
mov dl,69d
mov bx,001Fh
int 10h
Ofl:popf
pushf
jno Pfl
mov ax,1300h
mov cx,1
lea bp,flag
mov dh,4
mov dl,69d
mov bx,001Fh
int 10h
Pfl:popf
pushf
jnp Afl
mov ax,1300h
mov cx,1
lea bp,flag
mov dh,5
mov dl,69d
mov bx,001Fh
int 10h
Afl:popf
pushf
lahf
test ah,10h
jz vihod
mov ax,1300h
mov cx,1
lea bp,flag
mov dh,6
mov dl,69d
mov bx,001Fh
int 10h
 
;--------THE END-------------------
vihod:  mov ax,1301h
mov cx,41d
lea bp,exmsg
mov dh,14d
mov dl,3d
mov bx,003Fh
int 10h
   mov ah,08h
   int 21h
   cmp al,'r'
   jne msg1
   jmp start
msg1:vi macro
   mov ch,14d
   mov cl,3
   mov dl,50d
   mov dh,14d
   mov ax,0600h
   mov bh,30h
   int 10h
   endm
   vi
   mov ax,1301h
mov cx,17d
lea bp,exmsg1
mov dh,14d
mov dl,3d
mov bx,003Fh
int 10h 
mov ah,08h
   int 21h
   cmp al,'r'
   jne msg2
   jmp start
msg2:vi 
 mov ax,1301h
mov cx,35d
lea bp,exmsg2
mov dh,14d
mov dl,3d
mov bx,003Fh
int 10h 
mov ah,08h
   int 21h
   cmp al,'r'
   jne msg3
   jmp start 
msg3: vi
 mov ax,1301h
mov cx,19d
lea bp,exmsg3
mov dh,14d
mov dl,3d
mov bx,003Fh
int 10h 
mov ah,08h
   int 21h
   cmp al,'r'
   jne msg4
   jmp start 
msg4:vi
  mov ax,1301h
mov cx,19d
lea bp,exmsg4
mov dh,14d
mov dl,3d
mov bx,003Fh
int 10h 
mov ah,08h
   int 21h
   cmp al,'r'
   jne msg5
   jmp start 
msg5: vi
 mov ax,1301h
mov cx,25d
lea bp,exmsg5
mov dh,14d
mov dl,3d
mov bx,003Fh
int 10h 
mov ah,08h
   int 21h
   cmp al,'r'
   jne msg6
   jmp start  
msg6: vi
 mov ax,1301h
mov cx,18d
lea bp,exmsg6
mov dh,14d
mov dl,3d
mov bx,003Fh
int 10h 
mov ah,08h
   int 21h
   cmp al,'r'
   jne msg7
   jmp start 
msg7: vi
 mov ax,1301h
mov cx,26d
lea bp,exmsg7
mov dh,14d
mov dl,3d
mov bx,003Fh
int 10h 
mov ah,08h
   int 21h
   cmp al,'r'
   jne msg8
   jmp start 
msg8: vi
 mov ax,1301h
mov cx,22
lea bp,exmsg8
mov dh,14d
mov dl,3d
mov bx,003Fh
int 10h 
mov ah,08h
   int 21h
   cmp al,'r'
   jne msg9
   jmp start 
msg9:vi
  mov ax,1301h
mov cx,11d
lea bp,exmsg9
mov dh,14d
mov dl,3d
mov bx,003Fh
int 10h 
mov ah,00h
   int 16h
mov ax,4c00h
int 21h   
;-----------operand proc---------
operand proc
;вход SI=адрес операнда
;выход AX=operand
xor ax,ax
xor bx,bx
mov cx,10d
@@:mov bl,byte ptr [si]
cmp bl,0dh
je ex
cmp bl,'-'
jne @a
xor di,di
mov di,1
inc si
mov bl,byte ptr [si]
@a:cmp bl,'0'
jb er
cmp bl,'9'
ja er
sub bl,'0'
mul cx
cmp dx,0
jne er1
add ax,bx
jc er1
inc si
jmp @@
ex: cmp di,1
    jne re
    test ah,80h
    jnz er1
    neg ax
re: ret
er: call erorp
;------------------
    mov ah,13h
    lea bp,error
    mov cx,21d
    mov dh,7
    mov dl,22
    mov bh,0
    mov bl,0cFh
    mov al,0
    int 10h
    mov ah,0
    int 16h
    mov ah,06
    mov ch,5
    mov cl,18d
    mov dh,9
    mov dl,46d
    mov al,0
    mov bh,30h
    int 10h
    mov cx,1
    ret
er1:call erorp
    mov ax,1300h
    lea bp,eror
    mov cx,61d
    mov dh,6
    mov dl,20d
    mov bh,0
    mov bl,0cfh
    int 10h
    mov ah,0
    int 16h
    mov ah,06
    mov ch,5
    mov cl,18d
    mov dh,9
    mov dl,46d
    mov al,0
    mov bh,30h
    int 10h
    mov cx,1
    ret
operand endp
erorp proc
    mov ah,06
    mov ch,5
    mov cl,18d
    mov dh,9
    mov dl,46d
    mov al,0
    mov bh,0c0h
    int 10h
    mov ax,1300h
    lea bp,qer
    mov cx,38d
    mov dh,5
    mov dl,18d
    mov bh,0
    mov bl,0CFh
    int 10h
    mov ax,1300h
    lea bp,qer1
    mov cx,38d
    mov dh,6
    mov dl,18d
    mov bh,0
    mov bl,0CFh
    int 10h
    ret
erorp endp  
hex2ascii proc
   mov bx,ax
   shr ah,4
   cmp ah,9
   jbe cif1
   add ah,7
cif1:add ah,'0'
   mov byte ptr [si+3],ah
   mov ax,bx
   and ah,0Fh
   cmp ah,9
   jbe cif2
   add ah,7
cif2:add ah,'0'
   mov byte ptr [si+4],ah
   shr al,4
   cmp al,9
   jbe cif3
   add al,7
cif3:add al,'0'
   mov byte ptr [si+5],al
   mov ax,bx
   and al,0Fh
   cmp al,9
   jbe cif4
   add al,7
cif4:add al,'0'
   mov byte ptr [si+6],al
   ret
hex2ascii endp
Cflag proc
push ax
push es
mov ax,cs
mov es,ax
spr 
mov ax,1300h
    mov cx,350d
    lea bp,CF
    mov dh,18d
    mov dl,3d
    mov bx,001eh
    int 10h
naz 
pop es
pop ax  
ret
Cflag endp
Zflag proc
push ax
push es
mov ax,cs
mov es,ax
spr 
mov ax,1300h
    lea cx,SF
    sub cx,offset ZF
    lea bp,ZF
    mov dh,18d
    mov dl,3d
    mov bx,001eh
    int 10h
naz 
pop es
pop ax  
ret
Zflag endp
Sflag proc
push ax
push es
mov ax,cs
mov es,ax
spr 
mov ax,1300h
    lea cx,OF
    sub cx,offset SF
    lea bp,SF
    mov dh,18d
    mov dl,3d
    mov bx,001eh
    int 10h
naz 
pop es
pop ax  
ret
Sflag endp
Oflag proc
push ax
push es
mov ax,cs
mov es,ax
spr 
mov ax,1300h
    lea cx,PF
    sub cx,offset OF
    lea bp,OF
    mov dh,18d
    mov dl,3d
    mov bx,001eh
    int 10h
naz 
pop es
pop ax  
ret
Oflag endp
Pflag proc
push ax
push es
mov ax,cs
mov es,ax
spr 
mov ax,1300h
    lea cx,AF
    sub cx,offset PF
    lea bp,PF
    mov dh,18d
    mov dl,3d
    mov bx,001eh
    int 10h
naz 
pop es
pop ax
ret
Pflag endp
Aflag proc
push ax
push es
mov ax,cs
mov es,ax
spr 
mov ax,1300h
    lea cx,IFl
    sub cx,offset AF
    lea bp,AF
    mov dh,18d
    mov dl,3d
    mov bx,001eh
    int 10h
naz 
pop es
pop ax
ret
Aflag endp
Iflag proc
push ax
push es
mov ax,cs
mov es,ax
spr 
mov ax,1300h
    lea cx,DFl
    sub cx,offset IFl
    lea bp,IFl
    mov dh,18d
    mov dl,3d
    mov bx,001eh
    int 10h
naz 
pop es
pop ax
ret
Iflag endp
Dflag proc
push ds
push ax
push es
mov ax,cs
mov es,ax
spr 
mov ax,1300h
    lea cx,TF
    sub cx,offset DFl
    lea bp,DFl
    mov dh,18d
    mov dl,3d
    mov bx,001eh
    int 10h
naz 
pop es
pop ax
pop ds
ret
Dflag endp
Tflag proc
push ds
push ax
push es
mov ax,cs
mov es,ax
spr 
mov ax,1300h
    lea cx,Press
    sub cx,offset TF
    lea bp,TF
    mov dh,18d
    mov dl,3d
    mov bx,001eh
    int 10h
naz 
pop es
pop ax
pop ds
ret
endp
fl proc
push ds
push es
push ax 
mov ax,cs
mov es,ax 
mov ds,ax
spr  
    mov ax,1300h
    mov cx,262d
    lea bp,flagi
    mov dh,18d
    mov dl,3d
    mov bx,001eh
    int 10h
    mov ax,1300h
    mov cx,56d
    lea bp,Opfl1
    mov dh,18d
    mov dl,8d
    mov bx,001Fh
    int 10h
    mov ax,1300h
    mov cx,79d
    lea bp,Opfl2
    mov dh,18d
    mov dl,32d
    mov bx,001Fh
    int 10h
    mov ax,1300h
    mov cx,64d
    lea bp,Opfl3
    mov dh,18d
    mov dl,56d
    mov bx,001Fh
    int 10h
    mov ax,1300h
    mov cx,17d
    lea bp,Optf
    mov dh,20d
    mov dl,51d
    mov bx,001Ch
    int 10h
    mov ax,1300h
    mov cx,34d
    lea bp,spravka
    mov dh,22d
    mov dl,22d
    mov bx,001bh
    int 10h 
mov ax,1300h
lea bp,Press
mov dh,24d
mov dl,30d
mov bx,001ch
mov cx,17d
int 10h 
pop ax
pop es
pop ds
ret
endp
end main

@~~IrineK~~ · 20.03.2013, 01:15

KINS: символами сердечек по периметру окна)....

В данном случае не окна, а именно консоли )

C

#include <stdio.h>
#include <windows.h>
 
void SetHeart(HDC hDC,int x, int y, COLORREF crC)
{   int i,j;
    SetPixel(hDC,x+2,y,crC);
    SetPixel(hDC,x+6,y,crC);    
        for(j=1;j<4;j++)
            SetPixel(hDC,x+j,y+1,crC);  
        for(j=5;j<8;j++)
            SetPixel(hDC,x+j,y+1,crC);
        for(j=0;j<8;j++)
            SetPixel(hDC,x+j,y+2,crC);
    for(i=3;i<8;i++)
        for(j=i-3;j<12-i;j++)
            SetPixel(hDC,x+j,y+i,crC);
}
 
int main()
{   HWND hWND=GetConsoleWindow();
    HDC hDC = GetDC(hWND); 
if(hDC)
{   HBRUSH b = CreateSolidBrush(0xFFFF99);  
    int x = GetSystemMetrics(SM_CXSCREEN);
    int y = GetSystemMetrics(SM_CYSCREEN);
    RECT Rect;
    GetClientRect(hWND,&Rect);
    FillRect(hDC, &Rect, b);
    int i, j;
 
    for(i=0;i<Rect.right-20;i+=15)
        for(j=5;j<Rect.bottom;j+=Rect.bottom-15)
            SetHeart(hDC,i+10,j,0xFF00FF);
 
    for(i=0;i<Rect.right;i+=Rect.right-20)
        for(j=15;j<Rect.bottom-15;j+=15)
            SetHeart(hDC,i+10,j,0xFF00FF);
        
    DeleteObject(b);
    DeleteDC(hDC);
}
    getchar();
 
    return 0;
}

@гендальф · 20.03.2013, 09:37 **[ТС]**

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

KINS: символами сердечек по периметру окна)....

В данном случае не окна, а именно консоли )

C

#include <stdio.h>
#include <windows.h>
 
void SetHeart(HDC hDC,int x, int y, COLORREF crC)
{   int i,j;
    SetPixel(hDC,x+2,y,crC);
    SetPixel(hDC,x+6,y,crC);    
        for(j=1;j<4;j++)
            SetPixel(hDC,x+j,y+1,crC);  
        for(j=5;j<8;j++)
            SetPixel(hDC,x+j,y+1,crC);
        for(j=0;j<8;j++)
            SetPixel(hDC,x+j,y+2,crC);
    for(i=3;i<8;i++)
        for(j=i-3;j<12-i;j++)
            SetPixel(hDC,x+j,y+i,crC);
}
 
int main()
{   HWND hWND=GetConsoleWindow();
    HDC hDC = GetDC(hWND); 
if(hDC)
{   HBRUSH b = CreateSolidBrush(0xFFFF99);  
    int x = GetSystemMetrics(SM_CXSCREEN);
    int y = GetSystemMetrics(SM_CYSCREEN);
    RECT Rect;
    GetClientRect(hWND,&Rect);
    FillRect(hDC, &Rect, b);
    int i, j;
 
    for(i=0;i<Rect.right-20;i+=15)
        for(j=5;j<Rect.bottom;j+=Rect.bottom-15)
            SetHeart(hDC,i+10,j,0xFF00FF);
 
    for(i=0;i<Rect.right;i+=Rect.right-20)
        for(j=15;j<Rect.bottom-15;j+=15)
            SetHeart(hDC,i+10,j,0xFF00FF);
        
    DeleteObject(b);
    DeleteDC(hDC);
}
    getchar();
 
    return 0;
}

а почему у меня только сердечки появляются а моя прога не появляется???????

@~~IrineK~~ · 20.03.2013, 09:47

Мои сердечки с вашей прогой не знакомы

@гендальф · 21.03.2013, 18:54 **[ТС]**

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

Мои сердечки с вашей прогой не знакомы

ну а как сделать чтобы они были знакомы??????

@~~IrineK~~ · 22.03.2013, 01:06

Если преп сердечки не оценит ), то тогда нужно будет написать графическую часть, используя WinAPI. Логика игры при этом сохранится.

@гендальф · 22.03.2013, 13:07 **[ТС]**

Ну а просто цвет фона и текста поменять можно???? Если да то как это сделать????

@гендальф 0 / 0 / 0 Регистрация: 03.01.2013 Сообщений: 36
		1
	Как украсить консольное приложение Win32? 15.03.2013, 20:52. Показов 3145. Ответов 15 Метки нет (Все метки) Мне надо "украсить" консольную программу Win32, но как я не знаю!!! Подскажите пожалуйста!!!! 0

@Kins 59 / 58 / 7 Регистрация: 03.02.2013 Сообщений: 167
	15.03.2013, 20:58	2
	символами сердечек по периметру окна) 1

Croessmah Неэпический 18106 / 10693 / 2062 Регистрация: 27.09.2012 Сообщений: 26,918 Записей в блоге: 1
	15.03.2013, 20:59	3
	Я так понял в продолжение этому: Работа с курсовиком! 0

@Kastaneda 5232 / 3204 / 362 Регистрация: 12.12.2009 Сообщений: 8,143 Записей в блоге: 2
	15.03.2013, 21:56	4
	Украсить можно как угодно, например так Вложение 24562 Не по теме: Модераторы, аттач взят из моего древнего поста, как его можно вставить так, чтоб отображалось изображение, а не ссылка не него? 0

@Avazart 8482 / 6149 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	16.03.2013, 00:07	5
	Сообщение от Kastaneda Модераторы, аттач взят из моего древнего поста, как его можно вставить так, чтоб отображалось изображение, а не ссылка не него? Да такой возможности не хватает, а заново переливать как то нехорошо... 0

@Pepsy 47 / 32 / 9 Регистрация: 05.01.2013 Сообщений: 307
	16.03.2013, 00:29	6
	Сообщение от Kastaneda Украсить можно как угодно, например так Вложение 24562 Кинь ссылку, как так сделать оформление? 0

@гендальф 0 / 0 / 0 Регистрация: 03.01.2013 Сообщений: 36
	16.03.2013, 19:40 [ТС]	7
	Сообщение от Pepsy Кинь ссылку, как так сделать оформление? да скажи пожалуйста как так сделать??? Добавлено через 1 минуту Сообщение от Croessmah Я так понял в продолжение этому: Работа с курсовиком! да ты прав!!! программу я написал а вот препод сказал её украсить как-то!!!!! 0

@Kastaneda 5232 / 3204 / 362 Регистрация: 12.12.2009 Сообщений: 8,143 Записей в блоге: 2
	16.03.2013, 20:57	8
	Сообщение от Pepsy Кинь ссылку, как так сделать оформление? Сообщение от гендальф да скажи пожалуйста как так сделать??? Конкретно то, что на скрине, писалось на ассемблере при помощи прерываний DOS (код). Но можно сделать тоже самое при помощи WinAPI http://msdn.microsoft.com/ru-R... s.85).aspx Добавлено через 4 минуты а не, там по ссылке не код, а исполняемый файл. Если очень надо, могу код дать, он у меня до сих пор хранится 0

@гендальф 0 / 0 / 0 Регистрация: 03.01.2013 Сообщений: 36
	19.03.2013, 19:18 [ТС]	9
	Сообщение от Kastaneda Конкретно то, что на скрине, писалось на ассемблере при помощи прерываний DOS (код). Но можно сделать тоже самое при помощи WinAPI http://msdn.microsoft.com/ru-R... s.85).aspx Добавлено через 4 минуты а не, там по ссылке не код, а исполняемый файл. Если очень надо, могу код дать, он у меня до сих пор хранится Если не сложно скинь пожалуйста!!!!!! 0

@~~IrineK~~ Заблокирован
	20.03.2013, 09:47	13
	Мои сердечки с вашей прогой не знакомы 1

	22.03.2013, 13:07

@гендальф 0 / 0 / 0 Регистрация: 03.01.2013 Сообщений: 36
	21.03.2013, 18:54 [ТС]	14
	Сообщение от IrineK Мои сердечки с вашей прогой не знакомы ну а как сделать чтобы они были знакомы?????? 0

@~~IrineK~~ Заблокирован
	22.03.2013, 01:06	15
	Если преп сердечки не оценит ), то тогда нужно будет написать графическую часть, используя WinAPI. Логика игры при этом сохранится. 0

@гендальф 0 / 0 / 0 Регистрация: 03.01.2013 Сообщений: 36
	22.03.2013, 13:07 [ТС]	16
	Ну а просто цвет фона и текста поменять можно???? Если да то как это сделать???? 0