MỞ ĐẦU 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, trình tính toá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 toá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 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 toán thiết kế bầu làm mát dầu LO cho tàu hàng 34000 lắp máy MAN B&W 6S46MC-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ế bầu làm mát dầu LO Chương 3: Sơ đồ thuật toán dao diện chương trình Chương 4: Kết chạy phần mềm 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 toán thiết kế bầu làm mát LO tàu 34000 ngôn ngữ lập trình Visual Basic for Application Phạm vi nghiên cứu đề tài Xây dựng chương trình tính toán thiết kế bầu làm mát LO cho tàu 34000 Ý 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ế bầu làm mát dầu LO 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 toán kích thước 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 hoàn thiện chương trình Việt Nam để tự động thiết kế chế tạo thiết bị máy phụ buồng máy, 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 I, CHƯƠNG : TÌM HIỂU VỀ BỘ NGÔN NGỮ LẬP TRÌNH VISUAL STUDIO CỦA MICROSOFT VÀ VBA DO CHÍNH AUTODESK PHÁT TRIỂN 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ữ 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 hoàn toà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 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ừ khoá 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 hoà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 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 chuyên nghiệp lĩnh vực cụ thể, 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, chuyên 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 toá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, muốn tạo chương trình vẽ vẽ khí ngôn ngữ lựa chọn tốt AutoLisp 1.3 Ngôn ngữ lập trình Visual Basic For Application Sự quen thuộc với AutoCAD người làm công tác thiết kế hiển nhiên khả hỗ trợ tạo vẽ kỹ thuật tuyệt vời tính dễ dùng Tuy vậy, với đòi hỏi ngày cao công việc, AutoCAD dần phát triển, từ môi trường hỗ trợ tạo vẽ, biến thành môi trường tích hợp, mà người dùng lấy AutoCAD làm để xây dựng cho công cụ làm việc có khả tùy biến cao, vượt khỏi giới hạn công cụ tạo vẽ thông thường công cụ phát triển AutoCAD VBA thực thích hợp để xây dựng công cụ mang tính chất tự động Thứ nhất, tích hợp sẵn AutoCAD khai thác khả sẵn có AutoCAD Thứ hai, ngôn ngữ lập trình VB phổ biến tính dễ sử dụng nhiều tài liệu tham khảo, điều hữu ích cho người lập trình VBA 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ữ số hạn chế với yê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 THIẾT BỊ TRAO ĐỔI NHIỆT SINH HÀN LO Hình 1: Kết cấu sinh hàn 2.1 Nguyên lý làm việc yêu cầu Yêu cầu sinh hàn Hệ thống bôi trơn thiết kế theo phương pháp xử lý dầu song song: có hệ thống bôi trơn độc lập + Hệ thống bôi trơn tuần hoàn: Dầu bơm LO hút dầu từ két dầu tuần hoàn đẩy lên sinh hàn LO qua bầu lọc tự động vào vào bôi trơn động Kết thúc trình bôi trơn động dầu đưa trở lại két LO tuần hoàn Ngoài với hệ thống bôi trơn tuần hoàn máy bố trí thêm hệ thống tuần hoàn bôi trơn xilanh riêng biệt: Dầu từ két dầu bôi trơn xilanh trực nhật (đặt boong A) đưa tới két đo lường trước đưa tới cấp dầu cho xilanh, dầu thừa đưa trở lại két đầu trực nhật + Hệ thống xử lý dầu nhờn: Song song với hệ thống bôi trơn tuần hoàn, phận dầu từ két tuần hoàn két LO dự trữ bơm cấp dầu cho máy phân ly hút đẩy vào bầu hâm Sau qua bầu hâm, dầu có nhiệt độ khoảng 60 0C dẫn vào máy phân ly Dầu khỏi máy phân ly đưa trở lại két LO tuần hoàn, đưa tới bôi trơn máy đèn đưa tới két LO để từ đưa tới bôi trơn máy móc khác hay cho nhu cầu sử dung dầu bôi trơn khác Hệ thống bôi trơn bố trí để bôi trơn ổ đỡ trục chong chóng ống bao trục, cấp dầu cho cụm làm kín ống bao phía trước phía sau 2.3 Các công thức sử dụng để tính kết cấu sinh hàn No HẠNG MỤC TÍNH KÝ ĐƠN CÔNG THỨC GIÁ HIỆU VỊ CÁCH XÁC ĐỊNH TRỊ Công suất máy Ne1 hp Theo lý lịch máy 10690 Công suất máy đèn Ne2 hp Theo lý lịch máy 897 Số lượng máy đèn Z tổ Theo thiết kế gm g/hp.h Theo lý lịch máy 0,64 gmp g/hp.h Theo lý lịch máy 0,75 k – Theo thiết kế 0,7 Suất tiêu hao dầu bôi trơn máy Suất tiêu hao dầu bôi trơn máy đèn Hệ số hoạt động đồng thời máy đèn Hệ số dự trữ dầu bôi trơn k1 – Chọn 1,2 Hệ số sử dụng dầu bôi trơn k2 – Chọn 1,1 Hệ số dung tích két k3 – Chọn 1,12 No HẠNG MỤC TÍNH 10 Tỷ trọng dầu bôi trơn 11 12 13 14 15 16 17 Thời gian hoạt động liên tục phương tiện Lượng dầu bôi trơn tiêu hao hành trình Lượng dầu bôi trơn hệ thống tuần hoàn máy Lượng dầu bôi trơn hệ thống tuần hoàn máy đèn Chu kỳ thay dầu máy Chu kỳ thay dầu máy đèn Dung tích két dầu bôi trơn dự trữ KÝ ĐƠN CÔNG THỨC GIÁ HIỆU VỊ CÁCH XÁC ĐỊNH TRỊ γm kg/l Chọn theo loại dầu 0,92 Tht h Theo nhiệm vụ thư 720 Bm kg W (g m N e1 + g mp N e Z k ) ( k1 k 2T ) −1 10 7392 l Theo lý lịch máy 3800 Wp l Theo lý lịch máy 580 T h Theo lý lịch máy 1000 Tp h Theo lý lịch máy 500 Vm l  B m Tht  T  + W + ht W p k γ  Tp  m T  12998 Bảng 6.5:Tính dung tích dự trữ dầu bôi trơn Kết luận: Tàu trang bị két chứa dầu bôi trơn có: V1 = 20 m3 – Tổng dung tích két dự trữ: – Tổng dung tích két dự trữ dầu bôi trơn xilanh: V2 = 70 m3 - Nguyên tắc trao nhiệt +Nước làm nhiệm vụ ống + Dầu làm chất trao nhiệt bên ống có chiều ngược với chiều lưu động nước để tăng tác dụng truyền nhiệt - Tính toán bầu làm mát * Nhiệt lượng động truyền cho dầu nhờn Qd = Cd.Vd ρ (tdv - tdr ) Trong Qd - Nhiệt lượng động truyền cho dầu nhờn Cd - Tỉ nhiệt dầu nhờn Cd = 0,5 (kcal/kg.0 C) ρ - Trọng lượng riêng dầu nhờn ρ = 0,92 (kg/lit) tdv , tdr - Nhiệt độ dầu vào sinh hàn Đối với động điesel ∆t = tdv - tdr = 40 ÷ 600C chọn ∆t = 200C Vd - Lưu lượng dầu tuần hoàn qua bầu sinh hàn -Máy Vd1 = 3800= (lit/h) - Máy đèn Vd2 = 1740 = (lit/h) Kết quả: - Qd1 = 34960 (kcal/h) - Qd2-2 =16008 (kcal/h) Qd12=Qd1+Qd2=34960+16008=50968 kcal/h * Diện tích tản nhiệt bầu làm mát Fk = Qd 12 K d ( td − t k ) (7-10) Trong đó: Fk - Diện tích tản nhiệt bầu làm mát Qd12 - Nhiệt lượng động truyền cho dầu nhờn; (kcal/h) Kd - Hệ số truyền nhiệt tổng quát dầu nhờn môi chất làm mát chọn bầu làm mát dùng kiểu ống thẳng nhẵn Kd = 100÷300 (kcal/m2.h0C) chọn Kd = 200 (kcal/m2.h0C) td,tk - Nhiệt độ trung bình dầu nhờn môi chất làm mát; chọn ∆t = td - tk = 200C -Fk1 = 12,74 (m2) Kết quả: * Các kích thước bầu làm mát dầu nhờn Máy - Chọn đường kính ống là: d1 = cm =0,03 (m) - Chiều dài ống l =2,4 (m) - Chọn số ống n = ống ,được tính theo công thức n= Fk1 d lπ Thay số vào ta được: n= 56 ống CHƯƠNG 3: XÂY DỰNG SƠ ĐỒ THUẬT TOÁN VÀ CÁC CODE LỆNH 3.1 Sơ đồ thuật toán chương trình 10 startAngleInRadian = startAngleInDegree * 3.141592 / 180 endAngleInRadian = endAngleInDegree * 3.141592 / 180 ' Tao d0i tuong Arc không gian mô hinh' Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian) ' Xác dinh thu0c tính cua cung tron thu 12' centerPoint(0) = 147.5: centerPoint(1) = 30: centerPoint(2) = radius = 'Bán kính' startAngleInDegree = 213.5 'Góc bat dau' endAngleInDegree = 326.5 'Góc ket thúc' ' Chuyen góc tao sang Radian' startAngleInRadian = startAngleInDegree * 3.141592 / 180 endAngleInRadian = endAngleInDegree * 3.141592 / 180 ' Tao doi tuong Arc không gian mô hinh' Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian) ZoomAll 'cac doan thang noi dong mo van cap' 'c1' diemDau(0) = -7.5: diemDau(1) = 95#: diemDau(2) = 0# diemCuoi(0) = -7.5: diemCuoi(1) = 105#: diemCuoi(2) = 0# ' Tao doan thang không gian mô hinh' Set lineObj = ThisDrawing.ModelSpace.AddLine(diemDau, diemCuoi) 'c2' diemDau(0) = -12.5: diemDau(1) = 105#: diemDau(2) = 0# 25 diemCuoi(0) = -2.5: diemCuoi(1) = 105#: diemCuoi(2) = 0# Set lineObj = ThisDrawing.ModelSpace.AddLine(diemDau, diemCuoi) 'c3' diemDau(0) = 127.5: diemDau(1) = -25#: diemDau(2) = 0# diemCuoi(0) = 127.5: diemCuoi(1) = -15#: diemCuoi(2) = 0# Set lineObj = ThisDrawing.ModelSpace.AddLine(diemDau, diemCuoi) 'c4' diemDau(0) = 122.5: diemDau(1) = -15#: diemDau(2) = 0# diemCuoi(0) = 132.5: diemCuoi(1) = -15#: diemCuoi(2) = 0# Set lineObj = ThisDrawing.ModelSpace.AddLine(diemDau, diemCuoi) 'c5' diemDau(0) = 25#: diemDau(1) = 117.5: diemDau(2) = 0# diemCuoi(0) = 35#: diemCuoi(1) = 117.5: diemCuoi(2) = 0# Set lineObj = ThisDrawing.ModelSpace.AddLine(diemDau, diemCuoi) 'c6' diemDau(0) = 35#: diemDau(1) = 112.5: diemDau(2) = 0# diemCuoi(0) = 35#: diemCuoi(1) = 122.5: diemCuoi(2) = 0# Set lineObj = ThisDrawing.ModelSpace.AddLine(diemDau, diemCuoi) 'c7' diemDau(0) = 105#: diemDau(1) = -57.5: diemDau(2) = 0# diemCuoi(0) = 115#: diemCuoi(1) = -57.5: diemCuoi(2) = 0# Set lineObj = ThisDrawing.ModelSpace.AddLine(diemDau, diemCuoi) 'c8' diemDau(0) = 115#: diemDau(1) = -52.5: diemDau(2) = 0# diemCuoi(0) = 115#: diemCuoi(1) = -62.5: diemCuoi(2) = 0# Set lineObj = ThisDrawing.ModelSpace.AddLine(diemDau, diemCuoi) 'c9' diemDau(0) = -27.5: diemDau(1) = 35: diemDau(2) = 0# diemCuoi(0) = -27.5: diemCuoi(1) = 45: diemCuoi(2) = 0# Set lineObj = ThisDrawing.ModelSpace.AddLine(diemDau, diemCuoi) 26 'c10' diemDau(0) = -22.5: diemDau(1) = 45: diemDau(2) = 0# diemCuoi(0) = -32.5: diemCuoi(1) = 45: diemCuoi(2) = 0# Set lineObj = ThisDrawing.ModelSpace.AddLine(diemDau, diemCuoi) 'c11' diemDau(0) = 147.5: diemDau(1) = 35: diemDau(2) = 0# diemCuoi(0) = 147.5: diemCuoi(1) = 45: diemCuoi(2) = 0# Set lineObj = ThisDrawing.ModelSpace.AddLine(diemDau, diemCuoi) 'c12' diemDau(0) = 142.5: diemDau(1) = 45: diemDau(2) = 0# diemCuoi(0) = 152.5: diemCuoi(1) = 45: diemCuoi(2) = 0# Set lineObj = ThisDrawing.ModelSpace.AddLine(diemDau, diemCuoi) ZoomAll 'tam va tao duong tron' centerPoint(0) = 55#: centerPoint(1) = 105#: centerPoint(2) = 0# radius = 7.5 ' Tao doi tu?ng Circle không gian mô h?nh Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius) 'tam va tao duong tron' centerPoint(0) = 55#: centerPoint(1) = 90#: centerPoint(2) = 0# radius = 7.5 ' Tao doi tu?ng Circle không gian mô h?nh Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius) 'tam va tao duong tron' centerPoint(0) = 65#: centerPoint(1) = -30#: centerPoint(2) = 0# radius = 7.5 ' Tao doi tu?ng Circle không gian mô h?nh Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius) 27 'tam va tao duong tron' centerPoint(0) = 65#: centerPoint(1) = -45#: centerPoint(2) = 0# radius = 7.5 ' Tao doi tu?ng Circle không gian mô h?nh Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius) ZoomAll Dim textString As String Dim insertionPoint(0 To 2) As Double Dim height As Double 'doi tuong can ghi chu' textString = " SINH HAN LO." insertionPoint(0) = 30 insertionPoint(1) = 30 insertionPoint(2) = height = Set textObj = ThisDrawing.ModelSpace _ AddText(textString, insertionPoint, height) textObj.Update 'doi tuong can ghi chu' textString = "PI" insertionPoint(0) = 53 insertionPoint(1) = 90 insertionPoint(2) = height = Set textObj = ThisDrawing.ModelSpace _ AddText(textString, insertionPoint, height) textObj.Update 28 'doi tuong can ghi chu' textString = "PI" insertionPoint(0) = 63 insertionPoint(1) = -30 insertionPoint(2) = height = Set textObj = ThisDrawing.ModelSpace _ AddText(textString, insertionPoint, height) textObj.Update 'doi tuong can ghi chu' textString = "TI" insertionPoint(0) = 63 insertionPoint(1) = -47 insertionPoint(2) = height = Set textObj = ThisDrawing.ModelSpace _ AddText(textString, insertionPoint, height) textObj.Update 'doi tuong can ghi chu' textString = "TI" insertionPoint(0) = 53 insertionPoint(1) = 103 insertionPoint(2) = height = Set textObj = ThisDrawing.ModelSpace _ AddText(textString, insertionPoint, height) 29 textObj.Update 'doi tuong can ghi chu' textString = "VAN CAU" insertionPoint(0) = 150 insertionPoint(1) = 55 insertionPoint(2) = height = Set textObj = ThisDrawing.ModelSpace _ AddText(textString, insertionPoint, height) textObj.Update 'GHI CHU KHUNG TEN' textString = "TEN THIET BI:SINH HAN DAU LO " insertionPoint(0) = 135 insertionPoint(1) = -210 insertionPoint(2) = height = Set textObj = ThisDrawing.ModelSpace _ AddText(textString, insertionPoint, height) textObj.Update textString = "SINH VIEN:VO VAN SON " insertionPoint(0) = 135 insertionPoint(1) = -232 insertionPoint(2) = height = Set textObj = ThisDrawing.ModelSpace _ AddText(textString, insertionPoint, height) textObj.Update 30 textString = "LOP:MTT53-DH1 " insertionPoint(0) = 135 insertionPoint(1) = -240 insertionPoint(2) = height = Set textObj = ThisDrawing.ModelSpace _ AddText(textString, insertionPoint, height) textObj.Update 'VE KHUNG BAN VE CAC DIEM ' points(0) = -100: points(1) = -250 ' To? d? d?nh points(2) = 250: points(3) = -250 ' To? d? d?nh points(4) = 250: points(5) = 250 ' To? d? d?nh points(6) = -100: points(7) = 250 ' To? d? d?nh points(8) = -100: points(9) = -250 ' To? d? d?nh ' Tao doi tuong LWPolyline không gian mô hinh' Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) 'VE KHUNG TEN' points(0) = 250: points(1) = -250 ' To? d? d?nh points(2) = 250: points(3) = -195 ' To? d? d?nh points(4) = 130: points(5) = -195 ' To? d? d?nh points(6) = 130: points(7) = -250 ' To? d? d?nh points(8) = 250: points(9) = -250 ' To? d? d?nh ' Tao doi tuong LWPolyline không gian mô hinh' Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) 'VE KHUNG TEN' points(0) = 250: points(1) = -250 ' To? d? d?nh points(2) = 250: points(3) = -222.5 ' To? d? d?nh points(4) = 130: points(5) = -222.5 ' To? d? d?nh 31 points(6) = 130: points(7) = -250 ' To? d? d?nh points(8) = 250: points(9) = -250 ' To? d? d?nh ' Tao doi tuong LWPolyline không gian mô hinh' Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) ZoomAll Dim P1(0 To 2) As Double Dim P2(0 To 2) As Double Dim location(0 To 2) As Double ' ?Inh nghia diem duong kích thuoc P1(0) = 0#: P1(1) = 0#: P1(2) = 0# P2(0) = 120#: P2(1) = 0#: P2(2) = 0# location(0) = 60: location(1) = -8#: location(2) = 0# ' T?o du?ng kích thu?c dài không gian mô h?nh Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(P1, P2, location) ' ?Inh nghia diem duong kích thuoc' P1(0) = 120#: P1(1) = 0#: P1(2) = 0# P2(0) = 120#: P2(1) = 60#: P2(2) = 0# location(0) = 110: location(1) = 30#: location(2) = 0# ' Tao duong kích thuoc dài không gian mô hinh' Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(P1, P2, location) ' ?Inh nghia diem duong kích thuoc' P1(0) = 120#: P1(1) = 0#: P1(2) = 0# P2(0) = 120#: P2(1) = 30#: P2(2) = 0# location(0) = 125: location(1) = 15#: location(2) = 0# ' Tao duong kích thuoc dài không gian mô hinh' Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(P1, P2, location) ' ?Inh nghia diem duong kích thuoc' 32 P1(0) = 0#: P1(1) = 60#: P1(2) = 0# P2(0) = 20#: P2(1) = 60#: P2(2) = 0# location(0) = 10: location(1) = 65#: location(2) = 0# ' Tao duong kích thuoc dài không gian mô hinh' Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(P1, P2, location) ZoomAll End Sub Private Sub CommandButton2_Click() Dim Cd As Double Dim p As Double Dim tv As Double Dim tr As Double Dim dentaT As Double Dim Vd1 As Double Dim Vd2 As Double Dim Fk As Double Dim K As Double Dim Qd1 As Double Dim Qd2 As Double Dim Qd As Double On Error Resume Next 'nhap so lieu dau vao' Cd = TextBox1.Value tv = TextBox2.Value tr = TextBox3.Value Vd1 = TextBox4.Value 33 Vd2 = TextBox5.Value p = TextBox6.Value K = TextBox7.Value dentaT = TextBox8.Value 'cong thuc tinh toan' Qd1 = Cd * Vd1 * p * (tv - tr) Qd2 = Cd * Vd2 * p * (tv - tr) Qd = Qd1 + Qd2 Fk = Qd / (K * dentaT) TextBox9.Text = Fk End Sub Private Sub CommandButton3_Click() Dim Fk As Double Dim d1 As Double Dim l As Double Dim n As Double Dim n1 As Double Dim d As Double Dim Sxq As Double 'nhap so lieu dau vao' d1 = TextBox10.Value l = TextBox11.Value Fk = TextBox9.Value n1 = Fk / (d1 * l * 3.14) n = Fix(n1) Sxq = n * d1 * 3.14 * l d = Sxq / (l * 3.14) TextBox12.Text = n TextBox13.Text = d 34 End Sub Private Sub TextBox10_Change() End Sub Private Sub TextBox11_Change() End Sub Private Sub TextBox12_Change() End Sub 35 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 toán thiết kế động Diesel 36 37 TI PI VANCAU SINHHANLO 38 PI TI TI PI VANCAU SINHHANLO PI TI TENTHIETBI:SINHHANDAULO SINHVIEN:VOVANSON LOP:MTT53-DH1 39 [...]... tính c a c c kích thư c sinh hàn 1) Số lượng ống c a sinh hàn 2) Đường kính bầu sinh hàn - Phần 5: C c nút bấm + tính diện tích trao đổi nhiệt + tính số lượng ống và kích thư c sinh hàn + in ra bản vẽ sinh hàn 14 Chương 4: C u tr c lệnh 3.1 c c code lệnh Private Sub CommandButton1_Click() Dim plineObj As AcadLWPolyline Dim arcObj As AcadArc Dim lineObj As AcadLine Dim circleObj As AcadCircle Dim textObj... dầu vào 3) Nhiệt độ dầu ra 4) Hệ số truyền nhiệt 5) Lưu lượng dầu tuần hoàn qua máy chính 6) Lưu lượng dầu tuần hoàn qua máy đèn 7) Trọng lượng riêng c a dầu nhờn 8) Nhiệt độ trung bình c a dầu nhờn và c a môi chất làm mát - Phần 2: Kết quả thông số diện tích trao đổi nhiệt - Phần 3: nhập thông số lựa chọn kích thư c sinh hàn 1) Lựa chọn đường kính ống 2) Chọn chiều dài ống - Phần 4: kết quả tính c a...11 3.2 Dao diện làm vi c của chương trình 3.2.1 Dao diện làm vi c số 1 Hình 2: dao diện làm vi c đầu tiên Giải thích dao diện : Dao diện làm vi c đầu tiên là dao diện khi người dùng bắt đầu chạy chương trình trên nền autocad Dao diện bao gồm những thông tin sau: - Tên đề tài: Tính toán c c thông số … - Xây dựng phần mềm: bao gồm những thông tin về giảng viên hướng dẫn... 30#: P2(2) = 0# location(0) = 125: location(1) = 15#: location(2) = 0# ' Tao duong kích thuoc dài trong không gian mô hinh' Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(P1, P2, location) ' ?Inh nghia c c diem trên duong kích thuoc' 32 P1(0) = 0#: P1(1) = 60#: P1(2) = 0# P2(0) = 20#: P2(1) = 60#: P2(2) = 0# location(0) = 10: location(1) = 65#: location(2) = 0# ' Tao duong kích thuoc dài trong không... 180 ' Tao d0i tuong Arc trong không gian mô hinh' Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian) ' X c dinh c c thu 0c tính cua cung tron thu 3' centerPoint(0) = 127.5: centerPoint(1) = -30: centerPoint(2) = 0 radius = 5 'Bán kính' startAngleInDegree = 33.5 'G c bat dau' endAngleInDegree = 146.5 'G c ket th c' ' Chuyen c c g c tao do sang Radian'... 180 ' Tao d0i tuong Arc trong không gian mô hinh' Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian) ' X c dinh c c thu 0c tính cua cung tron thu 4' 21 centerPoint(0) = 127.5: centerPoint(1) = -30: centerPoint(2) = 0 radius = 5 'Bán kính' startAngleInDegree = 213.5 'G c bat dau' endAngleInDegree = 326.5 'G c ket th c' ' Chuyen c c g c tao do sang Radian'... 180 ' Tao doi tuong Arc trong không gian mô hinh' Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian) ' X c dinh c c thu 0c tính cua cung tron thu 5' centerPoint(0) = 20: centerPoint(1) = 117.5: centerPoint(2) = 0 radius = 5 'Bán kính' startAngleInDegree = -56.5 'G c bat dau' endAngleInDegree = 56.5 'G c ket th c' ' Chuyen c c g c tao do sang Radian'... 180 ' Tao doi tuong Arc trong không gian mô hinh' Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian) ' X c dinh c c thu 0c tính cua cung tron thu 6' centerPoint(0) = 20: centerPoint(1) = 117.5: centerPoint(2) = 0 radius = 5 'Bán kính' startAngleInDegree = 123.5 'G c bat dau' endAngleInDegree = 236.5 'G c ket th c' ' Chuyen c c g c tao do sang Radian'... 180 ' Tao doi tuong Arc trong không gian mô hinh' Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian) ' X c dinh c c thu 0c tính cua cung tron thu 7' centerPoint(0) = 100: centerPoint(1) = -57.5: centerPoint(2) = 0 radius = 5 'Bán kính' startAngleInDegree = -56.5 'G c bat dau' endAngleInDegree = 56.5 'G c ket th c' ' Chuyen c c g c tao do sang Radian'... 180 ' Tao doi tuong Arc trong không gian mô hinh' Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian) ' X c dinh c c thu 0c tính cua cung tron thu 8' centerPoint(0) = 100: centerPoint(1) = -57.5: centerPoint(2) = 0 radius = 5 'Bán kính' startAngleInDegree = 123.5 'G c bat dau' endAngleInDegree = 236.5 'G c ket th c' ' Chuyen c c g c tao do sang Radian'