Chương 8: XÂY DỰNG SƠ ĐỒ KHỐI THƯ VIỆN DRIVER
Thư viện Driver là một trong số những thư viện được viết để
xây dựng phần mềm điều khiển máy chấm điểm trắc nghiệm.
Thư viện này được viết bằng ngôn ngữ lập trình PASCAL, bao
gồm 11 thủ tục con, dùng để điều khiển hoạt động của động cơ
và truy xuất dữ liệu hệ thống.
Thư viện này sử dụng một Unit tên VAR_COM, là thư viện
chứa các hằng, biến toàn cục của chương trình. Cụ thể:
UNIT VAR_COM; {Khai báo tên Unit cần tạo}
INTERFACE {Khai báo chung}
TYPE
File_Name_Type = String[16];
XY_Type = Record
Hor : Word;
Vert : Word;
End;
CONST
L_Horizontal = 600; (*Chiều dài tối đa tín hiệu điều khiển
cần quét*)
L_Scan = 100; (*Chiều dài tối đa tín hiệu điều khiển
quét *)
On = True;
Off = False;
Right = True;
Left = False;
Up = True;
Down = False;
VAR
Sys_Error : Byte;
DataA, DataB : Byte;
DataC, CL, CH : Byte;

F_Ans : File; (*File lưu trữ kết quả*)
F_Error : Boolean;
W_Data, (*Chiều rộng dữ liệu*)
L_Data : Byte; (*Chiều dài dữ liệu *)
XY_Name : File_Name_Type; (*Tên mở rộng File tọa độ
XY*)
XY_Count : Word; (*Số cặp tọa độ XY*)
XY_Data : Array [1..500] of XY_Type;(*Mãng dữ liêu,
tối đa 500*)
IMPLEMENTATION {Thi hành}
BEGIN
END. {Kết thúc thư viện}
Các thủ tục ta xây dựng sơ đồ khối trong chương này là:
1. ProceDure ReadC;
2. ProceDure CK;
3. ProceDure MDC(DC1,DC2:Boolean);
4. ProceDure Run_SM(Motor:Byte;Step:Integer);
5. ProceDure SM_Standar(SM_H,SM_SC:Boolean);
6. ProceDure Page_Out;
7. ProceDure Page_In;
8. ProceDure GoXY(H,V:Integer);
9. ProceDure ResetData;
ProceDure ReadB;
10. ProceDure Scan;
Trong sơ đồ khối có các từ viết tắt như:BA
07
(viết tắt của
biến DataA_Bit[0..7]), PA
07
(viết tắt của biến DataA[0..7]).

)
bằng cách AND với $0F
H
(15
D
). Sau khi đã làm chuẩn tín hiệu,
tùy giá trò của từng bit (là [0] hay [1]) mà gán trạng trái của báo
của cờ tương ứng (HOR, VERT, PAGE, ERROR) là [True] hay
[False].
Thuû tuïc CK
Star
PA
05
=0
I = 1
I > 5
BA
i
=true
DataA
or(1 shl i)
I + 1
BA
0,2,4
= False
PortA
= DataA
DataA
or $D5
Delay

2
=true
DataA
or $40
DataA
or $80
DataA
and $BF
DataA
and $7F
End
Ck
Đ Đ
S S