phần mềm thiết kế cốt thép cấu kiện bê tông cốt thép (tcvn 356 2005)

BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT THÀNH PHỐ HỒ CHÍ MINH ĐỀ TÀI NCKH CẤP SINH VIÊN PHẦN MỀM THIẾT KẾ CỐT THÉP CẤU KIỆN BÊ TƠNG CỐT THÉP (TCVN 356-2005) S K C 0 5 MÃ SỐ: SV63 - 2009 S KC 0 THÀNH PHỐ HỒ CHÍ MINH, 2010 BỘ GIÁO DỤC ĐÀO TẠO TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT KHOA CƠ KHÍ MÁY BỘ MÔN CÔNG NGHỆ TỰ ĐỘNG NGHIÊN CỨU KHOA HỌC PHẦN MỀM THIẾT KẾ CỐT THÉP CẤU KIỆN BÊ TƠNG CỐT THÉP (TCVN 356-2005) Mã số: SV63 - 2009 GVHD: Th.S TRẦN TUẤN KIỆT SVTH: VÕ VĂN ĐỒNG TP HỒ CHÍ MINH, 2010 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt I Đặt vấn đề: 1.Đối tượng nghiên cứu: trang 2.Tình hình nghiên cứu ngồi nước trang Những vấn đề tồn trang2 II Giải vấn đề: Mục đích để tài trang Phương pháp nghiên cứu trang 3.Nội dung trang 3.1.1Giải thuật tính dầm trang 3.1.2.Giải thuật thép cột đối xứng: trang 3.2.Phương pháp luận tính tốn 3.2.1 Đối với dầm: .trang 3.2.2 Đối với cột: trang 4.Giao diện người dùng trang 5.Các đoạn code phần mềm trang 11 III.Kết đạt được: 1.Tính khoa học trang 28 2.Khả ứng dụng thực tiễn trang 28 3.Hiệu kinh tế xã hội trang 29 IV Kết luận Kết luận & đề nghị trang 30 V Phụ lục trang 31 SVTH: Võ Vân Đồng –MS:06114031 Page Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt Phần I ĐẶT VẤN ĐỀ I Đối tượng nghiên cứu: -Visual Basic, Visual basic for Excel, Bê tơng cốt thép, Sap 2000 (CSI), Excel, Access II Tình hình nghiên cứu ngồi nước: - Hiện nay, Việt Nam giới nhiều phần mềm thiết kế kết cấu xây dựng Micofeap, gear, bats, graps( Viện cơng nghệ Châu Á- AIT- Thái Lan), Prokon (Anh), Stadd pro (REC) phiên Sap, Etabs (CSI) Mỗi phiên thiết kế theo tiêu chuẩn Anh, Eurocode…Và hiển nhiên TCVN khơng đưa vào phần mềm này! Và kể từ hàng loạt các cơng ty cá nhân xây dựng chương trình tính BTCT từ kiện nội lực tính từ phần mềm Tuy nhiên phần mềm thương mại khơng dám tin tưởng (Hiện chưa có phần mềm đảm bảo chất lượng với viện KHCN phần mềm tính tốn phổ biến FTW( Cty hài Hòa), RDW (CIC)…Còn phần mềm cá nhân viết Excel tính tốn với số lượng nhỏ cơng việc chọn lọc giá trị nội lực từ phần mềm tính nội lực nhiều phức tạp thiếu xác - Vì phần mềm theo tiêu chuẩn riêng nước mang tính chất khơng phổ biến Tuy nhiên phạm vi khu vực Đơng Nam Á TCVN đưa nghiên cứu III.Những vấn đề tồn tại: – Như nói vấn đề tồn lớn tính tốn kết thiết kế cốt thép theo tiêu chuẩn nước ngồi khơng phù hợp xác Ngồi việc thay hệ số tính tốn tiêu chuẩn nước ngồi CSA-94 cho phù hợp TCVN mang tính chất dùng để kiểm tra sau tính tốn TCVN -Việc lập bảng tính Excel tính mang tính chất chiều riêng lẻ cho cặp nội lực Và lập trình VBA hạn chế khó so sánh kết thay đổi tiết diện cấu kiện -Chính mong muốn có phần mềm tính tốn cụ thể xác đặc biệt thay đổi phù hợp tiêu chuẩn TCVN em viết phần mềm này.Vì thời gian có hạn nên nhiều hạn chế( chưa mơ hình nhà, tính với khung phẳng ) với đời phần mềm việt tính tốn nhà từ tầng nhịp đến nhiều tầng nhiều nhịp vài nhấp chuột Và thao tác nhập xuất liệu tương đối dễ dàng Đẩy mạnh tối ưu hóa cơng việc thiết kế kĩ sư xây dựng SVTH: Võ Vân Đồng –MS:06114031 Page Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt Phần II GIẢI QUYẾT VẤN ĐỀ II.1 Mục đích để tài: -Nghiên cứu tính tồn BTCT cơng cụ hỗ trợ (ứng dụng cơng nghệ thơng tin xây dựng) - Giải tốn tính cốt thép (nội lực lấy từ Sap) -Phục vụ sinh viên làm đồ án mơn học, đồ án tốt nghiệp tốt nghiệp làm -Có mã nguồn mở cho sinh viên học tập nghiên cứu -Lập trình thiết kế cốt thép nào, đường phát triển tương lai 2.Phương pháp nghiên cứu: -Đọc tài liệu bê tơng cốt thép -Nghiên cứu Sap -Sự liên quan Excel với Sap -Tạo sở liệu cho cho chương trình -Chạy thử kiểm tra tính xác cho cơng trình -Và viết code hồn chỉnh chương trình 3.Nơi dung: -Sau tính tốn nội lực từ Sap, ta xuất Excel bao gồm nội lực (Element Forces Frames) tên tiết diện thiết kế(Frame Section Assignments) đặt tên tiết diện sau D200x300 dầm, C200x200 cột …Để soft nhận biết tính tốn - Sau nhập liệu từ file Excel vừa xuất vào phần mềm -Chọn điều kiện đầu vào bao gồm B, loại thép, hệ số an tồn… -Nhấn nút để tính tốn -Xuất kết cốt thép bao gồm thứ tự tiết diện, thép cột đối xứng, dầm xuất cốt thép tiết diện gối bụng Excel.(bao gồm momen âm dương tài mặt cắt) SVTH: Võ Vân Đồng –MS:06114031 Page Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt 3.1.Giải thuật tính dầm: Cốt đơn m  R ≥ M  b Rbbho Cốt kép >R M=αm γb Rbho2+ M=αm γb Rbho2+RscAs’(ho-a’) RsAs=ξγbRbbho RsAs=ξγbRbbho+RscAs’ ξ=   2 m As   b Rbbho Rs Tính As As R      SR (1  )  scu 1.1 ;   0.85  0.008 b Rb  sc ,u  500MPa,  b  1;  sc ,u  400MPa,  b  αm=αR A 's  M   R b Rbbho2 Rsc (ho  a ') As≥μminbho Kiểm tra μmin5% ∆μ=|μ1-μ|/μ ∆μ 0.0005 And (as1 / (b * (h - a)) < (xir * ym * Rb / Rs))) = True Then MyFlexGrid.TextMatrix(j, 13) = z MyFlexGrid.TextMatrix(j, 14) = Round(as1, 2) j=j+1 Else MyFlexGrid.TextMatrix(j, 13) = z MyFlexGrid.TextMatrix(j, 14) = "kttd" j=j+1 End If Else am = ar ass = ((m * 10 ^ 6) - am * ym * Rb * b * (h - a) ^ 2) / (Rsc * (h - a - aa)) If (ass / (b * (h - a))) > 0.0005 Then as1 = (xir * ym * Rb * b * (h - a)) / Rs + (Rsc * ass) / Rs If ((as1 / (b * (h - a))) > 0.0005 And (as1 / (b * (h - a)) < (xir * ym * Rb / Rs))) = True Then MyFlexGrid.TextMatrix(j, 13) = z MyFlexGrid.TextMatrix(j, 14) = Round(ass, 2) MyFlexGrid.TextMatrix(j, 15) = Round(as1, 2) j=j+1 ' End If Else MyFlexGrid.TextMatrix(j, 13) = z SVTH: Võ Vân Đồng –MS:06114031 Page 21 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt MyFlexGrid.TextMatrix(j, 14) = "kttd" j=j+1 End If Else MyFlexGrid.TextMatrix(j, 13) = z MyFlexGrid.TextMatrix(j, 14) = "kttd" j=j+1 End If 'Else 'j=j+1 End If Else MyFlexGrid.TextMatrix(j, 13) = "" j=j+1 End If Loop j=j+1 End If Next i Else MsgBox " Du lieu nhap khong dung", vbOKOnly, "Warning" End If Else canhbaothoat: MsgBox " Chua thuc thi duoc vi co mot vai so lieu chua nhap", vbOKOnly, "Warning" SVTH: Võ Vân Đồng –MS:06114031 Page 22 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt End If End If End Sub b.Đoạn code lọc cốt thép để thiết kế : Private Sub cmdx_Click() Dim h, i, qq, kk, uu, k, t, lap, u, max, ab, w, y, f, q, mm Dim ii, dd, nn, asm, dt, d, ss Dim pd, pc, aa As Long ss = Val(txtss) uu = dt = nn = mm = lap = k=4 qq = i=4 ii = h=4 t=4 u=4 ab = '====================================== If txtpc = "" Or txtpd = "" Or txtss = "" Then MsgBox (" Ban chua nhap tiet dien thep de thiet ke"), vbOKOnly, " Warning" SVTH: Võ Vân Đồng –MS:06114031 Page 23 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt Else If IsNumeric(txtpd) = True And IsNumeric(txtpc) = True And (Val(txtpc) > Val(txtpd)) And IsNumeric(Val(txtss)) = True Then pc = Val(txtpc) pd = Val(txtpd) Do While MyFlexGrid.TextMatrix(ii, 1) "" mm = mm + ii = ii + ' mm = 3500 'ii = 3457 Loop Do While MyFlexGrid1.TextMatrix(i, 1) "" h=h+1 i=i+1 Loop For qq = To h Do While Left(MyFlexGrid1.TextMatrix(qq, 4), 1) = "c" Or Left(MyFlexGrid1.TextMatrix(qq, 4), 1) = "C" uu = uu + qq = qq + Loop ' qq = qq + Next qq MyFlexGrid2.Cols = MyFlexGrid2.Rows = (h - - uu) * + uu + ' ==========SAP XEP LAI COI///////////////////////////////////////////////////////////////////////////// -SVTH: Võ Vân Đồng –MS:06114031 Page 24 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt For u = To h max = If Left(MyFlexGrid1.TextMatrix(u, 4), 1) = "c" Or Left(MyFlexGrid1.TextMatrix(u, 4), 1) = "C" Then Do While MyFlexGrid.TextMatrix(t, 1) = k - 'Sheet1.Cells(t, 18) = Sheet2.Cells(u, 4) 'Max = Val(Sheet1.Cel ls(w, 15)) If max > Val(MyFlexGrid.TextMatrix(t, 14)) Then max = max 'w = t t=t+1 lap = lap + Else max = MyFlexGrid.TextMatrix(t, 14) 'w = t + t=t+1 lap = lap + End If Loop 'If Left(Sheet2.Cells(u, 4), 1) = "c" Or Left(Sheet2.Cells(u, 4), 1) = "C" Then MyFlexGrid2.TextMatrix(t - lap + ab, 2) = MyFlexGrid1.TextMatrix(u, 4) w = Val(Mid(MyFlexGrid1.TextMatrix(u, 4), 2, 3)) y = Val(Mid(MyFlexGrid1.TextMatrix(u, 4), 6, 3)) MyFlexGrid2.TextMatrix(t - lap + ab, 1) = k - dt = nn = SVTH: Võ Vân Đồng –MS:06114031 Page 25 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt If max = Then MyFlexGrid2.TextMatrix(t - lap + ab, 3) = "kttd" t=t+1 k=k+1 ab = ab + lap = lap + Else MyFlexGrid2.TextMatrix(t - lap + ab, 3) = max '================================================================== ===== If Val(max) < 153 Or IsNumeric(Val(MyFlexGrid.TextMatrix(t, 14))) = False Then MyFlexGrid2.TextMatrix(t - lap + ab, 6) = "tct" Else pd = Val(txtpd) pc = Val(txtpc) For pd = Val(txtpd) To pc Step nn = Do While Abs(dt) > ss And nn < asm = nn * 3.14 * pd ^ / dt = (asm - max) / max nn = nn + Loop If Abs(dt) < ss Then Exit For End If SVTH: Võ Vân Đồng –MS:06114031 Page 26 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt Next pd If Abs(dt) < ss Then MyFlexGrid2.TextMatrix(t - lap + ab, 6) = nn & "d" & pd Else MyFlexGrid2.TextMatrix(t - lap + ab, 6) = "sai so khong cho phep" End If End If ================================================================== ======== f = * asm / (w * (y - Val(txta))) MyFlexGrid2.TextMatrix(t - lap + ab, 5) = Round(f, 5) t=t+1 k=k+1 ab = ab + lap = lap + End If Else Do While MyFlexGrid.TextMatrix(t, 14) = "" And t < ii t=t+1 lap = lap + Loop If MyFlexGrid1.TextMatrix(u, 4) "" Then MyFlexGrid2.TextMatrix(t - lap + ab, 2) = MyFlexGrid1.TextMatrix(u, 4) w = Val(Mid(MyFlexGrid1.TextMatrix(u, 4), 2, 3)) y = Val(Mid(MyFlexGrid1.TextMatrix(u, 4), 6, 3)) SVTH: Võ Vân Đồng –MS:06114031 Page 27 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt MyFlexGrid2.TextMatrix(t - lap + ab, 1) = k - Do MyFlexGrid2.TextMatrix(t - lap + ab, 3) = MyFlexGrid.TextMatrix(t, 14) dt = '======= xuat phi lan 1============================================================ If Val(MyFlexGrid.TextMatrix(t, 14)) < 153 Or IsNumeric(MyFlexGrid.TextMatrix(t, 14)) = False Then MyFlexGrid2.TextMatrix(t - lap + ab, 6) = "tct" Else pd = Val(txtpd) pc = Val(txtpc) For pd = Val(txtpd) To pc Step nn = Do While Abs(dt) > ss And nn < asm = nn * 3.14 * pd ^ / dt = (asm - MyFlexGrid.TextMatrix(t, 14)) / MyFlexGrid.TextMatrix(t, 14) nn = nn + Loop If Abs(dt) < ss Then Exit For End If Next pd If Abs(dt) > ss Then MyFlexGrid2.TextMatrix(t - lap + ab, 6) = "xemlai" Else SVTH: Võ Vân Đồng –MS:06114031 Page 28 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt MyFlexGrid2.TextMatrix(t - lap + ab, 6) = nn & "d" & pd End If End If '================================================================== ========== MyFlexGrid2.TextMatrix(t - lap + ab, 4) = MyFlexGrid.TextMatrix(t, 15) '==========================lan '================================ If t < ii Then t=t+1 End If Loop Until MyFlexGrid.TextMatrix(t, 14) = "" End If 'F = * Max / (w * (y - a)) ' Sheet1.Cells(t - lap + ab, 20) = F 't = t + k=k+1 ab = ab + lap = lap + End If Next Else MsgBox ("ban nhap chua dung") End If End If SVTH: Võ Vân Đồng –MS:06114031 Page 29 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt End Sub IV Kết đạt được: Tính khoa học: -Thực soft viết vòng năm thời gian tương đối dài, dân khơng chun vơ vàn khó khăn từ việc kiến thức lập trình nâng cao phải tự trang trải lấy Và hầu hết code sử dụng vòng lặp nhiều soft tạo từ nhiều soft nhỏ gắn kết lại với Ngồi để dễ dàng kiểm sốt chương trình tính xác hầu hết đoạn code chạy thử qua VBA –Ngồi chương trình viết với giải thuật tương đối sáng sủa dễ hiểu 2.Ứng dụng thực tiễn: -Thiết kế cốt thép cách nhanh chóng cho cơng trình dân dụng, nhà cao tầng.(Việc tính nội lực phải Sap 2000) - Chúng ta có cơng cụ để kiểm tra kiểm sốt thơng số tính tốn chương trình học, từ thay đối thay để tối ưu hóa bước thiết kế người kĩ sư sau Và hình thành kĩ người kĩ sư nhanh, xác, đọc hiểu làm từ tài liệu sẵn có… -Có thể sử dụng, dễ dàng thay đối rát phù hợp tính tốn thiết kế sau Hiệu kinh tế xã hội: -Việc đời soft tính tốn mang hiệu kinh tế đáng khích lệ việc giải nhanh chóng xác tốn thiết kế vấn đề cốt lõi xây dựng nói chung Rút ngắn thời gian thiết kế đẩy nhanh tiến độ thi cơng giảm chi phí đáng kể thi cơng cơng trình.Dẫn đến giảm chi phí xã hội thi cơng cơng trình - Giảm tính tốn sai dẫn đến cố cơng trình đáng tiếc -Giảm giá thành thiết kế dẫn đến chi phí xã hội giảm SVTH: Võ Vân Đồng –MS:06114031 Page 30 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt Phần3 KẾT LUẬN 1.Kết luận & đề nghị: Sau viết phần mềm dễ dàng nhận thấy VBA cơng cụ mạnh mẽ đơn giản hố, xúc tích hóa, dễ dàng…Và lập chương trình ứng dụng hay lớn bên cạnh nhược điểm giao diện người dùng,các thủ tục chưa phổ biến…Thì mặt lại mạnh mẽ đạt suất cao Khi tính tốn lập trình tính tốn nhỏ nên dùng cơng cụ mạnh mẽ Việc nghiên cứu KHSV thực cần thiết cho mơi trường học tập đặc biệt mơi trường học tập Tuy nhiên việc q nhiều hay chưa có mơi trường nghiên cứu thực đem lại rào cản q lớn để có hình thành đề tài nghiên cứu hồn thành chúng…Như cần có thay đổi cần thiết cấu tổ chức, lẫn hình thức, cách thức cụ thể khoa cá nhân để đẩy mạnh phong trào nghiên cứu khoa học SV Đây soft nhỏ hy vọng qua khích lệ tinh thần học hỏi nghiên cứu khoa XD nói riêng tinh thần học hỏi bạn Sinh viên nói chung Bên cạnh trường cần liên kết chặc chẽ cơng ty bên ngồi đào tạo phải gắn liền với hoạt động thực tiễn tạo nên hiệu cho việc đào tạo Ngồi việc nghiên cứu vấn đề thực tế giải đem lại ý nghĩa lớn kinh tế lẫn giáo dục SVTH: Võ Vân Đồng –MS:06114031 Page 31 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt PHẦN PHỤ LỤC Tài liệu tham khảo: Kết cấu bêtơng cốt thép tập 1,2,3 – Võ Bá Tầm –Nhà xuất đại học quốc gia HCM Kết cấu bê tơng cốt thép tập1-Phan Quang Minh-Ngơ Thế Phong- Nguyễn Đình Cống- NXB KHKT Sổ tay thực hành kết cấu cơng trình-Vũ Mạnh Hùng- NXB Xây Dựng Tính tốn thực hành kết cấu BTCT-Nguyễn Đình Cống- NXB Xây Dựng Tính tốn tiết diện cột BTCT-Nguyễn Đình Cống – NXB Xây Dựng Cẩm nang kết cấu xây dựng- Bùi Đức Tiễn-NXB Xây Dựng MicroAcces 2000 Lập trình Ứng dụng CSDL-Tập 1,2- Nguyến ĐÌnh Tê-NXB Giáo dục Microsoft Visual Basic 6.0 Lập trình CSDL-Nguyễn Thị Ngọc Mai- NXB Giáo Dục Microsoft Visual Basic 6.0 –Nguyễn Minh Hiếu-NXB ĐH Quốc Gia HCM 10 Microsoft Excel VBA programing for the absolute beginer-Andi hanris- NXB Duanne BirnBaum 11 Introduction ti using maccro in microsoft Excel 2003-NXB University of Duran Information of technology Servise 12.Lập trình tính tốn kết cấu-Bùi Đức Tiễn- NXB XÂY DỰNG 13 MSDN of Microsoft corporation 14.TCVN 356-2005 15 Tự Học Lập Trình Visual Basic 6.0 Một Cách Nhanh Chóng Và Dễ Hiểu Qua Các Chương Trình Mẫu-Đậu Quang Tuấn-NXB Tổng Hợp HCM 16.Excel 2002 Power Programming with VBA-John Walkenbach SVTH: Võ Vân Đồng –MS:06114031 Page 32 [...]... –MS:06114031 Page 31 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt PHẦN PHỤ LỤC Tài liệu tham khảo: 1 Kết cấu b tông cốt thép tập 1,2,3 – Võ Bá Tầm –Nhà xuất bản đại học quốc gia tp HCM 2 Kết cấu bê tông cốt thép tập1-Phan Quang Minh-Ngô Thế Phong- Nguyễn Đình Cống- NXB KHKT 3 Sổ tay thực hành kết cấu công trình-Vũ Mạnh Hùng- NXB Xây Dựng 4 Tính toán thực hành kết cấu BTCT-Nguyễn Đình Cống-... cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt Từ Display/Show tables Không chọn các lực riêng lẻ Chọn tất cả các tổ hợp lực cần xuất và chi tiết về tiết diện lẫn nội lực khung SVTH: Võ Vân Đồng –MS:06114031 Page 9 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt Xuất tất cả sang Excel SVTH: Võ Vân Đồng –MS:06114031 Page 10 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD:... thời gian thiết kế đẩy nhanh tiến độ thi công giảm chi phí rất đáng kể khi thi công công trình.Dẫn đến giảm các chi phí xã hội khi thi công công trình - Giảm các tính toán sai dẫn đến các sự cố công trình đáng tiếc -Giảm giá thành thiết kế dẫn đến các chi phí xã hội giảm SVTH: Võ Vân Đồng –MS:06114031 Page 30 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt Phần3 KẾT LUẬN 1.Kết luận... điều kiện đầu vào như B, thép : Để tính toán số liệu vừa nhập vào Lưu ý phải chọn các - Nhấp : Để chương trình lọc các dữ liệu vừa tính toán đồng thời chọn các tiết diện theo yêu cầu - Nhấp : Để chương trình xuất ngược ra Excel SVTH: Võ Vân Đồng –MS:06114031 Page 11 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt Giao diện kết quả khi xuất sang Excel 5 Một số đoạn code chính trong thiết. .. canhbaothoat: MsgBox " Chua thuc thi duoc vi co mot vai so lieu chua nhap", vbOKOnly, "Warning" SVTH: Võ Vân Đồng –MS:06114031 Page 22 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt End If End If End Sub b.Đoạn code lọc cốt thép để thiết kế : Private Sub cmdx_Click() Dim h, i, qq, kk, uu, k, t, lap, u, max, ab, w, y, f, q, mm Dim ii, dd, nn, asm, dt, d, ss Dim pd, pc, aa As Long ss... Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt Giao diện kết quả khi xuất sang Excel 5 Một số đoạn code chính trong thiết kế cốt thép dầm và cột: gama = Val(txths) ab = 1 l=1 t=1 dem = 3 bb = 4 SVTH: Võ Vân Đồng –MS:06114031 Page 12 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt If MyFlexGrid.TextMatrix(1, 1) = "" Then MsgBox ("Chua co du lieu de tinh"), vbOKOnly, "Warning"... ab, 20) = F 't = t + 1 k=k+1 ab = ab + 1 lap = lap + 1 End If Next Else MsgBox ("ban nhap chua dung") End If End If SVTH: Võ Vân Đồng –MS:06114031 Page 29 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt End Sub IV Kết quả đạt được: 1 Tính khoa học: -Thực sự soft này viết trong vòng một năm thời gian có thể tương đối dài, thế nhưng đối với dân không chuyên thì vô vàn những khó khăn... các bước thiết kế của người kĩ sư sau này Và hình thành những kĩ năng cơ bản của người kĩ sư nhanh, chính xác, đọc hiểu và làm được từ các tài liệu sẵn có… -Có thể sử dụng, dễ dàng thay đối vì vậy rát phù hợp khi tính toán thiết kế sau này 3 Hiệu quả kinh tế xã hội: -Việc ra đời soft tính toán mang hiệu quả kinh tế rất đáng khích lệ việc giải nhanh chóng và chính xác bài toán thiết kế vấn đề cốt lõi... z MyFlexGrid.TextMatrix(j, 14) = "kttd:gtd" j=j+1 Else MyFlexGrid.TextMatrix(j, 13) = z MyFlexGrid.TextMatrix(j, 14) = "kttd:ttd" j=j+1 SVTH: Võ Vân Đồng –MS:06114031 Page 18 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt End If Else MyFlexGrid.TextMatrix(j, 13) = z 'Sheet1.Cells(t, 14) = Ass MyFlexGrid.TextMatrix(j, 14) = Round(as1, 4) MyFlexGrid.TextMatrix(j, 16) = Round(muy1,... 2) = MyFlexGrid.TextMatrix(j, 11) '================================================================== =========== 'k = k + 1 'j = j + 1 SVTH: Võ Vân Đồng –MS:06114031 Page 19 Báo cáo NCKH: Phần mềm thiết kế cốt thép GVHD: Ths Trần Tuấn Kiệt 'MyFlexGrid2.Rows = k 'Loop 'i = i + 1 ' VAO DAM Else Do While MyFlexGrid.TextMatrix(j, 1) = i - 3 If MyFlexGrid.TextMatrix(j, 5) "" Then 'j = j + 1 'nhay =