Timtailieu.net 
Phân tích tư tưởng của nhân dân qua đoạn thơ: Những người vợ nhớ chồng… Những cuộc đời đã hóa sông núi ta trong Đất nước của Nguyễn Khoa Điềm
3405
1
0
9 trang
Trong nhiều trường hợp bạn cần thiết phải tạo ra một giao di ện (Interface) th ật bắt mắt cho dự án (Project) lập trình của bạn. Chính vì vậy nếu bạn phải thực hiện trong PASCAL thì việc khởi tạo và sử dụng chế độ đồ họa 256 màu là việc không thể tránh khỏi
Nội dung trích xuất từ tài liệu:
Điều khiển chuột trong chế độ 256 màu
ĐIỀU KHIỂN CHUỘT TRONG CHẾ ĐỘ ĐỒ HOẠ 256 MÀU
Hữu Chính
Trong nhiều trường hợp bạn cần thiết phải tạo ra một giao di ện (Interface) th ật
bắt mắt cho dự án (Project) lập trình của bạn. Chính vì vậy nếu b ạn ph ải th ực
hiện trong PASCAL thì việc khởi tạo và sử dụng chế độ đồ hoạ 256 màu là vi ệc
không thể tránh khỏi. Tất nhiên khi đó bạn cũng phải vi ết các modul ch ương
trình để điều khiển chuột. ở chế độ đồ hoạ thường (16 màu) thì vi ết th ư viện
điều khiển chuột bạn có thể sử dụng các hàm chuẩn về chuột của DOS (Ng ắt
33h). Thế nhưng trong chế độ màu SVGA 256 thì bạn không thể dùng ph ương
pháp này, bởi vì khi đó sẽ hình ảnh của chuột không th ể hi ện lên đ ược. Đ ể kh ắc
phục bạn phải tự viết chương trình quản lý chuột và hiện chuột. D ưới đây là m ột
chương trình như vậy để bạn tham khảo. Trong khuôn khổ bài vi ết không thể đề
cập tất cả vấn đề. Để hiểu rõ bạn có thể tham khảo ở các sách về lập trình hệ
thống cho các thiết bị ngoại vi.
Chương trình này sau khi bạn dịch File Mlib.tpu bạn có thể sử d ụng nh ư sau:
- Khởi động chuột: mInit;
- Đặt toạ độ chuột: mSet(x,y);
- Lấy tình trạng chuột: mGet;
- Lấy toạ độ chuột: MWhereX, MWhereY;
- Lấy tình trạng phím bấm: Biến PressButton.
1. Nếu Bít 0 bằng: Nút trái đang bấm.
2. Nếu Bít 1 bằng: Nút phải đang bấm.
3. Nếu Bít 2 bằng: Nút giữa đang bấm.
- Hiện, ẩn chuột: mHide, mShow;
{$A+,B+,D+,E+,F+,G+,I+,L+,N+,O+,P+,Q+,R-,S+,T+,V+,X+}
{$M 16384,0,655360}
Unit MLib;
Interface
Procedure mInit;
Procedure mGet;
Procedure mSet(x,y:word);
Var PressButton:Word;
MWhereX,MWhereY: Word;
mShow,MHide:Procedure;
OldMWhereX,OldMWhereY:Word;
Implementation
Uses Graph;
Type MAreaSvga256=Array[0..15,0..15] of byte;
Const
Off:Boolean=True;
MousePatern:MAreaSvga256=(01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
0),
(01,01,00,00,00,00,00,00,00,00,00,00,00,00,00,00),
(01,02,01,00,00,00,00,00,00,00,00,00,00,00,00,00),
(01,10,02,01,00,00,00,00,00,00,00,00,00,00,00,00),
(01,10,02,02,01,00,00,00,00,00,00,00,00,00,00,00),
(01,10,10,02,02,01,00,00,00,00,00,00,00,00,00,00),
(01,10,10,02,02,02,01,00,00,00,00,00,00,00,00,00),
(01,10,10,10,02,02,02,01,00,00,00,00,00,00,00,00),
(01,10,10,10,02,02,02,02,01,00,00,00,00,00,00,00),
(01,10,10,10,10,02,02,02,02,01,00,00,00,00,00,00),
(01,10,10,10,10,02,02,02,02,02,01,00,00,00,00,00),
(01,10,10,10,01,01,01,01,01,01,01,01,00,00,00,00),
(01,10,10,01,00,00,00,00,00,00,00,00,00,00,00,00),
(01,10,01,00,00,00,00,00,00,00,00,00,00,00,00,00),
(01,01,00,00,00,00,00,00,00,00,00,00,00,00,00,00),
(01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00)
); {Du lieu hinh anh chuot}
Var OldMAreaSvga256:MAreaSvga256;
MousePaint:Procedure(x,y:Word);
mHandlerP:Procedure;
MaxX,MaxY:Word;
Procedure Wait(i:Byte);
Var x: Byte;
Begin
x:=5;
While i>0 do
Begin
If (i mod 2) = 0 then Inc(x) else Dec(x);
Dec(i);
End;
End;
Procedure SaveMAreaSvga256;
Var Mi,Mj:word;
Begin
For Mi:=0 to 15 do
For Mj:=0 to 15 do
OldMAreaSvga256[Mi,Mj]:=GetPixel(MWhereX+Mi,MWhereY+Mj);
End;
Procedure RestoreMAreaSvga256;
Var mi,mj:word;
Begin
For mi:=0 to 15 do
For mj:=0 to 15 do
if(OldMWhereX+miVar mi,mj:word;
Begin
If Off then
Begin
MWhereX:=col;MWhereY:=row;
OldMWhereX:=MWhereX;OldMWhereY:=MWhereY;
Exit;
End;
RestoreMAreaSvga256;
MWhereX:=col;MWhereY:=row;
OldMWhereX:=MWhereX;OldMWhereY:=MWhereY;
SaveMAreaSvga256;
For mi:=0 to 15 do
For mj:=0 to 15 do
If(MousePatern[mi,mj]0)and(col+mjretf
End;
Procedure mIns;assembler;
Asm
les dx,mhandlerp
mov ax,0Ch
mov cx,01h
int 33h
End;
Procedure mUnins;assembler;
Asm
les dx,mhandlerp
mov ax,0Ch
mov cx,00h
int 33h
End;
Procedure mShowSvga256;
Begin
If not off then Exit;
Off:=False;
SaveMAreaSvga256; MousePaintSvga256(mWhereX,mWhereY);
mIns;
End;
Procedure mHideSvga256;
Begin
If Off then Exit;
mUnins;Off:=True;
Wait(10);
RestoreMAreaSvga256;
End;
Procedure mSet(x,y:word);
Begin
mHide;
asm
mov ax,0004
mov cx,x
mov dx,y
shl cx,2
shl dx,2
int 33h
end;
mWhereX:=X shr 1;mWhereY:=Y shr 1;
OldMWhereX:=MWhereX;OldMWhereY:=MWhereY;
mShow;
End;
Procedure mInit;
Begin
mHandlerP:=MouseHandler;
mWhereX:=MaxX shr 1;mWhereY:=MaxY shr 1;
OldMWhereX:=MWhereX;OldMWhereY:=MWhereY;
MousePaint:=MousePaintSvga256;
mShow:=mShowSvga256;mHide:=mHideSvga256;
Asm
xor ax,ax
int 33h
mov ax,000Fh
mov cx,1
mov dx,1
int 33h
mov ax,0007h
xor cx,cx
mov dx,MaxX
shl dx,3
int 33h
mov ax,0008h
xor cx,cx
mov dx,MaxY
shl dx,3
int 33h
mov ax,0004h
mov cx,MaxX
shl cx,2
mov dx,Maxy
shl dx,2
int 33h
mov ax, 001ch
mov bx, 2h
int 33h
call mIns;
End;
End;
Procedure mGet;Assembler;
Asm
mov ax,3
int 33h
mov PressButton,bx
End;
Begin
MaxX:=640;
MaxY:=480;
{Ban co the thay doi gioi han vi tri chuot o day}
End.
