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

Львівський Державний Інститут Новітніх Технологій та Управління ім. В.Чорновола

Факультет інформаційних технологій

Звіт по Лабораторній роботі №5

«Дочірні вікна: їх утворення, взаємодія та графічний контекст»

з дисципліни

«Системне Програмування»

Виконав

Студент групи КІ-21

Денисюк В.В.

Перевірив

Зербіно Д.Д.

бал «____»

Львів-2010

Мета роботи: навчитись будувати ієрархічну структуру вікон та працювати з ними.

Порядок виконання роботи

1. Відкомпілювати та запустити подані програми.

2. Переробити першу програму таким чином, щоб вона мала три дочірніх вікна класу msctls_trackbar32, кожне з яких регулюватиме один з кольорів: червоний, зелений, синій.

3. Переробити програму так, щоб текст, який виводить значення кольору, виводився шрифтом “Comic Sans MS”. Створення гарнітури шрифту зробити перед створенням вікна.

4. Ввести в програму дочірнє вікно класу SysAnimate32 з стилем ACS_AUTOPLAY. Після створення вікна цього стилю надіслати йому повідомлення ACM_OPEN та ACM_PLAY. Формат повідомлень знайти в Win32.hlp.

5. Ввести в програму дочірнє вікно класу Edit з стилями ES_CENTER та ES_MULTILINE. За допомогою повідомлення EM_GETLINE переписати в буфер введену інформацію та вивести її за допомогою функції MessageBoxA. Для коректної роботи програми з вікном класу Edit в цикл прийому повідомлень вставити функцію TranslateMessage.

6. Створити в основній програмі таймер за допомогою функції SetTimer, який буде щосекунди надсилати повідомлення WM_TIMER у процедуру основного вікна. З приходом кожного такого повідомлення у процедурі вікна збільшувати змінну-лічильник і надсилати її текстове значення у дочірнє вікно класу Edit за допомогою повідомлення WM_SETTEXT.

Програма з методички №1 Текст програми

.386

.model flat,STDCALL

extrn InitCommonControls:Proc, GetModuleHandleA:Proc, ExitProcess:Proc

extrn CreateWindowExA:Proc, RegisterClassA:Proc, GetMessageA:Proc

extrn DispatchMessageA:Proc, DefWindowProcA:Proc, _wsprintfA:Proc

extrn GetDC:Proc, SelectObject:Proc, ReleaseDC:Proc, CreateSolidBrush:Proc

extrn Rectangle:Proc, TextOutA:Proc,SendMessageA:Proc, lstrlen:Proc

WS_CHILD EQU 40000000h

WS_POPUP EQU 80000000h

WS_VISIBLE EQU 010000000h

WS_DLGFRAME EQU 400000h

WM_KEYDOWN EQU 100h

TBS_TOP EQU 0004h

WM_NOTIFY EQU 4Eh

WM_HSCROLL EQU 114h

TBM_SETRANGE EQU 1030

;=====================================================

.data

WC dd 4003h,offset WndProc,5 dup(0),1,0,offset WndClassName

msg dd 0

msMESSAGE dd 0

msWPARAM dd 0,0,0,0,0

AppHWnd dd 0

MainHWnd dd 0

CHILD_CLASS_NAME db 'msctls_trackbar32',0

WndClassName db "ABBA",0

COLOR dd 0

Brush dd 0

HDC dd 0

TRACK_ID dd 0

TRACK_ID1 dd 0

FORMAT db 'Колiр = %X',0

PRINT_BUF db 20 dup(0)

;=======================================================

.code

Start: call GetModuleHandleA,0 ; отримати хендл програми для створення вікна;

mov AppHWnd,eax

call RegisterClassA,offset WC ; зареєструвати новий клас вікон;

call CreateWindowExA,0,eax,0,WS_POPUP or WS_VISIBLE or WS_DLGFRAME, 100,50,400,410,0,0,AppHWnd,0

mov MainHWnd,eax

call CreateWindowExA,0,offset CHILD_CLASS_NAME,0,WS_CHILD or WS_VISIBLE or TBS_TOP, 5,360,380,35,MainHWnd,0,AppHWnd,0

call SendMessageA,eax,TBM_SETRANGE,1,255*10000h

call CreateWindowExA,0,offset CHILD_CLASS_NAME,0,WS_CHILD or WS_VISIBLE or TBS_TOP, 5,320,380,35,MainHWnd,1,AppHWnd,0

call SendMessageA,eax,TBM_SETRANGE,1,255*10000h

;==========================================================

msg_loop: call GetMessageA,offset msg,MainHWnd,0,0

cmp msMESSAGE,WM_KEYDOWN ; Повідомлення клавіатури

jnz CONTINUE_LOOP

cmp msWPARAM,1bh ; якщо код <ESC>, то STOP

jz STOP

CONTINUE_LOOP:

Call DispatchMessageA,offset msg

Jmp msg_loop

STOP: call ExitProcess,0

;==========================================================

WndProc proc hwnd:DWORD, wmsg:DWORD, wparam:DWORD, lparam:DWORD

Cmp wmsg,WM_NOTIFY ; WM_NOTIFY надходить від кожного

Jnz NO_NOTIFY ; дочірнього вікна, при тому

Mov eax,wparam ; wparam містить ідентифікатор

Xchg eax,TRACK_ID1 ; дочірнього вікна від якого надійшло

Xchg eax,TRACK_ID ; повідомлення, який записуємо у TRACK_ID;

NO_NOTIFY: cmp wmsg,WM_HSCROLL ; WM_HSCROLL надходить від

Jnz NO_CHILD ; вікон типу “горизонтальний скролінг”

Mov eax,wparam ; молодша частина wparam – дія,

Shr eax,16 ; старша частина – позиція ковзуна;

Jz NO_CHILD ; якщо позиція = 0, то вийти з процедури;

Mov ebx,TRACK_ID ; TRACK_ID – поточний ідентифікатор, а

Cmp ebx,TRACK_ID1 ; TRACK_ID1 – попередній ідентифікатор

Jnz NO_CHILD ; дочірнього вікна, які повинні співпадати;

Add ebx,offset COLOR ; ідентифікатор використовується

Mov [ebx],al ; як індекс кольору;

Call CreateSolidBrush,COLOR ; створюється кисть заданого кольору

Mov Brush,eax ; записати хендл кисті;

PAINT1: Call GetDC, hwnd ; одержуємо графічний контекст

Mov HDC,eax ; вікна і зберігаємо його;

Call SelectObject,HDC,Brush ; змінюємо поточну кисть;

Call Rectangle,HDC,0,0,400,270 ; малюємо прямокутник

Call _wsprintfA, offset PRINT_BUF,offset FORMAT,COLOR

Add esp,4*3 ; необхідно лише для _wsprintfA;

Call lstrlen,offset PRINT_BUF ; отримуємо довжину рядка

Call TextOutA, HDC, 10, 250, offset PRINT_BUF, eax

Call ReleaseDC,hwnd,HDC ; звільняємо графічний контекст;

NO_CHILD: ; мітка виходу з процедури;

Call DefWindowProcA,hwnd,wmsg,wparam,lparam ; стандартний вихід,

Ret ; повернення з процедури;

WndProc endp

End Start