Bộ công thơng Tập đoàn công nghiệp than - khoáng sản việt nam Viện khí lợng mỏ - tkv Báo cáo tổng kết đề tài nghiên cứu khoa học công nghệ nghiên cứu thiết kế, chế tạo gây rung sử dụng thiết bị mỏ quan chủ quản: Bộ Công Thơng quan chủ trì: Viện khí Năng lợng Mỏ chủ nhiệm đề tài La Văn Tửu Duyệt viện 6784 12/4/2008 Hà nội - 2007 Cơ quan thực đơn vị phối hợp Số T.T Tên đề tài Cơ quan thực Nghiên cứu thiết kế, chế Viện khí Năng tạo gây rung sử dụng lợng Mỏ - TKV thiết bị mỏ Đơn vị phối hợp Công ty tuyển than Cửa Ông - TKV Những ngời thực phối hợp Số T.T Họ tên La Văn Tửu Lê Ninh Lâm Đức Khải Lê Văn Tiềm Vũ Quang Việt Dơng Anh Tuân Nguyễn Hồng Điệp Học vị TS KS KS KS KS KS KS Chức vụ Đơn vị công tác Trởng phòng Cán KT Cán KT C¸n bé KT C¸n bé KT C¸n bé KT Phó phòng Viện khí Năng lợng mỏ -nt-nt-nt-nt-ntCông ty tuyển than Cửa Ông Bài tóm tắt Rung dao động cỡng hệ đàn hồi Để dao động không bị tắt dần ma sát phải trì nguồn xung kích thích (bộ gây rung) Hiệu ứng rung học đà đợc áp dụng rộng rÃi vào đời sống từ buổi sơ khai nhân loại Trong ngành công nghiệp mỏ, thiết bị ứng dụng kỹ thuật rung gồm băng tải, máy cấp liệu, máy sàng, đầm dùi, đầm bàn, đầm cóc Nhìn chung đa số gây rung thiết bị công tác đợc dẫn động động điện, xung kích thích lực li tâm thớt lệch tâm sinh chuyển động quay Vì chủng loại kích thớc thiết bị ngành mỏ đa dạng mà kiểu kết cấu cỡ kích thớc gây rung đa dạng Trong tập hợp đa dạng kiểu gây rung, gây rung sàng tự cân ( ) đợc chọn làm đối tợng nghiên cứu thiết kế, chế tạo Nguyên mẫu dùng làm đối tợng nghiên cứu gây rung cho sàng kiểu WP (Ba Lan) vµ sµng 2,4x4,2 D.D Low - Head (Boliden Allis - Australia) Việc chọn gây rung cho sàng tự cân làm đối tợng nghiên cứu thiết kế chế tạo đề tài dựa sau: 1- Sàng tự cân đợc sử dụng nhiều sản xuất, đặc biệt dây chuyền công nghệ tuyển than; 2- Nhiều gây rung sàng mua nớc vận hành đà rơ rÃo cần thay mới; 3- Bộ gây rung sàng không đợc sản xuất theo loạt lớn, đặt mua nớc với số lợng không nhiều tăng thêm chi phí thờng không chủ động đợc mặt thời gian; 4- Bộ gây rung đơn vị lắp độc lập nhng với thay đổi theo tính toán dùng chung cho nhiều cỡ sàng khác nhau; 5- Khối lợng kích thớc gây rung lớn, chế tạo lắp ráp tơng đối khó, thông qua công tác thiết kế, chế tạo gây rung có kinh nghiệm thiết kế, chế tạo gây rung có yêu cầu kỹ thuật cao 6- Đà nắm bắt đợc số u nhợc điểm kết cấu gây rung sàng tự cân nhập ngoại nên việc tự nghiên cứu thiết kế, chế tạo nớc theo mẫu cho khả thành công cao hơn, rút ngắn đợc thời gian hơn; 7- Việc thử nghiệm công nghiệp gây rung sàng, bớc quan trọng thiếu công tác nghiên cứu thiết kế, chế tạo sản phẩm khí nói chung, có điều kiện thuận lợi trờng thử nghiệm dây chuyền sản xuất hoạt động nhà máy tuyển, công trờng khai thác than, thiết bị đo kiểm tơng đối đơn giản không đòi hỏi độ xác cao Trong đề tài nghiên cứu này, gây rung đợc định ký hiệu chữ số lµ BR 4e ý nghÜa cđa ký hiƯu nh− sau: BR- chữ hai từ "bộ rung"; 4- giá trị biên độ dao động thấp làm việc: mm; e- nguyên lý tạo lực cỡng gây rung: lệch tâm (eccentric) Vì gây rung cho sàng tự cân nên việc tính toán xác định thông số phải xuất phát từ yêu cầu thông số làm việc thân sàng Trong đề tài nghiên cứu này, sàng đợc tính toán với suất 150 tấn.h-1 Công dụng phân loại sản phẩm thành cÊp: +50 mm; +13 50 mm vµ -13 mm (sµng mặt lới) Việc tính toán thông số kỹ thuật sàng rung đợc thực máy vi tính với chơng trình đợc viết ngôn ngữ lập trình Microsoft Visual Basic 6.0 Do kết cấu truyền động gây rung không phức tạp, giống nh hộp giảm tốc tỷ số truyền 1:1, kích thớc hai trục truyền lấy theo mẫu nên việc tính toán bền không mang nhiều ý nghĩa khoa học không đợc đề cập báo cáo Thực tế cho thấy chất lợng tuổi bền gây rung phần lớn phụ thuộc vào chất lợng ổ bi đỡ mối lắp ghép, cần phải nghiệm bền Việc nghiệm bền loại ổ bi đỡ đà chọn theo phơng diện kết cấu đợc thực chơng trình máy tính* Kết cho thấy với chế độ tải sàng suất 150 tấn.h-1, tần số dao động 750 lần.ph-1, tuổi thọ tính toán ổ bi đỡ gây rung 74.3269,4 h Bộ tài liệu kỹ thuật phục vụ cho công tác chế tạo gây rung vẽ thiết kế quy trình công nghệ chế tạo số chi tiết Bộ vẽ thiết kế với đầy đủ yêu cầu kỹ thuật đợc lập sở kết hợp tính toán lý thuyết khối lợng thớt lệch tâm kích thớc hình học rung mẫu Các chi tiết gây rung sau chế tạo đà đợc kiểm tra nghiệm thu trớc lắp ráp toàn Bộ gây rung sau lắp đà đợc nghiệm thu xuất xởng sau đa vào thử nghiệm công nghiệp theo chơng trình nhà máy tuyển than II Cửa Ông sàng 415 Kết bớc đầu cho thấy gây rung BR 4e đảm bảo sàng hoạt động ổn định đảm bảo suất hiệu suất nh tính toán, biên độ dao động thân sàng lắp gây rung BR 4e dây chuyền sản xuất đo đợc 1,5 mm *ứng dụng kết đề tài nghiện cứu ''Xây dựng sở liệu phục vụ công tác thiết kế, chế tạo sản phẩm khí"- Chủ nhiệm đề tài: KS Quách Nghiêm Sơn Mục lục Lời mở ®Çu Ch−¬ng VỊ mét sè loại gây rung Sử dung thiÕt bÞ má 1-1 T×nh h×nh sư dơng 1-2 T×nh hình nghiên cứu thiết kế, chế tạo 13 Chơng chọn kiểu gây rung làm đối tợng nghiên cøu thiÕt kÕ 15 2.1 C¸c sở để lựa chọn 15 2.2 Ph¹m vi sư dơng cđa bé rung 15 2.3 KÕt cÊu cđa bé g©y rung đà chọn đặc tính kỹ thuật 16 Chơng tính toán thiết kế, chế tạo gây rung sàng 18 3.1 Tính thông sè kÕt cÊu cđa sµng 18 3.2 Tính phân bố tải dòng vật liệu mặt sàng 22 3.3 TÝnh bé g©y rung 24 3.4 ThiÕt kÕ bé g©y rung 30 3.5 Công nghệ chế tạo bé g©y rung 30 Chơng Thử nghiệm gây rung 50 Ch−¬ng Kết luận kiến nghị 53 Lời cám ơn 54 Tài liệu tham khảo Lời mở đầu Rung vật lý dao động học vật thể rắn theo tần số biên độ định tùy thuộc vào trị số lực kích thích tính chất hệ đàn hồi Hiện tợng rung đà đợc biết đến từ buổi đầu sơ khai lịch sử xà hội loài ngời, ví dụ nhờ ứng dụng rung mà ngời có đợc thành công hái lợm hoa quả, rũ côn trùng lẫn thức ăn, sau rây bột, hạt ngũ cốc Trong xà hội đại, kỹ thuật rung từ lâu đà đợc nghiên cứu ứng dụng chế tạo máy, ví dụ nh máy massage dùng y tế; đầm cóc, đầm bàn, đầm dùi, bàn rung, máy đóng / nhổ cọc dùng xây dựng, vận tải, đúc - luyện kim; sàng, máy cấp liệu dùng tuyển khoáng, sản xuất vật liệu xây dựng, công nghiệp chế biến thực phẩm, chế biến thức ăn gia súc Ngành công nghiệp mỏ ngành Kinh tế - Kü tht tỉng hỵp gåm nhiỊu lÜnh vùc kü thuật chuyên ngành nh khảo sát địa hình mở khai trờng, khai thác, vận tải, tuyển - chế biến khoáng sàng có ích Trong ngành mỏ nớc ta, loại máy móc, thiết bị có ứng dụng kỹ thuật rung công tác làm đờng mở khai trờng loại đầm rung, lu rung ; vận tải, tuyển - chế biến khoáng sàng máng vận tải, máy cấp liệu, máy sàng Các loại thiết bị chủ yếu sản phẩm nhập ngoại Trong trình sử dụng thiết bị, chi tiết máy bị h hỏng đợc sửa chữa phục hồi để kịp thời phục vụ sản xuất, đồng thời mức độ góp phần tiết kiệm ngoại tệ nhập ngoại Việc nghiên cứu thiết kế, chế tạo gây rung cụ thể cho riêng loại thiết bị cha đợc đơn vị nớc tiến hành Với chủng loại máy phạm vi sử dụng rộng rÃi nh đà đề cập trên, phạm vi đề tài nghiên cứu chọn kiểu gây rung làm đối tợng nghiên cứu thiết kế chế tạo, gây rung dùng cho sàng tự cân ( ) đợc sử dụng nhà máy tuyển than (NMTT) Mục tiêu đề tài phân tích lựa chọn mẫu sản phẩm điển hình, đợc nhiều khách hàng tin dùng để thiết kế, chế tạo sản phẩm nội địa hoá phù hợp với điều kiện nguyên vật liệu, thiết bị gia công khí có nớc; tính kỹ thuật độ tin cậy sản phẩm nghiên cứu tơng đơng với sản phẩm loại nớc Chơng số loại gây rung sử dụng Thiết bị mỏ 1-1 Tình hình sử dụng 1-1-1 Trong thiết bị tuyển than Trong công nghệ tuyển than, máy sàng, máy cấp liệu thiết bị ứng dụng kỹ thuật rung Hiện ngành Than - Khoáng sản Việt Nam có ba nhà máy tuyển than có dây chuyền công nghệ đại, chúng tập trung chủ yếu địa phận tỉnh Quảng Ninh: Nhà máy tuyển than Cửa Ông thị trấn Cửa Ông; Nhà máy tuyển than Nam Cầu Trắng Hòn Gai; Nhà máy tuyển than Vàng Danh mặt công nghiệp mỏ Vàng Danh Sơ đồ công nghệ tuyển nhà máy tuyển nh sau: a) Nhà máy tuyển than Cửa Ông, Cẩm Phả Than nguyên khai kéo từ mỏ Máy đập Cyclone cô đặc Sàng chuẩn bị ữ 100 mm ữ mm Bà thải Máy lắng +15 ữ 35 mm +35 ữ 100 mm Máy sàng Bà thải +6 ữ 15 mm Cyclone môi trờng nặng I Máy sàng Phân loại ữ 15 mm Đánh đống Cyclone môi trờng nặng II +15 ữ 35 mm Máy sàng phân loại 0ữ mm Cám Sàng róc nớc Cục Cục3 +35ữ 50 mm Cục1, Sản phẩm +50ữ 100 mm trung gian Cục Cám 1, Hình 1.1 Sơ đồ dây chuyền công nghệ tuyển NMTT Cửa Ông b) Nhà máy tuyển than Nam Cầu Trắng, Hòn Gai Than nguyên khai kéo từ mỏ Đá thải Sàng sơ ữ 50 mm +50 mm Cám ữ mm Sàng khử cám khô Máy đập +6 ữ 50 mm Cyclone cô đặc ữ 0,75mm ữ 0,75 mm Đá thải Máy lắng Máy sàng rửa +0,75 ữ mm +6 ữ 50 mm Gỗ đầu mẩu Máy sàng loại dị vật +6 ữ 50 mm Cyclone môi trờng nặng Bà thải trung gian ữ mm Máy sàng róc nớc +35 ữ 50 mm Cục Máy sàng phân loại +15 ÷ 35 mm Cơc +6 ÷ 15 mm Cục Hình 1.2 Sơ đồ dây chuyền công nghệ tuyển NMTT Nam Cầu trắng c) Nhà máy tuyển than Vàng Danh Than nguyên khai kéo từ mỏ ữ 400 mm +120 mm Sàng song khe 120 mm BÃi QLN (NK) Máy đập hàm PE khe 120 mm Cám SP (0 ữ15) Sàng phân loại Cục NK (15ữ120) Bun ke cục (NK) Cám (0 ữ 10) Sàng tách cám khô Sàng rửa cám Cục (18ữ120) Máy tuyển CKB-20 Đá (10ữ120) Bể cô đặc Hố gầu nâng (0 ữ18) (nớc bùn than) Sàng tách huyền phù Sàng rửa cám Cục SP (40ữ90) Sàng phân loại Cám (1ữ18) Cám trung gian Cục SP (+90) Máy tuyển Cyclone Cục 18ữ40 Cám sạch(1ữ18) Đá trung gian Sàng tách huyền phù Máy tuyển Cyclone Than Sàng róc nớc Cục SP (22ữ40) Sàng phân loại Cục SP (6ữ22) SP cám (0ữ6) Hình 1.3 Sơ đồ dây chuyền công nghệ tuyển NMTT Vàng Danh Trong nhà máy tuyển than nêu trên, nhà máy tuyển than Cửa Ông nhà máy tuyển than Nam Cầu Trắng sử dụng công nghệ thiết bị hÃng BMCH (Australia), nhà máy tuyển than Vàng Danh sử dụng công nghệ thiết bị Liên Xô cũ, Cộng hòa Liên bang Nga Nhà máy tuyển than Cửa Ông tuyển than mỏ khu vực Cẩm Phả Theo yêu cầu công nghệ, nhà máy nhận than cấp hạt -100 mm kéo từ mỏ nhng khâu sàng sơ mỏ không loại hết cục cỡ nên cần đến khâu đập sàng chuẩn bị (phân loại) than trớc vào tuyển Nhà máy tuyển than Nam Cầu Trắng tuyển than mỏ khu vực Hòn Gai nhận than đà đợc sàng sơ mỏ cấp hạt -50 mm Nhà máy tuyển than Vàng Danh phục vụ chủ yếu cho mỏ than Vàng Danh nên đợc xây dựng mặt công nghiệp mỏ Than nguyên khai cỡ hạt amax= 400 mm trớc vào tuyển đợc phân loại sơ sàng song, kích thớc khe 120 mm, cục cỡ đợc đập lại đổ trục tiếp xuống bun ke nhà máy tuyển Độ sâu tuyển than cục Vàng Danh +18 mm nên than từ bun ke phải đợc khử cám sàng khô nh sàng ớt Sàng phân loại róc nớc tuyển than Cửa Ông Nam Cầu Trắng loại sàng tự cân bằng, sàng rung quán tính hÃng chế tạo máy nh Boliden Allis (Australia), Polmag (Ba Lan) s¶n xt ë tun than Vàng Danh, loại sàng đợc sử dụng sàng rung quán tính sàng tự cân nhà máy Lugansk (Ucraina thuộc Liên Xô cũ) chế tạo Thực tế trang bị loại sàng, máy cấp liệu dây chuyền công nghệ hoạt động nêu đợc đa vào bảng 1.1 Bảng 1.1 Nơi sử dụng Loại sàng NMTT Cửa Ông Sàng tự cân Kí hiệu/ Cỡ kích thớc mặt sàng Đặc điểm gây rung 2,4x4,2 D.D Low - Head Số T.T Dạng hộp độc lập với ®éng c¬ dÉn ®éng 1,8x4,2 D.D Low - Head 1,5x3,0 Dạng hộp liền với động dẫn động 0,9x30 Dạng hộp độc lập với động dẫn động WP1, WP2 10 Công dụng dây chuyền Số lợng Phân loại róc nớc sản phẩm tuyển sau máy lắng Phân loại sản phẩm Róc nớc sản phẩm Róc nớc sản phẩm Phân loại sản phẩm 08 05 04 04 23 cboo.Text = "1.0" End Select Else 'd >= 25 [mm] For o = 0.1 To 1.05 Step 0.1 cboo.AddItem CStr(Round(o, 1)) Next o cboo.ListIndex = End If End Sub Private Sub cboPPS_Click() Dim d As Single, PPS As String, P As Single d = Val(cbod.Text) PPS = cboPPS.Text cboP.Clear If d < 25 Then 'd < 25 [mm] Select Case PPS Case "Kh«" cboP.AddItem "1.0" cboP.ListIndex = Case "T−íi n−íc" For P = 1.25 To 1.4 Step 0.05 cboP.AddItem CStr(Round(P, 2)) Next P cboP.ListIndex = Case "Không phân biệt" cboP.Text = "1.0" End Select Else 'd >= 25 [mm] cboP.AddItem "1.0" cboP.ListIndex = End If End Sub Private Sub Layer1_Calc() Dim betaL As Single, CD As String, eta As Single Dim Q As Single, k As Single, L As Single, _ m As Single, n As Single, o As Single, P As Single Dim msg As String '0 Nhap du lieu: Q1 = Val(cboQ.Text) '[t/h] betaL = Val(cbobetaL.Text) '[%] eta = Val(cboeta.Text) '[/] d1 = Val(cbod.Text) '[mm] Q = Val(cboqn.Text) '[t/hm^2] gamma = Val(cbogamma.Text) '[t/m^3] k = Val(cbok.Text) '[/] L = Val(cbol.Text) '[/] 23 m = Val(cbom.Text) '[/] n = Val(cbon.Text) '[/] o = Val(cboo.Text) '[/] P = Val(cboP.Text) '[/] ' 'Kiem tra du lieu nhap vao: ' msg = "Q1 = " & CStr(Q1) & " [t/h]" & vbCrLf & _ "betaL = " & CStr(betaL) & " [%]" & vbCrLf & _ "eta = " & CStr(eta) & " [/]" & vbCrLf & _ "d1 = " & CStr(d) & " [mm]" & vbCrLf & _ "q = " & CStr(q) & " [t/hm^2]" & vbCrLf & _ "gamma = " & CStr(gamma) & " [t/m^3]" & vbCrLf & _ "k = " & CStr(k) & " [/]" & vbCrLf & _ "l = " & CStr(l) & " [/]" & vbCrLf & _ "m = " & CStr(m) & " [/]" & vbCrLf & _ "n = " & CStr(n) & " [/]" & vbCrLf & _ "o = " & CStr(o) & " [/]" & vbCrLf & _ "p = " & CStr(p) & " [/]." ' MsgBox msg, vbInformation, "Nhap du lieu" ' '1 Tinh dien tich cua luoi sang tren, F1 [m^2]: F1 = Q1 / (Q * gamma * k * L * m * n * o * P) '[m^2] '2 Tinh bien dao dong cua luoi sang tren, a1 [mm]: a1 = (4 + 140 * d1) / 1000 '[mm] ' Luu va thong bao ket qua: Results(0) = "1 Khối lợng vật liệu mặt sàng trên, Q1 = " & Format(Q1, "####.###") & " [t/h]" Results(1) = "2 Diện tích mặt sàng trên, F1 = " & Format(F1, "####.###") & " [m^2]" Results(2) = "3 Biên độ dao động mặt sàng trên, a1 = " & CStr(a1) & " [mm]" Results(3) = "" ' msg = Results(0) & vbCrLf & _ Results(1) & vbCrLf & _ Results(2) & vbCrLf ' MsgBox msg, vbInformation, "1 Tính mặt sàng trên" '3 Tinh va truyen du lieu (lambda, Q2) cho buoc 2: lambda = (100 - betaL) * eta / 10000 '[/] Q2 = Q1 * lambda '[t/h] End Sub ' -' 2/ Tinh luoi sang duoi ' -Private Sub Layer2_initialize() 24 'Khoi tao lop thu hai cboQ.Text = CStr(Q2) cboQ.Enabled = False cboCD_Click cbod_Click cbod.ListIndex = cboVL_Click cboDA_Click cboDA.ListIndex = cboo.Text = "0.8" End Sub 'Cac dieu khien tren lop thu 2: Dung lai cua lop thu nhat! Private Sub Layer2_Calc() Dim betaL As Single, CD As String, eta As Single Dim Q As Single, k As Single, L As Single, _ m As Single, n As Single, o As Single, P As Single Dim msg As String '0 Nhap du lieu: Q2 = Val(cboQ.Text) '[t/h] betaL = Val(cbobetaL.Text) '[%] eta = Val(cboeta.Text) '[/] Q = Val(cboqn.Text) '[t/hm^2] d2 = Val(cbod.Text) '[mm] ''' gamma = Val(cbogamma.Text) '[t/m^3] k = Val(cbok.Text) '[/] L = Val(cbol.Text) '[/] m = Val(cbom.Text) '[/] n = Val(cbon.Text) '[/] o = Val(cboo.Text) '[/] P = Val(cboP.Text) '[/] ' 'Kiem tra du lieu nhap vao: ' msg = "Q2 = " & CStr(Q2) & " [t/h]" & vbCrLf & _ "betaL = " & CStr(betaL) & " [%]" & vbCrLf & _ "eta = " & CStr(eta) & " [/]" & vbCrLf & _ "q = " & CStr(q) & " [t/hm^2]" & vbCrLf & _ "d2 = " & CStr(d2) & " [t/hm^2]" & vbCrLf & _ "gamma = " & CStr(gamma) & " [t/m^3]" & vbCrLf & _ "k = " & CStr(k) & " [/]" & vbCrLf & _ "l = " & CStr(l) & " [/]" & vbCrLf & _ "m = " & CStr(m) & " [/]" & vbCrLf & _ "n = " & CStr(n) & " [/]" & vbCrLf & _ "o = " & CStr(o) & " [/]" & vbCrLf & _ "p = " & CStr(P) & " [/]." ' MsgBox msg, vbInformation, "Nhap du lieu" ' - 25 '1 Tinh dien tich cua luoi sang duoi, F2 [m^2]: F2 = Q2 / (Q * gamma * k * L * m * n * o * P) '[m^2] '2 Tinh bien dao dong cua luoi sang duoi, a2 [mm]: a2 = (4 + 140 * d2) / 1000 '[mm] ' Luu va thong bao ket qua: Results(4) = "4 Khối lợng vật liệu mặt sàng d−íi, Q2 = " & Format(Q2, "####.###") & " [t/h]" Results(5) = "5 Diện tích mặt sàng dới, F2 = " & Format(F2, "####.###") & " [m^2]" Results(6) = "6 Biên độ dao động mặt sàng dới, a2 = " & CStr(a2) & " [mm]" Results(7) = "" ' msg = Results(4) & vbCrLf & _ Results(5) & vbCrLf & _ Results(6) ' MsgBox msg, vbInformation, "2 TÝnh mặt sàng d-ới" End Sub ' -' 3/ Tinh luc tac dung xuong truc bo gay rung ' -Private Sub Layer3_initialize() 'Khoi tao lop thu With cboM1 AddItem "3800" AddItem "3900" AddItem "4000" Text = "3900" End With With cboB AddItem "0.9" AddItem "1.2" AddItem "1.5" AddItem "1.8" AddItem "2.0" AddItem "2.2" AddItem "2.4" Text = "2.4" End With With cboalfa AddItem "0.0" AddItem "0.0872" AddItem "0.1745" Text = "0.0872" End With With cbofi 26 .AddItem "2.3562" AddItem "2.6180" AddItem "3.1416" Text = "3.1416" End With With cbou AddItem "1.3" AddItem "1.5" AddItem "1.7" AddItem "2.0" AddItem "2.3" AddItem "2.5" AddItem "2.8" Text = "2.0" End With With cboPdc AddItem "5.5" AddItem "7.5" AddItem "11" AddItem "15" Text = "5.5" End With With cbondc AddItem "1460" AddItem "1460" AddItem "1460" AddItem "1460" Text = "1460" End With cboRL.Text = "0.24" cborn.Text = "0.1" cboro.Text = "7850" End Sub Private Sub Layer3_Calc() Dim i As Integer Dim M1 As Single, B As Single, alfa As Single, fi As String, _ ka As Single, kc As Single, u As Single, Fmax As Single, _ L As Single, Ltc(0 To 8) As Single, a As Single, _ atc(0 To 4) As Single, achon As Single, _ j As Integer, n As Single, Ntc(0 To 6) As Single, nchon As Single, _ delta1 As Single, delta2 As Single, v As Single, _ beta As Single, omega As Single, h1 As Single, h2 As Single, _ gamma As Single, M21 As Single, M22 As Single, Mt As Single, _ bqv As Single, RL As Single, r As Single, ro As Single, bchon As Single, _ ndc As Single, dlan As Single, eta1 As Single, eta2 As Single, _ eta3 As Single, fms As Single, betad As Single, betad1 As Single Dim Mx As Single, NL As Single, idai As Single, Ntt As Single, _ Mxr As Single, DC As Single, alfa1 As Single 27 Dim Motor(0 To 3, To 1) As Single, Ntra As Single, ndctra As Integer Dim msg As String '0 Nhap du lieu: 'Cac hang so PI, g: Da tinh tu truoc! 'Cac bien Q1, F1, a1, Q2, F2, a2: Da tinh o tren! M1 = Val(cboM1.Text) '[kg] B = Val(cboB.Text) '[m] alfa = Val(cboalfa.Text) '[rad] fi = Val(cbofi.Text) '[rad] u = Val(cbou.Text) '[/] RL = Val(cboRL.Text) r = Val(cborn.Text) ro = Val(cboro.Text) dlan = Val(cbodlan.Text) eta1 = Val(cboeta1.Text) eta2 = Val(cboeta2.Text) eta3 = Val(cboeta3.Text) fms = Val(cbofms.Text) ' 'Kiem tra du lieu nhap vao: ' msg = "PI = " & CStr(PI) & " [/]" & vbCrLf & _ "g = " & CStr(g) & " [m/s^2]" & vbCrLf & _ "Q1= " & CStr(Q1) & " [t/h]" & vbCrLf & _ "F1= " & CStr(F1) & " [m^2]" & vbCrLf & _ "a1= " & CStr(a1) & " [mm]" & vbCrLf & _ "d1= " & CStr(d1) & " [mm]" & vbCrLf & _ "Q2= " & CStr(Q2) & " [t/h]" & vbCrLf & _ "F2= " & CStr(F2) & " [m^2]" & vbCrLf & _ "a2= " & CStr(a2) & " [mm]" & vbCrLf & _ "d2= " & CStr(d2) & " [mm]" & vbCrLf & _ "M1 = " & CStr(M1) & " [kg]" & vbCrLf & _ "B = " & CStr(B) & " [m]" & vbCrLf & _ "alfa = " & CStr(Round(alfa * 180 / PI, 3)) & " [deg]" & vbCrLf & _ "fi = " & CStr(fi) & " [rad]" & vbCrLf & _ "u = " & CStr(u) & " [/]" ' MsgBox msg, vbInformation, "Nhap du lieu" ' -'1 Chon co dien tich mat luoi sang, F [m^2]: If F1 < F2 Then Fmax = F2 Else Fmax = F1 '[m^2] '2 Tinh chieu dai mat luoi sang, L [m]: L = Round(Fmax / B, 1) '[m] '3 Tinh bien dao dong cua thuyen sang, a [mm]: a = (a1 + a2) / '[mm] For j = To atc(j) = Choose(j + 1, 2.5, 3, 3.5, 4, 4.5) 28 Next j For j = To If a > atc(j) And a RA2, RA1, RA2) RB = IIf(RB1 > RB2, RB1, RB2) If RA > RB Then BName = "A" Else BName = "B" ' -' MsgBox "RA1 = " & RA1 & " [N]" & vbCrLf & _ "RB1 = " & RB1 & " [N]" & vbCrLf & _ "RA2 = " & RA2 & " [N]" & vbCrLf & _ "RB2 = " & RB2 & " [N]" & vbCrLf & _ "RAmax = " & RA & " [N]" & vbCrLf & _ "RBmax = " & RB & " [N]" ' -'1 Tinh kiem tra tuoi tho cua o lan (Lh [h]): 'Lay va tra cac thong so cua o lan: BType = cboBType.Text BCode = cboBCode.Text BSizes = cboBSizes.Text & "x" j = 0: data = "" For i = To Len(BSizes) letter = Mid(BSizes, i, 1) If letter = "x" Then j=j+1 Select Case j Case 1: dt = Val(data) '[mm] Case 2: Dn = Val(data) '[mm] 34 Case 3: B = Val(data) '[mm] End Select data = "" Else data = data & letter End If Next i i = cboBCode.ListIndex Select Case i Case 6, Co = 1140 '[kN] C = 900 '[kN] n1 = 1300 '[rot/min] n2 = 1700 '[rot/min] e = 0.36 '[/] Y1 = 1.9 '[/] Y2 = 2.8 '[/] Yo = 1.8 '[/] Case Else Co = 1140 '[kN] C = 900 '[kN] n1 = 1400 '[rot/min] n2 = 1800 '[rot/min] e = 0.33 '[/] Y1 = 2.1 '[/] Y2 = 3.1 '[/] Yo = '[/] End Select ' ' msg = "BType = " & BType & vbCrLf & _ "BCode = " & BCode & vbCrLf & _ "dt = " & dt & vbCrLf & _ "Dn = " & Dn & vbCrLf & _ "B = " & B & vbCrLf & _ "Co = " & Co & vbCrLf & _ "C = " & C & vbCrLf & _ "n_mo = " & n1 & vbCrLf & _ "n_dau = " & n2 & vbCrLf & _ "e = " & e & vbCrLf & _ "Y1 = " & Y1 & vbCrLf & _ "Y2 = " & Y2 & vbCrLf & _ "Yo = " & Yo ' MsgBox msg, vbInformation, "Thông số ổ lăn" ' 'Tinh tai tuong duong (P): Dim Fa As Single, Fr As Single, qn As Single Fa = '[kN] 35 Fr = RB / 1000 '[kN] If Fa / Fr