Thực tế sản suất của hầu hết các dây chuyền tự động, hệ thống cấp và đóng nắp lọ thuốc là một dây chuyền khép kín hoàn toàn tự động nên hướng phát triển tiếp theo của đề tài là xây dựng một dây chuyền tự động bao gồm tất cả các khâu và hoàn toàn khép kín chứ không chỉ dừng lại ở một số khâu cơ bản nhất như trong mô hình đồ án. Thiết kế chi tiết hơn hệ thống giám sát quá trình sản xuất, phát triển hướng điều khiển, giám sát từ xa, kiểm tra sản phẩm đầu ra về cả chất lượng và số lượng một cách chi tiết và chính xác nhất. Thiết kế thêm các vị trí mang các chức năng tương tự trên dây chuyền giúp giảm thời gian dừng giữa các khâu để tăng năng suất của hệ thống.
69
DANH MỤC TÀI LIỆU THAM KHẢO
[1] PGS.TS. Hoàng Văn Quý-GS.TS. Nguyễn Cảnh Cầm, Bài tập thủy lực, Hà Nội: NXB Xây Dựng, 2005.
[2] TS. Nguyễn Tuấn Linh, Giáo trình Chi tiết máy, Đại học Công nghiệp Hà Nội: NXB Giáo dục Việt Nam, 2015.
[3] ThS. Bùi Thanh Lâm (Ch.b)-ThS. Lưu Vũ Hải-ThS. Lê Ngọc Duy, Giáo trình hệ thống tự động thủy khí, Đại học Công nghiệp Hà Nội: NXB Khoa học tự nhiên &công nghệ, 2019.
[4] PGS.TS. Ngô Văn Thuyên-KS.Phạm Quang Huy, Lập Trình Với PLC S7 1200 & S7 1500, Nhà xuất bản Thanh Niên, 2019.
[5] PGS.TS. Trịnh Chất-TS. Lê Văn Uyển, Tính toán thiết kế hệ thống dẫn động cơ khí, Nhà xuất bản Giáo Dục, 2007.
[6] Nguyễn Hữu Lộc, Cơ sở thiết kế máy, Hồ Chí Minh: NXB.Đại học Quốc gia, 2013.
[7] Hà Văn Phương, Giáo Trình đo lường và cảm biến, Đại học Công nghiệp Hà Nội: NXB Khoa học &kỹ thuật, 2013.
[8] PGS.TS. Vũ Liêm Chính (Ch.b)-ThS. Nguyễn Kiếm Anh-ThS. Nguyễn Thị Thanh Mai-KS. Đoàn Tài Ngọ-PGS.TS. Trần Văn Tuấn-TS. Nguyễn Thiệu Xuân, Máy và thiết bị sản xuất vật liệu và cấu kiện xây dựng, Hà Nội: NXB Xây Dựng, 2013.
[9] Youtuber Ngọc Automation, “Ngọc Automation,” 17 09 2021. [Trực tuyến]. Available: https://www.youtube.com/watch?v=bbaIAjEA-8c&t=2356s. [Đã truy cập 12 04 2021].
70
PHỤ LỤC Phụ lục 1: Bản vẽ hệ thống
Bản vẽ lắp của hệ thống cơ khí Bản vẽ phân giã của hệ thống cơ khí
Bản vẽ các chi tiết các cụm thành phần hệ thống cơ khí
Phụ lục 2: Lưu đồ thuật toán Phụ lục 3: Mạch điện điều khiển
Phụ lục 4: Chương trình điều khiển hệ thống
Chương trình xuất dữ liệu báo cáo WinCC Sub Create_Report()
'Tip:
' 1. Use the <CTRL+SPACE> or <CTRL+I> shortcut to open a list of all objects and functions
' 2. Write the code using the HMI Runtime object. ' Example: HmiRuntime.Screens("Screen_1").
' 3. Use the <CTRL+J> 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 = 1 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 > 0 Then
Set objExcelApp = GetObject(,"Excel.Application")
' Using GetObject(,"Excel.Application") to point to the running Excel Application.
For Each XLSrunning In objExcelApp.Workbooks
If XLSrunning.name = TheTargetBook Then'Name Then TargetBookrunning = 1
End If Next
If TargetBookrunning = 1 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") < 4 Then SmartTags("Excel_row") = 4 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") + 1 objWorkbook.Save objWorkbook.Close
Set objWorkbook = Nothing objExcelApp.Quit
Set objExcelApp = Nothing Set wsh = Nothing