Виведення тексту у вікні

Размещено на http://www.allbest.ru/

МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ

ЧЕРКАСЬКИЙ ДЕРЖАВНИЙ ТЕХНОЛОГІЧНИЙ УНІВЕРСИТЕТ

КАФЕДРА СИСТЕМНОГО ПРОГРАМУВАННЯ

Звіт

З лабораторної роботи №2

з дисципліни «Системне програмне забезпечення»

на тему: Виведення тексту у вікні

Перевірила:

Федотова-Півень І.М.

Виконав:

студент 3 курсу

групи КМ-115

Стрембіцький Р.Г.

Черкаси 2014



Тема роботи: Виведення тексту у вікні

Мета роботи: Розробити програму мовою асемблер під Windows в Masm32, що використовує функцію CreateFont для зображення тексту з різними параметрами.

Завдання

Змінити такі параметри шрифту в програмі:

· Times New Roman, Arial,

· підкреслений,

· закреслений,

· фон,

· колір.

Теоретичні відомості

Венгерська нотація - це система префіксів.

Префікс - це одна маленька буква або дві маленькі букви, з якої починається ім'я змінної.

Префікс вказує на тип даних змінної.

Таблиця 1 - Система префіксів

Префікси	Тип даних
c	CHAR (символ)
b, f	BOOL (Булеве ціле)
by	BYTE (беззнаковий символ)
n	SHORT (коротке ціле)
i	INT (ціле)
x,y	SHORT (ціле), (тип координат х,у)
cx,cy	SHORT (ціле), (довжина х,у)
w	WORD
l	LONG (довге ціле)
dw	DWORD (беззнакове довге ціле)
u	UNSIGNED
fn	функція
s	рядок
sz	рядок, що закінчується нулем
st	Pascal-рядок
h	Дескриптор(handll)
p	вказівник
lp	довгий вказівник
np	короткий вказівник



Лістинг програми

386

.model flat,stdcall

option casemap:none

WinMain proto :DWORD,:DWORD,:DWORD,:DWORD

include \masm32\include\windows.inc

include \masm32\include\user32.inc

include \masm32\include\kernel32.inc

include \masm32\include\gdi32.inc

includelib \masm32\lib\user32.lib

includelib \masm32\lib\kernel32.lib

includelib \masm32\lib\gdi32.lib

RGB macro red,green,blue

xor eax,eax

mov ah,blue

shl eax,8

mov ah,green

mov al,red

endm

.data

ClassName db "SimpleWinClass",0

AppName db "Заголовок",0

TestString db "Лабораторна №2",0

FontName db "arial",0

.data?

hInstance HINSTANCE ?

CommandLine LPSTR ?

.code

start:

invoke GetModuleHandle, NULL

mov hInstance,eax

invoke GetCommandLine

invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT

invoke ExitProcess,eax

WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD

LOCAL wc:WNDCLASSEX

LOCAL msg:MSG

LOCAL hwnd:HWND

mov wc.cbSize,SIZEOF WNDCLASSEX

mov wc.style, CS_HREDRAW or CS_VREDRAW

mov wc.lpfnWndProc, OFFSET WndProc

mov wc.cbClsExtra,NULL

mov wc.cbWndExtra,NULL

push hInst

pop wc.hInstance

mov wc.hbrBackground,COLOR_WINDOW+1

mov wc.lpszMenuName,NULL

mov wc.lpszClassName,OFFSET ClassName

invoke LoadIcon,NULL,IDI_APPLICATION

mov wc.hIcon,eax

mov wc.hIconSm,eax

invoke LoadCursor,NULL,IDC_ARROW

mov wc.hCursor,eax

invoke RegisterClassEx, addr wc

INVOKE CreateWindowEx,NULL,ADDR ClassName,ADDR AppName,\

WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,\

CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,NULL,NULL,\

hInst,NULL

mov hwnd,eax

INVOKE ShowWindow, hwnd,SW_SHOWNORMAL

INVOKE UpdateWindow, hwnd

.WHILE TRUE

INVOKE GetMessage, ADDR msg,NULL,0,0

.BREAK .IF (!eax)

INVOKE TranslateMessage, ADDR msg

INVOKE DispatchMessage, ADDR msg

.ENDW

mov eax,msg.wParam

ret

WinMain endp

WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM

LOCAL hdc:HDC

LOCAL ps:PAINTSTRUCT

LOCAL hfont:HFONT

.IF uMsg==WM_DESTROY

invoke PostQuitMessage,NULL

.ELSEIF uMsg==WM_PAINT

invoke BeginPaint,hWnd, ADDR ps

mov hdc,eax

invoke CreateFont,24,16,0,0,400,0,0,0,DEFAULT_CHARSET,\

OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,\

DEFAULT_QUALITY,DEFAULT_PITCH or FF_SCRIPT,\

ADDR FontName

invoke SelectObject, hdc, eax

mov hfont,eax

RGB 200,200,50

invoke SetTextColor,hdc,eax

RGB 0,0,255

invoke SetBkColor,hdc,eax

invoke TextOut,hdc,0,0,ADDR TestString,SIZEOF TestString

invoke SelectObject,hdc, hfont

invoke EndPaint,hWnd, ADDR ps

.ELSE

invoke DefWindowProc,hWnd,uMsg,wParam,lParam

ret

.ENDIF

xor eax,eax

ret

WndProc endp

end start



Результати виконання роботи

· Змінюємо шрифт тексту на "ARIAL"

FontName db "arial",0

invoke CreateFont,24,16,0,0,400,0,0,0,DEFAULT_CHARSET,\

OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,\

DEFAULT_QUALITY,DEFAULT_PITCH or FF_SCRIPT,\

ADDR FontName

· Змінюємо шрифт тексту на "Times New Roman"

FontName db "times_new_roman",0

· Змінюємо шрифт тексту на закреслений

invoke CreateFont,70,40,-120,-120,400,0,0,1,DEFAULT_CHARSET,\

· Змінюємо шрифт тексту на підкреслений

invoke CreateFont,70,40,-120,-120,400,0,1,0,DEFAULT_CHARSET,\

асемблер програма createfont

· Змінюємо фон шрифту тексту

RGB 200,200,50

invoke SetTextColor,hdc,eax

RGB 0,0,0

invoke SetBkColor,hdc,eax

· Змінюємо колір шрифту тексту

RGB 255,255,255

invoke SetTextColor,hdc,eax

RGB 0,0,0

invoke SetBkColor,hdc,eax

Висновок: На даній лабораторній роботі, я розробив програму мовою асемблер під Windows в Masm32, що використовує функцію CreateFont для зображення тексту з різними параметрами. Створена програма асемблер у віндовс у масм32 виводить текст на екран в різному оформленні. Функцією CreateFont змінюємо параметри шрифту на закреслений, підкреслений, стиль шрифту, фон.

Размещено на Allbest.ru