BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT THÀNH PHỐ HỒ CHÍ MINH ĐỒ ÁN TỐT NGHIỆP NGÀNH CÔNG NGHỆ THỰC PHẨM NGHIÊN CỨU - TÍNH TỐN - THIẾT KẾ - CHẾ TẠO HỆ THỐNG SẤY THĂNG HOA DS-12 VỚI NĂNG SUẤT 10,45 KG NGUYÊN LIỆU SỮA CHUA CHANH DÂY/MẺ GVHD: NGUYỄN TẤN DŨNG SVTH: TRẦN KIM NGÂN ĐÀO CHÁNH THỊNH SKL008412 Tp Hồ Chí Minh, tháng 08/2022 TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT THÀNH PHỐ HỒ CHÍ MINH KHOA CƠNG NGHỆ HĨA HỌC & THỰC PHẨM BỘ MÔN CÔNG NGHỆ THỰC PHẨM KHÓA LUẬN TỐT NGHIỆP MÃ SỐ: 2022 – 18116094 NGHIÊN CỨU - TÍNH TỐN - THIẾT KẾ - CHẾ TẠO HỆ THỐNG SẤY THĂNG HOA DS-12 VỚI NĂNG SUẤT 10,45 KG NGUYÊN LIỆU SỮA CHUA CHANH DÂY/MẺ GVHD: PGS TS NGUYỄN TẤN DŨNG SVTH: TRẦN KIM NGÂN 18116094 ĐÀO CHÁNH THỊNH 18116115 THÀNH PHỐ HỒ CHÍ MINH - 08/2022 TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT THÀNH PHỐ HỒ CHÍ MINH KHOA CƠNG NGHỆ HĨA HỌC & THỰC PHẨM BỘ MƠN CƠNG NGHỆ THỰC PHẨM KHĨA LUẬN TỐT NGHIỆP MÃ SỐ: 2022 – 18116094 NGHIÊN CỨU - TÍNH TỐN - THIẾT KẾ - CHẾ TẠO HỆ THỐNG SẤY THĂNG HOA DS-12 VỚI NĂNG SUẤT 10,45 KG NGUYÊN LIỆU SỮA CHUA CHANH DÂY/MẺ GVHD: PGS TS NGUYỄN TẤN DŨNG SVTH: TRẦN KIM NGÂN 18116094 ĐÀO CHÁNH THỊNH 18116115 THÀNH PHỐ HỒ CHÍ MINH - 08/2022 KHĨA LUẬN TỐT NGHIỆP PGS.TS NGUYỄN TẤN DŨNG SVTH: TRẦN KIM NGÂN – ĐÀO CHÁNH THỊNH Trang i KHÓA LUẬN TỐT NGHIỆP PGS.TS NGUYỄN TẤN DŨNG LỜI CẢM ƠN Chúng tôi kính gửi lời cảm ơn sâu sắc đến thầy PGS.TS Nguyễn Tấn Dũng – trưởng khoa Công nghệ Hóa học và Thực phẩm là một giảng viên đầy nhiệt huyết của trường Đại học Sư phạm Kỹ thuật TP.HCM nhiệt tình hướng dẫn chúng tôi tháng vừa qua Trong suốt thời gian hoàn thành đề tài tốt nghiệp “Nghiên cứu - tính tốn - thiết kế chế taọ hệ thống sấy thăng hoa DS – 12 với suất 10,45kg nguyên liệu sữa chua chanh dây/mẻ”, thầy dành rất nhiều sự tận tâm chỉ bảo và hướng dẫn chúng tôi để hoàn thành thật tốt khóa luận tốt nghiệp, thực hiện tớt những kỹ năng phòng thí nghiệm Hơn nữa, thầy luôn tạo sự thân thiện, thoải mái để chúng tôi có thể học hỏi và trau dồi kiến thức cũng như kỹ năng mềm Chúng tôi cũng chân thành cảm ơn đến nhà trường nói chung đặc biệt là quý thầy cô khoa Công nghệ Hóa học và Thực phẩm trường Đại học Sư phạm Kỹ thuật nói riêng tận tình chỉ dạy, xây dựng nền tảng kiến thức cần thiết suốt năm học tập tại trường Nhóm chúng tôi xin gửi lời cảm ơn đến Th.S Lê Tấn Cường, Th.S Lê Thanh Phong, KS Lê Văn Hoàng, và Th.S Đỗ Thùy Khánh Linh nhiệt tình giúp đỡ nhóm chúng tôi śt thời gian triển khai và hoàn thành đồ án tốt nghiệp Cũng không quên gửi lời cảm ơn đến anh chị trước chỉ bảo những thiếu sót về kiến thức và kinh nghiệm thực tế để nhóm chúng tôi có thể hoàn thành được hệ thống thiết bị sấy thăng hoa tự động điều khiển IoT Và sự nhiệt tình của anh kỹ sư, kỹ thuật viên ở xưởng cơ khí Khang Thịnh hỡ trợ tận tình và hoàn thiện hệ thớng về phần cơ khí và điện tử Mặc dù chúng tôi cố gắng để hoàn thành đồ án nhưng có nhiều hạn chề về mặt thời gian và kinh nghiệm thực tế đây là lần đầu tiên chúng tôi bước vào nghiên cứu, tính tốn, thiết kế, chế tạo hệ thớng thiết bị nên không thể tránh khỏi những thiếu sót, rất mong nhận được sự đóng góp của quý thầy cô và bạn Chúng tôi xin chân thành cảm ơn! TP Hờ Chí Minh, ngày 09 tháng 08 năm 2022 SVTH: TRẦN KIM NGÂN – ĐÀO CHÁNH THỊNH Trang ii KHÓA LUẬN TỐT NGHIỆP PGS.TS NGUYỄN TẤN DŨNG SVTH: TRẦN KIM NGÂN – ĐÀO CHÁNH THỊNH Trang iii KHÓA LUẬN TỐT NGHIỆP PGS.TS Nguyễn Tấn Dũng PHỤ LỤC Phụ lục Đồ Thị I - d môi chất lạnh R22 SVTH: TRẦN KIM NGÂN – ĐÀO CHÁNH THỊNH Trang 157 KHÓA LUẬN TỐT NGHIỆP PGS.TS Nguyễn Tấn Dũng Phụ lục Bảng ẩm R22 SVTH: TRẦN KIM NGÂN – ĐÀO CHÁNH THỊNH Trang 158 KHÓA LUẬN TỐT NGHIỆP PGS.TS Nguyễn Tấn Dũng SVTH: TRẦN KIM NGÂN – ĐÀO CHÁNH THỊNH Trang 159 KHÓA LUẬN TỐT NGHIỆP PGS.TS Nguyễn Tấn Dũng SVTH: TRẦN KIM NGÂN – ĐÀO CHÁNH THỊNH Trang 160 KHÓA LUẬN TỐT NGHIỆP PGS.TS Nguyễn Tấn Dũng SVTH: TRẦN KIM NGÂN – ĐÀO CHÁNH THỊNH Trang 161 KHÓA LUẬN TỐT NGHIỆP PGS.TS Nguyễn Tấn Dũng Phụ lục Tính chất lý hóa nước đường bão hòa SVTH: TRẦN KIM NGÂN – ĐÀO CHÁNH THỊNH Trang 162 KHÓA LUẬN TỐT NGHIỆP PGS.TS Nguyễn Tấn Dũng Phụ lục 4: Chương trình điều khiển tự động rivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim tnow, tset, t1_say, t2_say, t_say As Double Dim old_day As Double Dim quatrinhsay As Boolean Dim p As String Public dem As Double Dim Command4_flag, Command5_flag, Command6_flag As Boolean Public t_set As Double Private Sub Com3_OnComm() Dim str As String * If Com3.CommEvent = comEvReceive Then str = Com3.Input p = p + str End If End Sub Private Sub Command1_Click() End Sub Private Sub Command2_Click() End Sub Private Sub Command3_Click() a = MsgBox("CO MUON DUNG CHUONG TRINH DIEU KHIEN HE THONG SAY DS-11 KHONG?", vbOKCancel + vbQuestion, "PROGRAMER AUTO CONTROLLER THE SYSTEM VACUUM DRYING") If a = Then Unload Me End If End Sub SVTH: TRẦN KIM NGÂN – ĐÀO CHÁNH THỊNH Trang 163 KHÓA LUẬN TỐT NGHIỆP PGS.TS Nguyễn Tấn Dũng Private Sub Command4_Click() If Command4_flag = False Then Com3.Output = "RLY 1" Com3.Output = Chr(10) Command4.BackColor = &HFF& Command4_flag = True Else Com3.Output = "RLY 0" Com3.Output = Chr(10) Command4.BackColor = &H80FF80 Command4_flag = False End If End Sub Private Sub Command5_Click() If Command5_flag = False Then Com3.Output = "RLY 1" Com3.Output = Chr(10) Command5.BackColor = &HFF& Command5_flag = True Else Com3.Output = "RLY 0" Com3.Output = Chr(10) Command5.BackColor = &H80FF80 Command5_flag = False End If End Sub Private Sub Command6_Click() If Command6_flag = False Then Com3.Output = "RLY 1" Com3.Output = Chr(10) Command6.BackColor = &HFF& SVTH: TRẦN KIM NGÂN – ĐÀO CHÁNH THỊNH Trang 164 KHÓA LUẬN TỐT NGHIỆP PGS.TS Nguyễn Tấn Dũng Command6_flag = True Else Com3.Output = "RLY 0" Com3.Output = Chr(10) Command6.BackColor = &H80FF80 Command6_flag = False End If End Sub Private Sub Command7_Click() Label48.Visible = True Label49.Visible = False Com3.Output = "Mode_set 1" Com3.Output = Chr(10) Sleep (500) Command7.BackColor = &HFF& Command8.BackColor = &HFF0000 End Sub Private Sub Command8_Click() Label52.Visible = True Label53.Visible = False Com3.Output = "Mode_set 0" Com3.Output = Chr(10) Sleep (500) Command7.BackColor = &HFF0000 Command8.BackColor = &HFF& End Sub Private Sub Command9_Click() Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False SVTH: TRẦN KIM NGÂN – ĐÀO CHÁNH THỊNH Trang 165 KHÓA LUẬN TỐT NGHIỆP PGS.TS Nguyễn Tấn Dũng Command9.Enabled = False Com3.Output = "Set_T " Com3.Output = Text2.Text Com3.Output = Chr(10) Sleep (500) Com3.Output = "Set_P " Com3.Output = Text3.Text Com3.Output = Chr(10) Sleep (500) Com3.Output = "Set_Time " Com3.Output = Text4.Text Com3.Output = Chr(10) Sleep (500) End Sub Private Sub MSComm1_OnComm() End Sub Private Sub Form_Load() Com3.CommPort = Com3.Settings = "9600,N,8,1" Com3.PortOpen = True Timer3.Enabled = True 'Call Off_AllRelay Command4_flag = False Command5_flag = False Command6_flag = False End Sub Private Sub Off_AllRelay() Com3.Output = "0" Label41.Visible = True Label43.Visible = True Label45.Visible = True SVTH: TRẦN KIM NGÂN – ĐÀO CHÁNH THỊNH Trang 166 KHÓA LUẬN TỐT NGHIỆP PGS.TS Nguyễn Tấn Dũng Label49.Visible = True Label53.Visible = True Label35.Visible = True Label37.Visible = True Label39.Visible = True Label46.Visible = True Command1.Enabled = True Command7.Enabled = True Command8.Enabled = True Command9.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Com3.Output = "RLY 0" Com3.Output = Chr(10) Sleep (500) Com3.Output = "RLY 0" Com3.Output = Chr(10) Sleep (500) Com3.Output = "RLY 0" Com3.Output = Chr(10) Sleep (500) Com3.Output = "RLY 0" Com3.Output = Chr(10) Sleep (500) Com3.Output = "RLY 0" Com3.Output = Chr(10) Sleep (500) Com3.Output = "RLY 0" Com3.Output = Chr(10) Sleep (500) Com3.Output = "RLY 0" Com3.Output = Chr(10) SVTH: TRẦN KIM NGÂN – ĐÀO CHÁNH THỊNH Trang 167 KHÓA LUẬN TỐT NGHIỆP PGS.TS Nguyễn Tấn Dũng Sleep (500) Com3.Output = "Run_set 0" Com3.Output = Chr(10) Sleep (500) End Sub Private Sub Timer3_Timer() Dim a, b, c, d, e, f As Byte Dim temp As String * ' Timer3.Enabled = False Com3.Output = "Read_data" Com3.Output = Chr(10) Sleep (500) ' - nhiet -a = InStr(1, p, Chr(10)) If a > Then Text5.Text = Mid(p, 1, a - 1) End If ' nhiet b = InStr(a + 1, p, Chr(10)) If b > (a + 1) Then Text9.Text = Mid(p, a + 1, b - a - 1) End If ' nhiet c = InStr(b + 1, p, Chr(10)) If c > (b + 1) Then Text6.Text = Mid(p, b + 1, c - b - 1) SVTH: TRẦN KIM NGÂN – ĐÀO CHÁNH THỊNH Trang 168 KHÓA LUẬN TỐT NGHIỆP PGS.TS Nguyễn Tấn Dũng End If ' ap suat d = InStr(c + 1, p, Chr(10)) If d > (c + 1) Then Text7.Text = Mid(p, c + 1, d - c - 1) If Val(Text7.Text) < 10 Then Text7.Text = Text3.Text End If End If ' thoi gian e = InStr(d + 1, p, Chr(10)) If e > (d + 1) Then 'Text8.Text = Round(Val(Mid(p, d + 1, e - d - 1)) / 3600, 2) End If ' trang thai may 'e = InStr(d + 1, p, Chr(10)) 'If e > (d + 1) Then 'Text2(4).Text = Mid(p, d + 1, e - d - 1) 'End If If (quatrinhsay = True) Then If (Day(Now) = old_day) Then t1_say = (Hour(Now) * 3600 + Minute(Now) * 60 + Second(Now)) tnow Else t2_say = (Hour(Now) * 3600 + Minute(Now) * 60 + Second(Now)) End If t_say = t1_say + t2_say Text8.Text = Round(t_say / 3600, 3) 'gio If (t_say > tset) Then SVTH: TRẦN KIM NGÂN – ĐÀO CHÁNH THỊNH Trang 169 KHÓA LUẬN TỐT NGHIỆP PGS.TS Nguyễn Tấn Dũng quatrinhsay = False Call Off_AllRelay End If End If p = "" Timer3.Enabled = True End Sub SVTH: TRẦN KIM NGÂN – ĐÀO CHÁNH THỊNH Trang 170 S K L 0