Изменение цвета заднего фона

@BQ 201 · Регистрация: 13.11.2017

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

Здравствуйте, очень нужна помощь по коду, сам разобраться я не могу и уже время поджимает.
А нужно изменить код так, что бы: цвет фона был синим, цвет символов бедый, позиция содержимого 30, 5, событие-клавиша F4.
Очень благодарен за вашу помощь.

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
.386                    
.model flat, stdcall            
option casemap :none                            
include D:\masm32\include\windows.inc   
include <\masm32\include\kernel32.inc>
include <\masm32\include\user32.inc>
includelib <\masm32\lib\kernel32.lib>
includelib <\masm32\lib\user32.lib>
include \masm32\include\masm32rt.inc
atoi PROTO C strptr:DWORD
.data 
   msg1 db "1 chislo: ", 0 
   msg2 db "2 chislo: ", 0
   ConsoleTitle db 'Lb4',0
formatStr db "Proizvedenie: %s*%s=%d", 0
.data? 
   buffer1 dw 100 dup(?)
   buffer2 dw 100 dup(?)
   buffer3 dw 100 dup(?)
   buf db 100 dup (?)
   lens db ?
.code 
start proc
   LOCAL hOutPut :DWORD
   LOCAL hInPut :DWORD
   LOCAL txtAtrib :DWORD
   call FreeConsole
   call AllocConsole
   invoke SetConsoleTitle, offset ConsoleTitle
   invoke GetStdHandle, STD_OUTPUT_HANDLE
   mov hOutPut, eax
   invoke GetStdHandle, STD_INPUT_HANDLE
   mov hInPut, eax
   mov EAX, 4h
   add EAX, 0h
mov txtAtrib, eax
   invoke SetConsoleTextAttribute, hOutPut, txtAtrib
   invoke SetConsoleCursorPosition, hOutPut, 655400
   push hOutPut
   lea eax, msg1
   push eax
   call StdOut
   push hInPut
   push 100
   lea eax, buffer1
   push eax
   call StdIn
   invoke SetConsoleCursorPosition, hOutPut, 655415
   push hOutPut
   lea eax, msg2
   push eax
   call StdOut
   push hInPut
   push 100
lea eax, buffer2
   push eax
   call StdIn
   ;invoke StdIn, offset buffer2, 100, hInPut
   invoke atoi, offset buffer1
   mov ebx,eax
   invoke atoi, offset buffer2
   imul eax,ebx
   invoke wsprintf, offset buffer3, offset formatStr, offset buffer1, offset buffer2, eax
   invoke SetConsoleCursorPosition, hOutPut, 655430
   push hOutPut
   lea eax,buffer3
push eax
   call StdOut
WaitForCaps:
   invoke  GetAsyncKeyState, 12
   and     eax,    8000h
   jz      WaitForCaps
   invoke ExitProcess, NULL
start endp
end start
StdIn proc Buffer:DWORD,bLen:DWORD, InPut:DWORD
   LOCAL bRead  :DWORD
   invoke ReadFile,Input,Buffer,bLen,ADDR bRead,NULL
   mov eax, bRead
   ret
 
StdIn endp
StdOut proc Text:DWORD, OutPut:DWORD
    LOCAL bWritten :DWORD
    LOCAL sl       :DWORD
    invoke StrLen,Text
    mov sl, eax
    invoke WriteFile,OutPut,Text,sl,ADDR bWritten,NULL
    mov eax, bWritten
    ret              
StdOut endp

ФедосеевПавел · 19.12.2018, 21:46

F4 - возьмите соответствующий код виртуальной клавиши
https://docs.microsoft.com/en-... nckeystate
https://docs.microsoft.com/ru-... -key-codes

Цвет.
Смотрите https://docs.microsoft.com/en-... en-buffers
BACKGROUND_BLUE - в атрибуте это синий цвет фона.
Как-то для FreePascal набирал константы к этой WinAPI

Pascal
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
const
  {цвет символов}
  textBlack = 0;                                                              {0}
  textBlue = FOREGROUND_BLUE;                                                 {1}
  textGreen = FOREGROUND_GREEN;                                               {2}
  textCyan = FOREGROUND_BLUE or FOREGROUND_GREEN;                             {3}
  textRed = FOREGROUND_RED;                                                   {4}
  textMagenta = FOREGROUND_BLUE or FOREGROUND_RED;                            {5}
  textBrown = FOREGROUND_GREEN or FOREGROUND_RED;                             {6}
  textLightGray = FOREGROUND_BLUE or FOREGROUND_GREEN or FOREGROUND_INTENSITY;{7}
  textDarkGray = textBlack or FOREGROUND_INTENSITY;                           {8}
  textLightBlue = textBlue or FOREGROUND_INTENSITY;                           {9}
  textLightGreen = textGreen or FOREGROUND_INTENSITY;                         {10}
  textLightCyan = textCyan or FOREGROUND_INTENSITY;                           {11}
  textLightRed = textRed or FOREGROUND_INTENSITY;                             {12}
  textLightMagenta = textMagenta or FOREGROUND_INTENSITY;                     {13}
  textYellow = FOREGROUND_GREEN or FOREGROUND_RED or FOREGROUND_INTENSITY;    {14}
  textWhite = textDarkGray or FOREGROUND_INTENSITY;                           {15}
  {цвет фона символов}
  bgBlack = 0;                                       {0}
  bgBlue = BACKGROUND_BLUE;                          {1}
  bgGreen = BACKGROUND_GREEN;                        {2}
  bgCyan = BACKGROUND_BLUE or BACKGROUND_GREEN;      {3}
  bgRed = BACKGROUND_RED;                            {4}
  bgMagenta = BACKGROUND_BLUE or BACKGROUND_RED;     {5}
  bgBrown = BACKGROUND_GREEN or BACKGROUND_RED;      {6}
  bgLightGray = BACKGROUND_BLUE or BACKGROUND_GREEN or BACKGROUND_INTENSITY;{7}
  bgDarkGray = bgBlack or BACKGROUND_INTENSITY;      {8}
  bgLightBlue = bgBlue or BACKGROUND_INTENSITY;      {9}
  bgLightGreen = bgGreen or BACKGROUND_INTENSITY;    {10}
  bgLightCyan = bgCyan or BACKGROUND_INTENSITY;      {11}
  bgLightRed = bgRed or BACKGROUND_INTENSITY;        {12}
  bgLightMagenta = bgMagenta or BACKGROUND_INTENSITY;{13}
  bgYellow = BACKGROUND_GREEN or BACKGROUND_RED or BACKGROUND_INTENSITY;{14}
  bgWhite = bgDarkGray or BACKGROUND_INTENSITY;      {15}

Разбирайтесь.

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

Изменение цвета заднего фона

Решение