Bài 19 - Thư viện chương trình con chuẩn (t1)

Bµi 19
Bµi 19
.
.
KiÕn thøc cñ
Unit crt
Bµi tËp cñng cè
Unit graph

Kiểm tra Kiến thức củ
Hãy cho biết thủ tục CLRSCR dùng để thực hiện công việc nào
d!ới đây?
Xuất kết quả ra màn hình
Xóa màn hình
Xóa bộ nhớ tạm
Nhận giá trị từ bàn phím
Hoan hô bạn đã trã lời đúng !
Rất tiết bạn đã trã lời sai !

Program Vidu1;
Var a: integer;
Begin
Clrscr;
a:= 7 + 5;
Writeln(5 + 7 = , a:3);
Readln;
End.
Kiểm tra Kiến thức củ
Hãy quan sát đoạn ch!ơng trình sau và cho biết khi cho ch!
ơng trình chạy điều sẽ gì xảy ra?

Xuất ra màn hình: 5 + 7 = a
Xuất ra màn hình: 5 + 7 = 12
Xuất ra màn hình: 5 + 7 = 4
Ch!ơng trình báo lỗi
Hoan hô bạn đã trã lời đúng !
Rất tiết bạn đã trã lời sai !
Nghiên cứu SGK cho biết th! viện CRT liên quan đến những
công việc nào trong lập trình Pascal ?

1. Unit crt
CRT: là th viện chứa các thủ tục liên quan đến việc
quản lý màn hình, bàn phím và âm thanh.
Một số thủ tục trong th! viện CRT :
-
Thủ tục CLRSCR;
-
Thủ tục TextColor(color);
-
Thủ tục TextBackGround(color);
-
Thủ tục GotoXY(x,y);
-
Xóa màn hình.
-
Chọn màu cho chữ.
-
Chọn màu nền cho chữ.
-
Đa con trỏ đến tọa độ (x,y).
Program mauVB;

Uses CRT;
Begin
Clrscr;
GotoXY(50,15);
TextColor(15);
TextBackGround(green);
Writeln(THPT Giong Rieng);
Readln;
End.
THPT Giong Rieng
x = 50
y = 15
GotoXY(50,15);
TextColor(15);
TextBackGround(green);
Writeln(THPT Giong Rieng);
(50,15)
(1,1)
(80,1)
(1,25)
(80,25)

2. Unit graph
GRAPH: là th viện chứa các thủ tục, hàm liên quan đến
chế độ đồ họa của các loại màn hình khác nhau,
cho phép thực hiện các thao tác đồ họa cơ bản.

2. Unit graph
Màn hình có thể làm viêc ở hai chế độ :
- Chế độ văn bản:

- Chế độ đồ họa :
a. Các thiết bị và ch!ơng trình hổ trợ đồ họa
Đơn vị cơ sở là ký tự.
Đơn vị cơ sở là điểm ảnh (Pixel)
(0,0)
(640,0)
(640,480)
(0,480)
x
y
PIXEL
Độ phân giải VGA: 640x480
(x, y)

2. Unit graph
a. Các thiết bị và ch!ơng trình hổ trợ đồ họa
- Bảng mạch điều khiển màn hình: Là thiết bị đảm bảo t
ơng tác giữa bộ xử lý và màn hình để thực hiện chế độ
phân giải và màu sắc.
- Tên của bảng mạch điều khiển màn hình thờng trùng với
loại màn hình: VGA, SVGA,
- Chơng trình điều khiển đồ hoạ nằm trong các tệp *.BGI,
ngầm định để trong th mục BGI.

2. Unit graph
b. Khởi tạo đồ họa
Thủ tục khởi tạo đồ họa:
Procedure InitGraph(driver, mode: Integer; path: string);
-
driver : là số hiệu của trình điều khiển, thờng gán là 0.

-
mode : là số hiệu của độ phân giải.
-
path : là đờng dẫn đến các tệp .BGI
Thủ tục kết thúc chế độ đồ họa:
CloseGraph;
Ví dụ: Driver := 0;
InitGraph(driver, mode, C:\TP\BGI );

c. Các thủ tục vẽ điểm, đoạn thẳng:
- Thủ tục đặc màu nét vẽ:
Procedure SetColor(Color: word);
- Thủ tục vẽ điểm:
Procedure PutPixel(x, y: integer; Color: word);
- Vẽ đoạn thẳng qua hai điểm (x1, y1) và (x2, y2):
Procedure line(x1, y1, x2, y2: integer);
- Vẽ đoạn thẳng nối điểm hiện tại với điểm có tọa độ (x, y):
Procedure lineTo(x, y : integer);
- Vẽ đoạn thẳng 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 số gia (dx, dy)
Procedure lineRel(dx, dy : integer);

2. Unit Graph
x1
y 1
(0,0)
(640,0)
(0,480)
x2
y 2

d y
d x

2. Unit graph
d. C¸c thñ tôc vµ hµm liªn quan ®Õn vÞ trÝ con trá:
C¸c hµm x¸c ®Þnh täa ®é lín nhÊt cña X, Y:
Function GetMaxX: integer;
Function GetMaxY: integer;
Thñ tôc chuyÓn con trá ®Õn täa ®é (x, y):
Procedure MoveTo(x, y: integer);

BàI TậP CủNG Cố
Thảo luận nhóm trong 2 phút để thực hiện yêu cầu :
Viết các câu lệnh cơ bản để vẽ đọan thẳng nối hai điểm
có tọa độ (20, 10) và (90, 60) bằng nhiều cách khác
nhau?