(Luận văn) tính toán hình dáng và sự thay đổi độ dầy của vỏ bồn đựng chất lỏng có sức chịu đều, dưới tác dụng của áp lực chất lỏng và trọng lượng bản thân vỏ bồn

BỘ GIÁO DỤC VÀ ĐÀO TẠO BỘ NÔNG NGHIỆP VÀ PTNT TRƯỜNG ĐẠI HỌC LÂM NGHIỆP - PHẠM QUỐC HOÀN lu an n va p ie gh tn to TÍNH TỐN HÌNH DÁNG VÀ SỰ THAY ĐỔI ĐỘ DẦY CỦA VỎ BỒN ĐỰNG CHẤT LỎNG CÓ SỨC CHỊU ĐỀU, DƯỚI TÁC DỤNG CỦA ÁP LỰC CHẤT LỎNG VÀ TRỌNG LƯỢNG BẢN THÂN VỎ BỒN d oa nl w nf va an lu lm ul LUẬN VĂN THẠC SỸ KỸ THUẬT z at nh oi z m co l gm @ an Lu n va Hà Nội - 2012 ac th si BỘ GIÁO DỤC VÀ ĐÀO TẠO BỘ NÔNG NGHIỆP VÀ PTNT TRƯỜNG ĐẠI HỌC LÂM NGHIỆP PHẠM QUỐC HOÀN lu an n va p ie gh tn to TÍNH TỐN HÌNH DÁNG VÀ SỰ THAY ĐỔI ĐỘ DẦY CỦA VỎ BỒN ĐỰNG CHẤT LỎNG CÓ SỨC CHỊU ĐỀU, DƯỚI TÁC DỤNG CỦA ÁP LỰC CHẤT LỎNG VÀ TRỌNG LƯỢNG BẢN THÂN VỎ BỒN w d oa nl Chuyên ngành: Kỹ thuật máy thiết bị giới hóa nơng lâm nghiệp Mã số: 60.52.14 nf va an lu lm ul LUẬN VĂN THẠC SỸ KỸ THUẬT z at nh oi z m co l gm @ NGƯỜI HƯỚNG DẪN KHOA HỌC: TS VŨ KHẮC BẢY an Lu n va Hà Nội - 2012 ac th si i LỜI CẢM ƠN Trong q trình học tập hồn thành luận văn tố t nghiê ̣p Cao ho ̣c ta ̣i Trường Đa ̣i Ho ̣c Lâm Nghiê ̣p, tác giả nhận quan tâm, tận tình giúp đỡ Thầy cô giáo tham gia giảng dạy Trường Đại học Lâm nghiệp, đặc biệt thầy giáo - TS Vũ Khắc Bảy - Người hướng dẫn khoa học, dành nhiều thời gian, tận tình giúp đỡ, truyền đạt kiến thức quý báu suốt thời gian học tập Nhân dịp tác giả xin bày tỏ lòng biế t ơn và ghi nhận giúp đỡ quý báu Xin chân thành cảm ơn các Thầy cô giáo khoa lu thuộc trường Đại học Lâm nghiệp có nhiều ý kiến góp ý giúp tác giả hoàn an n va thiện Luận văn cách hệ thống tn to Mặc dù có nhiều cố gắng, thời gian cịn hạn chế, nên đề tài gh tránh khỏi thiếu sót định, mong nhận ý p ie kiến đóng góp quý báu Thầy cô giáo, Hội đồng khoa học của trường w để đề tài nghiên cứu tơi hồn thiện oa nl Cuối tác giả xin chân thành cảm ơn đồng nghiệp, bạn bè d người thân gia đình giúp đỡ, động viên tác giả suốt thời gian lu nf va an học tập hoàn thành luận văn tốt nghiệp Xin trân trọng cảm ơn! Tác giả z at nh oi lm ul Hà Nội, ngày 05 tháng 06 năm 2012 z Phạm Quốc Hoàn m co l gm @ an Lu n va ac th si ii MỤC LỤC Trang Trang phụ bìa Lời cảm ơn i Danh mục bảng iv Danh mục hình iv ĐẶT VẤN ĐỀ CHƯƠNG TỔNG QUAN NỘI DUNG NGHIÊN CỨU Các nghiên cứu lý thuyết lu 1.1 an 1.2 Đặt toán .7 va 1.3 Mục tiêu đề tài n Các bước thực nghiên cứu 1.5 Đối tượng - Phạm vi nghiên cứu - Khả ứng dụng 1.5.1 Đối tượng nghiên cứu p ie gh tn to 1.4 w 1.5.2 Phạm vi nghiên cứu 10 oa nl 1.5.3 Khả ứng dụng 10 d Nội dung trình bày luận văn 10 lu an 1.7 Các kết đạt luận văn 11 nf va CHƯƠNG CƠ SỞ LÝ THUYẾT SỬ DỤNG TRONG LUẬN VĂN .12 lm ul 2.1 Các hệ thức lý thuyết đàn hồi .12 2.2 Các hệ thức lý thuyết màng vỏ tròn xoay 13 z at nh oi 2.2.1 Định nghĩa ký hiệu 13 2.2.2 Phương trình cân vỏ trịn xoay chịu tải đối xứng trục 18 z CHƯƠNG TRẠNG THÁI ỨNG SUẤT ĐỀU CỦA VỎ BỒN ĐỰNG @ gm CHẤT LỎNG CĨ DẠNG VỎ TRỊN XOAY 23 l 3.1 Trạng thái ứng suất vỏ tròn xoay chịu áp lực thủy tĩnh trọng m co lượng thân 23 an Lu 3.2 Phương pháp tính tốn hình dạng độ dầy vỏ trịn xoay có trạng thái ứng suất điểm , chịu áp lực thủy tĩnh trọng lượng thân .26 n va ac th si iii 3.2.1 Tính tốn hình dạng độ dầy vỏ bồn .26 3.2.2 Tính tốn thể tích bồn .31 CHƯƠNG KẾT QUẢ TÍNH TỐN VỚI CÁC SỐ LIỆU CỤ THỂ 32 4.1 Cơng cụ tính tốn 32 4.2 Các kết tính tốn .32 4.2.1 Tính tốn với vật liệu bê-tông cốt thép : 33 4.2.2 Tính tốn với vật liệu composite : 36 4.3 Nhận xét kết tính tốn 40 KẾT LUẬN 41 lu TÀI LIỆU THAM KHẢO an n va p ie gh tn to d oa nl w nf va an lu z at nh oi lm ul z m co l gm @ an Lu n va ac th si iv DANH MỤC CÁC BẢNG Tên bảng Trang 4.1 Tọa độ (v , t) độ dầy h điểm kinh tuyến v 34 4.2 Tọa độ (v , t) độ dầy h điểm kinh tuyến v 37 TT DANH MỤC CÁC HÌNH lu TT Tên hình Trang 1.2 Tháp chứa nước Trảng Bom – Đồng Nai 2.1 Mặt hình học vỏ 13 Mặt trung bình vỏ 13 2.3 Hình 2.3 19 2.4 nl 20 2.5 Hình 2.5 21 2.6 Cân vỏ vòng tròn vĩ tuyến 3.1 Chọn hệ tọa độ tính tốn : Trục 0v trục 0t 3.2 Hình 3.2 3.3 Tại đỉnh bồn 4.1 Mặt cắt đứng thành vỏ bồn 33 4.2 Mặt cắt đứng thành vỏ bồn 36 gh tn to w n va Hình ảnh trình thi công xây dựng tháp chứa nước ie an 1.1 2.2 p Lực tác động lên mặt cạnh phân tố d oa lu nf va an 22 24 lm ul 24 z at nh oi 28 z m co l gm @ an Lu n va ac th si ĐẶT VẤN ĐỀ Trong nghiệp công nghiệp hóa đại hóa đất nước lĩnh vực khí chể tạo lắp giáp sửa chữa máy, thiết kế, thiết bị cho loại hình cơng nghệ sản xuất đóng vai trị quan trọng Phạm vi sử sản phẩm nghành chế tạo lắp máy rộng rãi.từ chi tiết nhỏ đơn giản đến chi tiết, sản phẩm có kích thước lớn phức tạp Những sản phẩm tạo nhờ má móc thiết bị khác Với xu tồn cầu hóa để nâng cao sức mạnh cạnh tranh trình hội nhập cần phát triển theo lu an hướng tối giảm chi phí gia cơng sở đảm bảo nâng cao chất lượng n va sản phẩm tn to Trong xu toàn cầu hóa để nâng cao sức cạnh tranh q trình ie gh hội nhập cần phát triển sản xuất theo hướng tối giảm chi phí gia p cơng sở đảm bảo nâng cao chất lượng sản phẩm,cũng thẩm mĩ nl w Bồn chứa chất lỏng chủ yếu ta thấy nhiều cơng nghiệp hóa dầu tất d oa hoạt động sản xuất bn bán tích trữ liên quan đến khâu bờn bể an lu chứa Bồn bể chứa tiếp nhận nguyên liệu trước đưa vào sản xuất tồn trữ nf va sau sản xuất Bờn chứa có vai trị quan trọng có nhiệm vụ tờn trữ lm ul nguyên liệu sản phẩm giúp ta nhận biết số lượng tồn trữ Tại hoạt động kiểm tra chất lượng, số lượng phân tích tiêu trước xuất z at nh oi hàng tiêu thụ thực Bờn chứa có nhiều loại : Dựa theo chiều cao xây dựng người ta có bể z @ ngầm, bể nổi, bể nửa ngầm bể ngồi khơi Dựa theo áp suất Ta có bể cao l gm áp, bể áp lực trung bình, bể áp thường Phân loại theo vật liệu xây dựng ta m bể trụ nằm, bể hình cầu, hình giọt nước co có bể kim loại bể phi kim, cuối dựa theo hình dạng ta có bể trụ đứng, an Lu n va ac th si Bờn đựng chất lỏng ( tháp nước ) với kích thước lớn làm vật liệu kim loại vật liệu composite thường xây dựng khu cơng nghiệp dân sinh Bờn nước có dạng vỏ tròn xoay đặt trụ giá đỡ Do áp lực thủy tĩnh chất lỏng nên thành bồn nước xuất ứng xuất , chuyển vị Nếu với hình dáng trịn xoay tùy ý, tác dụng áp lực chất lỏng trọng lượng thân, điểm vỏ có ứng suất với cường độ khác theo hướng Để bồn làm việc giới hạn cho phép lu cường độ ứng suất u phải nhỏ cường độ ứng suất cho phép p an n va điểm Để tốn nguyên liệu xây dựng cần có hình dáng tn to độ dầy hợp lý để ứng suất theo hướng điểm thành gh vỏ Do vậy, tính tốn hình dạng trịn xoay thay đổi độ dầy vỏ bồn p ie đựng chất lỏng làm vật liệu kim loại hay composite có sức chịu w phía áp lực thủy tĩnh trọng lượng thân giúp cho việc xây oa nl dựng bồn đựng chất lỏng có dạng vỏ trịn xoay làm việc an tồn tối d ưu vật liệu xây dựng an lu nf va Hình dạng tháp nước thường vỏ nón hay dạng giọt nước Tháp nước dạng giọt nước ngồi việc cơng trình thẩm mỹ nơi cơng cộng mà cịn lm ul hình dạng vỏ có sức chịu theo hướng tác dụng áp lực nước z at nh oi trọng lượng thân Vật liệu composite thay nhiều cho vật liệu kim loại z gm @ xây dựng Tính tốn cách chi tiết để tối ưu hóa có chương trình l vật liệu composite chưa có đầy đủ m co tính thuận tiện cho việc thiết kế thi công xây dựng bồn nước có sức chịu an Lu n va ac th si Để đảm bảo cho bồn làm việc đảm bảo tính an tồn hiệu kinh tế đờng thời đáp ứng tính thẩm mĩ địi hỏi việc thiết kế tính tốn phải tỉ mỉ cẩn thận đảm bảo độ xác cao Xuất phát từ yêu cầu thực tiễn nêu trên, đồng ý hội đồng khoa học- công nghệ sở đào tạo SĐH trường ĐHLN, Tôi tiến hành thực luận văn tốt nghiệp với đề tài “Tính tốn hình dáng thay đổi độ dầy vỏ bồn đựng chất lỏng có sức chịu đều, tác dụng áp lực chất lỏng trọng lượng thân vỏ bồn ” lu an n va p ie gh tn to d oa nl w nf va an lu z at nh oi lm ul z m co l gm @ an Lu n va ac th si CHƯƠNG TỔNG QUAN NỘI DUNG NGHIÊN CỨU Các nghiên cứu lý thuyết 1.1 Nghiên cứu độ bền kết cấu học vấn đề quan tâm Trên sở lý thuyết đàn hời mà có quan hệ ứng suất – biến dạng theo Húc, người ta giải nhiều toán độ bền kết cấu dạng bản, vỏ Sự phát triển nghiên cứu học đàn dẻo với mơ hình lý thuyết đàn dẻo khác nhau, người ta có lu an kết nghiên cứu tính toán đàn – dẻo số dạng kết cấu vỏ mỏng va n Bài toán độ bền vỏ có dạng trịn xoay đề cập đến tn to [1], [2], [5] Trong cơng trình tác giả xây dựng phương ie gh trình tính tốn bền cho kết cấu vỏ dạng trịn xoay Cơng trình [3] có nghiên p cứu độ bền ổn định đàn - dẻo vỏ nón chịu áp suất ngồi, cơng oa nl w trình tác giả có xét đến ảnh hưởng đặc trưng vật liệu đến giá trị d lực tới hạn xét đến ảnh hưởng độ mỏng vỏ ( qua tỷ số lu h ) L nf va an giá trị lực tới hạn lm ul Bồn nước dạng vỏ có sức chịu chịu tải ngồi áp lực thủy tĩnh trọng lượng thân vỏ, ta chọn tham số tải trọng lượng z at nh oi riêng chất lỏng  trọng lượng riêng vỏ  B trọng lượng riêng đơn vị diện tích mặt q ( với q =  B h , h chiều dầy vỏ) z gm @ Do tốn đàn hời nghiệm, nên kết cấu học làm việc m co trạng thái ứng suất , biến dạng , chuyển vị l giai đoạn đàn hời ứng với giá trị tải ngồi có an Lu Tải trọng ngồi bờn đựng nước áp lực thủy tĩnh trọng lượng thân vỏ, chúng có cường độ hướng khác điểm Vì để có n va ac th si 42 dáng thay đổi) Do đó, dùng vật liệu có ứng suất cho phép lớn giá trị  tăng lên, lấy giá trị h0 nhỏ ta có sức chứa bờn định trước * Với phần mềm xây dựng, tính tốn nhanh chóng thiết kế thi cơng xây dựng bờn chứa chất lỏng dạng vỏ trịn xoay có sức chịu Điều giúp cho việc lựa chọn hiệu thông số độ dầy vỏ hay thông số vật liệu để xây dựng Đề xuất lu Do khuôn khổ luận văn thạc sỹ, nên đề tài : “Tính tốn hình an va dáng thay đổi độ dầy vỏ bờn đựng chất lỏng có sức chịu đều, n tác dụng áp lực chất lỏng trọng lượng thân vỏ bồn ” chỉ Trên sở nghiên cứu, tính tốn đề tài tiếp tục theo hướng p ie gh tn to nghiên cứu trường hợp vỏ bờn khơng có gân ( gân gia cường) d oa nl w : tính tốn trường hợp vỏ có gân gia cường nf va an lu z at nh oi lm ul z m co l gm @ an Lu n va ac th si TÀI LIỆU THAM KHẢO Brush D O (1975), Almroth B O Buckling of bars, plates and shells, McGraw – Hill, London Huy Bich Dao (2000), Theory of Elasticity, VNU Publishing House, Company, New York Third Edition Huy Bich Dao, Khac Bay Vu (1996), “Influence of the hardening characteristics of material on the critical load in the elastic – plastic lu stability problem of conical shells”, Proceedings of the NCST of an Vietnam, Vol.8, (No.1), pp 23-24 va n Timoshenko S.P, Gere J M, (1961), Theory of elastic stability , 2d ed, to gh tn McGraw – Hill p ie Timoshenko S.P (1940), Theory of Plates and Shells, McGraw-Hill d oa nl w Book Company, New York, First Edition nf va an lu z at nh oi lm ul z m co l gm @ an Lu n va ac th si lu an n va p ie gh tn to d oa nl w PHỤ LỤC nf va an lu z at nh oi lm ul z m co l gm @ an Lu n va ac th si GIAO DIỆN PHẦN CHƯƠNG TRÌNH TÍNH lu an va n CODE CỦA CHƯƠNG TRÌNH TÍNH tn to ie gh Mô dul p Public u, t, x, phi, delX, delPhi, delU, delT, GaMa, GaMaB, XicMa, R1, du_dx, dt_dx, dh_dphi, n, V, Pi, HeSoH, MaxX, MaxY, MaxH As Double w oa nl Public i, j, k As Integer d Public Chieu_dung() As Double Public H0() As Double nf va Public H() As Double an lu Public Chieu_Ngang() As Double lm ul Public Sub CenterForm(frm As Form) z at nh oi frm.Top = (Screen.Height - frm.Height) / frm.Left = (Screen.Width - frm.Width) / End Sub z m an Lu Private Sub Form_Load() co End Sub l Call PrintRep02 gm Private Sub Command1_Click() @ Mô dul n va ac th si Call CenterForm(Form1) End Sub Private Sub Thoat_Click() Unload Me End Sub Private Sub Tinh_Vo() 'Public u, t, x, phi, delX, delPhi, delU,delT, GaMa, GaMaB, XicMa, R1, u0, t0, x0, phi0, du_dx, dt_dx,n ,Chieu_dung, Chieu_Ngang As Double lu an Dim tg, rong, cao, x0, y0, x1, y1, x2, y2, hesoX, hesoY, tgHeSo, tgmu, tgmau, x01, n va x02, y01, y02, delB As Double Pi = 3.1416 gh tn to Dim x1L, y1L, x2L, y2L As Double p ie phi = 0: V = 'H = Text2.Text nl w GaMaB = Text3.Text d oa GaMa = Text1.Text nf va n = Text6.Text an lu XicMa = Text4.Text tgmu = GaMaB / XicMa ReDim Chieu_Ngang(0 To n) ReDim H(0 To n) z at nh oi lm ul ReDim Chieu_dung(0 To n) z m an Lu H(i) = co Chieu_Ngang(i) = l Chieu_dung(i) = gm For i = To n @ ReDim H0(0 To n) n va ac th si H0(i) = Next H(0) = Text2.Text H0(0) = H(0) u = 0: t = 0: x = 0: phi = R1 = * XicMa / GaMaB delPhi = Pi / n delX = R1 * delPhi delU = delPhi lu an delT = R1 * (delPhi) ^ / n va u = u + delU x = x + delX gh tn to t = t + delT p ie phi = phi + delPhi H(1) = H(0) nl w du_dx = GaMa * t / (XicMa * H(1)) + GaMaB * Cos(phi) / XicMa - u / x nf va an lu R1 = / du_dx d oa dt_dx = u / Cos(phi) dh_dphi = H(1) * (GaMaB * Sin(phi) * R1 / XicMa) z at nh oi Chieu_Ngang(1) = x lm ul Chieu_dung(1) = t V = delT * Pi * ((Chieu_Ngang(1) + Chieu_Ngang(0)) / 2) ^ z For i = To n an Lu delU = du_dx * delX m delX = R1 * Cos(phi) * delPhi co l gm @ '+++++++++++++++++++++++++++++++++++++ n va ac th si delT = dt_dx * delX u = u + delU t = t + delT H(i) = H(i - 1) + dh_dphi * delPhi x = x + delX phi = phi + delPhi du_dx = GaMa * t / (XicMa * H(i)) + GaMaB * Cos(phi) / XicMa - u / x dt_dx = u / Cos(phi) R1 = / du_dx lu an dh_dphi = H(i) * (GaMaB * Sin(phi) * R1 / XicMa) n va Chieu_dung(i) = t V = V + delT * Pi * ((Chieu_Ngang(i) + Chieu_Ngang(i - 1)) / 2) ^ gh tn to Chieu_Ngang(i) = x p ie Next MaxX = 0: MaxY = 0: MaxH = nl w For i = To n d oa If MaxX < Abs((Chieu_Ngang(i))) Then MaxX = Abs((Chieu_Ngang(i))) an lu If MaxY < Abs((Chieu_dung(i))) Then MaxY = Abs((Chieu_dung(i))) Next nf va If MaxH < Abs(H(i)) Then MaxH = Abs(H(i)) lm ul '**************************** Ve ChatPic1.Cls x0 = ChatPic1.ScaleWidth / z at nh oi With ChatPic1 z m an Lu hesoY = (cao - y0) / MaxY co hesoX = (rong / 2) / MaxX l cao = ChatPic1.ScaleHeight * 0.9 - y0 gm rong = ChatPic1.ScaleWidth * 0.9 @ y0 = ChatPic1.ScaleHeight * 0.1 n va ac th si Text7.Text = "" Text7.Text = Text7.Text & Round(V / 100 ^ 3, 1) & " m^3" & vbNewLine '****************** tgHeSo = hesoX If tgHeSo > hesoY Then tgHeSo = hesoY hesoX = tgHeSo hesoY = tgHeSo HeSoH = CDbl(Text8.Text) '***************** lu an ChatPic1.DrawWidth = n va For i = To n y1 = y0 + (Chieu_dung(i) * hesoX) gh tn to x1 = x0 + (Chieu_Ngang(i) * hesoX) p ie x2 = * x0 - x1 y2 = y1 nl w ChatPic1.PSet (x1, y1), vbRed an lu If i > Then d oa ChatPic1.PSet (x2, y2), vbRed nf va ChatPic1.Line (x1L, y1L)-(x1, y1), vbRed ChatPic1.Line (x2L, y2L)-(x2, y2), vbRed x2L = x2: y2L = y2 Next z at nh oi x1L = x1: y1L = y1 lm ul End If z m an Lu y1 = y0 + (Chieu_dung(i) * hesoX) co x1 = x0 + (Chieu_Ngang(i) * hesoX) l For i = To n gm ChatPic1.DrawWidth = @ '++++++++++ n va ac th si x2 = * x0 - x1 y2 = y1 x01 = x0 + ((Chieu_Ngang(i) - HeSoH * H(i) * Sin(i * delPhi)) * hesoX) y01 = y0 + ((Chieu_dung(i) + HeSoH * H(i) * Cos(i * delPhi)) * hesoY) x02 = * x0 - x01 y02 = y01 ChatPic1.PSet (x01, y01), vbRed ChatPic1.Line (x1, y1)-(x01, y01), vbBlue ChatPic1.PSet (x02, y02), vbRed lu an ChatPic1.Line (x02, y02)-(x2, y2), vbBlue n va Next gh tn to ChatPic1.DrawWidth = p ie ChatPic1.Line (x02, y02 + 10)-(x01, y01 + 10) nl w ChatPic1.Line (x2, y2 + 10)-(x1, y1 + 10) d oa tg = (x1 - x2) / 100 an lu For i = To 100 nf va ChatPic1.DrawWidth = lm ul x02 = x2 + i * tg Next z at nh oi ChatPic1.Line (x02, y01 + 10)-(x02, y1 + 10) ChatPic1.Line (x0, y0 - 50)-(x0, ChatPic1.ScaleHeight - (y0 / 2)) z gm @ ChatPic1.CurrentX = x0 - 55 ChatPic1.CurrentY = ChatPic1.ScaleHeight - (y0 / 2) - 150 m co ChatPic1.Print "v t " l ChatPic1.FontSize = 14 an Lu n va ac th si ChatPic1.Line (x0, y0 - 50)-(rong * 20 / 19, y0 - 50) ChatPic1.CurrentX = rong * 20 / 19 - 100 ChatPic1.CurrentY = y0 - 180 ChatPic1.FontSize = 14 ChatPic1.Print ">" ChatPic1.CurrentX = rong * 20 / 19 - 100 ChatPic1.CurrentY = y0 ChatPic1.Print "v" lu an n va ChatPic1.FontSize = 13 ChatPic1.CurrentY = y0 - 350 gh tn to ChatPic1.CurrentX = x0 - 200 p ie ChatPic1.Print "0" End With With MSFG1 For i = To n nf va cols = n + an lu rows = d oa nl w '*************************************** lm ul ColWidth(i) = 550 Next FixedCols = z at nh oi ColAlignment(i) = flexAlignCenterTop z m an Lu MSFG1.TextMatrix(1, 0) = "V" co Next l MSFG1.TextMatrix(0, j) = j gm For j = To n @ FixedRows = n va ac th si MSFG1.TextMatrix(2, 0) = "t" MSFG1.TextMatrix(3, 0) = "h" For j = To n MSFG1.TextMatrix(1, j + 1) = Round(Chieu_dung(j), 1) MSFG1.TextMatrix(2, j + 1) = Round(Chieu_Ngang(j), 1) MSFG1.TextMatrix(3, j + 1) = Round(H(j), 1) Next End With End Sub lu an n va Private Sub Tinh_Click() End Sub p ie gh tn to Call Tinh_Vo Private Sub PrintRep02() nl w Dim bay As Boolean Dim rpt As Object nf va Dim s, s1 As String an lu bay2 As Double d oa Dim m0, j, i, k, hg0, DauTren, dau_soLieu, trai, Xic_thanh_CP, Xic_Tam_CP, bay1, lm ul Dim fPreview As New frmPreview Dim dau, chu, stchu As String Set rpt = New AacReport1 z at nh oi Dim ctl As Object z m an Lu ctl.Top = co ctl.Left = l ctl.Name = "txtFieldH0" gm Set ctl = Add("DDActiveReports2.Field") @ With rpt.Sections("reportheader").Controls n va ac th si ctl.Width = 10600 ctl.Alignment = ddTXCenter ctl.Font.Name = ".VnArialH" ctl.Font.Size = 14 ctl.Visible = True ctl.Text = "Kết tính toán" Set ctl = Add("DDActiveReports2.Field") ctl.Name = "txtFieldH2" lu an ctl.Left = n va ctl.Top = 500 ctl.Alignment = ddTXCenter gh tn to ctl.Width = 9000 p ie ctl.Font.Name = ".VnArial" ctl.Font.Size = 13 nl w ctl.Visible = True d oa ctl.Text = " " an lu nf va Set ctl = Add("DDActiveReports2.Field") ctl.Name = "txtFieldH3" ctl.Width = 9000 ctl.Alignment = ddTXRight z at nh oi ctl.Top = 1000 lm ul ctl.Left = 200 z an Lu dau_soLieu = 1500 m ctl.Text = "Ngµy " & Format(Date, "dd/mm/yyyy") co ctl.Visible = True l gm ctl.Font.Size = 10 @ ctl.Font.Name = ".VnArial" n va ac th si For i = To Set ctl = Add("DDActiveReports2.Field") ctl.Name = "txtFieldHson" & i ctl.Left = 100 ctl.Top = dau_soLieu + (i - 1) * 500 ctl.Width = 9800 ctl.Alignment = ddTXLeft ctl.Font.Name = ".VnArial" ctl.Font.Size = 10 lu an ctl.Visible = True n va If i = Then ctl.Text = " thông sè tÝnh to¸n : " gh tn to ctl.Font.Name = ".VnArialH" p ie End If If i = Then ctl.Text = " Ga ma chÊt láng = " & GaMa & " kG/cm^3 ; Ga ma vá = d oa nl w " & GaMaB & " kG/cm^3 ; øng st ®Ịu :" & XicMa & "kG/cm^2 " an lu If i = Then ctl.Text = " Độ dầy vỏ đỉnh: " & H(0) & " cm ; Độ dầy lơn : nf va " & Round(MaxH, 1) & " cm ; ThÓ tÝch bån : " & Round(V / 100 ^ 3, 1) & " m^3" If i = Then ctl.Text = " B¸n kÝnh lín nhÊt : " & Round(MaxX, 1) & " cm ; lm ul ChiỊu cao vßm : " & Round(MaxY, 1) & " cm " Next z at nh oi If i = Then ctl.Text = " " rpt.Image1.Picture = ChatPic1.Image z m an Lu ctl.Width = 10600 co ctl.Top = dau_soLieu + 7500 l ctl.Left = 100 gm ctl.Name = "txtFieldHsonBay" @ Set ctl = Add("DDActiveReports2.Field") n va ac th si ctl.Alignment = ddTXCenter ctl.Font.Name = ".VnArial" ctl.Font.Size = ctl.Visible = True ctl.Font.Name = ".VnArialH" ctl.Text = " Hình ảnh Mặt cắt đứng thành vỏ & Độ dầy vỏ bồn " End With '***************** With rpt.Sections("pageheader").Controls lu an Set ctl = Add("DDActiveReports2.Field") n va ctl.Name = "txtFieldH0H" ctl.Top = 100 gh tn to ctl.Left = p ie 'ctl.Width = rpt.PrintWidth ' - 20 ctl.Width = 10600 nl w ctl.Alignment = ddTXLeft d oa ctl.Font.Name = ".VnArial" nf va ctl.Visible = True an lu ctl.Font.Size = 13 ctl.Text = "Độ dầy h vỏ điểm có tọa độ (v,t) :" '++++++++++++++++++++++ z at nh oi lm ul End With With rpt.Sections("detail").Controls DauTren = 100 z m an Lu For k = To co i=i+1 l For j = To n gm i = -1 @ dau_soLieu = DauTren n va ac th si Set ctl = Add("DDActiveReports2.Field") ctl.Name = "txtFieldHngang_sau" & k & j ctl.Left = + i * 900 + 100 ctl.Top = dau_soLieu + k * 300 ctl.Width = 800 ctl.Alignment = ddTXCenter ctl.Font.Name = ".VnArial" ctl.Font.Size = 10 ctl.Visible = True lu an If i = Then n va If k = Then ctl.Text = " v (cm)" If k = Then ctl.Text = " h (cm)" End If p ie gh tn to If k = Then ctl.Text = " t (cm)" nl w Next If i > Then ctl.Text = MSFG1.TextMatrix(k, j) an lu i = -1 d oa If i = 10 Then End If fPreview.RunReport rpt z at nh oi End With lm ul Next nf va dau_soLieu = dau_soLieu + * 300 + 100 fPreview.arv.Toolbar.Font.Name = "VK Sans Serif" z m co End Sub l gm @ fPreview.Show an Lu n va ac th si