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

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 :