Tiếng Việt trong Tubor Pascal

Tiếng Việt trong Tubor Pascal

Hỗ trợ gõ tiếng Việt bằng ngôn ngữ lập trình Pascal

Đỗ Hồng Ngọc

Hiện nay những người học lậptrình trong nhà trường hay đại học thường được bắt đầu bằng ngôn ngữ TurboPascal Tuy nhiên, để viết được một chương trình thân thiện với người dùng (sửdụng giao diện tiếng Việt) thì phần lớn phải sử dụng một trình hỗ trợ tiếngViệt như VietRes hay Tbk Cách làm này tuy hiệu quả nhưng không hay vì

chươngtrình luôn phải đi kèm với VRD.EXE hay TBK.COM Vì vậy, em có viết một unit hỗtrợ gõ tiếng Việt bằng ngôn ngữ Pascal để giải quyết vấn đề này

Unit KeyVnTrs có 4 thủ tục chính:

- LoadFontText : Nạp bảng font tiếng Việt

procedure LoadfontText;assembler;

asm

mov ax,seg fon

mov es,ax

mov bp,offset fon

mov ax,1110h

mov bx,1000h

mov cx,0100h

xor dx,dx

int 10h

end;

- CloseFontText : Loại bỏbảng font tiếng Việt

procedure CloseFontText;assembler;

asm

mov ax,1114h

xor bl,bl

int 10h

end;

- InstallTelex : Cài đặt bộ gõ tiếng Việt

procedure InstallTelex;

begin

longint(@int09old):=meml[0:$9 shl 2];

asm cli end;

meml[0:$9 shl2]:=longint(@newint09);

asm sti end;

end;

- RemoveTelex : Loại bỏ bộ gõtiếng Việt

procedure RemoveTelex;

begin

asm cli end;

meml[0:$9 shl2]:=longint(@int09old);

asm sti end;

end;

Để sử dụng, trong chương trình, chỉ cần gọi hai thủ tụcLoadFontText và InstallTelex ở đầu chương trình, sau đó có thể sử dụng các hàmReadkey, Read, Readln như bình thường Khi kết thúc chương trình, phải gọi hai thủtục CloseFontText và RemoveTelex để chương trình

có thể kết thúc bình thường

Bạn có thể sử dụng Ctrl-Alt để đổi kiểu gõ hay dùng một lệnh gán:

chu_viet := not chu_viet;

để đổi kiểu gõ tiếng Việt sang tiếng Anh và ngược lại

Unit sử dụng một mảng để lưu trữ bảng font Khai báo mảng này nằmtrong

file TCVN.FON và được chèn vào unit như một file include (có thể thayđổi để có một bảng font đẹp hơn)

Chương trình TEST.PAS minhhọa một cách đơn giản việc sử dụng unit

uses keyvntrs,crt;

var s:string;

ch:char;

begin

loadfonttext;{nap font de co the hien tieng viet len man hinh}

installtelex;{cai dat ngat moi de co the nhap tieng viet}

clrscr;

writeln('Bộ gõTiếng Việt Phiên bản 0.1a (c) 2001,01.');

writeln('Đỗ HồngNgọc, lớp D5C20, Genetic - ĐHBKHN');

writeln('Riêng tặng chịHường!'#13#10);

writeln('Để gõtiếng Anh ngay khi ở chế độ gõ tiếng Việt, bạn gõ dấu hai lần.');

writeln('NhấnCtrl+Alt để chuyển đổi chế độ gõ Anh - Việt.'#13#10);

Writeln(#13#10'Nhập một xâu :');

readln(s);

removetelex; {tralai cac ngat cu Ket thuc nhap tieng Viet}

closefonttext;{tra lai font mac dinh cua he thong}

end

Do đây là một unit nên khi biên dịch, mã của nó được gắn vào file.EXE; vì thế chúng ta không cần phải tìm xem VRD.EXE hay TBK có trên đĩa haykhông Unit này hạn chế là chỉ hoạt động chính xác đối với chế độ TEXT 16 màu,không làm việc với chế độ đồ họa

Bạn nào cần chương trìnhnguồn có thể liên hệ với toà soạn hoặc trực tiếp với tác giả qua địa chỉ trên.Vì khả năng có hạn nên chương trình còn dài Hy vọng nhận được nhiều góp ý đểchương trình hoàn thiện hơn

Đỗ Hồng Ngọc

D5C20, trung tâm Genetic - ĐHBK Hà Nội

Email : ngoc412@yahoo.com