Cho Hỏi Về Tiếng Việt Trong Đồ Hoạ Pascal

Le Bao Thang · 22-08-2002 06:12

Ai rành chỉ cho tôi với!

**vikhoa** · 22-08-2002 08:12

Bạn hỏi vậy sao mà trả lời được ?! Bạn phải nêu cụ thể câu hỏi hoặc tình huống cần giải quyết chứ.

Có thể dùng VietRes hoặc tự viết thư viện riêng cho mình.

**vikhoa** · 22-08-2002 08:15

Trong graphic của Pascal thì có thể viết riêng 1 thư viện để gõ phím và hiển thị tiếng Việt. Hồi lâu rồi trong PCWorld có đăng 1 bài hướng dẫn, gõ theo kiểu VNI, K có sửa lỗi và bổ sung thêm kiểu gõ Telex. Chỉ có điều không biết cái file đó nó lưu lạc phương nào rồi. hì hì.

Chắc phải nhờ Phoenix thôi, thấy Phoenix hay trả lời về Pascal lắm.

**phoenix** · 22-08-2002 14:31

cái ni thì tui ko biết rùi

**phoenix** · 22-08-2002 15:50

Mình vừa tìm được tài liệu này, bạn tham khảo xem có giúp đuợc gì ko:

Code:

Để nạp chữ Việt lên màn hình, ta phải chuẩn bị:
	Bộ font chữ Việt (Font)
	Nạp bộ chữ vào màn hình
Và chuẩn bị 2 việc bên cạnh
	Tạo bộ gõ tiếng Việt
	Tạo bộ phông chữ Việt & chương trình xử lý in tiếng Việt

Tuỳ theo từng vỉ màn hình mà ta có bộ phông chữ khác nhau vì kích thước khác nhau
Thí dụ: Màn hình VGA có ma trận chữ là 8x14. 
Một bộ phông chữ gồm có 256 kí tự ASCII được khai báo như sau:

TYPE
	CHU=ARRAY[1..14] OF BYTE; { ma tran 14x8}
	KIEU_FONT14_8=ARRAY[0..255] OF CHU_14_8;
VAR
	FONT_VIET1: KIEU_FONT14_8;

Mỗi một hàng điểm trong một ma trận chữ được biểu diễn bằng một byte.
Như vậy một bộ phông 14x8 gồm có 14x256 kí tự = 3584 bytes.
Tệp phông này được chứa trên đĩa.
Việc nạp bộ phông lên màn hình đã có một số dịch vụ của BIOS đảm nhiệm.
Nhiệm vụ của ta là lập trình kết nối PASCAL với BIOS.
Sau đây là đoạn chương trình nạp phông tiếng Việt lên màn hình

Uses Crt, Dos;
Type
	BytePtr = ^Byte;
	KieuFont = ARRAY[0..255, 1..16] OF byte;
Var
	Regs: Registers;
	Hei: Byte;
	FF: File OF KieuFont;
	FontEGA: KieuFont;
	P: ^KieuFont;
Procedure LoadFont (HeiCh: byte; BufPtr: BytePtr);
begin
	With Regs do
	begin
		ax:=$1100;
		bh:=HeiCh;
		bl:=0;
		cx:=256;
		dx:=0;
		bp:=ofs(BufPtr^);
		es:=seg(BufPtr^);
		intr($10,Regs)
	end
end;
Function CardEGA: Boolean;
begin
	Regs.ah:=$12;
	Regs.bl:=$10;
	intr($10,Regs);
	if Regs.bl < $10 then CardEGA:=True
	else CardEGA:=False
end;
Procedure TBK1; External; { $L TBK1.OBJ}
{ Dùng lệnh ngoài DOS của Pascal: BINOBJ TBK1 TBK1 để biến tệp TBK1.FON thành TBK1.OBJ để nạp thẳng vào Pascal }
Procedure FONT_VIET;
begin
	if CardEGA then
		begin
{
			Assign(FF, 'TBK1.FON');
			Read(FF, FontEGA);
			Close(FF);
{ }
			P:= @TBK1; FontEGA:= P^; { }
			LoadFont (16, BytePtr(@FontEGA))
		end
	else
		begin
			writeln;
			writeln('There is not card EGA !')
		end;
end;
Procedure Init;
begin
	TextColor(Yellow);
	GotoXY(10, 5);
	write('Bộ Giáo dục và Đào tạo');
end;

begin
	FONT_VIET;
	ClrScr;
	Init;
	writeln;
	writeln;
	readln;
end.

**Zero** · 23-08-2002 13:38

Sao lại Text nhỉ không phaỉ câu hỏi là chữ việt trong đồ hoạ sao?nếu trong đồ hoạ thì bạn có thể viết unit xử lý các format font, đơn giản nhất là format fnt nếu cần unit bạn có thể liên lạc với mình bằng cách gửi thư của diễn đàn mình sẽ gửi cho bạn.

**nguyencaophuong** · 27-08-2002 12:42

Tui có cái unit Ladpas để dùng được tiếng Viểt trong TP (Kiếm được trong cái đĩa PCW ý mà) cần thì gửi mail cho tui tui gửi cho

**nduylinh007** · 10-09-2002 18:37

Theo tôi thi nên làm như thế này:
- Nạp font vào mảng như bạn Phoenix làm ở trên.
- Viết một thủ tục để vẽ một ký tự lên màn hình tại toạ độ x, y dựa vào thủ tục putpixel và ma trận điểm của ký tự (nếu là 1 thì vẽ, 0 thì bỏ qua)
- Viết thủ tục viết một chuổi ký tự tại bắt đầu vị trí x,y dựa vào thủ tục vẽ ký tự ở trên.