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 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; luc; ungsuat ; biendang; delay(10000); delay(1500); until keypressed; END. . begin port[$3 78] := $03; port[$3 78] := $13; port[$3 78] := $33; port[$3 78] := $23; port[$3 78] := $03; repeat X:= port[$379] and $ 08 until X = $ 08; X1:= ((port[$379]. SHR 4) XOR $ 08) ; port[$3 78] := $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;