nghiên cứu và thiết kế mô hình cấp và đóng nắp lọ thuốc mini

BỘ CÔNG THƯƠNG TRƯỜNG ĐẠI HỌC CÔNG NGHIỆP HÀ NỘI KHOA CƠ KHÍ - ĐỒ ÁN TỐT NGHIỆP CHUYÊN NGÀNH CÔNG NGHỆ KỸ THUẬT CƠ ĐIỆN TỬ NGHIÊN CỨU VÀ THIẾT KẾ MƠ HÌNH CẤP VÀ ĐĨNG NẮP LỌ THUỐC MINI Giáo viên hướng dẫn: TS Nguyễn Văn Trường Nhóm sinh viên: Hà Duy Khanh 2018605754 Nguyễn Quốc Việt 2018605736 Mai Minh Hiếu 2018605417 Hà Nội – 2022 NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN Hà Nội, ngày …tháng …năm 2022 Giáo viên hướng dẫn (Ký ghi rõ họ tên) NHẬN XÉT CỦA GIÁO VIÊN PHẢN BIỆN Hà Nội, ngày …tháng …năm 2022 Giáo viên phản biện (Ký ghi rõ họ tên) LỜI MỞ ĐẦU Ngày nay, với ứng dụng khoa học kỹ thuật, giới có chuyển biến rõ rệt ngày tiên tiến hơn, đại Với phát triển vượt bậc công nghệ, khí truyền thống khơng thể mang lại hiệu cao kinh tế thị trường Chính xuất xu hướng cơng nghệ, kết hợp khí, cơng nghệ thơng tin điện tử để hình thành lĩnh vực mới: Cơ điện tử Công nghệ điện tử trở thành ngành kỹ thuật đa nhiệm vụ, đáp ứng địi hỏi khơng ngừng ngành khác công nghiệp, xây dựng, y tế,nông - lâm nghiệp đặc biệt ứng dụng nhiều thực tế đời sống hàng ngày Sự phát triển công nghệ, đặc biệt công nghệ tự động tạo hàng loạt dây chuyền sản xuất, thiết bị máy móc đại với đặc điểm vượt trội Không bị bỏ lại đà phát triền cách mạng công nghiệp, ngành công nghiệp sản xuất dược phẩm ứng dụng tự động hóa sản xuất nhằm đáp ứng nhu cầu người ngày cao Trong công nghiệp, nhà máy sản xuất dược phẩm khâu cấp đóng gói khâu thiếu quan trọng Xuất phát từ nhu cầu thực tế đó, nhóm xây dựng đề tài “Nghiên cứu thiết kế mơ hình cấp đóng nắp lọ thuốc mini” để nghiên cứu hệ thống có độ xác cao, giải nhu cầu Theo suốt trình thực đề tài dẫn tận tình thầy Nguyễn Văn Trường Nhóm chúng em xin trân thành cảm ơn thầy tận tình giúp đỡ nhóm thực đề tài Nhóm sinh viên thực Hà Duy Khanh Nguyễn Quốc Việt Mai Minh Hiếu i MỤC LỤC LỜI MỞ ĐẦU i MỤC LỤC ii DANH MỤC HÌNH ẢNH v DANH MỤC BẢNG BIỂU viii TỔNG QUAN VỀ HỆ THỐNG CẤP VÀ ĐÓNG NẮP LỌ THUỐC .1 1.1 Tổng quan đề tài 1.1.1 Lịch sử nghiên cứu .1 1.1.2 Các khâu điển hình dây chuyền cấp đóng gói dược phẩm 1.2 Các vấn đề đặt .5 1.3 Mục tiêu nghiên cứu 1.4 Đối tượng phạm vi nghiên cứu .6 1.5 Phương pháp nghiên cứu 1.6 Dự kiến kết đạt CƠ SỞ THIẾT KẾ 2.1 Cơ sở lý thuyết hệ thống cấp đóng nắp lọ thuốc mini .9 2.1.1 Quy trình công nghệ 2.1.2 Sơ đồ nguyên lý 11 2.1.3 Phương pháp cấp đóng nắp bàn xoay định vị 13 2.2 Cơ sở lý thuyết PLC 14 2.2.1 Giới thiệu PLC Siemens 14 2.2.2 Giới thiệu phần mềm Tia Portal WinCC .17 2.3 Cơ sở hệ thống khí nén 19 2.3.1 Giới thiệu hệ thống điều khiển khí nén 19 ii 2.3.2 Cấu trúc hệ thống điều khiển khí nén 20 2.3.3 Các phần tử khí nén liên quan 21 2.4 Hệ thống cảm biến 22 2.4.1 Cảm biến quang vật cản hồng ngoại E3F-DS30P1 22 2.4.2 Cảm biến tiệm cận 23 2.5 Khối nguồn phần tử có chức điều khiển khác .25 2.5.1 Khối nguồn .25 2.5.2 Các phần tử có chức điều khiển khác 26 TÍNH TỐN VÀ THIẾT KẾ HỆ THỐNG CẤP VÀ ĐÓNG NẮP LỌ THUỐC .29 3.1 Tính tốn thiết kế hệ thống khí 29 3.1.1 Tính tốn động băng tải .29 3.1.2 Tính tốn cụm cấu bàn xoay định vị 32 3.1.3 Tính tốn cụm cấu sàng, tách cấp thuốc .37 3.1.4 Tính tốn cụm cấu cấp đóng nắp lọ thuốc 44 3.1.5 Tính tốn xy lanh đẩy lọ 46 3.1.6 Thiết kế mơ hình hệ thống khí 47 3.2 Tính tốn thiết kế hệ thống điều khiển .50 3.2.1 Sơ đồ khối 50 3.2.2 Sơ đồ hệ thống điện 51 3.2.3 Bảng địa vào 51 3.2.4 Lưu đồ thuật toán điều khiển 53 3.2.5 Thiết kế hệ thống điện khí nén 53 3.3 Thiết kế giao diện mô phỏng, điều khiển giám sát hệ thống 54 3.3.1 Giao diện đăng nhập .54 iii 3.3.2 Giao diện vận hành 55 3.3.3 Giao diện thông tin hướng dẫn 56 3.3.4 Mô mơ hình 56 3.4 Chế tạo thử nghiệm hệ thống .57 3.4.1 Chế tạo .57 3.4.2 Thử nghiệm hệ thống .66 KẾT LUẬN VÀ ĐỊNH HƯỚNG PHÁT TRIỂN 67 4.1 Kết đạt .67 4.2 Hạn chế phương hướng giải .67 4.3 Định hướng phát triển .68 DANH MỤC TÀI LIỆU THAM KHẢO .69 PHỤ LỤC 70 iv  Chương trình mơ  Chương trình chuyển liệu tags  Chương trình xuất liệu báo cáo WinCC Sub Create_Report() 'Tip: ' Use the or shortcut to open a list of all objects and functions ' Write the code using the HMI Runtime object ' Example: HmiRuntime.Screens("Screen_1") ' Use the shortcut to create an object reference 'Write the code as of this position: 'Tested OK VBScript for reporting in MS-Excel as per client submitted EXCEL sheet Dim wsh, XLSrunning, TargetBookrunning, objExcelApp, objWorkbook, TheTargetBook Dim TheCount, theSheet, theCell, theLastCell, theLastRow, PreviousDate Dim objFSO Dim Date1 Dim EXCEL_R Const OverwriteExisting = Set wsh = CreateObject("WScript.Shell") TheTargetBook = "C:\Users\DELL\Desktop\DATN\REPORT\report.xlsx" TheCount = GetObject("winmgmts:root\CIMV2").ExecQuery("SELECT * FROM Win32_Process WHERE Name='EXCEL.EXE'").Count 'While TheCount is bigger than 0, it means the Excel Application is running , but doesn't mean the workbook is open for sure! If TheCount > Then Set objExcelApp = GetObject(,"Excel.Application") ' Using GetObject(,"Excel.Application") to point to the running Excel Application TargetBookrunning = For Each XLSrunning In objExcelApp.Workbooks If XLSrunning.name = TheTargetBook Then'Name Then TargetBookrunning = End If Next If TargetBookrunning = Then Set objWorkbook = GetObject(TheTargetBook) Else Set objWorkbook = objExcelApp.Workbooks.Open(TheTargetBook) End If Else Set objExcelApp = CreateObject("Excel.Application") Set objWorkbook = objExcelApp.Workbooks.Open(TheTargetBook) objWorkbook.Worksheets(1).Activate Set theSheet = objWorkbook.ActiveSheet End If objExcelApp.Visible = False objExcelApp.ScreenUpdating = False objExcelApp.DisplayAlerts = False If SmartTags("Excel_row") < Then SmartTags("Excel_row") = End If objWorkbook.Worksheets(1).Activate Set theSheet = objWorkbook.ActiveSheet With theSheet cells(SmartTags("Excel_row"),1) = Now cells(SmartTags("Excel_row"),2) = SmartTags("Set_Time_Thuoc_Day") cells(SmartTags("Excel_row"),3) = SmartTags("Act_Time_Thuoc_Day") cells(SmartTags("Excel_row"),4) = SmartTags("Act_SP_Vao") .cells(SmartTags("Excel_row"),5) = SmartTags("Act_SP_Ra") cells(SmartTags("Excel_row"),6) = SmartTags("Act_SP_OK") cells(SmartTags("Excel_row"),7) = SmartTags("Act_SP_NotOK") End With SmartTags("Excel_row") = SmartTags("Excel_row") + objWorkbook.Save objWorkbook.Close Set objWorkbook = Nothing objExcelApp.Quit Set objExcelApp = Nothing Set wsh = Nothing End Sub ... đẩy nắp lọ - Xy lanh đóng nắp lọ - Xy lanh gạt lọ nắp chưa OK Nguyên lý hoạt động: Mô hình cấp đóng nắp lọ thuốc mini thực hai khâu cấp thuốc vào lọ đóng nắp lọ, ngồi cịn có khâu phân loại lọ thuốc. .. đóng nắp - Bộ phận cấp đóng nắp: cấp nắp, đóng nắp vào lọ cấp đủ thuốc - Băng tải đầu ra: đưa lọ khỏi bàn xoay tới vị trí kiểm tra lọ đóng nắp hay chưa - Bộ phận kiểm tra nắp: Kiểm tra nắp đóng. .. đến vị trí cấp thuốc, đủ lượng thuốc, cửa hũ chứa mở, thuốc đưa vào lọ Bước 4: Lọ bàn xoay chuyển đến vị trí cấp đóng nắp Nắp đẩy từ ống chứa nắp, phận đóng nắp hoạt động đóng nắp vào lọ Bước 5: