chào anh em khoa công nghệ thông tin

[silent love]

mở cái box ra mà chẳng có bài viết nào .buồn quá.ai nhàn dỗi thì viết bài post lên cho anh em học tập cái nhỉ.hi vọng lần sau vào có nhiều bài hơn.

[ducchi56cdt1]

bác nào có cách viết tiếng việt trong pascal ko? Giúp hộ với.Đây đang cần.cám ơn nhìu nha.

[Forever In Love]

Tiếng Việt trong môi trường Dos thì dùng Viet Res, cái này bạn nào mún thì liên lạc với mình nhé (Hay quên lắm), nick: noidauvothuong911

[binhvn]

Anh Tùng ơi
ông anh em bảo là trong "cốt' trường mình có tích hợp sẵn trang nhạc và trang tin tức chỉ cần lôi ra là được, không cần phải post nhạc lên đâu ...
còn lôi ra thế nào thì em chịu

[ThienThanh171]

Ẹc. Sao chẳng có ai vào diễn đàn CNTT thế nhỉ, cái này mở lâu rồi mà ,hicc,

[CGH_PRO]

Đơn giản vì mục giơid thiệu và làm quen đắt khách hơn.

[nguyenhuuanh]

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:


Để 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.

[laptrinhpro]

Tieng' Anh XH hoa' roi` may' bo'

[nh0c_3ch]

eo ơi
em chào cả nhà em là lính mới

[nh0c_3ch]

sao các anh thi nhau ngủ cả rồi

[nguyenhuuanh]

Chú đang ngủ chứ bọn anh ngủ hồi nào,khò khò