Bài 19. Thư viện chương trình con chuẩn

BÀI 19:
THƯ VIỆN CHƯƠNG TRÌNH CON CHUẨN ( tiếp theo )
THƯ VIỆN TRONG NGÔN NGỮ LẬP TRÌNH LÀ GÌ?
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:TPBGI’);
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:
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
00
2700
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 );
C
(55,50)
Program vd;
uses graph;
var driver, mode: integer;
Begin
driver := 0;
InitGraph (driver, mode, ‘ C:TPBGI’);
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.