thư viện chương trình con

BÀI 19:
BÀI 19:
THƯ VIỆN CHƯƠNG TRÌNH CON
THƯ VIỆN CHƯƠNG TRÌNH CON
CHUẨN ( tiếp theo )
CHUẨN ( tiếp theo )

THƯ VIỆN TRONG NGÔN NGỮ
LẬP TRÌNH LÀ GÌ?
Thư viện
là gì
nhỉ ???
Thư viện trong ngôn ngữ lập trình
chứa các chương trình con chuẩn ( hàm/
thủ tục) liên quan đến một loại công việc
khác nhau để mở rộng khả năng ứng
dụng của mình.

- Graph: hỗ trợ các thao tác đồ họa cơ
bản
-
Crt: quản lý, khai thác màn hình, bàn
phím
- System: chứa các hàm sơ cấp, các thủ
tục chuẩn vào\ ra
- Dos: cho phép thực hiện trực tiếp các
lệnh: tạo thư mục, thiết lập giờ hệ thống
- Printer: in ấn
- …….

a) Những kiến thức chung:
- Bảng mạch điều khiển: là thiết bị đảm
bảo tương tác giữa bộ xử lý và màn
hìnhđể thể hiện độ phân giải và màu sắc
- Màn hình:
Chế độ văn bản
Chế độ đồ họa
- Các tệp BGI: chứa các chương trình điều
khiển tương ứng với các loại bảng mạch
đồ họa.

0
1 2 3 4…………………………………….640
1
2
.
.
.
.
.
.
.
.
.
.
.
480
A
PIXEL
Độ phân giải của màn hình: 640 x 480

b) Khởi tạo chế độ đồ họa:
Procedure InitGraph ( var driver, mode: integer; path: string);
Số hiệu của trình điều khiển BGI
Số hiệu của độ phân giải
Đường dẫn đến các tệp BGI
Driver := 0;
InitGraph (driver, mode, ‘ C:\TP\BGI’);
Kết thúc chế độ đồ họa:
CloseGraph;

c) Các thủ tục vẽ điểm, đoạn thẳng:
Đặt màu cho nét vẽ:
Procedure SetColor ( color: word );
Ví dụ:
Setcolor ( blue);
Setcolor ( 1 );
Vẽ điểm:
PutPixel (x, y,color);
Ví dụ: putpixel ( 15, 20, red );
4

Vẽ đoạn thẳng:
A
(x1, y1)
B
( x2, y2)
Line ( x1, y1, x2, y2 );
Biết tọa độ điểm đầu
và điểm cuối:

15, 10, 40, 20 );
Nối điểm hiện tại với
điểm có tọa độ (x, y)
C
(x, y)
Lineto ( x, y );
20,30 );
D
dx
dy
Nối điểm hiện tại với điểm
có tọa độ bằng tọa độ hiện
tại cộng với gia số ( dx, dy)
Linerel ( dx, dy );

d) Các hàm và thủ tục liên quan đến vị trí con
trỏ
Hàm xác định giá trị lớn nhất của tọa đô màn hình
GetmaxX;
GetmaxY;
Thủ tục chuyển con trỏ đến tọa độ (x, y ):
MoveTo ( x, y );

e) Một số thủ tục vẽ hình đơn giản:
Vẽ đường tròn:
( x, y )
r
Circle ( x, y, r );
400, 150, 50 );
SetColor ( 2 );

Vẽ cung của elip:
( x, y )
Yr
Xr
Ellipse ( x, y,StAngle, EndAngle, Xr, Xy );
Ví dụ:
(200, 150)30
20
0
0
270
0
Setcolor ( 4 );
Ellipse ( 200, 150, 0, 270, 30, 20 );

Vẽ hình chữ nhật có cạnh song song với trục tọa độ:
A ( x1, y1 )
B ( x2, y2 )
Rectangle ( x1, y1, x2, y2 );

A
( 40, 15 )
B
( 90, 45)
C
(55,50)
Program vd;
uses graph;
var driver, mode: integer;

Begin
driver := 0;
InitGraph (driver,
mode, ‘ C:\TP\BGI’);
Line (40, 15, 90,45 );
Readln;
SetColor ( 4 );
Lineto ( 55, 50 );
Readln;
D (150, 120)
SetColor ( 1 );
Rectangle (55, 50, 150,120);
Readln;
20
SetColor ( 2 );
Circle (150,120, 20);
Readln;
CloseGraph;
End.