Chức năng cụ thể của các chân điều khiển part7 pot

Đo lực và ứng suất Trang 49
SVTH :HÀ THANH LÂM - PHẠM TRỌNG QUỲNH
b. Lưu đồ tính BIẾN DẠNG:


























c. Lưu đồ tính ỨNG SUẤT:

Bắt đầu

Nhập các hằng số

W,B,H,a
Kết thúc

Tính E=B.H
2
/6

Biến dạng:=





= (p*a)/E.W

Ứng suất :=


Bắt đầu

Kết thúc


:=(p*a)/W

Đo lực và ứng suất Trang 50
SVTH :HÀ THANH LÂM - PHẠM TRỌNG QUỲNH








PHẦN D
THI CÔNG

Đo lực và ứng suất Trang 51
SVTH :HÀ THANH LÂM - PHẠM TRỌNG QUỲNH
1. Sơ đồ nguyên lý:

Đo lực và ứng suất Trang 52
SVTH :HÀ THANH LÂM - PHẠM TRỌNG QUỲNH
2. . Sơ đồ mạch in:

Đo lực và ứng suất Trang 53

SVTH :HÀ THANH LÂM - PHẠM TRỌNG QUỲNH
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.
Đo lực và ứng suất Trang 85
SVTH :HÀ THANH LÂM - PHẠM TRỌNG QUỲNH
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
Đo lực và ứng suất Trang 86
SVTH :HÀ THANH LÂM - PHẠM TRỌNG QUỲNH
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
epsilon,e : real;
Begin
e:=5000;
epsilon:=(p*a)/(w*E);
gotoxy(20,11);
write('BIEN-DANG : Epsilon = ', epsilon:8:3, ' us');
End;

Procedure OFFSET;
Var
X:real;
Begin
Repeat
docdulieu ;
gotoxy(20,5);
writeln(X);
delay(10000);

gotoxy(20,5);
Đo lực và ứng suất Trang 87
SVTH :HÀ THANH LÂM - PHẠM TRỌNG QUỲNH
writeln(' ');
Until Upcase(readkey) = 'N';
End;

{================CHUONG TRINH CHINH===================}

BEGIN
CLRSCR;
tieude;
repeat
docdulieu;
luc;
ungsuat ;
biendang;
delay(10000);
delay(1500);
until keypressed;
END.