Thực tập tại công ty tin học xây dựng thuộc bộ xây dựng

TÒ CHÚC HÁ NHC HÍMH xi NGHiỆr xi HGHiụ IHÃN MÉM QUAN IY r HÁN MẺM TU VÃN xti OAN KHOA HOC VẢ CONG NGHE XN XUÁTNHẶr KHẨU XNTỊlíX?NGHOÁ VẢ H NH DOANH ĨHIẺT EỊTIN HỌC VẢ TU VÃN XÂY DựNG Trong chương trình đào tạo kỹ sư trường đại học khối kỹ thuật I.Giới thiệu chung công ty đạt thực tập làchung: môn học quan trọng.Quan trọng không Giới thiệu việc sinh viên làm quen với công việc thực tế mà mai sau trường phải làm mà điều quan trọng sinh viên có thễ trau lại kiến thức học sách vở, tiếp thu nhiều kiến thức thực tế quý háu để có tri thức vững vàng giúp ích cho đời tương lai Trường đại học Xây Dựng trường coi trọng đợt thực tập chương trình đào tạo kỹ sư Thật vậy, trình học tập rèn luyện trường, sinh viên có hai tập Kỳ thứ nhất, tập công nhân, diễn vào kỳ II năm thứ ha, kỳ thứ hai tập cán hộ kỹ thuật, diển vào kỳ cuối trước sinh viên làm đồ án tốt nghiệp Chúng em sinh viên K45 khoa Công Nghệ Thông Tin, chúng em kết thúc khoá học việc làm đồ án tốt nghiệp, theo chương trình đào tạo nhà trường chúng em tham dự tập cán hộ kỹ thuật Theo chuyên ngành mình, chúng em nhà trường với khoa giới thiệu công ty tin học hộ xây dựng để thực tập Sau háo cáo em đợt thực tập vừa qua Công ty tin học xây dựng (Tên giao dịch quốc tế ClC-Contruction Iníomatics Corporation) đơn vị trực thuộc Bộ xây dựng, thành lập thep Quyết định số 243/QĐ-BXD ngày 16/02/2000 Bộ trưởng Bộ xây dựng sở Trung tâm Tin học Xây dựng Tiền thân từ phòng ứng dụng toán máy tính (5/1974) phát triển thành Trung tâm Tin học Xay dựng (16/2/2000) Với đội ngũ 100 cán trình độ từ đại học trở lên, Công ty không ngừng phát triển hoạt động nghiên cứu - sản xuất - tư vấn, chuyển giao công nghệ Nhà nước chứng nhận quyền cho nhiều sản phẩm phần mềm công nghệ thông tin Các sản phẩm phần mềm ứng dụng rộng rãi nhiều năm qua Đến nay, Công ty cung cấp, đào tạo chuyển giao cho 1200 đơn vị ngành Xây dựng BAN GIÁM ĐỐC TRUMSTẢM ĐẢOTẠO VÁ CHUYỂN GIA/O CÕNG NGHỄ TRUMGTẢUOS TDUNGTẢM NGHIẾN cúu VÁ ÍHẢTTHỂU CMTT Các chức nhiệm vụ chính: 1- Nghiên cứu, thiết kế, sản xuất, khai thác phát triển cung cấp phần mềm CNTT phục vụ quản lý, kinh tế, kỹ thuật 2- Tư vấn giải pháp tổng thể hệ thống thiết bị tin học, viễn thông, nghiên cứu ứng dụng chuyển giao giải pháp CNTT, thực lắp đặt hệ thống thiết bị tin học viễn thông 3- Thực nội dung công tác tư vấn xây dựng đối vói công trình tin học viễn thông, công trình dân dụng, công nghiệp, công trình kỹ thuật hạ tầng đô thị, khu công nghiệp 4- Xuất nhập cung cấp thiết bị, sản phẩm CNTT ứng dụng công 12 6- Liên doanh, liên kết với đơn vị nước để phát triển đầu tư công nghệ; 7- Thực nhiệm vụ khác Bộ xây dựng giao Chỉ nhắnh thành phô Hồ Chí Minh: -Cung cấp dịch vụ hỗ trợ khách hàng -Đào tạo chuyển giao công nghệl -Kinh doanh thiết bị, vật tư CNTT Các dịch vụ khác công ty: -Tự động hoá thiết kế tư vấn xây dựng: +Tư vấn lập dự án công trình viễn thông tin học dân dụng +Thiết kế lập tỏng dự toán công trình viễn thông số công trình dân dụng, công trình công nghiệp, công trình kỹ thuật hạ tầng đô thị, khu công nghiệp +Thẩm tra thiết kế tổng dự toán công trình viễn thông tin học, công trình dân dụng công nghiệp -Số hoá đồ: +Chuyển giao phẩm mềm theo hình thức chọn gói (gồm cài đặt hướng dẫn sử dụng chỗ bảo hành PM trợ giúp người dùng) +Nghiên cứu phát triển hệ thống quản lý mạng máy tính phục vụ cho cồng tác quản lý điều hành kết nối liệu đơn vị +Xây dựng dự án ứng dụng CNTT lĩnh vực quản lý tư vấn xây dựng, phục vụ Sở, Tổng công ty, viện nghiên cứu, Trường đào tạo Giới thiệu phần mềm công ty: -Công ty với hai phần mềm : phần mềm kết cấu phần mềm quản lý +Các phần mềm kết cấu: -KIW: Tính toán thiết kế khung thép nhà tiền chế -KPW: Tính toán thiết kế khung phẳng(xuất kết vẽ) -MBW: Tính toán thiết kế móng băng(xuất kết vẽ) -MCW:Tính toán thiết kế móng cọc(xuất kết vẽ) -MDW: Tính toán thiết kế móng đơn(xuất kết vẽ) -SBTW: Tính toán thiết kế sàn bê tông cốt thép(xuất kết vẽ) -RDW:TỔ hợp nội lực, thiết kế sàn bê tông cốt thép(xuất kết vẽ) -VINASAS: Tính thiết kế kết cấu tổng hợp -SƯMAC: Chương trình san -ESCON: Tính đơn giá, dự toán, toán xây dựng +Các phần mềm quản lý: • Các số liệu đất tự nhiên (các tiêu lý lớp đất trọng lượng riêng, góc ma sát trong, lực dính đơn v ị n ề n đất coi tập hợp lớp đất có bề dầy hữu hạn, lớp đất có tập hợp tiêu lý riêng Người sử dụng tạo thư viện loại đất với tiêu xác định để vào liệu cho nhanh chóng • Các số liệu chi tiết gắn với móng đơn (tải trọng, kích thước hình học ): tuỳ theo toán kiểm tra hay thiết kế mà người sử dụng cần phải đưa vào kích thước cạnh móng, chiều cao móng Tải trọng xét móng dơn gồm lực dọc, lực cắt theo hai phương, mômen uốn theo hai phương • Các số liệu thêm để thiết kế cấu kiện móng bê tông cốt thép: để phục vụ cho trình tính lún đất(trạng thái biến dạng thứ 2), trình tính toán cốt thép móng đon, người dùng phải đưa vào thông số trọng lượng trung bình móng đất đắp, chiều dầy lớp phân tố tính, giá trị cường độ nén, kéo bê tông thép Khả sử lý chương trình : Phần xử lý tính toán chương trình thực bước tính tuỳ thuộc xác lập mà người sử dụng đặt chương trình Các bước tính toán sau: • Xác định sức chịu tải đất, từ xác định kích thước móng toán thiết kế (hay kiểm tra sức chịu tải với kích thước móng có toán kiểm tra) Việc xác dịnh sức chịu tải tính theo R tiêu chuẩn hay khả chịu lực cực hạn • Tính toán móng theo trạng thái giới hạn cường độ : bao gồm xác định chiều cao móng vào điều kiện chọc thủng ; xác định cốt thép móng vào khả chịu uốn móng • Tính toán móng theo trạng thái giới hạn biến dạng : thực chất xác định độ lún móng theo phương pháp cộng lún lớp Người sử dụng đặt độ lún giới hạn, thiết kế, độ lún tính toán lớn giá trị cho phép, chương trình tự động tăng kích thước móng Kết chương trình: • Các kết dạng TEXT : bao gồm kết tính toán lưu file Các thành tựu, hoạt động công ty: -Các thành tựu: +Là doanh nghiệp đạt nhiều giải thưởng lĩnh vực công nghệ tin hoc Nhưng có lẽ thành tựu đáng kể công ty tin học mà ta không kể đến công ty đạt giải thưởng Sao Vàng Đất Việt năm 2004, mà giải thưởng vô cao quý nhà nước ban tặng mà doanh nghiệp vô mong muốn Cùng với giải thưởng cao quý công ty tham gia Hội chợ Việt Nam hội nhập kinh tế quốc tế Trung tâm Triển lãm Giảng Võ lễ diễu hành “Tự hào thương hiệu Việt” đường + Phần mềm CIC có mặt 61 tỉnh thành nước: Đây số đáng tự hào Với nhóm sản phẩm chính: Phần mềm phục vụ quản lý Vinacamce, phần mềm phục vụ TĐH thiết kế Vinasas, phần mềm Vinaplan phục vụ cho thiết kế quản lý quy hoạch xây dựng phần mềm hợp tác phát triển với nước công ty đóng góp lớn vào lĩnh vực xây dựng nước nhà -Các hoạt động: Bên cạnh việc cho đời phần mềm công việc chính, công ty có nhiều hoạt động vừa nhằm quảng bá cho sản phẩm mình, vừa để giao lưu học hỏi doanh nghiệp bạn nhằm có góp ý, đánh giá cho sản phẩm mình, vừa mở rộng thị trường tăng cường hỗ trợ khách hàng Với mục đích công ty mở Shovvroom 177 Bùi Thị Xuân Hà Nội: Showroom công ty trưng bày thiết bị máy tính thiết bị mạng, mạng không dây phần mềm khách hàng xem demo Ngoài công ty có nhiều hoạt động khác như: tặng mềm cho sỏ, Trường Xây dựng v.v • Công ty tin học xây dựng số công ty chuyên sâu lĩnh vực CNTT xây dựng vói mục đích ý nghĩa áp dụng tin học vào lĩnh vực phi tin học Công ty với đội ngũ công nhân viên yêu nghề, trách nhiệm, trình độ cao làm nên công ty tin học xây dựng với nhiều thành tựu đáng kể, đóng góp đáng kể cho phát triển kinh tễ nước nhà Với thời n Báo cáo tình hình thực đề tài thực tập tốt nghiệp: Cùng với việc thực tập công ty tin học xây dựng Theo đặc điểm chuyên ngành tin học xây dụng dân dụng công nghiệp, chúng em, sinh viên phải làm đề tài tin học, có nghĩa sử dụng ngôn ngữ lập trình thành thạo để viết phần mềm tự động hoá thiết kế mảng kiến thức học, ví dụ: tự động hóa thiết kế dầm cầu trục BTCT nhà công nghiệp tầng, Thiết kế móng đơn, móng băng, móng cọc Thiết kế dàn thép Qua phát triển thành đề tài tốt nghiệp Nội dung đề tài thực tập em: Kết xuất vẽ cọc bê tông cốt thép Phạm vi áp dụng đề tài thực tế: -Một đặc điểm đặc trưng ngành xây dựng tất hồ sơ thiết kế gắn liền với vẽ, trình xây dựng công trình vẽ thiết kế luôn đồng hành với người kỹ sư - Nếu đề tài thành công tự động hoá kiết xuất vẽ loại cọc bê tông cốt thép, hỗ trợ việc hoàn thành nhanh hồ sơ thiết kế móng cọc BTCT Báo cáo giới thiệu chương trình kết xuất vẽ cọc bê tông cốt thép: Với giúp đỡ thầy giáo Lê Trọng Hoà tập thể cán công ty CIC đặc biệt anh Ninh Văn Bình em hoàn thành đề tài nhiên nhiều sai sót -Ngôn ngữ sử dụng để viết chương trình Vi sưa Basic : từ chương trình VB ta gọi chương trình AutoCAD để kiết xuất vẽ, lệnh sử dụng chương trình lệnh AutoCAD - Chương trình yêu cầu người sử dụng nhập số liệu : + Trước hết người sử dụng phải lựa chon vẽ cọc loại cọc hay nhiều cọc + Sau lựa chọn vẽ loại cọc nào, người sử dụng lựa chọn: chiều dài cọc, tiết diện cọc, chiều dài mũi cọc, bề dầy lớp bê tông bảo vệ, đường kính cốt dọc đường kính cốt đai, đường kính móc cẩu, mác bê tông , mác thép, số lượng cọc đài -Thuật toán để vẽ cọc: -Chương trình thiết kế với module, MDI form, form * Module: +Module Khởi tạo vẽ +Module Biến +Module Vẽ cọc +Module Vẽ chi tiết cọc +Module Vẽ cọc vành khăn +Module Vẽ cọc tiết diện vuông có khoét lỗ tròn -t-Module Ghi kích thước -t-Module Ghi text +Module Tính toán (Sức chịu tải, trọng lượng cọc ) * Form: +form : vẽ cọc tiết diện vuông cốt đai ngang +form : vẽ cọc tiết diện vuông cốt đai xoắn +form : vẽ cọc tiết diện vuông có khoét lỗ tròn +form : vẽ cọc tiết diện vành khăn +form : Thư viện cọc -Sau đâylà vài đoạn code chương trình +Module khởi tạo vẽ: Public Sub khoitaoO Set MyAcad = CreateObject("AutoCad.Application") MyAcad.Visible = Tme Set mydoc = MyAcad.ActiveDocument Tao cac layer cho ban ve Tao mau sac cho layer cot thep dam Dim colorl As AcadAcCmColor Set colorl = mydoc.Application.GetInterfaceObject("AutoCAD.AcCmColor 16") Call color 1.SetRGB(255, 255, 0) 'tao layerl Dim newlayerl As AcadLayer Set newlayerl = mydoc.Layers.Add("Cot thep dam cua coc") newlayerl.Freeze = False newlayerl.LayerOn = Tme newlayerl.Lock = False newlayerl.TmeColor = colorl mydoc.ActiveLayer = newlayerl Tao mau sac cho layer cot thep nhat cua coc Dim color2 As AcadAcCmColor Set color3 = mydoc.Application.GetInterfaceObject("AutoCAD.AcCmColor.l6") Call color3.SetRGB(0, 0, 255) Tao layer3 Dim newlayer3 As AcadLayer Set newlayer3 = mydoc.Layers.Add("net thuong") newlayer3.Freeze = False newlayer3.LayerOn = Tme newlayer3.Lock = False newlayer3.TmeColor = color3 Tao mau sac cho layer text Dim color4 As AcadAcCmColor Set color4 = mydoc Application.GetInterfaceObject("AutoCAD.AcCmColor 16") Call color4.SetRGB(255, 0, 255) Tao layer4 Dim newlayer4 As AcadLayer Set newlayer4 = mydoc.Layers.Add("Text") newlayer4.Freeze = False newlayer4.LayerOn = True newlayer4.Lock = False newlayer4.TmeColor = color4 Tao mau sac cho layer Dim Dim color5 As AcadAcCmColor Set color5 = mydoc Application.GetInterfaceObject("AutoCAD.AcCmColor 16") Cal color5 SetRGB(255,0,0) Tao layer5 Dim newlayer5 As AcadLayer Set newlayer5 = mydoc.Layers.Add("Dim") newlayer5.Freeze = False newlayer5.LayerOn = Tme newlayer5.Lock = False newlayer5.TmeColor = color5 Tao mau sac cho layer vat lieu Dim coloró As AcadAcCmColor Set color6 = mydoc.Application.GetInterfaceObject("AutoCAD.AcCmColor.l6") Call color6.SetRGB( 173, 173, 173) Tao layerô Dim newlayer6 As AcadLayer Set newlayer6 = mydoc.Layers.Add("Hatch") newlayer6.Freeze = False newlayer6.LayerOn = Tme newlayer6.Lock = False newlayer6.TmeColor = coloi'6 'Linetype Center Dim lineTypeNamel As String lineTypeNamel = "CENTER" mydoc.Linetypes.Load lineTypeNamel, "acad.lin" 'Linetype hiden Dim linetypeName2 As String linetypeName2 = "HIDDEN2" mydoc.Linetypes.Load linetypeName2, "acad.lin" 'Khoi tao don vi cua ban ve bang lenh Units mydoc.SendCommanđ "_units" Tao gioi han ban ve mydoc.SendCommand "_limits 0,0 10000,10000" mydoc.SendCommand "_Zoom " Tao cac Dimstyle Dim Diml As AcadDimStyle Set Diml = mydoc.DimStyles.Add("Stylel") Tao cac Textstyle Tao textstylel Dim Tstylel As AcadTextStyle Set Tstylel = mydoc.TextStyles.Add("CHU THUONG") WithTstylel SetFont ".Vntime", False, False, 0, End With Set Tstylel = mydoc.ActiveTextStyle Tao textstyle2 Dim Tstyle2 As AcadTextStyle Set Tstyle2 = mydoc.TextStyles.Add("CHU IN") Tstyle2.SetFont ".VnTimeH", False, False, 0, End Sub +Module tính toán: Option Explicit 'thu tuc tinh suc chiu tai cua coc Public Function succhiutaivatlieu(ByVal m As Double, ByVal F_cd As Double, ByVal Rbt As Double, _ ByVal Rct As Double, ByVal t_đ_coc As Double, ByVal n As Integer) As Double Dim Fbt As Double 10 If c_d_coc >= 3000 And c_d_coc < 4500 Then Dim n_50dc As Integer Dim n_50mc As Integer Dim n_100 As Integer n_50dc = 1000/50 + n_50mc = 500 / + n_100 = CInt((c_d_coc - 1000 - c_d_doannoi) / 100) - soluongcotdai_motcoc = n_50dc + n_50mc + n_100 Else Dim n_100đc As Integer Dim n_100mc As Integer Dim n_200 As Integer n_50dc = 1000/50+ n_50mc = 500 / + n_100dc = 1500 / 100 n_100mc = 1000/100 n_200 = CInt((c_d_coc - c_d_doannoi - 2500) / 200) soluongcotdai_motcoc = n_50dc + n_50mc + n_100dc + n_100mc + n_200 End If End Function 'thu tuc tinh khoi luong cot thep coc Public Function khoiluongthep(ByVal c_d_coc As Double, ByVal met_cd As Double, ByVal k_c_thepchinh As Double, ByVal soluongcotdai As Integer, _ ByVal n As Integer, ByVal met_cdai As Double, ByVal t_d_coc As Double) As Double Dim pl As Double Dim p2 As Double pl = n * c_d_coc * met_cd / 1000 Dim Lcotdai As Double l_cotdai = (t_d_coc - * k_c_thepchinh) * / 1000 + 0.15 p2 = l_cotdai * met_cdai * soluongcotdai khoiluongthep = pl + p2 End Function 'thu tuc kiem tra cau lap coc Public Function tinhmomenmoccau(ByVal p_betong As Double, ByVal p_thep As Double, ByVal c_d_coc As Double) As Double Dim q As Double q = (p_betong + p_thep) * 1000 / c_d_coc 11 Dim a As Double a = (Rct * fa) / (Rbt * (t_d_coc * 0.1) * (Ho * 0.1)) Dim gama As Double gama = - 0.5 * a khanangchiuluc = Rct * fa * gama * Ho * 0.1 End Function 'thu tuc tinh luc ITIOC cau phai chiu Public Function khanangmoccau(ByVal Rct As Double, ByVal fa_moccau As Double) As Double khanangmoccau = Rct * fa_moccau * End Function Public Function luccatmoccau(ByVal p_betong As Double, ByVal p_thep As Double, ByVal c_d_coc As Double) As Double Dim q As Double = (p_betong + p_thep) * 1000 / c_đ_coc luccatmoccau = q * 0.207 * c_d_coc / 1000 End Function +Module Ghi kích thước: Option Explicit Thu tuc khoi tao bien dimAligned - cotdai Public Sub dimAligned(ByVal x_d As Double, ByVal y_d As Double, _ ByVal x_c As Double, By Val y_c As Double, By Val dimscale As Double, _ ByVal dimoffset As Double) Dim d_ngang_dim As AcadDimAligned Dim p_d_cuoi(2) As Double Dim p_d_dau(2) As Double Dim p_d_mid(2) As Double p_d_dau(0) = x_d p_d_dau( 1) = y_d p_d_dau(2) = p_d_cuoi(0) = x_c p_d_cuoi(l) = y_c p_d_cuoi(2) = 12 mydoc.Regen acAllViewports End Sub 'Ghi kich thuoc moc cau Public Sub Dim_moccau(ByVal X As Double, ByVal y As Double, ByVal c_d_coc As Double, ByVal t_d_coc As Double, ByVal k_c_thepchinh As Double, _ ByVal c_d_doannoi As Double) Dim d_p_b( 1) As Double Dim d_p_e As Double Dim d_ngang_đim As Double 'Ghi kích thuoc moc cau thu nhat d_p_b(0) = X - c_d_doannoi d_p_b(l) = y + t_d_coc - k_c_thepchinh d_p_e = X + 0.207 * (c_d_coc) - c_d_doannoi dimAligned d_p_b(0), d_p_b(l), d_p_e, d_p_b(l), 200, -300 'ghi kích thuoc doan giua hai moc cau Dim d_p_dg As Double đ_p_đg = X - c_d_doannoi + c_d_coc - 0.207 * c_d_coc dimAlĩgned d_p_e, d_p_b( 1), d_p_dg, d_p_b( 1), 200, -300 'ghi kich thuoc ITIOC cau cuoi cung Dim d_c As Double d_c = d_p_dg + 0.207 * (c_d_coc) dimAligned d_p_dg, d_p_b(l), d_c, d_p_b(l), 200, -300 Dim x_d As Double Dim ycao As Double Dim x_c As Double x_d = X - c_d_doannoi x_c = x_d + c_d_coc ycao = y + t_d_coc - k_c_thepchinh dimAligned x_d, ycao, x_c, ycao, 200, -400 End Sub 'ghi kich thuoc duong nam ngang 13 Case acAbove: currentValue = "above" Case acOutside: currentValue = "outside" Case acJIS: currentValue = "to Japanesee industrial standards" End Select d_ngang_dim.VerticalTextPosition = acAbove d_ngang_dim.UnitsFormat = acDimLDecimal d_ngang_dim.PrimaryUnitsPrecision = acDimPrecisionZero d_ngang_dim.TextMovement = acMoveTextNoLeader d_ngang_dim.ExtensionLineExtend = 0.01 d_ngang_đim.ExtensionLineOffset = 0.8 d_ngang_dim.TextInsideAlign = False mydoc.Regen acAllViewports End Sub 'dim ngang trai Public Sub dim_ngang_trai(By Val X As Double, ByVal yd As Double, ByVal yc As Double, ByVal dimscale As Double, ByVal dioffset As Double) Dim p_đ(2) As Double Dim p_g(2) As Double Dim p_c(2) As Double p_d(0) = X p_d(l) = yd P_d(2) = p_c(0) = X p_c(l) = yc p_c(2) = p_g(0) = X - 40 + dioffset p_g(l) = (yd + y c ) / p_g(2) = Dim d_ngang_dim As AcadDimAligned Set d_ngang_dim = mydoc.ModelSpace.AddDimAligned(p_d, p_c, p_g) d_ngang_dim.StyleName = "stylel" d_ngang_dim.layer = "dim" d_ngang_dim.ScaleFactor = dimscale d_ngang_dim.TextStyle = "chu thuong" Dim currentValue As String Select Case d_ngang_đim.VerticalTextPosition Case acVertCentered: cuiTentValue = "centered" Case acAbove: cuiTentValue = "above" Case acOutside: cuiTentValue = "outside" Case acJIS: currentValue = "to Japanesee industrial standards" 14 Dim p_d_cuoi(2) As Double Dim p_d_dau(2) As Double Dim p_d_mid(2) As Double p_d_dau(0) = x_d p_d_dau( 1) = y_d p_d_dau(2) = p_d_cuoi(0) = x_c p_d_cuoi( 1) = y_c p_d_cuoi(2) = p_d_mid(0) = (x_d + x_c) / p_d_mid(l) = y_c - dimoffset p_d_mid(2) = Set d_ngang_dim = mydoc.ModelSpace.AddDimAligned(p_d_cuoi, p_d_dau, p_d_mid) d_ngang_dim.StyleName = "stylel" d_ngang_dim.layer = "dim" d_ngang_dim.ScaleFactor = dimscale d_ngang_đim.TextStyle = "chu thuong" Dim currentValue As String Select Case d_ngang_dim.VerticalTextPosition d_ngang_dim.VeiticalTextPosition = acAbove d_ngang_dim.ưnitsFormat = acDimLDecimal d_ngang_đim.PrimaryUnitsPrecision = acDimPrecisionZero d_ngang_dim.TextMovement = acMoveTextNoLeader d_ngang_dim.TextMovement = acDimLineWithText 'd_ngang_dim.ExtensionLineExtend = 0.1 d_ngang_dim.ExtensionLineOffset = 0.4 mydoc.Regen acAllViewports End Sub Public Sub dim_ngang_tll(ByVal X As Double, ByVal yd As Double, ByVal yc As Double, ByVal dimscale As Double, ByVal dioffset As Double, ByVal tl As Double) Dim p_d(2) As Double Dim p_g(2) As Double Dim p_c(2) As Double p_d(0) = X p_d(l) = yd p_d(2) = p_c(0) = X p_c(l) = yc p_c(2) = 15 d_ngang_đim.ScaleFactor = dimscale d_ngang_dim.TextStyle = "chu thuong" Dim cuiTentValue As String Select Case d_ngang_dim.VerticalTextPosition Case acVertCentered: currentValue = "centered" Case acAbove: currentValue = "above" Case acOutside: currentValue = "outside" Case acJIS: currentValue = "to Japanesee industrial standards" End Select d_ngang_đim.VerticalTextPosition = acAbove d_ngang_dim.UnitsFoiTnat = acDimLDecimal d_ngang_dim.PrimaryUnitsPrecision = acDimPrecisionZero d_ngang_dim.TextMovement = acMoveTextNoLeader d_ngang_dim.ExtensionLineExtend = 0.01 d_ngang_dim.ExtensionLineOffset = 0.8 d_ngang_dim.TextInsideAlign = False mydoc.Regen acAllViewports End Sub 'Ghi kich thuoc ITIOC cau-coc mot doan Public Sub Dim_moccau_motcoc(ByVal X As Double, ByVal y As Double, ByVal c_d_coc As Double, ByVal t_d_coc As Double, ByVal k_c_thepchinh As Double) Dim d_p_b( 1) As Double Dim d_p_e As Double Dim d_ngang_đim As Double 'Ghi kich thuoc moc cau thu nhat d_p_b(0) = X d_p_b(l) = y + t_d_coc - k_c_thepchinh d_p_e = X + 0.207 * (c_d_coc) dimAligned d_p_b(0), d_p_b(l), d_p_e, d_p_b(l), 200, -300 'ghi kích thuoc doan giua hai moc cau Dim d_p_dg As Double d_p_dg = X + c_d_coc - 0.207 * c_d_coc dimAligned d_p_e, d_p_b( 1), d_p_dg, d_p_b( 1), 200, -300 'ghi kích thuoc moc cau cuoi cung Dim d_c As Double đ_c = d_p_dg + 0.207 * (c_d_coc) 16 EBi test.txt • Notepđd vat lieu coc: : : : : Mac be tong Cot thep 300 A-II 16 cac kich thuoc co ban: *Nếu ta muốn xem thông tin cọc ta chọn xem thong tin tren menu “Thong tin chi tiết : 200 mm Tiet di en coc : 250 mm : 30 mm suc chiu tai cua coc : suc chiu tai theo vat lieu coc thu : 62.44678 tan : m Trong luông coc : Trong luông betong coc so luông cốt doc coc so luông cot dai coc Trong luông cot thep coc : 0.6712315 tan : : 79 :0.05669198tan i Ki em tra coc van chuyên lapcau : • form : cọc với cốt đai ngang xuất • Sau chọn kích thước vật liệu cọc , giả sử ta vẽ cọc với đoạn Ta Click vào “Ve coc” Ta vẽ SỌ AutoCAD 2004 - [Drawing1 dwg] Ríe EdK View Insert Pormat Tools Dravv Dimension Modify Wlndow Hdp a « H a> q & a » ✓ • < Q* «1 ^ 6$ K 17 * Và tất nhiên ta xem thông tin chi tiết cọc qua file text P1 test.txt Notepad Rle Eđt Format Vew Heip Thong tin chi tiet ve coc m vat Heu coc: Mac be tong cot thep Duong kinh cot doc chiu luc ouong kinh cot dâ1 doan cot dai ngang CY450-20 cac kích thuoc co ban: chieu dai coc Tlet d1en coc chiêu dai mui coc Lop be tong bao ve day Trong luong coc : Trong luong betong coc so luong cốt doc coc so luông cot da1 coc Trong luông cot thep coc -0.004 54 tan thanh Ki em tra coc van chuyên cau lap 67 0.03900054tan Momen coc phai chiu kh1 van chuyên la Momen coc phai chiu dua len thiet bi dong Kha nang cn1u luc cua tiet di en coc la : 0.0075457250325 1.4 tm 715344 0.015091450065 tm coc du kha nang chiu luc kh1 van chuyên va dua len gia dong tm 1.4715344 suc chiu ta1 cua coc tai theo vat lieu 52.00956 tan *Nếu muốn vẽ cọc tiết diện lăng trụ với cốt đai xoắn tai chọn menu “Ve coc” Click *Nếu muốn vẽ cọc thư viện ta chọn “Coc mot doan” menu “Thu vien coc”, ta có form sau xuất hiện: * • Sau nhập kích thước ta Click vào nút “Ve coc” Bản vẽ xuât *Muốn vẽ cọc ta chọn Click vào nút VECOC ta có vẽ Píess pick button and díag verbcaíly (0 200m 18 19 [ã] AutoCAD 2004 - [Drđwỉng1 dvvg] X ĨS ũ lắ □ Ta xem chi tiết cọc file text: Sau nhập kích thước, ta Click vào nút “Ve coc”, ta c test.txt - Notepad Fáe Edit Format View Help Thong tin chi tiet ve coc doan co cot dai xoan: Mac be tong cot thep Duong kinh cot doc chiu luc Duong kinh cot dai : 300 CẤU TẠO : CHI A-I TIẾT MẶT CẮT I-I : 18 cac kích thuoc co ban: Tiet di en coc Chleu dai mui coc Lop be tong bao ve day * ^n c □ -I Suc chiu ta1 cua coc : : 62.97701 tan Suc chiu tai theo vat lieu coc thu chieu dai coc Trong luông coc : : 0.47265675 tan Trong luông betong coc : so luong cốt doc coc : 69 so luông cot dai coc :0.05087578tan Trong luông cot thep coc Ki em tra coc van chuyên cau lap : Momen coc phai chiu van chuyên la : 0.01103991390125 tm Momen coc phai chiu dua len thiet bi dong :0.0220798278025 MẢTCẤTM tm Kha nang chiu luc cua tiet dien coc la ĩ 1.62126190576923 tm coc du kha nang chiu luc van chuyên va dua len gia dong ! coc thu r chieu dai coc : m *Tiếp theo ta vẽ cọc tiêt diện vuông có khoét lỗ, Click vào menu “Coc BTCT tiet dien vu ong voi#■loChuông rongtrinh tron” Form sau xuất hiện: ket xuat ban ve coc BTCT (_"](□][x]| Ve coc • Tiếp theo ta vẽ cọc vành khăn Click vào menu “ve coc ong BTCT” form sau xuất • Sau nhập kích thước, Click vào nut “Ve coc ” ta vẽ mong muốn 20 21 0H® 13] AutoCAD 2004 - [Drawing1 ,dwg] õ £3 File Edrt View Insert Format Tools Dravv Dimension Modỉfy Wndow Help II a H & & ỊỊs^ỊOQtl^aCtmhepdamcuacoc > ị tsQ?^^ g%HOfci Q I I I fr|ẼHÌ Ịt # III □ ByLaye X ỹJỊ ByLạyt V III -ByLạya I ByColoi ^ ll niCŨ I + P E D O * gg » b »s 22 Đó toàn chương trình mà em thực đợt thực tập vừa qua Để hoàn thành chương trình này, em xin chân thành cảm ơn thầy giáo Lê Trọng Hoà, em xin chân thành cảm ơn tập thể cán công nhân viên công ty tin học xây dựng đặc biệt em xin cảm ơn anh Ninh Văn Bình người trực tiếp phụ trách nhóm thực tập chúng em giúp đỡ, bảo ban, truyền đạt cho em nhiều kinh nghiệm kiến thức quý báu để em có phương pháp tốt thực đề tài Qua đợt thực tập này, chúng em tiếp thu lượng kiến thức thực tế phong phú, trau lại kiến thức học mà điều quan trọng chúng em rèn luyện kỷ luật, ý thức trách nhiệm, lòng yêu nghề để trở thành người kỹ sư tốt, đóng góp vào công xây dựng đất nước tương lai Một lần 23 [...]... niCŨ I + P E D O * gg » b »s 22 Đó là toàn bộ chương trình mà em đã thực hiện được trong đợt thực tập vừa qua Để có thể hoàn thành chương trình này, em xin chân thành cảm ơn thầy giáo Lê Trọng Hoà, em xin chân thành cảm ơn tập thể cán bộ công nhân viên công ty tin học xây dựng đặc biệt em xin cảm ơn anh Ninh Văn Bình là người đã trực tiếp phụ trách nhóm thực tập chúng em đã giúp đỡ, bảo ban, truyền đạt... quý báu để em có được phương pháp tốt nhất thực hiện đề tài này Qua đợt thực tập này, chúng em không những tiếp thu được một lượng kiến thức thực tế phong phú, trau rồi lại các kiến thức đã học mà điều quan trọng hơn là chúng em còn được rèn luyện kỷ luật, ý thức trách nhiệm, lòng yêu nghề để có thể trở thành một người kỹ sư tốt, đóng góp vào công cuộc xây dựng đất nước trong tương lai Một lần 23 ... d_c As Double đ_c = d_p_dg + 0.207 * (c_d_coc) 16 EBi test.txt • Notepđd vat lieu coc: : : : : Mac be tong Cot thep 300 A-II 16 6 cac kich thuoc co ban: *Nếu ta muốn xem thông tin về cọc ta chọn xem thong tin tren menu “Thong tin chi tiết về : 200 mm Tiet di en coc : 250 mm : 30 mm suc chiu tai cua coc : suc chiu tai theo vat lieu coc thu 1 : 62.44678 tan : 7 m Trong luông coc : Trong luông betong coc... dioffset p_g(l) = (yd + y c ) / 2 p_g(2) = 0 Dim d_ngang_dim As AcadDimAligned Set d_ngang_dim = mydoc.ModelSpace.AddDimAligned(p_d, p_c, p_g) d_ngang_dim.StyleName = "stylel" d_ngang_dim.layer = "dim" d_ngang_dim.ScaleFactor = dimscale d_ngang_dim.TextStyle = "chu thuong" Dim currentValue As String Select Case d_ngang_đim.VerticalTextPosition Case acVertCentered: cuiTentValue = "centered" Case acAbove:... = (x_d + x_c) / 2 p_d_mid(l) = y_c - dimoffset p_d_mid(2) = 0 Set d_ngang_dim = mydoc.ModelSpace.AddDimAligned(p_d_cuoi, p_d_dau, p_d_mid) d_ngang_dim.StyleName = "stylel" d_ngang_dim.layer = "dim" d_ngang_dim.ScaleFactor = dimscale d_ngang_đim.TextStyle = "chu thuong" Dim currentValue As String Select Case d_ngang_dim.VerticalTextPosition d_ngang_dim.VeiticalTextPosition = acAbove d_ngang_dim.ưnitsFormat... Pormat Tools Dravv Dimension Modify Wlndow Hdp 1 a « H a> q & a » ✓ • < Q* «1 ^ 6$ K 17 * Và tất nhiên ta cũng có thể xem thông tin chi tiết về cọc qua file text P1 test.txt Notepad Rle Eđt Format Vew Heip Thong tin chi tiet ve coc m vat Heu coc: Mac be tong cot thep Duong kinh cot doc chiu luc ouong kinh cot dâ1 doan cot dai ngang CY450-20 cac kích thuoc co ban: chieu...Dim a As Double a = (Rct * fa) / (Rbt * (t_d_coc * 0.1) * (Ho * 0.1)) Dim gama As Double gama = 1 - 0.5 * a khanangchiuluc = Rct * fa * gama * Ho * 0.1 End Function 'thu tuc tinh luc ITIOC cau phai chiu Public Function khanangmoccau(ByVal Rct As Double, ByVal fa_moccau As Double) As Double khanangmoccau = Rct * fa_moccau * 2 End Function Public Function luccatmoccau(ByVal... acDimLDecimal d_ngang_dim.PrimaryUnitsPrecision = acDimPrecisionZero d_ngang_dim.TextMovement = acMoveTextNoLeader d_ngang_dim.ExtensionLineExtend = 0.01 d_ngang_đim.ExtensionLineOffset = 0.8 d_ngang_dim.TextInsideAlign = False mydoc.Regen acAllViewports End Sub 'dim ngang trai Public Sub dim_ngang_trai(By Val X As Double, ByVal yd As Double, ByVal yc As Double, ByVal dimscale As Double, ByVal dioffset As... [Drđwỉng1 dvvg] X ĨS ũ lắ □ Ta cũng có thể xem chi tiết về cọc bằng file text: Sau khi nhập các kích thước, ta Click vào nút “Ve coc”, ta được bản c test.txt - Notepad Fáe Edit Format View Help Thong tin chi tiet ve coc 4 doan co cot dai xoan: Mac be tong cot thep Duong kinh cot doc chiu luc Duong kinh cot dai : 300 CẤU TẠO : CHI A-I TIẾT MẶT CẮT I-I : 18 cac kích thuoc co ban: Tiet di en coc Chleu... tl As Double) Dim p_d(2) As Double Dim p_g(2) As Double Dim p_c(2) As Double p_d(0) = X p_d(l) = yd p_d(2) = 0 p_c(0) = X p_c(l) = yc p_c(2) = 0 15 d_ngang_đim.ScaleFactor = dimscale d_ngang_dim.TextStyle = "chu thuong" Dim cuiTentValue As String Select Case d_ngang_dim.VerticalTextPosition Case acVertCentered: currentValue = "centered" Case acAbove: currentValue = "above" Case acOutside: currentValue ... dựng v.v • Công ty tin học xây dựng số công ty chuyên sâu lĩnh vực CNTT xây dựng vói mục đích ý nghĩa áp dụng tin học vào lĩnh vực phi tin học Công ty với đội ngũ công nhân viên yêu nghề, trách... nên công ty tin học xây dựng với nhiều thành tựu đáng kể, đóng góp đáng kể cho phát triển kinh tễ nước nhà Với thời n Báo cáo tình hình thực đề tài thực tập tốt nghiệp: Cùng với việc thực tập công. .. khác công ty: -Tự động hoá thiết kế tư vấn xây dựng: +Tư vấn lập dự án công trình viễn thông tin học dân dụng +Thiết kế lập tỏng dự toán công trình viễn thông số công trình dân dụng, công trình công