Lap trinh ban phim bang Passcal

Lêåp trònh vúái baân phñm
Windows 95 bùçng Turbo
Pascal

Nhû ta àaä biïët, baân phñm laâ möåt cöng cuå quan troång, rêët
cêìn thiïët cho viïåc giao tiïëp giûäa ngûúâi vaâ maáy. Coá nhiïìu
loaåi baân phñm nhûng chuáng àïìu coá möåt àiïím chung laâ: coá
nhûäng phñm àaä àûúåc öín àõnh vaâ chuêín hoáa. Nhûng tuây theo
chûác nùng vaâ yïu cêìu cuãa möåt phêìn mïìm chuyïn duång naâo
àoá maâ möåt söë loaåi baân phñm coá thïí coá thïm nhûäng phñm
chuyïn duång húi khaác vúái nhûäng phñm thöng thûúâng. Vaâ thêåt
uöíng phñ nïëu nhû caác chûúng trònh ûáng duång cuãa baån khöng
thïí têån duång hïët àûúåc chuáng, nhûäng phñm maâ ta hoaân toaân coá
thïí lêåp trònh àûúåc möåt caách dïî daâng.

Sau àêy, töi xin giúái thiïåu vúái caác baån caách àïí lêåp trònh vúái
baân phñm Windows 95 Model-KB-8000, möåt saãn phêím àûúåc
Microsoft àûa ra àïí sûã duång vúái Windows 95 (Ezkey). Khaác
vúái nhûäng baân phñm thöng thûúâng, baân phñm Windows 95 coá
thïm 3 phñm chuyïn duång múái, àoá laâ:

Phñm Taskbar 1 coá hònh cûãa söí, nùçm giûäa phñm Ctrl vaâ Alt úã
bïn phaãi.

Phñm Taskbar 2 giöëng nhû phñm Taskbar 1, nùçm úã bïn phaãi
phñm Alt phaãi.

Phñm coá hònh con troã chuöåt vaâ hònh Menu úã bïn phaãi cuãa
phñm Taskbar 2.

Khi baån àang chaåy trong möi trûúâng Windows 95, nïëu nhêën
phñm Taskbar 1 hoùåc Taskbar 2 thò Taskbar seä àûúåc kñch
hoaåt. Nïëu baån nhêën phñm coá hònh con troã chuöåt thò seä tûúng
àûúng vúái viïåc nhêën nuát phaãi chuöåt.

Sau àêy, ta haäy xeát vaâi thûã nghiïåm àún giaãn àûúåc viïët bùçng
ngön ngûä lêåp trònh Turbo Pascal.

Thûã nghiïåm 1:

Uses crt;
Begin
Writeln (`Hay nhan thu 3 phim cua Windows 95`)
Writeln (`Nhan mot phim bat ky ngoai 3 phim tren de ket
thuc`);
Readkey; {Doi mot phim nhan}
End.

Khi thûåc hiïån chûúng trònh naây nïëu ta nhêën 3 phñm chuyïn
duång cuãa Windows thò khöng coá gò xaãy ra, nhûng nïëu nhêën
möåt phñm, chùèng haån nhû “Esc” thò chûúng trònh seä kïët thuác
ngay lêåp tûác.

Giûä nguyïn chûúng trònh trïn vaâ thay “Readkey” bùçng cêu
lïånh:

Repeat until key pressed;

ta cuäng àûúåc kïët quaã tûúng tûå. Vò vêåy, coá thïí kïët luêån rùçng
lïånh readkey vaâ keypressed khöng thïí sûã duång àïí nhêån biïët
nhûäng phñm chuyïn duång cuãa Windows. Ta haäy xeát möåt thûã
nghiïåm nûäa:

Thûã nghiïåm 2:

Uses crt;
Begin
clrscr;
Writeln (`Nhan Ctrl - Break de ket thuc`);
Repeat
Gotoxy (1,2);
Write (port [$60]: 4);
Until False;
End.

Haäy chuá yá lïånh “Until False” trong chûúng trònh. Àïí àún giaãn
khi baån thûåc hiïån thûã nghiïåm vúái caác phñm khöng chó daânh
riïng cho Windows, töi sûã duång möåt voâng lùåp vúái àiïìu kiïån
kïët thuác khöng bao giúâ coá àûúåc.

Khi chaåy thûã chûúng trònh, baån àûâng quan têm túái con söë
hiïín thõ trïn maân hònh laâ bao nhiïu, haäy nhêën thûã möåt vaâi
phñm bêët kò nhû F1, F2.. vaâ cuäng àûâng quïn nhêën thûã 3 phñm
daânh cho Windows trïn baân phñm. Ta thêëy, khi nhêën möåt
phñm thò con söë hiïån ra trïn maân hònh bõ àöíi thaânh möåt söë naâo
àoá cho túái khi ta nhaã phñm àoá ra. Vaâ möåt nhêån xeát quan troång
nûäa laâ: möîi phñm khi àûúåc nhêën seä cho möåt con söë riïng biïåt
(vñ duå, phñm A laâ 30, s laâ 31...). Vêåy coá thïí kïët luêån rùçng:
àoaån chûúng trònh trïn coá thïí nhêån biïët àûúåc moåi phñm trïn
baân phñm, kïí caã nhûäng phñm chuyïn duång daânh cho Windows
95.

Vêåy, cuöëi cuâng ta coá thïí hoaân toaân lêåp trònh àûúåc vúái nhûäng
phñm múái trïn baân phñm qua chûúng trònh sau:

Uses crt;
Begin
clrscr;
Writeln (`Nhan mot phim bat ky de kiem tra`);
Repeat
Gotoxy (1,3);
Case Port [$60] of
91: Write (`Phim Taskbar 1 duoc nhan`);
92: Write (`Phim Taskbar 2 duoc nhan`);
93: Writeln (`Phim co hinh con tro chuot duoc nhan`)
End;
Write (#32:35);
Until KeyPressed