Hiện mouse trong pascal
3 posters
.....-‘๑’- WELLCOM-‘๑’- Quan Tri Co So Du Lieu.....-‘๑’..! :: -‘๑’- Entertaiment -‘๑’- :: Học tập :: Lập trình
Trang 1 trong tổng số 1 trang
Hiện mouse trong pascal
Đây là đoạn code mà mình tham khảo được, nó giúp các bạn hiện mouse và các sự kiện cũa mouse trong môi trường pascal, mình nghĩ là nó rất hay:
đây là unit
đây là unit
- Code:
{Mouse.pas}
Var mouseX,mouseY:word;
mouseL,mouseR:boolean;
Procedure showmouse;
Begin
Asm
mov ax,1
int 33h
End;
End;
Procedure hidemouse;
Begin
Asm
mov ax,2
int 33h
End;
End;
Function mouseevent:boolean;
Var t:word;
Begin
Asm
mov ax,3
int 33h
mov mouseX,cx
mov mouseY,dx
mov t,bx
End;
mouseY:=mouseY div 8 +1;
mouseX:=mouseX div 8 +1;
mouseEvent:=t<>0;
mouseL:=boolean(t and 1);
mouseR:=boolean(t and 2);
End;
Function mouseeventgr:boolean;
Var t:word;
Begin
Asm
mov ax,3
int 33h
mov mouseX,cx
mov mouseY,dx
mov t,bx
End;
inc(mouseX);
inc(mouseY);
mouseEventgr:=t<>0;
mouseL:=boolean(t and 1);
mouseR:=boolean(t and 2);
End;
kaildo- Moderator
- Tổng số bài gửi : 24
Age : 34
Châm ngôn sống : Tiền không là gì cả!
Nhưng ko có tiền thì chả làm d.c cái đéo gì !
Lớp đang học : Quản Trị Cơ Sở Dữ Liệu CDN K1
Ngày gia nhập QTCSDL Group : 22/02/2009
EXP : 13
Thanks : 2
Thú cưng :
Re: Hiện mouse trong pascal
Có thể giải thích các câu lệnh trong code trên để mọi người hiểu kg?
vmquan- Teacher
-
Tổng số bài gửi : 29
Age : 44
Châm ngôn sống : Sống vì mình
Lớp đang học : GVCN Quản Trị Cơ Sở Dữ Liệu CDN K1
Ngày gia nhập QTCSDL Group : 03/03/2009
EXP : 30
Thanks : 13
Thú cưng :
Re: Hiện mouse trong pascal
Thấy sai lầm khi post bài này vì các bạn chưa hỉu j` về pascal hết. Nên close topic \, lần sau sẻ post bài cơ bản
Similar topics
» Giáo trình pascal căn bản
» Bài tập PASCAL
» Bài tập pascal
» Box Lập trình Pascal đây
» Phần mềm Borland Pascal
» Bài tập PASCAL
» Bài tập pascal
» Box Lập trình Pascal đây
» Phần mềm Borland Pascal
.....-‘๑’- WELLCOM-‘๑’- Quan Tri Co So Du Lieu.....-‘๑’..! :: -‘๑’- Entertaiment -‘๑’- :: Học tập :: Lập trình
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|