Tin học Cách sử dụng chuột trong pascal

[Bùi Thành Công]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

co ban nao biet su dung chuột trong pascal ko ,dạy mình với
thank trước nha

 

[son_gohan]

Bạn có thể sử dụng Notepad++ để edit code sau đó lưu dưới dạng ten_tep.pas thì sẽ tiện hơn khi thao tác. Chỉ dùng Pascal để chạy chương trình
Bạn có thể tham khảo bài viết của @trà nguyễn hữu nghĩa

 

[Quang Trungg]

co ban nao biet su dung chuột trong pascal ko ,dạy mình với
thank trước nha

Bạn có thể sử dụng Notepad++ để edit code sau đó lưu dưới dạng ten_tep.pas thì sẽ tiện hơn khi thao tác. Chỉ dùng Pascal để chạy chương trình
Bạn có thể tham khảo bài viết của @trà nguyễn hữu nghĩa

{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;

 

[son_gohan]

{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;

Hi,mình hiểu nhầm câu hỏi

 

[Quang Trungg]

Hi,mình hiểu nhầm câu hỏi

Không sao đâu ai cũng có lúc nhầm lẫn mà

 

[Bùi Thành Công]

{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;

Sử dụng cái code này thế nào hả bạn

 

[Quang Trungg]

Sử dụng cái code này thế nào hả bạn

Gõ code vào chương trình

 

[Bùi Thành Công]

Gõ code vào chương trình

Sao nó lỗi tùm lum vậy bạn

 

[Tống Huy]

{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;

Ồ ! Em cũng đang cần Cảm ơn anh nhiều =)
Rất là có ích

 

[Quang Trungg]

Sao nó lỗi tùm lum vậy bạn
View attachment 68988

Ồ ! Em cũng đang cần Cảm ơn anh nhiều =)
Rất là có ích

Em xem dùng được không mà bạn kia không dùng được =__=

 

[Tống Huy]

Em xem dùng được không mà bạn kia không dùng được =__=

Em chưa test nữa ! Nhưng bạn em dùng abor được

 

[Bùi Thành Công]

Em xem dùng được không mà bạn kia không dùng được =__=

mình tải dosbox về dùng dk rồi bạn ạ