(Đề tài NCKH) lập trình tính toán cầu thang thông dụng

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 MÃ SỐ: SV2018-46 CƠNG TRÌNH NGHIÊN CỨU KHOA HỌC SINH VIÊN LẬP TRÌNH TÍNH TỐN MỘT SỐ CẦU THANG THƠNG DỤNG SKC006735 Tp Hồ Chí Minh, tháng 08/2018 Báo cáo Nghiên cứu khoa học MỤC LỤC THÔNG TIN KẾT QUẢ NGHIÊN CỨU CỦA ĐỀ TÀI MỞ ĐẦU CHƯƠNG 1: CƠ SỞ LÝ THUYẾT 1.1 KHÁI NIỆM CHUNG 1.2 CẤU TẠO CẦU THANG 1.3 XÁC ĐỊNH TẢI TRỌNG LÊN BẢN THANG 1.4 CẦU THANG DẠNG BẢN VẾ .10 CHƯƠNG 2: CHƯƠNG TRÌNH TÍNH TỐN CẦU THANG THƠNG DỤNG 20 2.1 Ý TƯỞNG LIÊN KẾT VỚI PHẦN MỀM ETABS 20 2.3 CÁCH SỬ DỤNG NGƠN NGỮ LẬP TRÌNH VISUAL BASIC ĐỂ TÁC ĐỘNG ĐẾN PHẦN MỀM ETABS 22 2.4 LƯU ĐỒ Q TRÌNH TÍNH TỐN CỦA CHƯƠNG TRÌNH 28 2.5 MODULE TÍNH TỐN CỦA CHƯƠNG TRÌNH 29 2.6 CODE CHO CÁC NÚT CỦA CHƯƠNG TRÌNH TÍNH .32 CHƯƠNG 3: KIỂM CHỨNG KẾT QUẢ TÍNH CỦA CHƯƠNG TRÌNH 38 3.1 TÍNH TỐN THEO LÝ THUYẾT 39 3.2 TÍNH TỐN BẰNG CHƯƠNG TRÌNH .46 3.3 SO SÁNH VÀ NHẬN XÉT KẾT QUẢ .52 CHƯƠNG 4: ỨNG DỤNG VÀO CƠNG TRÌNH THỰC TẾ 53 4.1 GIỚI THIỆU CƠNG TRÌNH .53 4.2 THIẾT KẾ CẦU THANG TẦNG ĐIỂN HÌNH CHO THÁP A 54 KẾT LUẬN 62 TÀI LIỆU THAM KHẢO 63 PHỤ LỤC 64 Trang Báo cáo Nghiên cứu khoa học BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐH SƯ PHẠM KỸ THUẬT TPHCM THÔNG TIN KẾT QUẢ NGHIÊN CỨU CỦA ĐỀ TÀI Thông tin chung: - Tên đề tài: Lập trình tính tốn số cầu thang thơng dụng - SV thực hiện: Châu Nhật Tiến - Lớp: 15149CL2 Khoa: Chất Lượng cao - Người hướng dẫn: TS Trần Tuấn Kiệt Năm thứ: Mã số SV: 15149048 Số năm đào tạo: năm Mục tiêu đề tài: Tạo chương trình tính tốn tự động hóa cầu thang với trường hợp tải trọng kích thước cầu thang cách khoa học xác Tính sáng tạo: Tìm cách tạo mơ hình phần mềm ETABS ngơn ngữ lập trình Visual Basic Kết nghiên cứu: Tạo chương trình tính tốn loại cầu thang thơng thường Đóng góp mặt giáo dục đào tạo, kinh tế - xã hội, an ninh, quốc phòng khả áp dụng đề tài: Rút ngắn thời gian xây dựng mơ hình phần mềm ETABS để tìm nội lực, phát triển cách tạo thư viện mơ hình để rút ngắn thời gian mơ hình Ngày 15 tháng năm 2018 SV chịu trách nhiệm thực đề tài (kí, họ tên) Nhận xét người hướng dẫn đóng góp khoa học SV thực đề tài: Xác nhận Trường (kí tên đóng dấu) tháng năm Ngày Người hướng dẫn (kí, họ tên) Trang Báo cáo Nghiên cứu khoa học MỞ ĐẦU Sự cần thiết đề tài Hiện phát triển xây dựng, cơng việc lập trình tính tốn việc vơ cần thiết kỹ sư kết cấu, việc lập trình giúp công việc trở nên khoa học tiết kiệm thời gian cho người kỹ sư nâng cao hiệu làm việc Bên cạnh tạo chương trình tốn ,việc xây dựng mơ hình tính phần mềm máy tính chuyên ngành ( ETABS,SAFE,SAP200,ROBOT, ) để xác định nội lực việc khơng thể thiếu người kỹ sư, từ ý tưởng tạo chương tính xây dựng mơ hình tự động theo ý muốn bắt đầu phát triển mơ hình số cầu thang thơng dụng phần mềm ETABS Lý dó chọn đề tài Đối với toán siêu tĩnh việc xác định nội lực tay tốn nhiều thời gian, việc sử dụng phần mềm tính kết cấu để xác định nội lực tiết kiệm nhiều thời gian Bên cạnh việc nhận thấy tầm quan trọng việc lập trình tính tốn tính giúp ích nhiều cho người kỹ sư Mục tiêu đề tài Việc tạo chương trình tính tốn cầu thang tự động giải phần cơng việc tính tốn cơng trình lớn Nhưng vấn đề quan trọng nghiên cứu liên kết với phần mềm ETABS cách tự động, từ phát triển nhiều việc xây dựng mơ hình cách tự động Phương pháp nghiên cứu Tìm hiểu nắm vững quy trình tính tốn cầu thang bê tơng cốt thép theo tiêu chuẩn Việt Nam Xây dựng thư viện mơ hình phần mềm ETABS xuất thơng tin mơ hình sang dạng text, từ dùng ngơn ngữ lập trình Visual Basic để marco dạng text, từ tạo hàng loạt mơ hình có kích thước tiết diện khác gán tải Trang Báo cáo Nghiên cứu khoa học trọng tự động Từ sử dụng ngơn ngữ lập trình Visual Basic để viết lệnh tính tốn bố trí cốt thép theo TCVN Áp dụng tính tốn kiểm chứng cho số cơng trình thực tế Trang Báo cáo Nghiên cứu khoa học CHƯƠNG 1: CƠ SỞ LÝ THUYẾT 1.1 KHÁI NIỆM CHUNG Cầu thang phương tiện giao thơng đứng cơng trình, hình từ bậc liên tiếp tọa thành thân ( vế) thang, vế thang nối với chiếu nghỉ, chiếu tới để tạo thành cầu thang Cầu thang yếu tô quan trọng công dụng nghệ thuật kiến trúc, nâng cao tính thẩm mỹ cơng trình Các phận cầu thang gồm : thân thang, chiếu nghỉ, chiếu tới, lan can, tay vịn, dầm thang Chiều rộng thân thang Tính từ mặt tường đến mép ngồi tay vịn - Nhà ở: thơng thường rộng từ 1.4 m - Nhà cộng nghiệp: từ 1.2 1.8 m - Nhà công cộng : từ 1.4 Độ dốc kích thước bậc thang Độ dốc cầu thang phụ thuộc vào chiều ccao (hb) , chiều rộng (lb) bậc thang quan hệ chặt chẽ với bước chân người Công thức quan hệ chiều rộng, chiều cao bậc thang l 2h b Độ dốc cầu thang: Bảng 1.1 : Tổng kết kích thước bậc thang độ dốc Phạm vi Chiều cao Chiều rộng Độ dốc Trang Báo cáo Nghiên cứu khoa học Bảng 1.2 : Tổng kết kích thước bậc thang theo tính chất cơng trình Kích thước Cao Rộng Lan can tay vịn: chiều cao lan can quan hệ với độ dấu cầu thang tính từ trung tâm mặt bậc thang trở lên 900 mm Hình dáng cầu thang: - Cầu thang vế thẳng: hình chữ I - Cầu thang vế gấp khúc vng: hình chữ L - Cầu thang vế gấp khúc song song: hình chữ O - Cầu thang vế thẳng gấp khúc vuộng: hình chữ T - Cầu thang vế thẳng gấp gấp khúc song song: hình chữ M - Cầu thang vế gấp khúc vng : hình chữ U - Cầu thang vế vng góc: hình vng - Cầu thang vế gấp song song: hình chữ X - Cầu thang vế gấp khúc nhọn: hình chữ V - Cầu thang xoắn - Cầu thang tròn Trang Báo cáo Nghiên cứu khoa học Hình 1.1: Hình dáng số cầu thang thường gặp 1.2 CẤU TẠO CẦU THANG Bảng 1.3 : Chiều dày, khối lượng lớp cấu tạo cầu thang STT Trang Báo cáo Nghiên cứu khoa học Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN2" Selection.Find.Execute Selection.TypeText lct Selection.Find.Text = "TIEN3" Selection.Find.Execute Selection.TypeText lct + lbn Selection.Find.Text = "TIEN4" Selection.Find.Execute Selection.TypeText lct + lbn + lcn Trang 68 Báo cáo Nghiên cứu khoa học Selection.Find.Text = "TIEN11" Selection.Find.Execute Selection.TypeText lk4 Selection.Find.Text = "TIEN12" Selection.Find.Execute Selection.TypeText lk1 Selection.Find.Text = "TIEN5" Selection.Find.Execute Selection.TypeText tdbn Selection.Find.Text = "TIEN6" Selection.Find.Execute Selection.TypeText tdcn Selection.Find.Text = "TIEN7" Selection.Find.Execute Selection.TypeText tdct Selection.Find.Text = "TIEN8" Selection.Find.Execute Selection.TypeText htai Selection.Find.Text = "TIEN9" Selection.Find.Execute Selection.TypeText ttbn Selection.Find.Text = "TIEN8" Trang 69 Báo cáo Nghiên cứu khoa học Selection.Find.Execute Selection.TypeText htai Selection.Find.Text = "TIEN10" Selection.Find.Execute Selection.TypeText ttcnct Selection.Find.Text = "TIEN8" Selection.Find.Execute Selection.TypeText htai Selection.Find.Text = "TIEN10" Selection.Find.Execute Selection.TypeText ttcnct End With End Sub 1.2 Code cho lấy mơ hình dạng Sub show1() Dim wApp As Word.Application Dim wDoc As Word.Document Set wApp = CreateObject("word.application") wApp.Visible = True ht = Sheet2.Range("B3") 'Chieu cao tang lct = Sheet2.Range("B7") 'Chieu dai chieu toi lbn = Sheet2.Range("B8") 'Chieu dai ban nghieng lcn = Sheet2.Range("B9") 'Chieu dai chieu nghi Trang 70 Báo cáo Nghiên cứu khoa học tdbn = Sheet2.Range("B4") ' Tiet dien ban nghieng tdct = Sheet2.Range("B5") ' Tiet dien chieu toi tdcn = Sheet2.Range("B6") ' Tiet dien chieu nghi ttbn = Sheet2.Range("K8") 'Tinh tai ban nghieng ttcnct = Sheet2.Range("K14") 'Tinh tai chieu nghi chieu toi htai = Sheet2.Range("K9") ' Hoat tai lk1 = Sheet2.Range("C19") ' Lien ket tai diem lk4 = Sheet2.Range("C20") ' Lien ket tai diem vl = Sheet2.Range("C15") ' Vat lieu With wApp Visible = True Documents.Open "C:\Users\nhatt\Desktop\dang2.docx" Selection.Find.Text = "TIEN1" Selection.Find.Execute Selection.TypeText ht Selection.Find.Text = "TIEN2" Selection.Find.Execute Selection.TypeText lbn Selection.Find.Text = "TIEN3" Selection.Find.Execute Selection.TypeText lcn + lbn Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Trang 71 Báo cáo Nghiên cứu khoa học Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Trang 72 Báo cáo Nghiên cứu khoa học Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Trang 73 Báo cáo Nghiên cứu khoa học Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Trang 74 Báo cáo Nghiên cứu khoa học Selection.Find.Text = "TIEN2" Selection.Find.Execute Selection.TypeText lbn Selection.Find.Text = "TIEN3" Selection.Find.Execute Selection.TypeText lcn + lbn Selection.Find.Text = "TIEN12" Selection.Find.Execute Selection.TypeText lk1 Selection.Find.Text = "TIEN11" Selection.Find.Execute Selection.TypeText lk4 Selection.Find.Text = "TIEN5" Selection.Find.Execute Selection.TypeText tdbn Selection.Find.Text = "TIEN6" Selection.Find.Execute Selection.TypeText tdcn Selection.Find.Text = "TIEN9" Selection.Find.Execute Selection.TypeText ttbn Trang 75 Báo cáo Nghiên cứu khoa học Selection.Find.Text = "TIEN8" Selection.Find.Execute Selection.TypeText htai Selection.Find.Text = "TIEN10" Selection.Find.Execute Selection.TypeText ttcnct Selection.Find.Text = "TIEN8" Selection.Find.Execute Selection.TypeText htai End With End Sub 1.3 CODE cho lấy mơ hình dạng Sub show2() Dim wApp As Word.Application Dim wDoc As Word.Document Set wApp = CreateObject("word.application") wApp.Visible = True ht = Sheet2.Range("B3") 'Chieu cao tang lct = Sheet2.Range("B7") 'Chieu dai chieu toi lbn = Sheet2.Range("B8") 'Chieu dai ban nghieng lcn = Sheet2.Range("B9") 'Chieu dai chieu nghi tdbn = Sheet2.Range("B4") ' Tiet dien ban nghieng tdct = Sheet2.Range("B5") ' Tiet dien chieu toi tdcn = Sheet2.Range("B6") ' Tiet dien chieu nghi ttbn = Sheet2.Range("K8") 'Tinh tai ban nghieng Trang 76 Báo cáo Nghiên cứu khoa học ttcnct = Sheet2.Range("K14") 'Tinh tai chieu nghi chieu toi htai = Sheet2.Range("K9") ' Hoat tai lk1 = Sheet2.Range("C19") ' Lien ket tai diem lk4 = Sheet2.Range("C20") ' Lien ket tai diem vl = Sheet2.Range("C15") ' Vat lieu With wApp Visible = True Documents.Open "C:\Users\nhatt\Desktop\dang3.docx" Selection.Find.Text = "TIEN1" Selection.Find.Execute Selection.TypeText ht Selection.Find.Text = "TIEN2" Selection.Find.Execute Selection.TypeText lbn Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Trang 77 Báo cáo Nghiên cứu khoa học Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Trang 78 Báo cáo Nghiên cứu khoa học Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Trang 79 Báo cáo Nghiên cứu khoa học Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN13" Selection.Find.Execute Selection.TypeText vl Selection.Find.Text = "TIEN2" Selection.Find.Execute Selection.TypeText lbn Selection.Find.Text = "TIEN12" Selection.Find.Execute Selection.TypeText lk1 Trang 80 Báo cáo Nghiên cứu khoa học Selection.Find.Text = "TIEN11" Selection.Find.Execute Selection.TypeText lk4 Selection.Find.Text = "TIEN5" Selection.Find.Execute Selection.TypeText tdbn Selection.Find.Text = "TIEN9" Selection.Find.Execute Selection.TypeText ttbn Selection.Find.Text = "TIEN8" Selection.Find.Execute Selection.TypeText htai End With End Sub Trang 81 ... BẢN THANG 1.4 CẦU THANG DẠNG BẢN VẾ .10 CHƯƠNG 2: CHƯƠNG TRÌNH TÍNH TỐN CẦU THANG THƠNG DỤNG 20 2.1 Ý TƯỞNG LIÊN KẾT VỚI PHẦN MỀM ETABS 20 2.3 CÁCH SỬ DỤNG NGƠN NGỮ LẬP TRÌNH... ĐÀO TẠO TRƯỜNG ĐH SƯ PHẠM KỸ THUẬT TPHCM THÔNG TIN KẾT QUẢ NGHIÊN CỨU CỦA ĐỀ TÀI Thông tin chung: - Tên đề tài: Lập trình tính tốn số cầu thang thông dụng - SV thực hiện: Châu Nhật Tiến - Lớp:... tầm quan trọng việc lập trình tính tốn tính giúp ích nhiều cho người kỹ sư Mục tiêu đề tài Việc tạo chương trình tính tốn cầu thang tự động giải phần cơng việc tính tốn cơng trình lớn Nhưng vấn