đo lực và ứng suất, chương 11 pps

Chương 11: Kết quả thi côngNhữ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ương 11: 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;

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

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);

writeln(' ');

Until Upcase(readkey) = 'N';

End;

{================CHUONG TRINH

CHINH===================}

BEGIN

CLRSCR;

tieude;

repeat

luc;

ungsuat ;

biendang;

delay(10000);

delay(1500);

until keypressed;

END