Sử dụng phần mềm visual basic for application xây dựng chương trình tính toán thiết kế chi tiết xylanh động cơ diesel 4 kỳ

MỞ ĐẦU a Tính thời đề tài Trong năm gần đây, với phát triển mạnh mẽ cơng nghiệp đóng tàu nước, nhu cầu nội địa hóa trang thiết bị tàu quan tâm đặc biệt Động Diesel thiết bị động lực áp dụng rộng rãi không tàu thuỷ mà nhiều thiết bị giao thông, vận chuyển khác Mặt khác, với giá thành tương đối lớn so với tàu việc sản xuất động Diesel nước nhà nước đặc biệt quan tâm việc đầu tư xây dựng nhiều sở chế tạo lắp ráp động Diesel có cơng suất lớn Để chế tạo động Diesel không đầu tư sở vật chất thiết bị mà phải quan tâm đầu tư nâng cao khả thiết kế nghiên cứu công nghệ chế tạo thiết bị, chi tiết động Các chi tiết động Diesel chế tạo phải đảm bảo chi tiêu kinh tế kỹ thuật theo hệ thống tiêu chuẩn định Như vậy, q trình tính tốn thiết kế chi tiết động có ý nghĩa quan trọng chất lượng chế tạo chúng, việc nghiên cứu hướng tới phần mềm tự động hoá thiết kế chi tiết động Diesel thực vấn đề cấp thiết nước ta giới Trong công nghệ chế tạo động Diesel thiết bị gia công kỹ thuật số áp dụng hầu hết bước gia công, chi tiết thiết kế dạng vẽ CAD tiếp cận gần với ngơn ngữ máy gia cơng CNC dễ dàng sử dụng tích hợp với ngơn ngữ lập trình khác C ++, Delphi, Turbo v.v để áp dụng phần mềm tính tốn khác có sẵn thiết kế tối ưu hoá chi tiết động Diesel Vì vậy, sử dụng ngơn ngữ lập trình VBA (Visual Basic for Application) để tự động hoá thiết chi tiết xylanh động Diesel kỳ hợp lý cần thiết b Mục đích đề tài Sử dụng phần mềm Visual Basic for Application xây dựng chương trình tính tốn thiết kế chi tiết xylanh động Diesel kỳ c Nội dung đề tài Đề tài gồm chương sau: Chương 1: Tìm hiểu ngơn ngữ Visual Studio Chương 2: Cơ sở lý thuyết thiết kế chi tiết xylanh động diesel kỳ Chương 3: Sơ đồ thuật tốn dao diện chương trình Chương 4: Lập trình thiết kế chi tiết xylanh Chương 5: Kết chạy phần mềm cho động cụ thể d Phương pháp nghiên cứu đề tài Về lý thuyết sở tài liệu liên quan đến thiết kế động Diesel xây dựng phận mềm tính tốn thiết kế chi tiết xylanh động Diesel kỳ ngơn ngữ lập trình Visual Basic for Application Phần mềm áp dụng tính tốn thiết kế chi tiết xylanh động Diesel kỳ e Phạm vi nghiên cứu đề tài Xây dựng chương trình tính tốn thiết kế chi tiết xylanh động diesel kỳ sử dụng vật liệu gang thép f Ý nghĩa khoa học thực tiễn Ứng dụng phần mềm lập trình Visual Basic for Application vào việc thiết kế hỗ trợ cho việc vẽ AutoCad Thiết kế chương trình tự động thiết kế chi tiết xylanh động Diesel kỳ cơng việc lớn, địi hỏi nhiều cơng sức thời gian Với điều kiện hạn chế thời gian kinh nghiệm lập trình, nội dung đề tài đề cập tới việc tính tốn kích thước nghiệm bền cho chi tiết xylanh động diesel kỳ Tuy đề tài mong muốn đưa hướng nghiên cứu lâu dài, tạo sở ban đầu cho việc nghiên cứu hồn thiện chương trình Việt Nam để tự động thiết kế chế tạo động Diesel nước, góp phần vào phát triển công nghiệp chế tạo máy nước nhà làm tài liệu bổ ích cho sinh viên học tập nghiên cứu khoa học CHƯƠNG : TÌM HIỂU VỀ BỘ NGƠN NGỮ LẬP TRÌNH VISUAL STUDIO CỦA MICROSOFT 1.1 Giới thiệu VISUAL STUDIO : Bộ Visual Studio bao gồm ngơn ngữ lập trình trực quan: - Microsoft Visual C++ - Microsoft Visual J++ - Microsoft Visual Basic - Microsoft Visual Foxpro - Microsoft Visual InterDev Mỗi ngơn ngữ lập trình có đặc điểm riêng, có miền ứng dụng riêng Tuy nhiên để quan tâm tối vấn đề mạng, quản trị sở liệu với mạng, xây dựng hệ thống phần mềm lớn với mạng ta phải kể tới Visual J ++ Visual InterDev dùng để thiết kế trang Web, kết hợp với Visual Basic để quản trị sở liệu thương mại điện tử Trong ngành máy tàu, ta cần phải quan tâm tới ngơn ngữ cịn lại Visual C++, Visual Basic, Visual FoxPro Visual C++ ngôn ngữ lập trình dựa tảng C ++ lập trình hướng đối tượng Khi thực lập trình C/C ++, để tạo giao dịch phức tạp, trình bày đẹp hồn tồn khơng đơn giản Nhưng Visual C ++ việc đơn giản Người lập trình cần sử dụng điều khiển hay xây dựng menu đưa vào ứng dụng mà mã lệnh cần phải viết khơng q dài dịng phức tạp C/C++ Đó mạnh Visual C ++ trợ giúp đắc lực cho người lập trình xây dựng đề án chương trình lớn kỹ thuật lập trình hệ thống VisualBasic: Phần “Visual’’ đề cập đến phương pháp sử dụng để tạo giao diện đồ họa người dùng (GUI), tức người lập trình trực tiếp tạo giao diện đồ hoạ Form, nút bấm, hộp chọn, hộp nhập liệu Phần “Basic’’ đề cập đến ngôn ngữ lập trình BASIC ngơn ngữ sở cho ngơn ngữ Visual Basic BASIC ngôn ngữ nhiều nhà lập trình sử dụng ngơn ngữ khác lịch sử máy tính Ngơn ngữ Visual Basic tạo từ ngôn ngữ BASIC gốc có chứa hàng trăm hàm, câu lệnh, từ khố liên hệ trực tiếp đến Windows GUI Những người bắt đầu tạo ứng dụng hữu ích cách học vài từ khoá, khả ngôn ngữ cho phép người chuyên nghiệp hồn thành điều mà tạo từ ngơn ngữ lập trình Windows khác Các cơng cụ Visual Basic: - Các đặc tính truy cập liệu cho phép ta tạo sở liệu, trình ứng dụng trọn gói, thành phần vip server dành cho hầu hết định dạng sở liệu vip bao gồm Microsoft SQL Server sở liệu enterpries – level khác - Các kỹ thuật hoạt động xtm cho phép ta sử dụng chức cung cấp trình ứng dụng khác, chẳng hạn máy sử lý từ Micrsoft Word, trang bảng tính Microsoft Exel, trình ứng dụng Windows khác - Các khả internet làm cho dễ dàng truy cập đến tài liệu trình ứng dụng thơng qua Internet Internet từ trình ứng dụng nó, để tạo trình ứng dụng Internet server 1.2 Đặc điểm Microsoft VISUAL STUDIO 1.2.1 Ưu điểm - Microsoft Visual Studio cơng cụ lập trình trực quan, có nghĩa người lập trình tạo chương trình có giao diện đồ hoạ Windows cách dễ dàng vài nhấp chuột Như công cụ lập trình Microsoft Visual Studio giúp giảm nhẹ lớn cơng việc lập trình người lập trình - Microsoft Visual Studio chứa chiến lược lập trình mẻ đại lập trình hướng đối tượng, xây dựng chương trình thành mơ dun, sử dụng thư viện liên kết động Điều làm cho trở thành cơng cụ phổ biến, nhiều người lựa chọn để lập trình giới - Với Microsoft Visual Studio người lập trình làm điều mà họ muốn chương trình mình, với nhớ chương trình khơng có giới hạn (chỉ phụ thuộc vào nhớ máy tính) 1.2.2 Nhược điểm Nói đến nhược điểm Microsoft Visual Studio thực đề cập đến khía cạnh khơng chun nghiệp lĩnh vực cụ thể, cịn lại nhiều ưu điểm so với ngơn ngữ lập trình Microsoft Visual Studio thiết kế để lập trình ứng dụng thơng thường, phần lớn nhằm vào ứng dụng mang tính thương mại, khơng thể chun lĩnh vực Như vậy, ngành khí máy tàu, ta dùng để lập trình chương trình tính tốn thơng thường Nếu muốn tạo chương trình mang nặng tính khoa học ngơn ngữ lực chọn để lập trình tốt Fortran, cịn muốn tạo chương trình vẽ vẽ khí ngơn ngữ lựa chọn tốt AutoLisp 1.3 Tổng kết Mặc dù có nhiều ngơn ngữ lập trình liên quan tới ngành máy tàu thủy với ưu điểm nêu ngơn ngữ Visual Basic for Application phạm vi chương trình lựa chọn để tiến hành xây dựng phần mềm Tuy ngôn ngữ cịn số hạn chế với u cầu khơng cao phạm vi nghiên cứu nằm việc thiết kế chi tiết xylanh động diesel kỳ nên việc lựa chọn ngôn ngữ Visual Basic for Application hợp lý CHƯƠNG : CƠ SỞ LÝ THUYẾT THIẾT KẾ CHI TIẾT XYLANH CỦA ĐỘNG CƠ DIESEL KỲ Hình 1: Kết cấu xylanh động diesel kỳ 2.1 Điều kiện làm việc xylanh Ống lót xylanh dung làm Bàn trượt cho piston, tạo thành không gian chưa môi chất công tác truyền nhiệt từ môi chất công tác cho nước làm mát Ống lót xylanh đỡ thân xylanh với thân xylanh tạo thành khoang chứa nước làm mát 2.2 Yêu cầu ống lót xylanh Trong q trình làm việc,mặt xylanh chịu áp suất nhiệt độ cao, ăn mịn hóa học mài mịn Mặt ngồi ống lót xylanh tiếp xúc với nước làm mát Do chênh lệch nhiệt độ cao mặt với mặt ngoài, vùng buồng cháy với vùng bàn trượt Nên chịu ứng suất cơ, ống lót xylanh cịn phải chịu ứng suất nhiệt cao.Phần chịu lực chủ yếu ống lót xylanh phần gờ vai phía bng cháy Chính vai ống lót xylanh cần chịu ứng suất cắt ứng suất uốn Ngoài ra, mặt tiếp xúc với mặt đầu xylanh vành gờ đế nắp xylanh phải có rãnh hình vành khăn để lắp gioăng làm kín buồng cháy tránh khơng cho khí cháy rị lọt 2.3 Các cơng thức sử dụng để tính kết cấu nghiệm bền cho xylanh - Đường kính đỡ: D2 = (1,15 ÷ 1,35 ).D - Chiều rộng đệm kín: b = (0,02 ÷ 0,05).D - Chiều dày phần thân xilanh: ∆ = ( 0,05 ÷ 0,085).D δ = (0,05÷ 0,1)D L = (2÷2,4)S D1 = D + 2.∆ - Chiều dày tai đỡ: a = (D2 – D)/2 ; D3 = D + δ (2-1) Ứng suất kéo tác dụng tiếp tuyến mặt σ kx max = D12 + Dxl2 pz max D12 − Dxl2 (MN/m2) (2-2) Ứng suất kéo hướng tiếp tuyến mặt ngồi có giá trị nhỏ nhất: σ kx = 2.Dxl2 pz max D12 − Dxl2 (MN/m2) (2-3) Ứng suất kéo hướng kính mặt trong: σ ky = − p z max (MN/m2) (2-4) Ứng suất nhiệt mặt ống lót (ứng suất nén) tính theo cơng thức, MN/m 2: σ tt = α gn E.(tt − tn ) Dxl + 2.D1 (MN/m2) 3.(1 − µ ) Dxl + D1 (2-5) Trong đó: E – mơđun đàn hồi vật liệu chế tạo ống lót xilanh, MN/m µ - Hệ số Pốt xơng, gang đúc thép Ứng suất nhiệt mặt ngồi ống lót (ứng suất kéo), MN/m2: σ tn = α gn E.(tt − tn ) 2.Dxl + D1 (MN/m2) 3.(1 − µ ) Dxl + D1 (2-6) αgn - hệ số giãn dài, tt, tn - nhiệt độ mặt mặt ống lót xi lanh, Ứng suất kéo tổng mặt lớn mặt trong: σ to = σ tn + σ kx (2-7) Khi xiết guzông nắp xi lanh, vai ống lót xi lanh chịu lực nén P g Giá trị Pg nằm khoảng Pg = (1,2 ÷ 1,6) Pzmax Df2 (MN), Df - đường kính trung bình zoăng ống lót xi lanh - Ứng suất tiết diện I - I: Phân lực Pg thành hai thành phần PT PH Theo hình vẽ kết cấu ống lót xilanh ta có: PT = Pg.sin 100 (2-8) PH = Pg.cos 100 (2-9) Lực PH gây nên ứng suất kéo tiết diện I - I,: σk = PH (MN/m2) πDm h (2-10) Ứng suất cắt tiết diện I - I, τc = PT (MN/m2) πDm h (2-11) Ứng suất uốn tiết diện I - I,: σu = Pg l Wu = (πD Pg l mh ) (MN/m2) (2-12) Dm - đường kính trung bình ứng với tiết diện nguy hiểm sử dụng để tính tốn, m; Theo hình vẽ kết cấu ống lót xilanh ta có: Dm = 330 (mm) h - chiều rộng tiết diện I - I, m Ứng suất tổng tiết diện nguy hiểm xác định theo công thức,: (σ k + σ u ) + 4τ c2 (MN/m2) σ to = (2-13) - Ứng suất tiết diện II - II: tiết diện cần tính ứng suất cắt lực P g gây nên,: τc = Pg πDII a = 0,878 < [τc] (MN/m2) 3,14.0,4.0,02 (2-14) - Ứng suất nén lực Pg gây ra, MN/m2: σn = Pg πD f b < [σn] = 100 (MN/m2) (2-15) - Ứng suất nén mặt tựa phía vai ống lót lực Pg gây ra,: σn = Pg π ( D22 − D32 ) < [σn] (MN/m2) (2-16) CHƯƠNG 3: XÂY DỰNG SƠ ĐỒ THUẬT TOÁN VÀ DAO DIỆN CỦA CHƯƠNG TRÌNH 3.1 Sơ đồ thuật tốn chương trình B?t d?u Nh ?p thơng s ? d?u vào (D,S,Pz,Ne,v,i) Ki?m tra thông s? d?u vào D>30, S>D, 640, xmN>100, xmNt>100, xmTo>80 Xu?t b?n v? autocad K?t thúc 10 startpoint(0) = -1.24 * delta: startpoint(1) = L - a: startpoint(2) = endpoint(0) = (D - D2) / 2: endpoint(1) = L - a: endpoint(2) = Set outerloop(8) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj.AppendOuterLoop (outerloop) 'duong 24-25 startpoint(0) = -1.24 * delta: startpoint(1) = L - 1.75 * a: startpoint(2) = endpoint(0) = -1.24 * delta: endpoint(1) = L - a: endpoint(2) = Set outerloop(9) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj.AppendOuterLoop (outerloop) 'duong 21-22 startpoint(0) = -delta: startpoint(1) = 0.91 * L - 1.75 * a - 0.24 * delta: startpoint(2) = endpoint(0) = -delta: endpoint(1) = L - 1.75 * a - 0.24 * delta: endpoint(2) = Set outerloop(10) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj.AppendOuterLoop (outerloop) 'duong 19-20' startpoint(0) = -1.24 * delta: startpoint(1) = 0.853 * L - 1.75 * a - 0.24 * delta: startpoint(2) = endpoint(0) = -1.24 * delta: endpoint(1) = 0.91 * L - 1.75 * a - 0.48 * delta: endpoint(2) = Set outerloop(11) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj.AppendOuterLoop (outerloop) 'duong 16-17 startpoint(0) = -delta: startpoint(1) = 0.356 * L + 0.24 * delta: startpoint(2) = endpoint(0) = -delta: endpoint(1) = 0.853 * L - 1.75 * a - 0.48 * delta: endpoint(2) = Set outerloop(12) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj.AppendOuterLoop (outerloop) 'duong 11-12 startpoint(0) = -1.24 * delta: startpoint(1) = 0.3406 * L: startpoint(2) = endpoint(0) = -1.24 * delta: endpoint(1) = 0.356 * L: endpoint(2) = Set outerloop(13) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj.AppendOuterLoop (outerloop) 'duong 9-10 startpoint(0) = -1.24 * delta: startpoint(1) = 0.2954 * L - 0.035 * L + 0.72 * delta: startpoint(2) = endpoint(0) = -1.24 * delta: endpoint(1) = 0.3406 * L - 0.48 * delta: endpoint(2) = 43 Set outerloop(14) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj.AppendOuterLoop (outerloop) 'duong 7-8 startpoint(0) = -1.24 * delta: startpoint(1) = 0.28 * L - 0.035 * L + 0.24 * delta: startpoint(2) = endpoint(0) = -1.24 * delta: endpoint(1) = 0.2954 * L - 0.035 * L + 0.24 * delta: endpoint(2) = Set outerloop(15) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj.AppendOuterLoop (outerloop) 'duong 4-5 startpoint(0) = -delta: startpoint(1) = 0.035 * L + 0.24 * delta: startpoint(2) = endpoint(0) = -delta: endpoint(1) = 0.28 * L - 0.035 * L: endpoint(2) = Set outerloop(16) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj.AppendOuterLoop (outerloop) 'duong 1-2 startpoint(0) = -1.24 * delta: startpoint(1) = 0: startpoint(2) = endpoint(0) = -1.24 * delta: endpoint(1) = 0.035 * L: endpoint(2) = Set outerloop(17) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj.AppendOuterLoop (outerloop) 'cong 2-4 'duong cong 2-4 center(0) = -1.24 * delta: center(1) = 0.035 * L + 0.24 * delta: center(2) = startangle = -90 * 3.141592654 / 180 endangle = dblRadius = 0.24 * delta Set outerloop(18) = ThisDrawing.ModelSpace.AddArc(center, dblRadius, startangle, endangle) hatchObj.AppendOuterLoop (outerloop) 'duong cong 5-7 center(0) = -1.24 * delta: center(1) = 0.28 * L - 0.035 * L: center(2) = startangle = endangle = 90 * 3.141592654 / 180 dblRadius = 0.24 * delta 44 Set outerloop(19) = ThisDrawing.ModelSpace.AddArc(center, dblRadius, startangle, endangle) hatchObj.AppendOuterLoop (outerloop) 'duong cong 8-9 center(0) = -1.24 * delta: center(1) = 0.2954 * L - 0.035 * L + 0.48 * delta: center(2) = startangle = -90 * 3.141592654 / 180 endangle = 90 * 3.141592654 / 180 dblRadius = 0.24 * delta Set outerloop(20) = ThisDrawing.ModelSpace.AddArc(center, dblRadius, startangle, endangle) hatchObj.AppendOuterLoop (outerloop) 'duong cong 10-11 center(0) = -1.24 * delta: center(1) = 0.3406 * L - 0.24 * delta: center(2) = startangle = -90 * 3.141592654 / 180 endangle = 90 * 3.141592654 / 180 dblRadius = 0.24 * delta Set outerloop(21) = ThisDrawing.ModelSpace.AddArc(center, dblRadius, startangle, endangle) hatchObj.AppendOuterLoop (outerloop) 'duong cong 12-16 center(0) = -1.24 * delta: center(1) = 0.356 * L + 0.24 * delta: center(2) = startangle = -90 * 3.141592654 / 180 endangle = dblRadius = 0.24 * delta Set outerloop(22) = ThisDrawing.ModelSpace.AddArc(center, dblRadius, startangle, endangle) hatchObj.AppendOuterLoop (outerloop) 'duong cong 17-19 center(0) = -1.24 * delta: center(1) = 0.853 * L - 1.75 * a - 0.48 * delta: center(2) = startangle = endangle = 90 * 3.141592654 / 180 dblRadius = 0.24 * delta Set outerloop(23) = ThisDrawing.ModelSpace.AddArc(center, dblRadius, startangle, endangle) hatchObj.AppendOuterLoop (outerloop) 45 'duong cong 20'-21 center(0) = -1.24 * delta: center(1) = 0.91 * L - 1.75 * a - 0.24 * delta: center(2) = startangle = -90 * 3.141592654 / 180 endangle = dblRadius = 0.24 * delta Set outerloop(24) = ThisDrawing.ModelSpace.AddArc(center, dblRadius, startangle, endangle) hatchObj.AppendOuterLoop (outerloop) 'duong cong 22-24 center(0) = -1.24 * delta: center(1) = L - 1.75 * a - 0.24 * delta: center(2) = startangle = endangle = 90 * 3.141592654 / 180 dblRadius = 0.24 * delta Set outerloop(25) = ThisDrawing.ModelSpace.AddArc(center, dblRadius, startangle, endangle) hatchObj.AppendOuterLoop (outerloop) hatchObj.Evaluate hatchObj.PatternScale = hatchObj.PatternScale + 30 hatchObj.Evaluate ThisDrawing.Regen True Dim hatchObj2 As AcadHatch Dim patternName2 As String Dim PatternType2 As Long Dim bAssociativity2 As Boolean ' Dinh nghia vung to mau patternName2 = "ANSI31" PatternType2 = bAssociativity2 = True 'paterScale = 30 ' Tao doi tuong to mau lien ket Set hatchObj2 = ThisDrawing.ModelSpace.AddHatch(PatternType2, patternName2, bAssociativity2) 46 'khai bao outer2 Dim outer2(0 To 25) As AcadEntity 'duong B-D startpoint(0) = D: startpoint(1) = 0: startpoint(2) = endpoint(0) = D: endpoint(1) = L: endpoint(2) = Set outer2(0) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj2.AppendOuterLoop (outer2) 'duong B-E startpoint(0) = D: startpoint(1) = 0: startpoint(2) = endpoint(0) = D + 1.24 * delta: endpoint(1) = 0: endpoint(2) = Set outer2(1) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj2.AppendOuterLoop (outer2) 'duong E-1 startpoint(0) = D + 1.24 * delta: startpoint(1) = 0: startpoint(2) = endpoint(0) = D + 1.24 * delta: endpoint(1) = 0.035 * L: endpoint(2) = Set outer2(2) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj2.AppendOuterLoop (outer2) 'duong 3-4 startpoint(0) = D + delta: startpoint(1) = 0.035 * L + 0.24 * delta: startpoint(2) = endpoint(0) = D + delta: endpoint(1) = 0.28 * L - 0.035 * L: endpoint(2) = Set outer2(3) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj2.AppendOuterLoop (outer2) 'duong 6-7 startpoint(0) = D + 1.24 * delta: startpoint(1) = 0.28 * L - 0.035 * L + 0.24 * delta: startpoint(2) = endpoint(0) = D + 1.24 * delta: endpoint(1) = 0.2954 * L - 0.035 * L + 0.24 * delta: endpoint(2) = Set outer2(4) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj2.AppendOuterLoop (outer2) 'duong 8-10 startpoint(0) = D + 1.24 * delta: startpoint(1) = 0.2954 * L - 0.035 * L + 0.72 * delta: startpoint(2) = endpoint(0) = D + 1.24 * delta: endpoint(1) = 0.3406 * L - 0.48 * delta: endpoint(2) = Set outer2(5) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj2.AppendOuterLoop (outer2) 47 'duong 12-13 startpoint(0) = D + 1.24 * delta: startpoint(1) = 0.3406 * L: startpoint(2) = endpoint(0) = D + 1.24 * delta: endpoint(1) = 0.356 * L: endpoint(2) = Set outer2(6) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj2.AppendOuterLoop (outer2) 'duong 14-16 startpoint(0) = D + delta: startpoint(1) = 0.356 * L + 0.24 * delta: startpoint(2) = endpoint(0) = D + delta: endpoint(1) = 0.853 * L - 1.75 * a - 0.48 * delta: endpoint(2) = Set outer2(7) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj2.AppendOuterLoop (outer2) 'duong 18-19 startpoint(0) = D + 1.24 * delta: startpoint(1) = 0.853 * L - 1.75 * a - 0.24 * delta: startpoint(2) = endpoint(0) = D + 1.24 * delta: endpoint(1) = 0.91 * L - 1.75 * a - 0.48 * delta: endpoint(2) = Set outer2(8) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj2.AppendOuterLoop (outer2) 'duong 21-22 startpoint(0) = D + delta: startpoint(1) = 0.91 * L - 1.75 * a - 0.24 * delta: startpoint(2) = endpoint(0) = D + delta: endpoint(1) = L - 1.75 * a - 0.24 * delta: endpoint(2) = Set outer2(9) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj2.AppendOuterLoop (outer2) 'duong 24-25 startpoint(0) = D + 1.24 * delta: startpoint(1) = L - 1.75 * a: startpoint(2) = endpoint(0) = D + 1.24 * delta: endpoint(1) = L - a: endpoint(2) = Set outer2(10) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj2.AppendOuterLoop (outer2) 'duong 25-26 startpoint(0) = D + 1.24 * delta: startpoint(1) = L - a: startpoint(2) = endpoint(0) = (D + D2) / 2: endpoint(1) = L - a: endpoint(2) = Set outer2(11) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj2.AppendOuterLoop (outer2) 'duong 26-27 startpoint(0) = (D + D2) / 2: startpoint(1) = L - a: startpoint(2) = 48 endpoint(0) = (D + D2) / 2: endpoint(1) = L: endpoint(2) = Set outer2(12) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj2.AppendOuterLoop (outer2) 'duong 27-28 startpoint(0) = (D + D2) / 2: startpoint(1) = L: startpoint(2) = endpoint(0) = (D2 + * D) / + b / 2: endpoint(1) = L: endpoint(2) = Set outer2(13) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj2.AppendOuterLoop (outer2) 'duong 28-29 startpoint(0) = (D2 + * D) / + b / 2: startpoint(1) = L: startpoint(2) = endpoint(0) = (D2 + * D) / + b / 2: endpoint(1) = L - b: endpoint(2) = Set outer2(14) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj2.AppendOuterLoop (outer2) 'duong 29-30 startpoint(0) = (D2 + * D) / + b / 2: startpoint(1) = L - b: startpoint(2) = endpoint(0) = (D2 + * D) / - b / 2: endpoint(1) = L - b: endpoint(2) = Set outer2(15) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj2.AppendOuterLoop (outer2) 'duong 30-31 startpoint(0) = (D2 + * D) / - b / 2: startpoint(1) = L - b: startpoint(2) = endpoint(0) = (D2 + * D) / - b / 2: endpoint(1) = L: endpoint(2) = Set outer2(16) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj2.AppendOuterLoop (outer2) 'duong 31-D startpoint(0) = (D2 + * D) / - b / 2: startpoint(1) = L: startpoint(2) = endpoint(0) = D: endpoint(1) = L: endpoint(2) = Set outer2(17) = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint) hatchObj2.AppendOuterLoop (outer2) 'cac duong cong 'duong cong 1-3 center(0) = D + 1.24 * delta: center(1) = 0.035 * L + 0.24 * delta: center(2) = startangle = 180 * 3.141592654 / 180 endangle = -90 * 3.141592654 / 180 dblRadius = 0.24 * delta 49 Set outer2(18) = ThisDrawing.ModelSpace.AddArc(center, dblRadius, startangle, endangle) hatchObj2.AppendOuterLoop (outer2) 'duong cong 4-6 center(0) = D + 1.24 * delta: center(1) = 0.28 * L - 0.035 * L: center(2) = startangle = 90 * 3.141592654 / 180 endangle = 180 * 3.141592654 / 180 dblRadius = 0.24 * delta Set outer2(19) = ThisDrawing.ModelSpace.AddArc(center, dblRadius, startangle, endangle) hatchObj2.AppendOuterLoop (outer2) 'duong cong 7-8 center(0) = D + 1.24 * delta: center(1) = 0.2954 * L - 0.035 * L + 0.48 * delta: center(2) = startangle = 90 * 3.141592654 / 180 endangle = -90 * 3.141592654 / 180 dblRadius = 0.24 * delta Set outer2(20) = ThisDrawing.ModelSpace.AddArc(center, dblRadius, startangle, endangle) hatchObj2.AppendOuterLoop (outer2) 'duong cong 10-12 center(0) = D + 1.24 * delta: center(1) = 0.3406 * L - 0.24 * delta: center(2) = startangle = 90 * 3.141592654 / 180 endangle = -90 * 3.141592654 / 180 dblRadius = 0.24 * delta Set outer2(21) = ThisDrawing.ModelSpace.AddArc(center, dblRadius, startangle, endangle) hatchObj2.AppendOuterLoop (outer2) 'duong cong 13-14 center(0) = D + 1.24 * delta: center(1) = 0.356 * L + 0.24 * delta: center(2) = startangle = 180 * 3.141592654 / 180 endangle = -90 * 3.141592654 / 180 dblRadius = 0.24 * delta Set outer2(22) = ThisDrawing.ModelSpace.AddArc(center, dblRadius, startangle, endangle) 50 hatchObj2.AppendOuterLoop (outer2) 'duong cong 16-18 center(0) = D + 1.24 * delta: center(1) = 0.853 * L - 1.75 * a - 0.48 * delta: center(2) = startangle = 90 * 3.141592654 / 180 endangle = 180 * 3.141592654 / 180 dblRadius = 0.24 * delta Set outer2(23) = ThisDrawing.ModelSpace.AddArc(center, dblRadius, startangle, endangle) hatchObj2.AppendOuterLoop (outer2) 'duong cong 19-21 center(0) = D + 1.24 * delta: center(1) = 0.91 * L - 1.75 * a - 0.24 * delta: center(2) = startangle = 180 * 3.141592654 / 180 endangle = -90 * 3.141592654 / 180 dblRadius = 0.24 * delta Set outer2(24) = ThisDrawing.ModelSpace.AddArc(center, dblRadius, startangle, endangle) hatchObj2.AppendOuterLoop (outer2) 'duong cong 22-24 center(0) = D + 1.24 * delta: center(1) = L - 1.75 * a - 0.24 * delta: center(2) = startangle = 90 * 3.141592654 / 180 endangle = 180 * 3.141592654 / 180 dblRadius = 0.24 * delta Set outer2(25) = ThisDrawing.ModelSpace.AddArc(center, dblRadius, startangle, endangle) hatchObj2.AppendOuterLoop (outer2) hatchObj2.Evaluate hatchObj2.PatternScale = hatchObj2.PatternScale + 30 hatchObj2.Evaluate ThisDrawing.Regen True 'ghi ket qua Dim textstyle As AcadTextStyle Set textstyle = ActiveDocument.TextStyles.Add("K1") textstyle.SetFont ".VnArialH", False, True, 0, 34 textstyle.Height = 51 Dim textstyle2 As AcadTextStyle Set textstyle2 = ActiveDocument.TextStyles.Add("K2") textstyle.SetFont ".VnArial", False, True, 0, 34 textstyle2.Height = Dim text As AcadText Dim textstring As String Dim heigh As Double Dim point(0 To 2) As Double textstring = "CAC THONG SO CO BAN" point(0) = 720 - 1000: point(1) = 160: point(2) = heigh = Set text = ThisDrawing.ModelSpace.AddText(textstring, point, heigh) text.StyleName = "K1" textstring = "Cong suat dong co Ne (cv) = " + TextBox5.Value point(0) = 720 - 1000: point(1) = 148: point(2) = heigh = Set text = ThisDrawing.ModelSpace.AddText(textstring, point, heigh) text.StyleName = "K1" textstring = "Vong quay dinh muc (v/ph) = " + TextBox6.Value point(0) = 720 - 1000: point(1) = 140: point(2) = heigh = Set text = ThisDrawing.ModelSpace.AddText(textstring, point, heigh) text.StyleName = "K1" textstring = "So xylanh cua dong co i = " + TextBox4.Value point(0) = 720 - 1000: point(1) = 132: point(2) = heigh = Set text = ThisDrawing.ModelSpace.AddText(textstring, point, heigh) text.StyleName = "K1" 52 textstring = "Duong kinh xylanh D(mm) = " + TextBox1.Value point(0) = 720 - 1000: point(1) = 124: point(2) = heigh = Set text = ThisDrawing.ModelSpace.AddText(textstring, point, heigh) text.StyleName = "K1" textstring = "Hanh trinh Piston S(mm) = " + TextBox2.Value point(0) = 720 - 1000: point(1) = 116: point(2) = heigh = Set text = ThisDrawing.ModelSpace.AddText(textstring, point, heigh) text.StyleName = "K1" textstring = "Chieu dai than xylanh L(mm) = " + TextBox15.Value point(0) = 720 - 1000: point(1) = 108: point(2) = heigh = Set text = ThisDrawing.ModelSpace.AddText(textstring, point, heigh) text.StyleName = "K1" ZoomAll Me.Hide End Sub Private Sub CommandButton3_Click() Me.Hide End Sub Private Sub CommandButton4_Click() Form1.Show Me.Hide End Sub Private Sub Label28_Click() Me.Hide EndSub 53 CHƯƠNG 5: KẾT QUẢ CHẠY PHẦN MỀM CHO MỘT ĐỘNG CƠ CỤ THỂ Chương trình minh họa cho động diesel có thông số sau: - Công suất động Ne = 1750 cv - Áp suất cháy cực đại Pz = 9,63 - Vòng quay động n = 750 rpm - Đường kính xylanh D = 300 mm - Hành trình piston S = 380 mm - Số xylanh i = 5.1 Khởi động chương trình Khởi động chương trình autocad, Gõ dịng lệnh VBAMAN Load file dvb thư mục chạy chương trình sau: Hình 4: Hộp thoại chương trình Trong hộp thoại ta nhập vào tên người dùng, lớp, GV hướng dẫn hình Sau Click vào nút OK để sang hình làm việc 54 5.2 Làm việc với chương trình Tại hộp thoại Click nút OK Hình : Màn hình làm việc Nhập thông số đầu vào động vào phần “Nhập thơng số đầu vào” Click nút “Tính kich thuoc” Hình 6: Kết tính tốn hợp lý Để xuất vẽ mặt cắt xylanh với thông số ta Click vào nút “Xuat ban ve” Sau Click vào “Thoat” để khỏi chương trình Kết mặt cắt thu sau: 55 56 TÀI LIỆU THAM KHẢO TS Lê Viết Lượng (2000) Lý thuyết động diesel, NXB Giáo dục, Hà Nội PGS TS Lê Viết Lượng (2003) Kết cấu động diesel Đại học Hàng hải Nhà xuất trẻ Tự học lập trình visual Basic 6.0 Bộ mơn TĐHTK Giáo trình Visual Basic for Application Dương Xuân Quang Đề tài nghiên cứu khoa học xây dựng chương trình tính tốn thiết kế động Diesel 57 ... đến thiết kế động Diesel xây dựng phận mềm tính tốn thiết kế chi tiết xylanh động Diesel kỳ ngôn ngữ lập trình Visual Basic for Application Phần mềm áp dụng tính tốn thiết kế chi tiết xylanh động. .. xylanh động diesel kỳ nên việc lựa chọn ngôn ngữ Visual Basic for Application hợp lý CHƯƠNG : CƠ SỞ LÝ THUYẾT THIẾT KẾ CHI TIẾT XYLANH CỦA ĐỘNG CƠ DIESEL KỲ Hình 1: Kết cấu xylanh động diesel kỳ. .. động Diesel kỳ e Phạm vi nghiên cứu đề tài Xây dựng chương trình tính tốn thiết kế chi tiết xylanh động diesel kỳ sử dụng vật liệu gang thép f Ý nghĩa khoa học thực tiễn Ứng dụng phần mềm lập trình