Tài liệu Đo lực và ứng suất, chương 8 pptx

Chương 8:
THI COÂNG
1. Sô ñoà nguyeân lyù:
2. . Sơ đồ mạch in:
3 . Tiến hành thi công:
Sau khi tính toán thiết kế và lựa chọn các linh kiện phù
hợp trong mạch đo, nhóm sinh viên thực hiện tiến hành thi
công.
1. Các bước thi công :
Gia công mạch in: đây là bước đầu tiên trong phần thi
công, mạch in được thi công với sự trợ giúp của phần mềm
Eagle, để đơn giản và bớt cồng kềnh nhóm sinh viên thực
hiện mạch in 2 lớp.
Sau khi có mạch in ta tiến hành lắp ráp. Do trong mạch
sử dụng IC và để tiện lợi trong việc sửa chữa khi có hư hỏng
do hàn hay IC bò hư nên sử dụng những socket còn được gọi
là đế để cắm chúng vào.
Lắp ráp thêm phần nguồn bao gồm các IC ổn áp 7805,
7812, 7905, 7912, LM723.
Khi mạch in đã hoàn tất vấn đề còn lại là giao tiếp với
máy tính. Để giao tiếp được máy tính thì cần phải có một
chương trình nạp vào máy tính và chương trình này được
nhóm thực hiện viết bằng ngôn ngữ Pascal.
2. Tiến hành kiểm tra mạch :
Đầu tiên kiểm tra phần mạch giao tiếp.
Bật công tắt nguồn dùng VOM kiểm tra điện áp tại các
chân IC (lúc này chưa đặt IC vào trong mạch). Sau khi điện
áp nguồn đã kiểm tra xong, tắt công tắt nguồn, cắm IC vào
trong mạch, rồi cấp nguồn trở lại. Lúc này đến kiểm tra cân
bằng không trong mạch. Dùng VOM đặt ở thang đo điện áp
ở ngõ ra của cầu Wheatstone và điều chỉnh biến trở tinh

chỉnh cho đến khi nào VOM chỉ ở mức 0V thì quá trình cân
bằng hoàn tất.
Dùng dây để nối giữa mạch giao tiếp và máy tính thông
qua cổng máy in. Bước cuối cùng còn lại là gọi chương trình
để bắt đầu đo đạc.
3. Kết quả thi công:
Những phần thực hiện và chưa thực hiện được của nhóm gồm:
 Về phần mềm: nhóm đã viết được phần mềm điều khiển
và xử lý dữ liệu.
 Về phần cứng: tuy mạch không chạy nhưng nhóm đã
khoanh vùng để xác đònh mạch bò sự cố ở vùng nào. Về
mạch khuếch đại thì có điện áp tại ngõ ra với hệ số khuếch
đại khoảng 1000 lần và về IC đa hợp 74257 cũng đa hợp
được 12 bit dữ liệu. Vì vậy vấn đề còn lại chỉ là IC 7109.
IC này rất mới đối với nhóm thực hiện, nhóm chỉ có tài
liệu dòch để tự tìm hiểu về IC này chứ ít thấy dùng ở mạch
thực tiễn. Nhóm hy vọng trong những ngày còn lại nhóm sẽ
cố gắng hết sức để đề tài này có giá trò thực thi.
program da;
uses crt;
Var
P:real;Y:byte;
Const
W = 208.3; a = 100;
procedure tieude;
begin
textbackground (1);
textcolor(7);
gotoxy(30,5);
writeln('DO LUC VA UNG SUAT');

gotoxy(20,25);
writeln('Copyright by HA THANH LAM - PHAM TRONG
QUYNH ');
end ;
procedure docdulieu;
var X1,X2,X:byte;
begin
port[$378] := $03;
port[$378] := $13;
port[$378] := $33;
port[$378] := $23;
port[$378] := $03;
repeat
X:= port[$379] and $08
until X = $08;
X1:= ((port[$379] SHR 4) XOR $08);
port[$378] := $0B;
X2:= ((port[$379] AND $F0) XOR $80);
Y:= X1 OR X2;
delay(1000);
end;
Procedure LUC;
Var
g:real;
Begin
g:=7.84;
p:=y*g;
gotoxy(20,7);
writeln('LUC : P = ',p:8:3, ' gram');
End;

Procedure UNGSUAT;
Var
sigma:real;
Begin
sigma:= (p*a)/W;
gotoxy(19,9);
write(' UNG-SUAT : Sigma = ',sigma:8:3, '
gram/mm^2');
End;
Procedure BIENDANG;
Var