Lap trinh chuot bang Passcal

Lêåp trònh vúái Mouse trong
Turbo Pascal 7.0

Khi caâi böå Turbo Pascal (7.0), TP7 cung cêëp möåt söë thuã
tuåc àiïìu khiïín Mouse rêët hûäu ñch. Caác thuã tuåc naây
àûúåc lûu trong Unit DRIVERS. Muöën duâng caác thuã tuåc
naây, trûúác tiïn cêìn caâi àùåt Mouse (coá thïí duâng
MOUSE.COM, MOUSE.SYS trong thû muåc DOS hoùåc
chûúng trònh àiïìu khiïín keâm theo Mouse. Thöng thûúâng khi
caâi àùåt Mouse, caác chûúng trònh naây àaä cêåp nhêåt doâng lïånh
khúãi àöång trong AUTOEXEC.BAT hoùåc CONFIG.SYS).

Caác thuã tuåc àûúåc àõnh nghôa trong Unit DRIVERS cho Mouse
nhû sau:
InitEvents: Khúãi àöång àiïìu khiïín Mouse vaâ sau àoá hiïån
Mouse cursor trïn maân hònh.
DoneEvents: Ngùæt àiïìu khiïín Mouse vaâ sau àoá tùæt Mouse
cursor trïn maân hònh.
ShowMouse: Giaãm "söë àïëm" trong àiïìu khiïín Mouse. Khi
"söë àïëm" naây bùçng 0 thò Mouse cursor àûúåc bêåt lïn trïn maân
hònh.
HideMouse: Tùæt Mouse cursor maân hònh vaâ tùng "söë àïëm"
trong àiïìu khiïín Mouse.

Trong chûúng trònh, coá thïí goåi caác thuã tuåc ShowMouse,
HideMouse nhiïìu lêìn. Hai thuã tuåc naây thûúâng àûúåc sûã duång
trong chïë àöå àöì hoåa àïí giêëu hoùåc hiïån Mouse cursor. Khi
thûåc hiïån caác thuã tuåc tö maâu, trûúác hïët nïn HideMouse, tö
maâu, sau àoá ShowMouse, àïí traánh tònh traång Mouse cursor
xoaá mêët möåt phêìn cuãa vuâng àûúåc tö maâu.

Biïën MouseWhere cho biïët võ trñ hiïån taåi cuãa Mouse trïn maân
hònh, trong àoá:
MouseWhereX: Toåa àöå Mouse theo hoaânh àöå.
MouseWhere Y: Toåa àöå Mouse theo tung àöå.

Trong chïë àöå Text, toåa àöå naây àûúåc xaác àõnh: 0 = 0=
Trong chïë àöå àöì hoåa VGA (640x480): 0 = 0=
MouseWhere àûúåc tûå àöång xaác àõnh trong tûâng chïë àöå maân
hònh (Text hoùåc Graphics). Vò vêåy, viïåc sûã duång caác thuã tuåc
trïn laâ hoaân toaân nhû nhau trong caã hai chïë àöå.

Biïën MouseButtons cho biïët phñm Mouse àûúåc nhêën
MouseButtons = $0001: Phñm traái Mouse àûúåc nhêën
MouseButtons = $0002: Phñm phaãi Mouse àûúåc nhêën

Kiïíu TEvent chûáa caác trûúâng cho biïët tònh traång cuãa caác thiïët
bõ: Mouse, Keyboard..., trong àoá:
TEvent.What=$0001: Phñm Mouse àûúåc nhêën
TEvent.What=$0002: Phñm Mouse àûúåc thaã
TEvent.What=$0004: Mouse thay àöíi võ trñ

Thuã tuåc GetMouseEvent (Var Event: TEvent) traã vïì biïën
Event cho biïët tònh traång hiïån taåi cuãa Mouse.

Kïët húåp sûã duång caác haâm vaâ thuã tuåc àaä àûúåc cung cêëp sùén
trïn àêy, baån coá thïí xêy dûång àûúåc caác ûáng duång trong àoá sûã
duång àûúåc caác thïë maånh vaâ tiïån lúåi cuãa Mouse. Cuäng coá thïí
tham khaão thïm caác thuã tuåc, haâm trong unit DRIVERS àïí
àiïìu khiïín caác thiïët bõ khaác nhû baân phñm, maân hònh.... Dûúái
àêy xin trònh baây möåt vñ duå àún giaãn vïì sûã duång caác thuã tuåc
àïí lêåp trònh vúái Mouse.
- Doâng 7 khúãi àöång Mouse. Tûâ doâng 8 àïën doâng 13 minh
hoåa viïåc sûã duång ShowMouse, HideMouse.
- Doâng 20, 21 kiïím tra phñm Mouse naâo àûúåc nhêën vaâ traã
kïët quaã vïì biïën Button.
- Doâng 22 goåi thuã tuåc GetMouseEvent kiïím tra tònh traång
Mouse vaâ traã kïët quaã vïì biïën Mouse.
- Doâng 23-31 thöng baáo hoaåt àöång cuãa Mouse ra maân hònh.

- Doâng 33, 34 gúä boã àiïìu khiïín vaâ tùæt Mouse.

Chûúng trònh seä dûâng khi baån nhêën möåt phñm bêët kyâ.

Vñ duå vïì sûã duång caác thuã tuåc trong Unit DRIVERS àïí àiïìu
khiïín Mouse

Chûúng trònh Mouse_dm.pas

1. Uses Crt, Drivers;
2. Var Mouse: TEvent;
3. y: integer;
4. Button, State: string;
5. BEGIN
6. ClrScr;
7. IniEvents;
8. HideMouse;
9. WrireLn;
10. WriteLn(`Bêëm phñm Enter àïí bêåt Mouse cursor`);
11. ReadLn;
12. ShowMouse;
13. Clrscr;
14. WriteLn;
15. WriteLn(`Bêëm phñm bêët kyâ àïí thoaát`);
16. WriteLn(`Võ trñ Mouse: X=`);
17. WriteLn(`Võ trñ Mouse