Phân tích nâng cao khung liên hợp thép bê tông cốt thép phẳng có lien kết nửa cứng

Đại Học Quốc Gia Thành Phố Hồ Chí Minh TRƯỜNG ĐẠI HỌC BÁCH KHOA ***** CHU VIỆT CƯỜNG PHÂN TÍCH NÂNG CAO KHUNG LIÊN HP THÉP – BÊTÔNG CỐT THÉP PHẲNG CÓ LIÊN KẾT NỬA CỨNG CHUYÊN NGÀNH : XÂY DỰNG DÂN DỤNG VÀ CÔNG NGHIỆP MÃ SỐ NGÀNH : 23.04.10 LUẬN VĂN THẠC SĨ TP HỒ CHÍ MINH, THÁNG 10 NĂM 2004 CÔNG TRÌNH ĐƯC HOÀN THÀNH TẠI TRƯỜNG ĐẠI HỌC BÁCH KHOA ĐẠI HỌC QUỐC GIA TP HỒ CHÍ MINH Cán hướng dẫn khoa học: Phó Giáo Sư - Tiến Só Bùi Công Thành Cán chấm nhận xét 1: Cán chấm nhận xét 2: Luận văn thạc só bảo vệ HỘI ĐỒNG CHẤM BẢO VỆ LUẬN VĂN THẠC SĨ TRƯỜNG ĐẠI HỌC BÁCH KHOA, ngày tháng năm ĐẠI HỌC QUỐC GIA TP HỒ CHÍ MINH TRƯỜNG ĐẠI HỌC BÁCH KHOA - CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM Độc Lập – Tự Do – Hạnh Phúc - NHIỆM VỤ LUẬN VĂN THẠC SĨ HỌ VÀ TÊN HỌC VIÊN: CHU VIỆT CƯỜNG PHÁI: NAM NGÀY, THÁNG, NĂM SINH: 02 / 02 / 1979 NƠI SINH: TPHCM CHUYÊN NGÀNH: XD DÂN DỤNG &Ø CÔNG NGHIỆP MÃ SỐ: XDDD 13-002 I- TÊN ĐỀ TÀI: PHÂN TÍCH NÂNG CAO KHUNG LIÊN HP THÉP – BÊTÔNG CỐT THÉP CÓ LIÊN KẾT NỬA CỨNG II- NHIỆM VỤ VÀ NỘI DUNG: − Nghiên cứu phương pháp tính toán mô hình ứng xử liên kết nửa cứng kết cấu liên hợp thép – bêtông cốt thép − Dùng phương pháp phân tích nâng cao áp dụng vào khung liên hợp thép – bêtông cốt thép có xét đến ảnh hưởng tính nửa cứng liên kết − Xây dựng chương trình phân tích khung phẳng liên hợp có liên kết nửa cứng So sánh kết nhận xét III- NGÀY GIAO NHIỆM VỤ IV- NGÀY HOÀN THÀNH NHIỆM VỤ V- HỌ VÀ TÊN CÁN BỘ HƯỚNG DẪN CÁN BỘ HƯỚNG DẪN : 02/02/2004 : 31/10/2004 : PGS - TS BÙI CÔNG THÀNH CHỦ NHIỆM NGÀNH BỘ MÔN QUẢN LÝ NGÀNH Nội dung đề cương luận văn thạc só Hội Đồng Chuyên Ngành thông qua Ngày tháng năm 200 PHÒNG ĐÀO TẠO SĐH KHOA QUẢN LÝ NGÀNH LỜI CẢM ƠN Tôi xin trân trọng cảm ơn Thầy Cô trường Đại Học Bách Khoa Thành Phố Hồ Chí Minh, người tận tình dạy dỗ truyền đạt kiến thức quý giá cho suốt thời gian học đại học cao học trường Khối kiến thức thật hành trang thiếu giúp bước vào đời với tư vững vàng công việc chuyên môn, góp phần nhỏ bé vào công xây dựng đất nước Việt Nam giàu đẹp Đặc biệt xin chân thành bày tỏ lòng biết ơn sâu sắc Phó Giáo Sư - Tiến Só BÙI CÔNG THÀNH, người thầy tận tình hướng dẫn, thøng xuyên động viên tạo điều kiện thuận lợi giúp hoàn thành luận văn Tôi xin gửi lời cảm ơn đến gia đình, bạn bè đồng nghiệp, người cho lời khuyên hữu ích giúp đỡ suốt thời gian qua Học viên CHU VIỆT CƯỜNG TÓM TẮT Thông thường, phân tích kết cấu khung, liên kết cột dầm giả sử cứng tuyệt đối khớp lý tưởng Qua thực tế kết thực nghiệm ứng xử liên kết nằm hai trạng thái gọi tính chất nửa cứng liên kết Vì vậy, để mô tả làm việc gần khung so với thực tế cần phải xét đến tính nửa cứng phân tích khung Luận văn chủ yếu tập trung vào hai vấn đề: • Nghiên cứu cách tính toán mô hình ứng xử liên kết nửa cứng kết cấu liên hợp • Nghiên cứu phương pháp phân tích cho khung phẳng có liên kết nửa cứng áp dụng cho kết cấu liên hợp thép – bêtông cốt thép Vấn đề thứ nhất: Nghiên cứu mối quan hệ mômen góc xoay liên kết Mối quan hệ phi tuyến biểu diễn đường cong phi tuyến Luận văn chọn mô hình Eurocode mô hình ba thông số Kishi – Chen để mô tả mối quan hệ dùng phương pháp phần (component method) để xác định hai thông số (Sj,ini Mj,Rd) dùng mô hình Vấn đề thứ hai: Để phân tích khung có xét đến ảnh hưởng liên kết nửa cứng, phương pháp hiệu chỉnh khớp dẻo sử dụng, phương pháp phân tích nâng cao Với phương pháp phân tích này, việc phân tích khung xét đến đồng thời phi tuyến hình học, phi tuyến vật liệu phi tuyến liên kết cách sử dụng hàm ổn định, môđun tiếp tuyến CRC, hàm parabol mô hình Eurocode Từ nghiên cứu lý thuyết đạt được, chương trình VBCOMPOSITE xây dựng nhằm tự động hóa tính toán Chương trình có khả tính toán hai thông số ba dạng liên kết điển hình kết cấu liên hợp phân tích khung liên hợp có liên kết nửa cứng sử dụng phương pháp hiệu chỉnh khớp dẻo Đây cầu nối lý thuyết việc phân tích khung thực tế Kết chương trình kiểm tra so sánh với thực nghiệm với kết chương trình tính toán khác châu u MỤC LỤC *** CHƯƠNG 0: CHƯƠNG MỞ ĐẦU 0.1 Sự cần thiết nghiên cứu kết cấu liên hợp thép – bêtông cốt thép 0.2 Giới thiệu số công trình kết cấu liên hợp thép – bêtông cốt thép nước nước 0.3 Các ưu điểm kết cấu liên hợp thép – bêtông cốt thép xây dựng công trình 0.4 Đặt vấn đề nghiên cứu .5 0.5 Mục đích phạm vi đề taøi CHƯƠNG 1: TỔNG QUAN 1.1 Giới thiệu 1.2 Tình hình nghiên cứu khung liên hợp thép – bêtông cốt thép có liên kết nửa cứng 1.3 Các tiêu chuẩn có xét đến liên kết nửa cứng 13 1.4 Liên kết nửa cứng 14 1.5 Phương pháp phân tích hiệu chỉnh khớp dẻo 16 CHƯƠNG 2: LIÊN KẾT NỬA CỨNG VÀ MÔ HÌNH HÓA LIÊN KẾT NỬA CỨNG 19 2.1 Giới thiệu 19 2.2 Sự làm việc loại liên kết nửa cứng 20 2.3 Mô hình liên kết nửa cứng theo Eurocode 27 2.4 Mô hình liên kết nửa cứng theo Kishi - Chen 35 2.5 Tóm tắt 37 CHƯƠNG 3: PHƯƠNG PHÁP HIỆU CHỈNH KHỚP DẺO ÁP DỤNG CHO KHUNG LIÊN HP THÉP – BÊTÔNG CỐT THÉP 39 3.1 Một số hạn chế phân tích thiết kế khung thép có liên kết nửa cứng 39 3.2 Các đặc trưng tiết diện 39 3.2.1 Xác định chiều rộng làm việc phần cánh .40 3.2.2 Xác định độ cứng chống uốn cho phần tử 40 3.2.3 Moment kháng dẻo đặc trưng hình học tiết diện dầm liên hợp thép – bêtông cốt thép 42 3.3 Các giả thiết tính toaùn 48 3.4 Phương pháp hiệu chỉnh khớp dẻo 48 3.4.1 Các hàm ổn định kể đến ảnh hưởng bậc hai 49 3.4.2 Độ bền chảy dẻo mặt cắt tiết diện 56 3.4.3 Hiệu chỉnh độ cứng phần tử có khớp dẻo xuất .56 3.4.4 Mô hình môđun tiếp tuyến CRC liên quan đến ứng suất dư 59 3.4.5 Môđun giảm độ cứng hai mặt kết hợp với uốn .60 3.4.6 Quan hệ lực gia tăng – chuyển vị kể đến liên kết nửa cứng 65 3.5 Tóm tắt 67 CHƯƠNG 4: CHƯƠNG TRÌNH PHÂN TÍCH KHUNG LIÊN HP THÉP – BÊTÔNG CỐT THÉP CÓLIÊN KẾT NỬA CỨNG .69 4.1 Giới thieäu 69 4.2 Lưu đồ thực chương trình 70 4.3 Các bước thực chương trình .72 4.3.1 Caùc bước chuẩn bị 72 4.3.2 Nhập liệu toaùn 73 4.3.3 Cách lưu liệu 79 4.3.4 Giải toán đọc kết 80 4.3.5 Mở tập tin 81 4.4 Tóm tắt 82 CHƯƠNG 5: CÁC VÍ DỤ MINH HỌA 83 5.1 Giới thiệu 83 5.2 Ví dụ .84 5.3 Ví duï .90 5.4 Ví dụ .96 5.5 Ví dụ .104 5.6 Tóm tắt 108 CHƯƠNG 6: KẾT LUẬN VÀ HƯỚNG PHÁT TRIỂN 110 6.1 Kết luận 110 6.2 Hướng phát triển .112 TÀI LIỆU THAM KHẢO 114 Phân tích nâng cao khung liên hợp thép – bêtông cốt thép có liên kết nửa cứng Chương 0: Chương mở đầu CHƯƠNG 0: CHƯƠNG MỞ ĐẦU 0.1 SỰ CẦN THIẾT NGHIÊN CỨU VỀ KẾT CẤU LIÊN HP THÉP – BÊTÔNG CỐT THÉP Ngành xây dựng ngành phục vụ trực tiếp cho đời sống nhân loại phát triển xã hội Cùng với thời gian, ngành xây dựng có tiến vượt bậc việc nghiên cứu khoa học, phát triển kỹ thuật, từ ứng dụng vào thực tế, nhằm tạo công trình bền hơn, thẩm mỹ hơn, vó đại Kết cấu liên hợp thép – bêtông cốt thép kết cấu quan trọng, chủ yếu ngành xây dựng Bằng kết cấu này, người tạo công trình cao tầng, tạo nhịp nhà rộng Ngoài có công trình chuyên dụng khác chế tạo kết cấu liên hợp thép – bêtông cốt thép bể chứa, xilô… Mục tiêu người kỹ sư việc phân tích, thiết kế kết cấu phải tìm cách phân tích, tính toán kết cấu cách gần nhất, tìm ứng xử gần với thực tế vật liệu công trình đưa vào sử dụng Do vậy, việc áp dụng khoa học công nghệ tiên tiến, nghiên cứu hoàn thiện phương pháp tính cần thiết ngành xây dựng lónh vực thiết kế kết cấu nói chung kết cấu liên hợp thép – bêtông cốt thép nói riêng 0.2 GIỚI THIỆU MỘT SỐ CÔNG TRÌNH BẰNG KẾT CẤU LIÊN HP THÉP – BÊTÔNG CỐT THÉP TRONG NƯỚC VÀ NGOÀI NƯỚC Ban đầu, cột sử dụng kết cấu liên hợp thép-bêtông cốt thép phát triển dựa nhu cầu chống lửa cho thép hình nhà cao tầng Cho đến thập niên 1960, nhà nghiên cứu bắt đầu áp dụng kết cấu liên hợp thép bêtông cốt thép cho kết cấu nhà cao tầng Trang Phân tích nâng cao khung liên hợp thép – bêtông cốt thép có liên kết nửa cứng Phần phụ lục Frmnhaplieu.Grid3.Row = i Frmnhaplieu.Grid3.Text = i Next i End If End Sub Private Sub NNODEtext_Change() Frmnhaplieu.Grid7.Rows = Val(Frmnhaplieu.NNODEtext.Text) + If Frmnhaplieu.NNODEtext.Text "" And Val(Frmnhaplieu.NNODEtext.Text) Then Frmnhaplieu.Grid7.Cols = Frmnhaplieu.Grid7.FixedCols = Frmnhaplieu.Grid7.FixedRows = Frmnhaplieu.Grid7.Row = Frmnhaplieu.Grid7.Col = Frmnhaplieu.Grid7.Text = "Nut" Frmnhaplieu.Grid7.Col = Frmnhaplieu.Grid7.Text = "X" Frmnhaplieu.Grid7.Col = Frmnhaplieu.Grid7.Text = "Y" Frmnhaplieu.Grid7.Col = Frmnhaplieu.Grid7.Text = "M" Frmnhaplieu.Grid7.Col = Frmnhaplieu.Grid7.Text = "TTBÑ" Frmnhaplieu.Grid7.Col = For i = To Val(Frmnhaplieu.NNODEtext.Text) Frmnhaplieu.Grid7.Row = i Frmnhaplieu.Grid7.Text = i Next i End If End Sub Private Sub NUMCNTtext_Change() Frmnhaplieu.Grid4.Rows = Val(Frmnhaplieu.NUMCNTtext.Text) + If Frmnhaplieu.NUMCNTtext.Text "" And Val(Frmnhaplieu.NUMCNTtext.Text) Then Frmnhaplieu.Grid4.Cols = Frmnhaplieu.Grid4.FixedCols = Frmnhaplieu.Grid4.FixedRows = Frmnhaplieu.Grid4.Row = Frmnhaplieu.Grid4.Col = Frmnhaplieu.Grid4.Text = "Stt" Frmnhaplieu.Grid4.Col = Frmnhaplieu.Grid4.Text = "Cua phan tu" Frmnhaplieu.Grid4.Col = Frmnhaplieu.Grid4.Text = "Dau or 2" Frmnhaplieu.Grid4.Col = Trang 115 Phân tích nâng cao khung liên hợp thép – bêtông cốt thép có liên kết nửa cứng Phần phụ lục Frmnhaplieu.Grid4.Text = "Loai nao" Frmnhaplieu.Grid4.Col = For i = To Val(Frmnhaplieu.NUMCNTtext.Text) Frmnhaplieu.Grid4.Row = i Frmnhaplieu.Grid4.Text = i Next i End If End Sub Private Sub NUMFRMtext_Change() Frmnhaplieu.Grid5.Rows = Val(Frmnhaplieu.NUMFRMtext.Text) + If Frmnhaplieu.NUMFRMtext.Text "" And Val(Frmnhaplieu.NUMFRMtext.Text) Then Frmnhaplieu.Grid5.Cols = Frmnhaplieu.Grid5.FixedCols = Frmnhaplieu.Grid5.FixedRows = Frmnhaplieu.Grid5.Row = Frmnhaplieu.Grid5.Col = Frmnhaplieu.Grid5.Text = "Stt" Frmnhaplieu.Grid5.Col = Frmnhaplieu.Grid5.Text = "XO" Frmnhaplieu.Grid5.Col = Frmnhaplieu.Grid5.Text = "YO" Frmnhaplieu.Grid5.Col = Frmnhaplieu.Grid5.Text = "Loai nao" Frmnhaplieu.Grid5.Col = Frmnhaplieu.Grid5.Text = "Nut i" Frmnhaplieu.Grid5.Col = Frmnhaplieu.Grid5.Text = "Nut j" Frmnhaplieu.Grid5.Col = For i = To Val(Frmnhaplieu.NUMFRMtext.Text) Frmnhaplieu.Grid5.Row = i Frmnhaplieu.Grid5.Text = i Next i End If End Sub Private Sub Text10_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = Then shifting = True Else shifting = False End If Select Case KeyCode Case 38 'Up Text10_KeyPress 13 Trang 116 Phân tích nâng cao khung liên hợp thép – bêtông cốt thép có liên kết nửa cứng Phần phụ luïc SendKeys "{UP}" Case 40 'Down Text10_KeyPress 13 SendKeys "{DOWN}" End Select End Sub Private Sub Text10_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13, 'enter hoac tab Grid1.Text = Text10.Text Text10.Visible = False Grid1.SetFocus If KeyAscii = And Grid1.Col < Grid1.Cols - Then If shifting Then If Grid1.Col > Then Grid1.Col = Grid1.Col - End If Else If Grid1.Col < (Grid1.Cols - 1) Then Grid1.Col = Grid1.Col + End If End If unselect End If KeyAscii = Case 27 KeyAscii = Text10.Visible = False Grid1.SetFocus End Select End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = Then shifting = True Else shifting = False End If Select Case KeyCode Case 38 'Up Text2_KeyPress 13 SendKeys "{UP}" Case 40 'Down Text2_KeyPress 13 SendKeys "{DOWN}" Trang 117 Phân tích nâng cao khung liên hợp thép – bêtông cốt thép có liên kết nửa cứng Phần phụ lục End Select End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13, 'enter hoac tab Grid3.Text = Text2.Text Text2.Visible = False Grid3.SetFocus If KeyAscii = And Grid3.Col < Grid3.Cols - Then If shifting Then If Grid3.Col > Then Grid3.Col = Grid3.Col - End If Else If Grid3.Col < (Grid3.Cols - 1) Then Grid3.Col = Grid3.Col + End If End If unselect3 End If KeyAscii = Case 27 KeyAscii = Text2.Visible = False Grid3.SetFocus End Select End Sub Private Sub Text14_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = Then shifting = True Else shifting = False End If Select Case KeyCode Case 38 'Up Text14_KeyPress 13 SendKeys "{UP}" Case 40 'Down Text14_KeyPress 13 SendKeys "{DOWN}" End Select End Sub Private Sub Text14_KeyPress(KeyAscii As Integer) Trang 118 Phân tích nâng cao khung liên hợp thép – bêtông cốt thép có liên kết nửa cứng Phần phụ lục Select Case KeyAscii Case 13, 'enter hoac tab Grid4.Text = Text14.Text Text14.Visible = False Grid4.SetFocus If KeyAscii = And Grid4.Col < Grid4.Cols - Then If shifting Then If Grid4.Col > Then Grid4.Col = Grid4.Col - End If Else If Grid4.Col < (Grid4.Cols - 1) Then Grid4.Col = Grid4.Col + End If End If unselect4 End If KeyAscii = Case 27 KeyAscii = Text14.Visible = False Grid4.SetFocus End Select End Sub Private Sub Text15_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = Then shifting = True Else shifting = False End If Select Case KeyCode Case 38 'Up Text15_KeyPress 13 SendKeys "{UP}" Case 40 'Down Text15_KeyPress 13 SendKeys "{DOWN}" End Select End Sub Private Sub Text15_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13, 'enter hoac tab Grid5.Text = Text15.Text Text15.Visible = False Trang 119 Phân tích nâng cao khung liên hợp thép – bêtông cốt thép có liên kết nửa cứng Phần phụ lục Grid5.SetFocus If KeyAscii = And Grid5.Col < Grid5.Cols - Then If shifting Then If Grid5.Col > Then Grid5.Col = Grid5.Col - End If Else If Grid5.Col < (Grid5.Cols - 1) Then Grid5.Col = Grid5.Col + End If End If unselect5 End If KeyAscii = Case 27 KeyAscii = Text15.Visible = False Grid5.SetFocus End Select End Sub Private Sub Text17_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = Then shifting = True Else shifting = False End If Select Case KeyCode Case 38 'Up Text17_KeyPress 13 SendKeys "{UP}" Case 40 'Down Text17_KeyPress 13 SendKeys "{DOWN}" End Select End Sub Private Sub Text17_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13, 'enter hoac tab Grid7.Text = Text17.Text Text17.Visible = False Grid7.SetFocus If KeyAscii = And Grid7.Col < Grid7.Cols - Then If shifting Then If Grid7.Col > Then Trang 120 Phân tích nâng cao khung liên hợp thép – bêtông cốt thép có liên kết nửa cứng Phần phụ lục Grid7.Col = Grid7.Col - End If Else If Grid7.Col < (Grid7.Cols - 1) Then Grid7.Col = Grid7.Col + End If End If unselect7 End If KeyAscii = Case 27 KeyAscii = Text17.Visible = False Grid7.SetFocus End Select End Sub Private Sub Text18_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = Then shifting = True Else shifting = False End If Select Case KeyCode Case 38 'Up Text18_KeyPress 13 SendKeys "{UP}" Case 40 'Down Text18_KeyPress 13 SendKeys "{DOWN}" End Select End Sub Private Sub Text18_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13, 'enter hoac tab Grid8.Text = Text18.Text Text18.Visible = False Grid8.SetFocus If KeyAscii = And Grid8.Col < Grid8.Cols - Then If shifting Then If Grid8.Col > Then Grid8.Col = Grid8.Col - End If Else If Grid8.Col < (Grid8.Cols - 1) Then Trang 121 Phaân tích nâng cao khung liên hợp thép – bêtông cốt thép có liên kết nửa cứng Phần phụ lục Grid8.Col = Grid8.Col + End If End If unselect8 End If KeyAscii = Case 27 KeyAscii = Text18.Visible = False Grid8.SetFocus End Select End Sub Sub unselect() If Grid1.Visible = False Then Exit Sub Grid1.SetFocus Select Case Grid1.Col Case SendKeys "{RIGHT}{LEFT}" Case Grid1.Cols - SendKeys "{LEFT}{RIGHT}" Case Else SendKeys "{LEFT}{RIGHT}" End Select End Sub Sub unselect3() If Grid3.Visible = False Then Exit Sub Grid3.SetFocus Select Case Grid3.Col Case SendKeys "{RIGHT}{LEFT}" Case Grid3.Cols - SendKeys "{LEFT}{RIGHT}" Case Else SendKeys "{LEFT}{RIGHT}" End Select End Sub Sub unselect4() If Grid4.Visible = False Then Exit Sub Grid4.SetFocus Select Case Grid4.Col Case SendKeys "{RIGHT}{LEFT}" Case Grid4.Cols - SendKeys "{LEFT}{RIGHT}" Case Else Trang 122 Phân tích nâng cao khung liên hợp thép – bêtông cốt thép có liên kết nửa cứng Phần phụ lục SendKeys "{LEFT}{RIGHT}" End Select End Sub Sub unselect5() If Grid5.Visible = False Then Exit Sub Grid5.SetFocus Select Case Grid5.Col Case SendKeys "{RIGHT}{LEFT}" Case Grid5.Cols - SendKeys "{LEFT}{RIGHT}" Case Else SendKeys "{LEFT}{RIGHT}" End Select End Sub Sub unselect7() If Grid7.Visible = False Then Exit Sub Grid7.SetFocus Select Case Grid7.Col Case SendKeys "{RIGHT}{LEFT}" Case Grid7.Cols - SendKeys "{LEFT}{RIGHT}" Case Else SendKeys "{LEFT}{RIGHT}" End Select End Sub Sub unselect8() If Grid8.Visible = False Then Exit Sub Grid8.SetFocus Select Case Grid8.Col Case SendKeys "{RIGHT}{LEFT}" Case Grid8.Cols - SendKeys "{LEFT}{RIGHT}" Case Else SendKeys "{LEFT}{RIGHT}" End Select End Sub Sub showtextbox() Dim textX As Integer, textY As Integer Dim C As Integer Trang 123 Phân tích nâng cao khung liên hợp thép – bêtông cốt thép có liên kết nửa cứng Phần phụ lục 'Che o van ban va tao hai hang dai va rong Text10.Visible = False Text10.Height = Grid1.RowHeight(Grid1.Row) - (Screen.TwipsPerPixelY * 2) 'Dong khong chay duoc Text10.Width = Grid1.ColWidth(Grid1.Col) - (Screen.TwipsPerPixelX * 2) 'Xac dinh toa X cua o hien hanh co mat tren Grid1.leftcol 'Tinh goc trai cong them be dai xap doi hang textX = Grid1.Left + Grid1.ColWidth(0) + (Screen.TwipsPerPixelX * 3) 'Tong cong lai cac be dai cua cot For C = Grid1.LeftCol To Grid1.Col - textX = textX + Grid1.ColWidth(C) + Screen.TwipsPerPixelX Next C 'Xac dinh toa Y cua o hien hanh co mat tren Grid1.toprow 'Tinh goc dinh cong them be dai xap doi hang textY = Grid1.Top + Grid1.RowHeight(0) + (Screen.TwipsPerPixelY * 3) 'Tong cong lai cac be dai cua cot For C = Grid1.TopRow To Grid1.Row - textY = textY + Grid1.RowHeight(C) + Screen.TwipsPerPixelY Next C 'Dat o van ban vao vi tri Text10.Left = textX Text10.Top = textY Text10.ZOrder 'Bao dam la nam tren dau Text10.Visible = True Text10.SetFocus End Sub Sub showtextbox3() Dim textX As Integer, textY As Integer Dim C As Integer 'Che o van ban va tao hai hang dai va rong Text2.Visible = False Text2.Height = Grid3.RowHeight(Grid3.Row) - (Screen.TwipsPerPixelY * 2) 'Dong khong chay duoc Text2.Width = Grid3.ColWidth(Grid3.Col) - (Screen.TwipsPerPixelX * 2) 'Xac dinh toa X cua o hien hanh co mat tren Grid1.leftcol 'Tinh goc trai cong them be dai xap doi hang textX = Grid3.Left + Grid3.ColWidth(0) + (Screen.TwipsPerPixelX * 3) 'Tong cong lai cac be dai cua cot For C = Grid3.LeftCol To Grid3.Col - textX = textX + Grid3.ColWidth(C) + Screen.TwipsPerPixelX Next C 'Xac dinh toa Y cua o hien hanh co mat tren Grid1.toprow 'Tinh goc dinh cong them be dai xap doi hang textY = Grid3.Top + Grid3.RowHeight(0) + (Screen.TwipsPerPixelY * 3) 'Tong cong lai cac be dai cua cot Trang 124 Phân tích nâng cao khung liên hợp thép – bêtông cốt thép có liên kết nửa cứng Phần phuï luïc For C = Grid3.TopRow To Grid3.Row - textY = textY + Grid3.RowHeight(C) + Screen.TwipsPerPixelY Next C 'Dat o van ban vao vi tri Text2.Left = textX Text2.Top = textY Text2.ZOrder 'Bao dam la nam tren dau Text2.Visible = True Text2.SetFocus End Sub Sub showtextbox4() Dim textX As Integer, textY As Integer Dim C As Integer 'Che o van ban va tao hai hang dai va rong Text14.Visible = False Text14.Height = Grid4.RowHeight(Grid4.Row) - (Screen.TwipsPerPixelY * 2) 'Dong khong chay duoc Text14.Width = Grid4.ColWidth(Grid4.Col) - (Screen.TwipsPerPixelX * 2) 'Xac dinh toa X cua o hien hanh co mat tren Grid1.leftcol 'Tinh goc trai cong them be dai xap doi hang textX = Grid4.Left + Grid4.ColWidth(0) + (Screen.TwipsPerPixelX * 3) 'Tong cong lai cac be dai cua cot For C = Grid4.LeftCol To Grid4.Col - textX = textX + Grid4.ColWidth(C) + Screen.TwipsPerPixelX Next C 'Xac dinh toa Y cua o hien hanh co mat tren Grid1.toprow 'Tinh goc dinh cong them be dai xap doi hang textY = Grid4.Top + Grid4.RowHeight(0) + (Screen.TwipsPerPixelY * 3) 'Tong cong lai cac be dai cua cot For C = Grid4.TopRow To Grid4.Row - textY = textY + Grid4.RowHeight(C) + Screen.TwipsPerPixelY Next C 'Dat o van ban vao vi tri Text14.Left = textX Text14.Top = textY Text14.ZOrder 'Bao dam la nam tren dau Text14.Visible = True Text14.SetFocus End Sub Sub showtextbox5() Dim textX As Integer, textY As Integer Dim C As Integer 'Che o van ban va tao hai hang dai va rong Text15.Visible = False Text15.Height = Grid5.RowHeight(Grid5.Row) - (Screen.TwipsPerPixelY * 2) Trang 125 Phaân tích nâng cao khung liên hợp thép – bêtông cốt thép có liên kết nửa cứng Phần phụ lục 'Dong khong chay duoc Text15.Width = Grid5.ColWidth(Grid5.Col) - (Screen.TwipsPerPixelX * 2) 'Xac dinh toa X cua o hien hanh co mat tren Grid1.leftcol 'Tinh goc trai cong them be dai xap doi hang textX = Grid5.Left + Grid5.ColWidth(0) + (Screen.TwipsPerPixelX * 3) 'Tong cong lai cac be dai cua cot For C = Grid5.LeftCol To Grid5.Col - textX = textX + Grid5.ColWidth(C) + Screen.TwipsPerPixelX Next C 'Xac dinh toa Y cua o hien hanh co mat tren Grid1.toprow 'Tinh goc dinh cong them be dai xap doi hang textY = Grid5.Top + Grid5.RowHeight(0) + (Screen.TwipsPerPixelY * 3) 'Tong cong lai cac be dai cua cot For C = Grid5.TopRow To Grid5.Row - textY = textY + Grid5.RowHeight(C) + Screen.TwipsPerPixelY Next C 'Dat o van ban vao vi tri Text15.Left = textX Text15.Top = textY Text15.ZOrder 'Bao dam la nam tren dau Text15.Visible = True Text15.SetFocus End Sub Sub showtextbox7() Dim textX As Integer, textY As Integer Dim C As Integer 'Che o van ban va tao hai hang dai va rong Text17.Visible = False Text17.Height = Grid7.RowHeight(Grid7.Row) - (Screen.TwipsPerPixelY * 2) 'Dong khong chay duoc Text17.Width = Grid7.ColWidth(Grid7.Col) - (Screen.TwipsPerPixelX * 2) 'Xac dinh toa X cua o hien hanh co mat tren Grid1.leftcol 'Tinh goc trai cong them be dai xap doi hang textX = Grid7.Left + Grid7.ColWidth(0) + (Screen.TwipsPerPixelX * 3) 'Tong cong lai cac be dai cua cot For C = Grid7.LeftCol To Grid7.Col - textX = textX + Grid7.ColWidth(C) + Screen.TwipsPerPixelX Next C 'Xac dinh toa Y cua o hien hanh co mat tren Grid1.toprow 'Tinh goc dinh cong them be dai xap doi hang textY = Grid7.Top + Grid7.RowHeight(0) + (Screen.TwipsPerPixelY * 3) 'Tong cong lai cac be dai cua cot For C = Grid7.TopRow To Grid7.Row - textY = textY + Grid7.RowHeight(C) + Screen.TwipsPerPixelY Next C Trang 126 Phân tích nâng cao khung liên hợp thép – bêtông cốt thép có liên kết nửa cứng Phần phụ lục 'Dat o van ban vao vi tri Text17.Left = textX Text17.Top = textY Text17.ZOrder 'Bao dam la nam tren dau Text17.Visible = True Text17.SetFocus End Sub Sub showtextbox8() Dim textX As Integer, textY As Integer Dim C As Integer 'Che o van ban va tao hai hang dai va rong Text18.Visible = False Text18.Height = Grid8.RowHeight(Grid8.Row) - (Screen.TwipsPerPixelY * 2) 'Dong khong chay duoc Text18.Width = Grid8.ColWidth(Grid8.Col) - (Screen.TwipsPerPixelX * 2) 'Xac dinh toa X cua o hien hanh co mat tren Grid1.leftcol 'Tinh goc trai cong them be dai xap doi hang textX = Grid8.Left + Grid8.ColWidth(0) + (Screen.TwipsPerPixelX * 3) 'Tong cong lai cac be dai cua cot For C = Grid8.LeftCol To Grid8.Col - textX = textX + Grid8.ColWidth(C) + Screen.TwipsPerPixelX Next C 'Xac dinh toa Y cua o hien hanh co mat tren Grid1.toprow 'Tinh goc dinh cong them be dai xap doi hang textY = Grid8.Top + Grid8.RowHeight(0) + (Screen.TwipsPerPixelY * 3) 'Tong cong lai cac be dai cua cot For C = Grid8.TopRow To Grid8.Row - textY = textY + Grid8.RowHeight(C) + Screen.TwipsPerPixelY Next C 'Dat o van ban vao vi tri Text18.Left = textX Text18.Top = textY Text18.ZOrder 'Bao dam la nam tren dau Text18.Visible = True Text18.SetFocus End Sub Private Sub Combo1_Change() buoctai = Val(Frmnhaplieu.Combo1.Text) 'Khung If NUMFRM Then For i = To NNODE For j = To Frmnhaplieu.bangnut.Row = i Frmnhaplieu.bangnut.Col = j Frmnhaplieu.bangnut.Text = dulieuxuatnut(buoctai, i, j + 1) Trang 127 Phân tích nâng cao khung liên hợp thép – bêtông cốt thép có liên kết nửa cứng Phần phụ lục Next j Next i For i = To NUMFRM For j = To Frmnhaplieu.bangphantu.Row = i Frmnhaplieu.bangphantu.Col = j Frmnhaplieu.bangphantu.Text = dulieuxuatphantu(buoctai, i, j + 1) Next j Next i End If End Sub Private Sub Combo1_Click() buoctai = Val(Frmnhaplieu.Combo1.Text) 'Khung If NUMFRM Then For i = To NNODE For j = To Frmnhaplieu.bangnut.Row = i Frmnhaplieu.bangnut.Col = j Frmnhaplieu.bangnut.Text = dulieuxuatnut(buoctai, i, j + 1) Next j Next i For i = To NUMFRM For j = To Frmnhaplieu.bangphantu.Row = i Frmnhaplieu.bangphantu.Col = j Frmnhaplieu.bangphantu.Text = dulieuxuatphantu(buoctai, i, j + 1) Next j Next i End If End Sub Private Sub xemKQ_Click() Frmnhaplieu.Hide Frmkhopdeo.Show If (JJH >= 1) Then Frmkhopdeo.Print "================================" Frmkhopdeo.Print "TRINH TU HINH THANH KHOP DEO " Frmkhopdeo.Print "================================" Frmkhopdeo.Print "KHOP DEO THU: TAI PHAN TU:" For i = To JJH If (JEND(i) = 1) Then Frmkhopdeo.Print i, Spc(5), JMEM(i), Spc(2), "KHOP DEO TAI DAU A", "O BUOC TAI THU ", JBUOCTAI(i) ElseIf (JEND(i) = 2) Then Trang 128 Phân tích nâng cao khung liên hợp thép – bêtông cốt thép có liên kết nửa cứng Phần phụ lục Frmkhopdeo.Print i, Spc(5), JMEM(i), Spc(2), "KHOP DEO TAI DAU B", "O BUOC TAI THU ", JBUOCTAI(i) End If Next i Else Frmkhopdeo.Print "================================" Frmkhopdeo.Print "KHONG CO KHOP DEO HINH THANH " Frmkhopdeo.Print "================================" End If End Sub Trang 129 ... đổi độ cứng η Trang 26 Phân tích nâng cao khung liên hợp thép – b? ?tông cốt thép có liên kết nửa cứng Chương 2: Liên kết nửa cứng mô hình hoá liên kết nửa cứng 2.3 MÔ HÌNH VỀ LIÊN KẾT NỬA CỨNG THEO... 34 Phân tích nâng cao khung liên hợp thép – b? ?tông cốt thép có liên kết nửa cứng Chương 2: Liên kết nửa cứng mô hình hoá liên kết nửa cứng 12 Bu lông chịu ép mặt 13 Cốt thép dọc gia cường b? ?tông. .. Trang 20 Phân tích nâng cao khung liên hợp thép – b? ?tông cốt thép có liên kết nửa cứng Chương 2: Liên kết nửa cứng mô hình hoá liên kết nửa cứng trình kinh tế, khả chịu lực độ cứng liên kết sẽ