Результат виконання програми
Програма з методички №2 Текст програми
.386
.model flat,stdcall
Extrn CreateFontIndirectA:Proc, GetDC:Proc, SelectObject:Proc, SetTextColor:Proc
Extrn SetBkColor:Proc, TextOutA:Proc, ReleaseDC:Proc, ExitProcess:Proc
.data
HDC dd 0
LOGFONTA:
lfHeight DD 70 ; Висота
lfWidth DD 20 ; Ширина
lfEscapement DD 3600-100 ; Кут нахилу * 10
lfOrientation DD 0 ;
lfWeight DD 1000 ; Жирнiсть (1000-Bold)
lfItalic DB 1 ; Курсив
lfUnderline DB 0 ; Пiдкреслення
lfStrikeOut DB 0
lfCharSet DB 1 ; 255 – шрифти DOS
lfOutPrecision DB 0
lfClipPrecision DB 0
lfQuality DB 1
lfPitchAndFamily DB 0
lfFaceName DB 'Impact' ; Назва фонту
Reserv DB 32-6 dup(0)
X_coord dd 80
Y_coord dd 80
Text1 db 'Програмування на Асемблерi '
EndText1 db 0
.code
Start: call GetDC,0
mov HDC,eax
call CreateFontIndirectA, offset LOGFONTA
call SelectObject,HDC,eax
call SetTextColor,HDC,0022FFh
call SetBkColor,HDC,00FFFFh
mov eax,offset EndText1
sub eax,offset Text1
call TextOutA, HDC, X_coord,Y_coord, offset Text1, eax
call ReleaseDC,0,HDC
call ExitProcess,0
End Start
Результат виконання програми
!!!!-!!!
Програма що містить три дочірні вікна ‘msctls_trackbar32’
Текст програми
.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
extrn DeleteObject: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
call CreateWindowExA,0,offset CHILD_CLASS_NAME,0,WS_CHILD or WS_VISIBLE or TBS_TOP, 5,280,380,35,MainHWnd,2,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 DeleteObject, Brush ;видаляємо кисть
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