Đo lực và ứng suất Trang 1 SVTH :HÀ THANH LÂM - PHẠM TRỌNG QUỲNH 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. Đo lực và ứng suất Trang 2 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); Đo lực và ứng suất Trang 3 SVTH :HÀ THANH LÂM - PHẠM TRỌNG QUỲNH 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 Đo lực và ứng suất Trang 4 SVTH :HÀ THANH LÂM - PHẠM TRỌNG QUỲNH 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 docdulieu; Đo lực và ứng suất Trang 5 SVTH :HÀ THANH LÂM - PHẠM TRỌNG QUỲNH luc; ungsuat ; biendang; delay(10000); delay(1500); until keypressed; END. . Đo lực và ứng suất Trang 1 SVTH :HÀ THANH LÂM - PHẠM TRỌNG QUỲNH 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: . gram/mm^2'); End; Procedure BIENDANG; Var Đo lực và ứng suất Trang 4 SVTH :HÀ THANH LÂM - PHẠM TRỌNG QUỲNH epsilon,e : real; Begin e:=5000; epsilon:=(p*a)/(w*E); gotoxy(20 ,11) ; write('BIEN-DANG :. := $03; repeat X:= port[$379] and $08 until X = $08; X1:= ((port[$379] SHR 4) XOR $08); Đo lực và ứng suất Trang 3 SVTH :HÀ THANH LÂM - PHẠM TRỌNG QUỲNH port[$378] := $0B; X2:= ((port[$379]